Một số bài toàn Passcal---từ web

Tiêu đề: Một số bài toàn Passcal---từ web 18/08/08, 02:28 pm

Bài toán cổ: Trăm trâu trăm cỏ

Program Tramtrautramco;
uses crt;
var td, tn, tg, songhiem, i: byte;
begin
clrscr;
songhiem:=0; i:=1;
for td:=1 to 98 do
for tn:=1 to 98 do
for tg:=1 to 98 do
If((td+tn+tg)=100) and (5*td+3*tn+tg/3=100) then
begin
writeln('Nghiem thu: ', i);
writeln('So trau dung: ', td:6);
writeln('So trau nam: ', td:6);
writeln('So trau gia: ', td:6);
i:= i+1; songhiem:=songhiem+1; writeln;
readln;
end;
writeln('Bai toan co: ', songhiem,' ket qua');
readln
end.

Bài toán: Gà ***

Program gacho;
uses crt;
var cho, ga: byte;
begin
clrscr;
for cho:=1 to 35 do
for ga:=1 to 35 do
If(Ga+cho=36) and (2*ga+4*cho=100) then
begin
writeln('So cho: ', cho:5);
writeln('So ga: ', cho:5);
end;
readln
end.

Tìm ước chung lớn nhất

Program UCLN(M,N);
uses crt;
var M, N: byte;
begin
clrscr;
writeln('Nhap vao so nguyen M: '); readln(M);
writeln('Nhap vao so nguyen N: '); readln(N);
While M<>N do
If M>N then M:=M-N else :=N-M
writeln('Uoc chung lon nhat cua M va N la: ', M:6);
readln
end.

Chương 3 - bài 4 - câu b - Bài thực hành

Program C3B4b;
uses crt;
var x, y, z, r: real;
a, b,: byte;
begin
clrscr;
writeln('Nhap toa do diem M(x,y): '); readln(x,y);
writeln('Nhap ban kinh duong tron r: '); readln(r);
If(sqr(x-a) + sqr (y-b) <= sqr(r) then z:=abs(x) + abs(y) else z:=x+y
writeln('Ket qua z: ', z Một số bài toàn Passcal---từ web 6

2); readln
end.
__________________

Tiêu đề: Re: Một số bài toàn Passcal---từ web 19/08/08, 02:29 pm

Mầy ngu quá vậy, viết rồi không bik đò lại ah, viết sai rồi kìa.