Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Huyền

​Viết chương trình Pascal sử dụng câu lệnh while ... do và for ... do

S : 1+ 1/2+ 1/3+....+1/n

Viết chương trình sử dụng câu lệnh while ... do để tính trung bình n số thực a1 , a2 , ..... an. Các số n và a1 , a2 , ..... an được nhập vào từ bàn phím

Giúp mình với cảm ơn mng ạ !

bui thi tham
16 tháng 3 2017 lúc 20:49

var i,n,s:integer;

begin

readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln(s:3:0);

end.

Lưu Hiền
16 tháng 3 2017 lúc 21:52

mình làm while do nhé, cái kia để mình tìm hiểu thêm

var S:real;

i,n:longint;

begin

writeln('n=') ; readln(n);

S:=0;

i:=1;

while (i<=n) do

begins=

S:= 9S+1/i;

i:=i+1;

end;

writeln ('S=');

end.

Ung Chiêu Tường
18 tháng 3 2017 lúc 22:47

Câu 2:

program CTTTB;

uses crt;

var TB,x:real; n,y: integer;

begin

Write('Hay nhap so so thuc ban can tinh TB'); Readln(n);

for y:=1 to n do

begin Write('Nhap so thu',y);Readln(x);

TB:=TB+x;

end;

TB:=TB/n;

Writeln('Trung binh cong cua',n,' so nhap vao tu ban phim la',TB);

Readln;

End.


Các câu hỏi tương tự
lio Nana
Xem chi tiết
Tùng Dương
Xem chi tiết
Bé Heo
Xem chi tiết
Ma Phan Đức
Xem chi tiết
Tuyết Lê
Xem chi tiết
Trương Võ Thanh Ngân
Xem chi tiết
Đinh Thuận
Xem chi tiết
Sa sa
Xem chi tiết
Trần Huyền
Xem chi tiết