ai có thể giúp em đc không

[tapcuoinet]

Em mới học pascal ai có bài nào hay thì đăng lên ( cả lời giải nha!) em còn học tập.
thanks nha!

[theanhutc2]

bạn vào đây đọc nha bạn
http://www.diendantinhoc.vn/forumdisplay.php?f=48

[citybuilder1102]

Em mới học pascal ai có bài nào hay thì đăng lên ( cả lời giải nha!) em còn học tập.
thanks nha!

bạn vào diễn đàn ở box pascal là có cả đống bài trong đó , ngoài ra , bạn có thể học trong các ebook , trong đó cũng có nhiều bài tập lắm .

p/s : người thích học là người chịu khó tìm kiếm !

[bentremegumi]

Bài 7: Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím). Program TIM_SO_LON_NHAT;
Uses crt;
Var a,b,c,d,max:real; 
Begin
Clrscr;
Writeln('TIM SO LON NHAT TRONG BON SO A, B, C, D'); 
Writeln('---------------------------------------------------------------'); 
Write('Nhap a='); Readln(a);
Write('Nhap b='); Readln(b); 
Write('Nhap c='); Readln(c); Write('Nhap d='); Readln(d); max:=a;
If b>max then max:=b; If d>max then max:=d;
Writeln('So lon nhat la:',max:4:2); Readln;
End.

---------------------------------Bài viết đã được trộn ---------------------------------

Bài 2: Nhập vào bán kính của hình tròn. In ra màn hình diện tích và chu vi của nó. Program HINHTRON;
Uses Crt;
Var r,dt,cv:real; Begin
Clrscr;
Writeln('TINH DIEN TICH & CHU VI HINH TRON:'); Writeln('------------------------------------------------------'); Write ('Nhap ban kinh R=');readln(r);
dt:=pi*r*r;
cv:=2*pi*r;
Writeln('Dien tich hinh tron la:',dt:6:2); Writeln('Chu vi hinh tron la:',cv:6:2);
Readln; End.

---------------------------------Bài viết đã được trộn ---------------------------------

Bài 1: Nhập vào 2 cạnh của một hình chữ nhật. In ra màn hình diện tích và chu vi của nó. Program HINH_CHU_NHAT;
Uses Crt;
Var a,b,s,c:real; 
Begin
Clrscr;
Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’); Writeln(‘--------------------------------------------------------------‘); Write('Nhap chieu dai='); readln(a);
Write('Nhap chieu rong=');readln(b);
s:=a*b;
c:=(a+b)*2;
Writeln('Dien tich hinh chu nhat la:’,s:6:2); Writeln('Chu vi hinh chu nhat:',c:6:2); Readln;
End.

[viponline]

Bài 21: Nhập 3 loại tiền và số tiền cần đổi. Hãy tìm tất cả các tổ hợp có được của 3 loại tiền trên cho số tiền vừa nhập.

Program DOI_TIEN; Uses  Crt;
Var   x,y,z,n,i,j,h,s:longint; Begin
Clrscr;
Writeln('CHUONG TRINH DOI TIEN:');
Writeln('---------------------------------------'); 
Write('Nhap so tien can doi n = ');readln(n); 
Write('Nhap loai tien thu 1: ');readln(x); 
Write('Nhap loai tien thu 2: ');readln(y); 
Write('Nhap loai tien thu 3: ');readln(z); Writeln('Loai ',x:6,' Loai ',y:6,'     Loai ',z:6);
 For i:=0 to (n div x) do
For j:=0 to (n div y) do
For h:= 0 to (n div z) do
If (i*x+j*y+h*z=n) then
Writeln (i:8,j:12,h:10);
Readln;
End.

---------------------------------Bài viết đã được trộn ---------------------------------
Bài 22:
Trăm trâu trăm cỏ
Trâu đứng ăn năm
Trâu nằm ăn ba
Trâu già ba con một bó. Hỏi có bao nhiêu con mỗi loại?

Program TRAMTRAU_TRAMCO; Uses crt;
Var td,tn,tg:integer; Begin
Clrscr;
Writeln('  TRAM TRAU TRAM CO:'); Writeln('----------------------------------'); Writeln('Trau dung           Trau nam     Trau gia'); For td:=0 to 20  do
For tn:=0 to 33  do
For tg:=0 to 100 do
If ((5*td+3*tn+tg/3=100)and (td+tn+tg=100)) then
Writeln(td:6, tn:12, tg:15);


Readln;
  End.

[gamevui5k]

Bài 26: Tính an (dùng chương trình con) 
Program LUY_THUA;
Uses Crt;
Var a,n:integer;
Function  lt(a,n:integer):longint;
 Var i:integer; kq:longint; 
Begin
kq:=1;
For i:=1 to n do kq:=kq*a;
End;
 Begin
Clrscr;
 lt:=kq; 
Writeln('CHUONG TRINH TINH A^N:'); 
Writeln('------------------------------------------'); 
Write('Nhap a = '); readln(a);
Write('Nhap n = '); readln(n); 
Writeln(a,'^',n,' = ',lt(a,n)); 
Readln;
End.