Question

Lập chương trình qua thuật toán sau:

B1: Nhập a,b (a,b≠0)

B2: S₁←2ab

B3:S₂←\(\frac{\pi a^2b}{2}\)

B4:S←S₁+S₂

B5:Chuyển S vào màn hình

Answer 1

Uses crt;

Var a,b,S1,S2,S: real ;

Begin

Write ('Nhap a: '); readln (a);

Write('Nhap b: '); readln (b);

S1:=2*a*b;

S2:= (3.14*b*sqr(a))/2;

S:= S1+S2;

If (a<>0) and (b<>0) then Write (S);

Readln ;

End.

Answer 2

uses crt;

var a,b,s1:integer;

s2,s:real;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

s1:=2*a*b;

s2:=(sqr(a)*b*pi))/2;

s:=s1+s2;

writeln(s:4:2);

readln;

end.

Answer 3

program ho_tro;

uses crt;

var s,s1,s2,a,b: real;

begin

clrscr;

writeln(' nhap 2 so a va b:'); readln(a,b);

s1:=2*a*b;

s2:=(3.14*a*a*b)/2;

s:= s1+s2;

writeln(' ket qua cua s la:',s:6:2);

readln;

end.