Mã:

program Cau5bTrang51;

uses crt;

var e,u:real;

n:integer;

begin

clrscr;

n:=1;

u:=1/n;

e:=1;

while not(u<2.0E-6)do

begin

e:=e+u; n:=n*(n+1); u:=1/n;

end;

write('e(n)= ',e:8:2);

readln;

end.

6. Lập trình để giải bài toán cổ.

Nếu giải bài toán này bằng hệ phương trình bậc nhất 2 ẩn số thì không hay bằng cách dùng vòng lặp while . Hiển nhiên căn cứ vào gà có 2 chân, chó có 4 chân, có đến 36 con, phải có 2 loài gộp chung thì mới ra 100 chân, vì vậy ta dùng 2 biến, cho một biến ga tự chạy tăng dần và biến cho = 36 – ga, nếu thỏa điền kiện ga*2+cho*3=100 thì dừng vòng lặp

program GaCho;

uses crt;

var ga,cho:integer;

begin

clrscr;

ga:=1;

cho:=36-ga;

while ga*2+cho*4<>100 do

begin

ga:=ga+1;

cho:=36-ga;

end;

writeln('Ga : ',ga:3);

write('Cho: ',cho:3);

readln;

end.

program Tuoi;

uses crt;

var tcha,tcon,dem:integer;

begin

clrscr;

while not((tcha>tcon*2)and(tcha-tcon>=25)) do

begin

write('Nhap tuoi cha, tuoi con : ');

readln(tcha,tcon);

end;

dem:=0;

while not(tcha=tcon*2) do

begin

tcha:=tcha+1;

tcon:=tcon+1;

dem:=dem+1;

end;

write('Tuoi cha gap doi tuoi con sau ',dem,' nam');

readln;

end.

program Lai;

uses crt;

var A,B:real;

dem:integer;

begin

clrscr;

write('Nhap so tien A: ');

readln(A);

write('Nhap so tien tong cong B: ');

readln(B);

dem:=0;

while B>A+dem*A*0.003 do

begin

dem:=dem+1;

end;

write('Ban nhan duoc ',B:8:3,' sau ',dem,' thang');

readln;

end.