Pascal

[♥chicken♥]

Mình mới học Pascal được 2 ngày. Ai biết lập trình giải phương trình bậc nhất một ẩn thì chỉ mình với
Mình cần có 1 bài làm mẫu :blinking:

[bebadboy87]

uses crt;
var a,b:real;
Begin
clrscr;
write('Nhap a,b:');readln(a,b);
If a<>0 then writeln('Phuong trinh co nghiem x=',-b/a:2:3);
If a=0 then
if b=0 then writeln('Phuong trinh co vo so nghiem')
else write('Phuong trinh vo nghiem');
readln;
end.
Lâu lắm không làm cái Pascal này :D

[[Lady] Eric [V.Pi]]

Iem cũng đang học về cái này, đc 2 tuần rồi mà chả hìu jì hết ... ko bik trong 4rum ta có 2pic nào hướng dẫn kỉ và giải đáp các bài tập ko nhỉ !? Hay trang web í ... T.T

[♥chicken♥]

Bài trên ko được !
Error113: Error in statement

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
^^
Có sư "cụ" rồi
Cho mình hỏi lưôn
khi nào thì sử dụng use crt vậy ( khai báo sử dụng các unit đó )

[♥chicken♥]

Chẳng ai trả lời hết vậy?
Thế này thì làm sao mà làm được bất phương trình đây T_T

[bebadboy87]

program ptb11n;
uses CRT;
var
a,b,x:real;
begin
write('Nhap a : '); readln(a);
write('Nhap b: '); readln(b);
if (a=0) and (b<>0) then write('Vo nghiem');
if (b=0) then write('Vo so nghiem')
else
x:=-b/a;
writeln('Phuong trinh co nghiem: ',x:4:2);
readln;
end.
Thử cái này đi, lỗi 113 có lẽ do hàm clrscr; gây nên. Mình đã lâu không dùng Pascal và cũng không có cài Pascal trên máy để test nên những lỗi kiểu Warning thế thì bồ có gắng bug đi

[♥chicken♥]

Lập trình đúng nhưng mà lổi khi chạy chương trình
eror 200: Division by zero

http://www4.webng.com/vanhuu/home/ <--- link dơn Pascal

Giúp em nha! ^^

~~> Sửa được rồi ! ^^ Ko cần uses crt