Bài tập thực hành số 2

Tiêu đề: Bài tập thực hành số 2 Wed Oct 13, 2010 4:07 pm

Sau đây là code của các bài tập trong Bài tập thực hành số 2 :

Bài 5a

Code:: uses crt;
var
n:integer;
s:real;
begin
clrscr;
s:=0;
for n:=1 to 50 do
s:=s+n/(n+1);
writeln('Ket qua s = ',s:5:2);
readln;
end.

{----------------------------------------------------------------------------------------------------}
Bài 5b

Code:: uses crt;
var
n:integer;
s,gt:real;
i:integer;
begin
clrscr;
s:=1;
gt:=1;
n:=1;
while 1/gt > 2 * 0.000001 do
begin
gt:=1;
for i:=1 to n do
gt:=gt*i;
s:=s+1/gt;
n:=n+1;
end;
writeln('Ket qua s = ',s:5:2);
readln;
end.

{----------------------------------------------------------------------------------------------------}
Bài 6

Code:: uses crt;
var
x,y:integer;
begin
clrscr;
for x:=1 to 100 do
for y:=1 to 100 do
if (x+y=36) and (2*x + 4*y = 100) then
writeln('Co ',x,' con ga va ',y,' con cho');
readln;
end.

{----------------------------------------------------------------------------------------------------}
Bài 7

Code:: uses crt;
var
a,b,so:integer;
begin
clrscr;
write('Nhap tuoi con, tuoi cha : ');
readln(a,b);
if a*2=b then
write('Hien tai tuoi cha gap doi con')
else
if a*2<b then
begin
so:=0;
while (a+so)*2 < b+so do
so:=so+1;
writeln('Sau ',so,' nam nua tuoi cha gap doi tuoi con');
end
else
begin
so:=0;
while (a-so)*2>b-so do
so:=so+1;
writeln('Truoc day ',so,' nam tuoi cha gap doi tuoi con');
end;
readln;
end.

Xong nhá.

CHÚC CÁC BẠN THÀNH CÔNG

Cố lên !!! Xem và hiểu nha. Đừng chép, chép hok hiểu lun đó.

Có thắc mắc gì thì các bạn cứ nêu ra mình sẽ giải quyết

Tiêu đề: Re: Bài tập thực hành số 2 Sun Oct 17, 2010 1:14 pm

Típ nè.

Tìm ước chung lớn nhất của 3 số a, b, c

Code:: {UCLN(a,b,c) = UCLN[UCLN(a,b),c]}
uses crt;
var
a,b,c,t:integer;
begin
clrscr;
write('A, B,C = ');readln(a,b,c);
while a<>b do
if a>b then a:=a-b else b:=b-a;

t:=a;
while t<>c do
if t>c then t:=t-c else c:=c-t;
writeln('UCLN = ',t);
readln;
end.

Bài toán Trăm Trâu

Code:: {std = số trâu đứng ; stn = số trâu năm ; stg = số trâu già}
uses crt;
var
std,stn,stg3:byte;
begin
clrscr;
for std:=1 to 20 do
for stn:=1 to 33 do
for stg3:=1 to 33 do
if(std*5+stn*3+stg3=100)and(std+stn+stg3*3=100)then
begin
writeln('So trau dung : ',std);
writeln('So trau nam : ',stn);
writeln('So trau gia : ',stg3*3);
writeln;
end;
readln;
end.

Tiêu đề: Re: Bài tập thực hành số 2 Sun Oct 17, 2010 2:12 pm

Chúc các bạn làm kiểm tra thật tốt nhé

Tiêu đề: Re: Bài tập thực hành số 2 Sun Oct 17, 2010 6:42 pm

đây là bài ??

var i,m:integer; gt:real;
begin
s:=1;
for i:=1 to 50 do
    begin
           gt:=1;
           for m:=1 to i do gt=gt*m
                   if gt<2000000 then S:=S+1/gt;
    end;
Writeln(S);
end.

Tiêu đề: Re: Bài tập thực hành số 2 Tue Oct 19, 2010 1:22 pm

Bài toán Trăm Trâu

Code:: {a = số trâu đứng ; b = số trâu năm ; c = số trâu già}
uses crt;
var
a,b,c:byte;
begin
clrscr;
for std:=1 to 20 do
for stn:=1 to 33 do
begin
c:=100-a-b;
if a*5+b*3+c/3=100 then
writeln('So trau dung : ',a);
writeln('So trau nam : ',b);
writeln('So trau gia : ',c);
end;
readln;
end.

[/quote]