xác định input, output:

input: a,b:longint;

output: tổng, hiệu, tích của a, b;

mô tả thuật toán:

B1: nhập a,b;

B2: tong<--a+b; hieu<--a-b; tich<--a*b;

B3: xuất tong, hieu, tich

viết chương trình:

program bai_giai;

uses crt;

var a, b, tong, hieu, tich:longint;

begin

clrscr;

write('nhap a, b:');readln(a,b);

tong:=a+b;

hieu:=a-b;

tich:=a*b;

writeln('tong cua hai so la:',tong);

writeln('hieu cua hai so la:'.hieu);

write('tich cua hai so la:',tich);

readln;

end.

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program vler;
uses crt;
var a: array [1..10000] of integer;
      i,n,tong,hieu,tich: integer;
begin
         clrscr;
         tong:=0; hieu:=0; tich:=1;
         writeln('Nhap so luong phan tu: '); readln(n);
         for i:=1 to n do
                                 begin
                                 writeln('Nhap gia tri thu ',i,': '); readln(a[i]); 
                                 end;
                                 begin
                                          for i:=1 to n do
                                          tong:=tong+a[i];
                                 end;
                                 begin
                                          for i:=1 to n do
                                          hieu:=hieu-a[i];
                                 end;
                                 begin
                                         for i:=0 to n do
                                         tich:=tich*a[i];
                                 end;
        writeln('Tong cua cac gia tri la: ',tong);
        writeln('Hieu cua cac gia tri la: ',hieu);
        writeln('Tich cua cac gia tri la: ',tich);
        readln;
end.