Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a) Thuật toán:
Bước 1: Nhập n và n số thục x1,x2,...,xn
Bước 2: T←0; i←1;
Bước 3: Nếu i>=n thì chuyển xuống bước 6
Bước 4: T←T+xi;
Bước 5: i←i+1 quay lại bước 3
Bước 6: T←T/n;
Bước 7:In kết quả và kết thúc
b) Viết chương trình:
Program HOC24;
var x: array[1..32000] of integer;
i,n: integer;
t: real;
begin
write('n='); readln(n);
for i:=1 to n do
begin
write('x[',i,']='); readln(x[i]);
end;
t:=0; i:=1;
while i<n do
begin
t:=t+x[i];
i:=i+1;
end;
t:=t/n;
write(t:1:2);
readln
end.
Bước 1: Gán giá trị cho 2 và biến SUM= 0 và i=0.
Bước 2: Do i=0<100 nên chuyển tới bước 3. Nếu i>100 thì chuyển tới bước 4.
Bước 3:Tăng giá trị i thêm 1 và giá trị của SUM bằng SUM+i.
Bước 4: Thông báo giái trị SUM, thuật toán kết thúc.
Kết quả thực hiện thuật toán Sum = 5050.
Bước 1: Gán giá trị cho 2 và biến SUM= 0 và i=0.
Bước 2: Do i=0<100 nên chuyển tới bước 3. Nếu i>100 thì chuyển tới bước 4.
Bước 3:Tăng giá trị i thêm 1 và giá trị của SUM bằng SUM+i.
Bước 4: Thông báo giái trị SUM, thuật toán kết thúc.
Kết quả thực hiện thuật toán Sum = 5050.
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.
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.