Ghi chú dòng lệnh bằng tiếng việt với chương trình giải phương trình bậc hai:
Program Giai_PTB2;
Uses crt;
var a,b,c: real;
D, x1, x2: real;
begin
clrscr;
write(' a, b, c: ');
readln(a, b, c);
D:= b*b-4*a*c;
If D<0 then writeln (' Phương trinh vo nghiem.')
else
begin
x1:= (-b-sqrt(D))/(2*a);
x2:= -b/a-x1;
writeln(' x1= ', x1:8:3, x2= ', x2:8:3);
end;
...
Đọc tiếp
Ghi chú dòng lệnh bằng tiếng việt với chương trình giải phương trình bậc hai:
Program Giai_PTB2;
Uses crt;
var a,b,c: real;
D, x1, x2: real;
begin
clrscr;
write(' a, b, c: ');
readln(a, b, c);
D:= b*b-4*a*c;
If D<0 then writeln (' Phương trinh vo nghiem.')
else
begin
x1:= (-b-sqrt(D))/(2*a);
x2:= -b/a-x1;
writeln(' x1= ', x1:8:3, x2= ', x2:8:3);
end;
readln
end.
uses crt: thư viện crt;
var a,b,c:real có nghĩa là khai báo a,b,c kiểu số thực
d,x1,x2: real là khai báo d,x1,x2 kiểu số thực
begin: bắt đầu
write('a,b,c:'); : viết(a,b,c)
readln(a,b,c); : đọc(a,b,c)
d:=b*b-4*a*c; : delta được gán bằng b bình -4 nhân a nhân c
if d<0 then writeln('phuong trinh vo nghiem'): nếu d<0 thì viết('phuong trinh vo nghiem')
else: ngược lại
gán x1,x2 lần lượt là hai nghiệm của phương trình
xuất hai nghiệm đó ra màn hình
xong rồi readln; end. có nghĩa là kết thúc chương trình