Giúp muội bài này với mấy huynh !!!

[phuongtram]

Mấy anh chỉ em cách học với. Em mới bắt đầu học, và được một người bạn giới thiệu vào diễn đàn này ! Rất mong được sự giúp đỡ của các huynh !
Em có 2 bài này:
a) Viết chương trình nhập từ bàn phím, kiểm tra nó và:
- hiển thị la so nếu nó là số.
- hiển thị la chu hoa nếu nó là chữ hoa.
- hiển thị la chu thuong nếu nó là chữ thường.
- ngoài ra, hiển thị Khong phai la so hoac chu cai.
b) Giải phương trình bật hai : ax*x + bx + c = 0
Nhanh nhanh giúp em với, em sắp kiểm tra rồi. Cám ơn máy huynh trước !

[huyphuc1981_nb]

Đề nghị muội post ảnh lên nhé. Nếu coi được cho cậu học cùng lớp nhé.

uses crt; var ch:char;
begin
ch:='.'; clrscr;
repeat
ch:='.'; if keypressed then ch:=readkey;
if ((ch <='9') and (ch >='0')) then writeln (' so ');
if ((ch <='Z') and (ch >='A')) then writeln (' chu hoa ');
if ((ch <='z') and (ch >='a')) then writeln (' chu thuong ');
until (ch=char(13))
end.


uses crt;
var a,b,c,x1,x2,d:extended;
begin
repeat
write(' press esc to quit.'); repeat until keypressed; if readkey=char(27) then exit;
clrscr;
write(' a=? :'); readln(a);
write(' b=? :'); readln(b);
write(' c=? :'); readln(c);
d:=b*b-4*a*c;
if d < 0 then begin writeln( 'vo nghiem. '); continue ; end;
if d = 0 then begin writeln( '1 nghiem: ',((-b) /(2*a)):0:5 ); continue ; end;
if d > 0 then begin
writeln( '2 nghiem. X1= ',(((-b)+sqrt(d)) /(2*a)):0:5, ' X2= ',(((-b)-sqrt(d)) /(2*a)):0:5 );
continue ; end;
until false;
end.

[nongdantangai]

yêu cầu viết tiếng việt không dấu đi, thích chơi Ta "lai" tây à?

[huyphuc1981_nb]

đây, tiéng Việt có dấu đàng hoàng. Down Borland Turbo Pascal VN 7 về chạy nhé.

Sử_dụng VN_crt; biến: ch:chữ_cái;
bắt_đầu
ch:='.'; xóa_màn_hình;
lặp
ch:='.'; nếu có_phím_bấm thì ch:=đọc_phím;
nếu ((ch <='9') và (ch >='0')) thì viết_xuống_dòng (' Số ');
nếu ((ch <='Z') and (ch >='A')) thì viết_xuống_dòng (' CHỮ HOA ');
nếu ((ch <='z') and (ch >='a')) thì viết_xuống_dòng (' chữ thường ');
cho_đến_khi (ch=chữ_cái(13))
hết.

[.:Ninja:.]

Hic
Chắc thằng nào giả gái. Chứ con gái thì có bao giờ thèm lên diễn đàn hỏi đâu? Trong lớp đầy ngừoi ra đấy. Mà nếu có lên hỏi thì chứng tỏ là trong lớp không ai thèm giúp (vì sao .... hic)

[atasi]

Đề nghị muội post ảnh lên nhé. Nếu coi được cho
uses crt;
var a,b,c,x1,x2,d:extended;
begin
repeat
write(' press esc to quit.'); repeat until keypressed; if readkey=char(27) then exit;
clrscr;
write(' a=? :'); readln(a);
write(' b=? :'); readln(b);
write(' c=? :'); readln(c);
d:=b*b-4*a*c;
if d < 0 then begin writeln( 'vo nghiem. '); continue ; end;
if d = 0 then begin writeln( '1 nghiem: ',((-b) /(2*a)):0:5 ); continue ; end;
if d > 0 then begin
writeln( '2 nghiem. X1= ',(((-b)+sqrt(d)) /(2*a)):0:5, ' X2= ',(((-b)-sqrt(d)) /(2*a)):0:5 );
continue ; end;
until false;
end.

bạn viết như vậy chưa đạt yêu cầu đâu. Phải kiểm tra giá trị a,b,c khi nhập vào trước khi tính d

[cafesua1892]

Hic
Chắc thằng nào giả gái. Chứ con gái thì có bao giờ thèm lên diễn đàn hỏi đâu? Trong lớp đầy ngừoi ra đấy. Mà nếu có lên hỏi thì chứng tỏ là trong lớp không ai thèm giúp (vì sao .... hic)

Bác nói rất đúng, gái trai gì mà chẳng giống nhau, tại sao cứ thích vô xưng mình là con gái, chắc nghĩ tụi mình là đồ háo sắc đấy.

[Foolpro]

bài 1 bạn nên dùng thêm {$i-} và {$i+} cùng hàm ioresult để xét thêm khả năng nó là 1 kí tự đặc biệt

[huyphuc1981_nb]

Kệ nó giả vờ. Câu nó một lần thui, nó không show hàng thì thôi.

Ờ, quen bắt lỗi vằng try ...except rồi, mấy kiểu bắt lỗi đó quên mất.

[dinhthuong]

uses crt;
var a,b,c,x1,x2,d:extended;
begin
repeat
write(' press esc to quit.'); repeat until keypressed; if readkey=char(27) then exit;
clrscr;
repeat
write(' a=? :'); readln(a);
until a<>0;
write(' b=? :'); readln(b);
write(' c=? :'); readln(c);
d:=b*b-4*a*c;
if d < 0 then begin writeln( 'vo nghiem. '); continue ; end;
if d = 0 then begin writeln( '1 nghiem: ',((-b) /(2*a)):0:5 ); continue ; end;
if d > 0 then begin
writeln( '2 nghiem. X1= ',(((-b)+sqrt(d)) /(2*a)):0:5, ' X2= ',(((-b)-sqrt(d)) /(2*a)):0:5 );
continue ; end;
until false;
end.

Theo toi nhu vay la thoa dang ha!