Trang Chính
Tìm kiếm
Latest images
Đăng ký
Đăng Nhập
program pt_bacnhat;
uses crt;
var a,b:integer;
x:real;
begin
write('-nhap so a=');
readln(a);
write('-nhap co b=');
readln(b);
if(a=0)and (b=0) then
write('-phuong trinh co vo so nghiem')
else
if(a=0)and(b<>0)then
write('-phuong trinh vo nghiem')
else
if (a<>0) then
begin
x:=-b/a ;
writeln('-phuong trinh co No duy nhat x=',x:6:2);
end;
writeln('------------------CHUC CAC BAN HOC GIOI------------------');
writeln;
writeln('-bam phim <enter> de ket thuc');
readln
end.
uses crt;
var a,b:integer;
x:real;
begin
write('-nhap so a=');
readln(a);
write('-nhap co b=');
readln(b);
if(a=0)and (b=0) then
write('-phuong trinh co vo so nghiem')
else
if(a=0)and(b<>0)then
write('-phuong trinh vo nghiem')
else
if (a<>0) then
begin
x:=-b/a ;
writeln('-phuong trinh co No duy nhat x=',x:6:2);
end;
writeln('------------------CHUC CAC BAN HOC GIOI------------------');
writeln;
writeln('-bam phim <enter> de ket thuc');
readln
end.
» Người ta bận yêu, còn em bận cô đơn…
» Đông đến làm người ta cô đơn hơn phải không anh?
» Em muốn được ôm anh từ phía sau
» Hãy cho nhau một cơ hội để giãi bày!
» Hãy cho nhau một cơ hội để giãi bày!
» Đôi lúc em chỉ muốn mình thuộc về ai đó thôi...
» Trái đất này, ba phần tư là nước mắt...
» Để anh kể em nghe về những người phụ nữ anh yêu...
» Thương vội người đến sau...