Hướng dẫn dùm vài bài pascal đi !

[jenhanson]

Mình gà pascal quá, mới học nên cũng chẳng hỉu cho mấy, mấy pác giải thích dùm rùi hướng dẫn mình làm nha, gần thi rùi, nên cần phải ôn thi thôi!
Bài 1: Tính tổng các số nguyên từ 50 đến 500
Bài 2: Viết ct biện luận về pt : ax+b= 0, với a,b là các số thực
Bài 3: viết ct in ra các số nhập vào bàn phím là số lẻ hoặc chẵn
Pác nào làm được thì mình thank. +.+ giúp dùm mình đi !

[topvip9x]

Bài 1:

Var i,s:integer;
Begin
S:=0
For i:=50 to 500 do
S:=S+i;
write('Xuat s=',s);
readln;
end.

Bài 2
Var x:real;
a,b:integer;
Begin
Write('Nhap a,b=');
readln(a,b);
x:=(-b)/a;
If a=0 then Write('Phuong Trinh Vo Nghiem')
Else Write('Phuong Trinh Co Nghiem x=',x:3);
Readln;
end.
Bài 3:
Var n:integer;
Begin
Write('Nhap n=');
readln(n);
If n mod 2 = 0 then Write(n,' la so chan')
Else Write(n,' la so le');
realdn;
end.

=> lâu giờ ko đụng tới..có gì sai sót bạn thông cảm nhé

[nhokdragon94]

Pác topvip:
bài1: chỗ S:=0 pác thiếu dấu ; :) Sửa lại S:=0; (nếu không thì bỏ dòng đó cũng đc vì Pascal 7.0 tự gán gtrị cho S );
Bài2: pác thiếu trường hợp Phương trình vô số nghiệm:
Sửa nè:
var
begin
writeln('nhap a va b: ');readln(a,b);
If a<>0 then writeln('phương trinh co nghiem duy nhat: ',-b/2a:5:1)
else
begin
If b<>0 then writeln('phuong trinh vo nghiem')
else writeln('phuong trinh co vo so nghiem');
end;
readln;
end. (chưa test trên máy nhưng làm thử chéc đúng :D )

[monprotq1995]

tất cả cùi pắp thế haaaaaaaaaaaaaaaaaaaả

[=========> Bổ sung bài viết <=========]

bài này 5 phút tui xong!!!!!!!!!!!!

[BMIT0211]

Giúp mình bài nguyên tố tương đương với.