Bài 7. Câu lệnh lặp

Bài Tập Pascal Tổng Hợp
Bài Tập 1: Giải phương trình bậc nhất (khi a,b#0):
Program Ptbac1;
Uses crt;
Var a,b:integer;
kq:real;
traloi:char;
Begin
Repeat
Clrsct;
Writeln(‘Chuong trinh giai phuong bac 1 khi a,b # 0’);
Write(‘Nhap so a: ‘); Read(a);
Write(‘Nhap so b: ‘); Read(b);
kq:= -b/a;
Write(‘Nghiem cua phuong trinh qua la: ‘,kq:0:4);
Writeln(‘ban co muon tiep tuc y/n’);
Readln;
Read(traloi);
Until traloi=’n’;
End..
Bài Tập 2: Giải phương trình bậc nhất (khi a,b=0):
Program Ptbac1;
Uses crt;
Var a,b:integer;
kq:real;
traloi:char;
Begin
Repeat
Clrsct;
Writeln(‘Chuong trinh giai phuong bac 1’);
Write(‘Nhap so a: ‘); Read(a);
Write(‘Nhap so b: ‘); Read(b);
If a=0 Then
Writeln(‘Phuong Trinh Vo Nghiem’)
Else
Begin;
kq:= -b/a;
Write(‘Nghiem cua phuong trinh qua la: ‘,kq:0:4);
End;
Writeln(‘ban co muon tiep tuc y/n’);
Readln;
Read(traloi);
Until traloi=’n’;

End..

Bài Tập 3: Giải phương trình bậc hai (khi a,b,c#0):
Program Ptbac2;
Uses crt;
Var a,b,c:integer;
delta,kq:real;
traloi:char;
Begin
Repeat
Clrscr;
Writeln(‘Chuong trinh giai phuong bac hai’);
Write(‘Nhap so a: ‘); Read(a);
Write(‘Nhap so b: ‘); Read(b);
Write(‘Nhap so c: ‘); Read(c);
delta:=(b*b)-(4*a*c)
If delta<0 then writeln(‘phuong trinh vo nghiem’);
If delta=0 Then Writeln(‘Phuong trinh co nghiem kep: ‘,-b/(2*a):0:4);
If delta=0 Then
Begin;
Writeln(‘Phuong trinh co nghiem phan biet’);
Writeln(‘Nghiem thu nhat la: ‘,(-b+sqrt(delta)/(2*a)):0:4);
Writeln(‘Nghiem thu nhat la: ‘,(-b-sqrt(delta)/(2*a)):0:4);
End;
Writeln(‘ban co muon tiep tuc y/n’);
Readln;
Read(traloi);
Until traloi=’n’;
End..
Bài Tập 4: Nhập vào 3 cạnh của một tam giác sau đó xét xem 3 cạnh này có phải là 3 cạnh của tam giác
Program XetTamGiac;
Uses crt;
Var a,b,c:integer;
traloi:char;
Begin
Repeat
Clrsct;
Writeln(‘Chuong trinh xet 3 canh cua tam giac’);
Write(‘Nhap canh a: ‘); Read(a);
Write(‘Nhap canh b: ‘); Read(b);
Write(‘Nhap canh b: ‘); Read(b);
If (a+b>c) and (a+c>b) and (b+c>a) and (a>1) and (b>1) and (c>1)
Then writeln(‘Thoa dieu kien la mot tam giac’);
Else writeln(‘Chua thoa dieu kien la mot tam giac’);
Writeln(‘ban co muon tiep tuc y/n’);
Readln;
Read(traloi);
Until traloi=’n’;
End..
Bài Tập 5: Tính Giai Thừa của một số nguyên
Program XetTamGiac;
Uses crt;
Var n,i:integer;
q:longint;
traloi:char;
Begin
Repeat
Clrsct;
Writeln(‘Chuong trinh tinh giai thua cua mot so nguyen’);
Write(‘Nhap mot so: ‘); Read(n);
q:=1;
For i