Câu 1:viết chương trình sử dụng câu lệnh lặp for…do để tính tổng của 5 số thực x1,x2,…x5 và các số thực được nhập từ bàn phím.
Câu 2: viết chương trình sử dụng câu lệnh lặp while….do để tính tổng của 5 số thực x1,x2…..x5 và các số thực được nhập từ bàn phím
Câu 1 :
Program BT_1;
Var i: longint;
t : real;
a : array [1..100] of real;
Begin
t := 0;
For i := 1 to 5 do
Begin
Write (‘A[‘,i,’]= ‘);Readln(a[i]);
t := t + a[i];
end;
Write (‘TOng cua 5 so thuc do la : ‘,t : 2:4);
end.
Câu 2 :
Program BT_2;
Var i: longint;
t : real;
a : array [1..100] of real;
Begin
t := 0;
while i <> 5 do
Begin
i := i + 1;
Write (‘A[‘,i,’]= ‘);Readln(a[i]);
t := t + a[i];
end;
Write (‘Tong cua 5 so thuc do la : ‘,t : 2:4);
end.
Câu 1:
program Cau_1;
uses crt;
var i: byte;
x,T: real;
Begin
clrscr;
for i:=1 to 5 do
begin
write(‘Nhap so thuc thu ‘,i,’: ‘); readln(x);
T:=T+x;
end;
write(‘T = ‘,T:2:2);
readln
End.
Câu 2:
program Cau_2;
uses crt;
var i: byte;
x,T: real;
Begin
clrscr;
i:=1;
while i<=5 do
begin
write(‘Nhap so thuc thu ‘,i,’: ‘); readln(x);
T:=T+x;
i:=i+1;
end;
write(‘T = ‘,T:2:2);
readln
End.