Question

Viết chương trình tính:

- Tổng n số tự nhiên đầu tiên với n nhập từ bàn phím bằng câu lệnh với số lần lặp biết trước. (for… do).

- Tích các số từ 5 đến 30.

- Chu vi, diện tích hình chữ nhật, hình tròn, hình thang với các kích thước được nhập từ bàn phím.

Mình đang cần gấp

Answer 1

Tổng n số tự nhiên đầu tiên:

Var i,n,s:integer;

Begin

Write('n = ');

for i:=1 to n do

s:=s+i;

Write('Tong la ',s);

Readln

End.

Answer 2

Tích các số từ 5 đến 30

Var i,p:longint;

Begin

p:=1;

For i:=5 to 30 do

P:=p*i;

Write('Tich la ',p);

Readln

End.

Answer 3

Chu vi, diện tích hình chữ nhật:

var a,b,p,s:real;

begin

write('Chieu dai hcn = ');readln(a);

write('Chieu rong hcn = ');readln(b);

p:=(a+b)*2;

s:=a*b;

writeln('Chu vi hcn la ',p:10:2);

write('Dien tich hcn la ',s:10:2);

readln

end.

------------------------------------------------------------

Chu vi, diện tích hình tròn:

var r,c,s:real;

begin

write('Ban kinh = ');readln(r);

c:=2*3.14*r;

s:=3.14*r*r;

writeln('Chu vi hinh tron la ',c:10:2);

write('Dien tich hinh tron la ',s:10:2);

readln

end.

---------------------------------------------------

Chu vi, diện tích hình thang:

var dl,dn,cb1,cb2,h,p,s:real;

begin

write('Day lon = ');readln(dl);

write('Day be = ');readln(db);

write('Chieu cao = ');readln(h);

write('Canh ben thu nhat = ');readln(cb1);

write('Canh ben thu hai = ');readln(cb2);

p:=dl+db+cb1+cb2;

s:=(dl+db)*h/2;

writeln('Chu vi hinh thang la ',p:10:2);

write('Dien tich hinh thang la ',s:10:2);

readln

end.