Giải BT Tin 11

Dap an bai so 8 trang 51 SGK

by lackyluc on Tue Dec 09, 2008 6:50 pm

Bai 8
Program bai_8;
Var A,B,x : word;
T : real;
Begin
Write(‘ xin moi nhap so tien ban dau ‘);
Readln(A);
Write (‘ xin moi nhap so tien toi thieu luc lay ra ‘);
Readln(B);
T : = A;
x : = 0;
while not ( T >=B ) do
begin
x : = x + 1
T : = T + 0.003*A*x;
End;
Write(‘ so thang can de co so tien ban muon lay ra la’,x);
End.

p/s : đã test thành công, cứ yên tâm đúng

Dap an bai so 7 trang 51 SGK

by lackyluc on Tue Dec 09, 2008 6:49 pm

Bai 7
Program bai_7;
Var b,c : integer;
Begin
Write(‘ xin moi nhap theo thu tu tuoi cha roi den tuoi con ‘);
Readln(b,c);
If ( b > ( 2 * c) and ( (b – c ) > 25 ) then write (‘ so nam de tuoi cha gap doi tuoi con la ‘, b – 2 * c)
Else write (‘ hai tuoi ban nhap khong thoa man de bai, moi nhap lai’);
Readln
End.
p/s : đã test thành công, cứ yên tâm đúng