program giaiptbac2;
uses crt;
var a,b,c:integer; D,x1,x2:real; k:byte;
TiepTuc:Boolean;
{--------------------------------------}
PROCEDURE INPUT;
BEGIN
clrscr;
write('Nhap so a:'); readln(a);
write('Nhap so b:'); readln(b);
write('Nhap so c:'); readln(c);
END;
{--------------------------------------}
PROCEDURE QUERY;
Var ch:char;
BEGIN
writeln;
Write('Tiep tuc (C/K):');
REPEAT
ch:=Readkey;
UNTIl ch in ['c','C','k','K'];
Writeln(ch);
TiepTuc:=(Upcase(ch)='C');
(*
IF Upcase(ch)='K' THEN
TiepTuc:=FALSE;
*)
END;

{--------------------------------------}
PROCEDURE PROCESS;
BEGIN
if a = 0 then
if b = 0 then
if c= 0 then
begin
Write('pt vo so nghiem');
readln;
end
else
begin
Write('pt vo nghiem');
readln;
end
else
begin
Write('pt co 1 nghiem:',(-c/b):0:2);
readln;
end
else
begin
D:=b*b-4*a*c;
if D = 0 then
begin
Write('pt co nghiem kep:',(-b/(2*a)):0:2);
readln;
end
else
if D > 0 then
begin
x1:=(-b + sqrt(D))/(2*a);
x2:=(-b - sqrt(D))/(2*a);
Write('pt co 2 nghiem pb:',x1:0:2,' va ',x2:0:2);
readln;
end
else
begin
Write('pt vo nghiem');
readln;
end;
end;
END;
{--------------------------------------}
begin
TiepTuc:=TRUE;
repeat
INPUT;
PROCESS;
QUERY;
until not TiepTuc;
Writeln('Cham dut chuong trinh');
end.
===================================
p/s: chương trình do Su vjk, có saj xjn chỉ giùm nha

Cám ơn về sự tích cực Post bài của bạn nhưng tui chắc chắn một điều rằng: Trừ lớp chuyên tin và các lớp có học qua thì chẳng ai hiểu cả. Nói đừng buồn!

uhm..hajzz, năm sau b cũng gặp àh

Năm sau gặp là cái chắc, cái này nằm trong chương trình học bình thường, tới chừng gặp mới tá hỏa à nha

thế có cần chép lại để nhớ không zậy Dark

Người ta thường nói thế này:
Tính trước ắc chắc bước hổng qua
Nên thui đừng tính chi thêm mệt
Để đầu để óc thảnh thảnh thơi (đi)...

vô tư..năm sau đừng để bị khống chế môn tin nha

cái này sao tui nhập a=1 b=2 c=1 vn vậy?
có cách nào paste wa pascal cho đúng ko? nhìu khi tui gõ sai...

copy wa word rồi dzô pascal mở từ trong word ra

ah nhìu cái lệnh mới wa chã bik tác dụng j cả bó tay roy` nhưng hình như cái nì có chạy liên tục luôn fải k??