Bai` tập pascal mới

Go down

Bai` tập pascal mới

Bài gửi by Lady.Quyen on Fri Aug 15, 2008 10:58 pm

Bài tập 1: Tính a mũ n với a, n nguyên dương nhập từ bàn phím
bài tập 2:Viết phương trình bậc 3 của n số tự nhiên đầu tiên
Bài tập 3: Viế chương trình nhập vào 1 số nguyên rồi m ra tất cả các ước số của số đó
bài tập 4: Tính S= 1+1/2 +1/3 +......+1/n
Bài tập 5: Tìm ước chung lớn nhất của a,b nguyên dương nhậptừ bàn phím


Bài 1:
program bt1;
uses crt;
var a,n,i:integer
s:longint
Begin
Clrscr;
write('nhap gia tri cua a ');
readln(a);
Write('nhap gia tri cua n ');
Readln(n);
S:= 1; i:=1;
While(i<=n_ do
begin
S:=s*a; i:=i+1;
end;
Write('a mu n la, S );
Readln;
End.



Bài 2
Program bt2;
ues crt;
var S:logint;
n:integer;
Begin
Clrscr;
Write('nhap gia tri cua n= ');
Readln(n);
i:= 1 ; s:=0;
While(i<=n) do
begin
s:=s+i*i*i;
i:= i+1;
end;
Write('tong bac 3 cua n so tu nhien dau tien la', s);
Readln;
End.
avatar
Lady.Quyen
Super Moderator
Super Moderator

Nữ
Tổng số bài gửi : 81
Age : 29
Đến từ : Xu' so? cua? tinh yeu
Job/hobbies : Sinh vien lop' CNTT
Humor : Ba` xa~ of Mr.FallenAngel
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 28/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bai` tập pascal mới

Bài gửi by QD_TeMoToJi_CNTT on Sat Aug 16, 2008 2:01 am

B4

program bt4;
uses crt;
var i,n :integer;
s : real;
Begin
clrscr;
write('nhap gia tri n:=');
readln(n);
s:=0;
i:=1
white i<=n do
begin
S:=S+1/I;
I:=I+1;
end;
writeln('tong S',S);
readln;
end.

Nếu sai chỗ nào mọi người bổ sung nhé Very Happy
avatar
QD_TeMoToJi_CNTT
Lính mới
Lính mới

Tổng số bài gửi : 9
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 31/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bai` tập pascal mới

Bài gửi by QD_TeMoToJi_CNTT on Mon Aug 18, 2008 8:16 pm

Bài tập 4

program bt4;
uses crt;
var n,i:interger;
begin
clrscr;
write('nhap gia tri n:=');
readln(n);
i:=1;
while (i<=n) do
begin
if (n mod i )=0 then write ('uoc :=',i);
i:=i+1;
end;
readln;
End.

bài tập đựơc sưu tầm bởi Mr KID Smile thực hiện và trình bày QD_TeMoTOJi_CNTT Very Happy Very Happy
avatar
QD_TeMoToJi_CNTT
Lính mới
Lính mới

Tổng số bài gửi : 9
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 31/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bai` tập pascal mới

Bài gửi by QD_TeMoToJi_CNTT on Thu Aug 21, 2008 4:11 pm

bài tập 5

program bt5;
uses crt;
var a,b,c :integer;
begin
clrscr;
write('nhap a:=');
readln(a);
write('nhap b:=');
readln(b);
while a>0 do
begin
if b>a then
begin
c:=a;
a:=b;
b:=c;
end;
a:=a - b;
end;
writeln('UCLN:=',b);
readln;
End.

Mời mọi người tham khảo nhé
còn bài trên là bài 3 chứ ko phải bài 4 Very Happy
avatar
QD_TeMoToJi_CNTT
Lính mới
Lính mới

Tổng số bài gửi : 9
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 31/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bai` tập pascal mới

Bài gửi by Mr.FallenAngel on Thu Aug 21, 2008 7:28 pm

oach! dao nay` ba` xa~ minh` gioi? wa'
bai` kho' thia' ma` lam` nhoay nhoay' !
Evil or Very Mad Evil or Very Mad Evil or Very Mad
Ca' chep' thoai anh em ui!

_________________
Don't worry about yesterday! Yesterday is fine! Today is really good! And tomorrow will be more wonderfull!


avatar
Mr.FallenAngel
Super Moderator
Super Moderator

Nam
Tổng số bài gửi : 183
Age : 28
Đến từ : Xu' so? cua? tinh yeu
Job/hobbies : Spam Killer
Humor : zui ze? tu` be'
Tâm trạng :
Châm ngôn sống : Don't worry about yesterday! Yesterday is fine! Today is really good! And tomorrow will be more wonderfull!
Số lần cảnh báo: :
0 / 1000 / 100

Registration date : 27/07/2008

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bai` tập pascal mới

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết