Trích:
so_0_lanh_lung
các anh cho em một ví dụ cụ thể về lệnh
If <Bieu_thuc_Boolean_1 > Then
Begin
If < Bieu_thuc_Boolean_2 > Then < viec_1> Else < viec_2> End ;
em viết thế này cú pháp có sai gì không? { ví dụ thôi nhé}
Program PT;
uses crt;
var x,delta:real;
a:integer;
begin
if a<>0 then { biến a chưa có giá trị nên biến a sẽ nhận một giá trị ngẫu nhiên do chương trình tự tạo }
begin
x:=delta
{biến delta của bạn chưa có giá trị nên khi bạn gán x :=delta chương trình sẽ báo lỗi Ư
else
{ trong <vòng begin và end mới của bạn chưa có if }
write('pt vn');
end;
else write('pt co nghiem');
end.
|
Chổ này của bạn sai khi bạn dùng begin end sau then
Trong begin và end này chưa có cú pháp if nên nó báo lỗi !
Bạn phải sửa là :
if a<>0 then
begin {KHông có begin cũng được }
x:=delta;
write('Phuong trinh vô nghiệm ');
end { Nếu không có begin ở trên thì bỏ end ở đây đi ! }
else write(' Phương trình có nghiệm !');
end.