NỘI DUNG CHƯƠNG TRINH: (Sử dụng vòng lặp while <điều kiện> do <câu lệnh>)
--------------------------------------------
program DuaKhoThit; {---- Khai bao ten chuong trinh -----}
uses crt; { Khai bao unit }
var thit,dua,hanh:real; {------ Khai bao bien ------}
cauhoi:char;
Begin
clrscr;
cauhoi:='c';
while cauhoi<>'k' do
begin
write('Nhap luong thit : '); read(thit);
{------ Bat dau xu ly thong tin vao -------}
dua:=75/100*thit; {---dua = 75% cua thit ----}
hanh:=1/100*thit; {--- hanh = 1% cua thit ----}
writeln('Luong dua can mua la : ', dua:8:2);
writeln('Luong hanh can mua la : ', hanh:8:2);
readln;
write('Ban co muon tinh nua khong c/k : '); read(cauhoi);
end;
End.
------------------------------------------------
HOẶC : (Sử dụng vòng lặp reapeat <câu lệnh> Until <điều kiện>)
------------------------------------------------
program DuaKhoThit; {---- Khai bao ten chuong trinh -----}
uses crt; { Khai bao unit }
var thit,dua,hanh:real; {------ Khai bao bien ------}
cauhoi:char;
Begin
clrscr;
cauhoi:='c';
repeat
begin
write('Nhap luong thit : '); read(thit);
{------ Bat dau xu ly thong tin vao -------}
dua:=75/100*thit; {---dua = 75% cua thit ----}
hanh:=1/100*thit; {--- hanh = 1% cua thit ----}
writeln('Luong dua can mua la : ', dua:8:2);
writeln('Luong hanh can mua la : ', hanh:8:2);
readln;
write('Ban co muon tinh nua khong c/k : '); read(cauhoi);
end;
until cauhoi='k';
End.
EmoticonEmoticon