Viết chương trình pascal 8

khang202000

Thành viên mới

Tổng số bài gửi : 3

Reputation : 0

Postado 14/3/2014, 21:13

BT1: viết chương trình tính tổng của 150 số tự nhiên bắt đầu từ 1 ?
BT2: tính tổng các sô dương, công đến số mấy thì tổng > 500?
Bt3: in ra màn hình các ước của 1 số cho trước từ bàn phím?
BT 5: dùng lệnh while để tính tổng N! ?
BT6: viết chương trình tính số tiền nhận dc là 108000đ nếu số tiền gửi là 100000đ và lãi là 2%?
( dùng lệnh while do, for do hoặc iF then thôi nhen( mấy kia chưa học))
GIÚP EM GẤP SẮP KT!!!!!!!!!!!!!!!!!!!!!!!! :pale:
cám ơn

**Admin**

Administrator

Tổng số bài gửi : 121

Reputation : 54

Huy chương : Viết chương trình pascal 8 Medal110

Postado 14/3/2014, 21:28

khang202000 đã viết:BT1: viết chương trình tính tổng của 150 số tự nhiên bắt đầu từ 1 ?
BT2: tính tổng các sô dương, công đến số mấy thì tổng > 500?
Bt3: in ra màn hình các ước của 1 số cho trước từ bàn phím?
BT 5: dùng lệnh while để tính tổng N! ?
BT6: viết chương trình tính số tiền nhận dc là 108000đ nếu số tiền gửi là 100000đ và lãi là 2%?
( dùng lệnh while do, for do hoặc iF then thôi nhen( mấy kia chưa học))
[size=23.636363983154297]GIÚP EM GẤP SẮP KT!!!!!!!!!!!!!!!!!!!!!!!! :pale: [/size]
[size=23.636363983154297]c[/size][size=23.636363983154297]ám ơn [/size]

bạn tham khảo nhé, mình không biết đúng hay sai
1/
program tinhtong;
uses crt;
var i,s: integer;
begin
clrscr;
s:=0; i:=1;
while i<= 150 do
begin
s:=s+i;
i:=i+1;
end;
write('tong la',s);
readln;
end.

5/
Uses crt;
Var
n,s,i:longint;
BEGIN
Clrscr;
Write('Nhap so n:');
Readln(n);
s:=1;
For i:=1 to n do
s:=s*i;
Write(n,' !=',s);
Readln;
END.

3/
program uoc;
uses crt;
var n,i: integer;
begin
clrscr;
writeln('nhap n'); readln(n);
for i:=1 to n do
if n mod i =0 then writeln(i:5)
readln
end.

khang202000

Thành viên mới

Tổng số bài gửi : 3

Reputation : 0

Postado 14/3/2014, 21:52

cám ơn admin, còn mấy bài kia ko làm dc à? :?:

**Admin**

Administrator

Tổng số bài gửi : 121

Reputation : 54

Huy chương : Viết chương trình pascal 8 Medal110

Postado 14/3/2014, 22:09

2/

program tinhtong;
Uses crt;
var i, tong: integer;
begin
clrscr;
i:= 1; while tong<=500 do
begin
tong:=tong+i;
inc (i);
end;
write (Phai cong den so ',i,' thi tong moi lon hon 500, tuc ',tong);
readln
end.

khang202000

Thành viên mới

Tổng số bài gửi : 3

Reputation : 0

Postado 15/3/2014, 18:24

BT 6 nữa admin ơi, nhưng mà chắc ko ra bài 6 nhừn cứ làm thử cho em tham khảo nhen

HEROSTAR 2K13

Thành viên mới

Tổng số bài gửi : 8

Reputation : 8

Postado 18/3/2014, 05:15

cái j ad cũng làm hết rùi thì tui còn cái j để làm nữa hả ad???? :confused: :gian1: :gian1: :gian1: :gian1:

Sponsored content

Postado

#1
khang202000

#2
Admin

#3
khang202000

#4
Admin

#5
khang202000

#6
HEROSTAR 2K13

#7
Sponsored content

#1 khang202000

#2 Admin

#3 khang202000

#4 Admin

#5 khang202000

#6 HEROSTAR 2K13

#7 Sponsored content

#1
khang202000

#2
Admin

#3
khang202000

#4
Admin

#5
khang202000

#6
HEROSTAR 2K13

#7
Sponsored content