cho hỏi gấp về pascal - VN-Zoom forum

so_0_lanh_lung · 23-03-2008, 14:15

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
begin
x:=delta
{thế mà nó báo lỗi cú pháp ở đây}
else
write('pt vn');
end;
else write('pt co nghiem');
end.

**mailong88** · 23-03-2008, 14:25

Trích:

x:=delta
{thế mà nó báo lỗi cú pháp ở đây}
else
write('pt vn');
end;
else write('pt co nghiem');
end.

Mình sửa từ chỗ này cho bạn nè:
begin
x:=delta; { Bạn nên cho delta 1 giá trị trước đã}
write('pt vn');
end
else write('pt co nghiem')
end;
readln
end.

trimitu · 23-03-2008, 14:36

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.

so_0_lanh_lung · 23-03-2008, 14:38

bạn cho mình một ví dụ về cấu trúc If <Bieu_thuc_Boolean_1 > Then

Begin

If < Bieu_thuc_Boolean_2 > Then < viec_1> Else < viec_2> End ;

trimitu · 23-03-2008, 14:45

so_0_lanh_lung · 23-03-2008, 17:45

ai có thể đánh bải giải PT bậc 2 có cả 2 trường hợp nếu a=0 và a<>0,khi a=0 thi đưa về PT bậc nhất và giải tiếp...chỉ dùng If..then

so_0_lanh_lung · 23-03-2008, 18:16

làm ơn giúp em với

tranthanhtu · 26-03-2008, 08:16

Em chỉ cần viết đơn giản như thế này:
uses crt;
var x,delta:real;
a:integer;
begin
Write('Nhap he so a: '); Readln(a);
if a<>0 then
begin
...........
x := delta;
{sai dấu ngắt lệnh và sai cú pháp}
Write('TP co nghiem');
end
else
write('pt vn');
end.

tranthanhtu · 26-03-2008, 08:20

If a<0 then
begin
Write(' PT vo nghiem!');
end;
If a=0 then
begin
X := -b/2*a;
Write(' PT co nghiem: X = ',X:8:3);
end;
If a>0 then
begin
X1 := ...;
Write(' PT co 2 nghiem: X1 = ',X1:8:3);
Write(' X2 = ',X2:8:3);
end;

23-03-2008, 14:15	#1
so_0_lanh_lung Búa Đá Đôi Tham gia: Mar 2008 Đến từ: Huế Bài: 92 VZD: 1.700 Điểm: 2/2 bài viết	cho hỏi gấp về pascal 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 begin x:=delta {thế mà nó báo lỗi cú pháp ở đây} else write('pt vn'); end; else write('pt co nghiem'); end.

23-03-2008, 14:45	#5
trimitu Rìu Sắt Tham gia: Jan 2008 Bài: 165 VZD: 3.476 Điểm: 69/45 bài viết	Vô đây lấy link học Pascal cũng được !

Ðiều Chỉnh
Tạo trang in Email trang này
Xếp Bài
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

23-03-2008, 14:38	#4
so_0_lanh_lung Búa Đá Đôi Tham gia: Mar 2008 Đến từ: Huế Bài: 92 VZD: 1.700 Điểm: 2/2 bài viết	bạn cho mình một ví dụ về cấu trúc If <Bieu_thuc_Boolean_1 > Then Begin If < Bieu_thuc_Boolean_2 > Then < viec_1> Else < viec_2> End ;

23-03-2008, 17:45	#6
so_0_lanh_lung Búa Đá Đôi Tham gia: Mar 2008 Đến từ: Huế Bài: 92 VZD: 1.700 Điểm: 2/2 bài viết	ai có thể đánh bải giải PT bậc 2 có cả 2 trường hợp nếu a=0 và a<>0,khi a=0 thi đưa về PT bậc nhất và giải tiếp...chỉ dùng If..then

23-03-2008, 18:16	#7
so_0_lanh_lung Búa Đá Đôi Tham gia: Mar 2008 Đến từ: Huế Bài: 92 VZD: 1.700 Điểm: 2/2 bài viết	làm ơn giúp em với

26-03-2008, 08:16	#8
tranthanhtu Gà Con Tham gia: Mar 2008 Bài: 2 VZD: 240 Điểm: 0/0 bài viết	Em chỉ cần viết đơn giản như thế này: uses crt; var x,delta:real; a:integer; begin Write('Nhap he so a: '); Readln(a); if a<>0 then begin ........... x := delta; {sai dấu ngắt lệnh và sai cú pháp} Write('TP co nghiem'); end else write('pt vn'); end.

26-03-2008, 08:20	#9
tranthanhtu Gà Con Tham gia: Mar 2008 Bài: 2 VZD: 240 Điểm: 0/0 bài viết	If a<0 then begin Write(' PT vo nghiem!'); end; If a=0 then begin X := -b/2*a; Write(' PT co nghiem: X = ',X:8:3); end; If a>0 then begin X1 := ...; Write(' PT co 2 nghiem: X1 = ',X1:8:3); Write(' X2 = ',X2:8:3); end;