Bai` tập pascal mới

Xem chủ đề cũ hơn Xem chủ đề mới hơn 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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


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