a)Xác định bài toán:

INPUT: Hai số p và q

OUTPUT: Tổng hai số p và q

Thuật toán:

B1: Nhập hai số p và q

B2: S`<-`p+q

B3: Xuất S ra màn hình và kết thúc thuật toán

Chương trình: 

Program baitap;

Uses crt;

Var S,p,q:rea;;

Begin

Clrscr;

Write('p='); Readln(p);

Write('q='); Readln(q);

S:=p+q;

Writeln('Tong cua p va q:',S);

Readln

End.

b)Xác định bài toán:

INPUT: Hai số a và b

OUTPUT: Hiệu hai số a và b

Thuật toán:

B1: Nhập hai số a và b

B2: H`<-`a-b

B3: Xuất H ra màn hình và kết thúc thuật toán

Chương trình: 

Program baitap;

Uses crt;

Var H,a,b:real;

Begin

Clrscr;

Write('a='); Readln(a);

Write('b='); Readln(b);

H:=a-b;

Writeln('Hieu cua a va b:',H);

Readln

End.

c)Xác định bài toán:

INPUT: Hai số y và z

OUTPUT: Tích hai số y và z

Thuật toán:

B1: Nhập hai số y và z

B2: S`<-`y*z

B3: Xuất S ra màn hình và kết thúc thuật toán

Chương trình: 

Program baitap;

Uses crt;

Var S,y,z:integer;

Begin

Clrscr;

Write('y='); Readln(y);

Write('z='); Readln(z);

S:=y*z;

Writeln('Tich cua y va z:',S);

Readln

End.

d) Xác định bài toán:

INPUT: Chiều dài a và chiều rộng b

OUTPUT: Chu vi và diện tích của hình chữ nhật

Thuật toán:

B1:Nhập hai số a và b

B2: C`<-` (a+b)*2

B3: S`<-` a*b

B4: Xuất S ra màn hình vfa kết thúc thuật toán

Chương trình:

Program baitap;

Uses crt;

Var a,b,C,S:real;

Begin

Clrscr;

Write('a='); Readln(a);

Write('b='); Readln(b);

C:=(a+b)*2;

S:=a*b;

Writeln('Chu vi HCN:',C);

Writeln('Dien tich HCN:',S);

Readln

End.

a)

input 2 số p,q

output tổng pq

b1 nhập p,q

b2 T←p+q

b3 xuất T, kết thúc

uses crt;

var p,q:longint;

begin

clrscr;

write('nhap p,q: ');

readln(p,q);

writeln(p+q);

readln

end.

b)

input 2 số a và b

output hiệu của a,b

b1 nhập a,b

b2 h←a-b

b3 xuất h, kết thúc

uses crt;

var a,b:longint;

begin

clrscr;

write('a,b: ');

readln(a,b);

writeln(a-b);

readln

end.

c);

input 2 số y và z

output tích y,z

b1 nhập y,z

b2 S←y`xx`z

b3 xuất S, kết thúc

uses crt;

var y,z:longint;

begin

clrscr;

write('y,z: ');

readln(y,z);

writeln(y*z);

readln

end.

d);

input 2 cạnh a,b

output chu vi, diện tích hình chữ nhật

b1 nhập a,b

b2 Cv←(a+b)`xx`2

S←a`xx`b

b3 xuất Cv,S, kết thúc

uses crt;

var a,b:longint;

begin

clrscr;

write('a,b');

readln(a,b);

writeln('chu vi',(a+b)*2);

writeln('s',a*b);

readln

end.