viết chương trình pascal lớp 8

**kien2000**

Trial Mod

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

Reputation : 43

Huy chương :

Postado 26/2/2014, 17:57

1/ viết chương trình tính tổng s=1+1/2+1/4+...+1/n+2
2/ viết chương trình tính x!
3/viết chương trình tính x^n
lol!

:

:

HEROSTAR 2K13

Thành viên mới

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

Reputation : 8

Postado 27/2/2014, 20:16

[hide][hide][hide]
1/ Program tínhtổng;
Uses Crt;
Var s,n,i:integer;
Begin
Clrscr;
Writeln(' Nhập vào số n: ');readln(n);
For i:=1 to n do
s:=s+1/i*i;
Writeln(' vậy tổng là: ',s);
Readln
End.
2/ Program tính x;
Uses Crt
Var i,n,gt:longint;
Begin
Clrscr;
Write(' nhập n: ');readln(n);
gt:=1;
For i:=1 to n do
gt:=gt*i;
writeln(' vậy x,'!= ',gt);
Readln
End.
3/ Program tinhxn;
Uses Crt;
Var i,x,n,kq:longint;
Begin
Writeln(' Nhập vào số x: ');readln(x);
Writeln(' Nhập vào số n: ');readln(n);
kq:=1;
For i:=1 to n do
kq:=kq*x;
Writeln(' vậy x,'^',n= ',kq');
Readln
End.
:cheers: :cheers: :cheers: :cheers:

#1
kien2000

#2
HEROSTAR 2K13

#1 kien2000

#2 HEROSTAR 2K13

#1
kien2000

#2
HEROSTAR 2K13