Hỏi về pascal 2

var N: integer;
M, X, Y, Z, T, S: char;
begin
clrscr
writeln('Chon mot so tu den 9');
writeln('So do co chia het cho 2 khong? (Ghi yes hoac no): ');
readln(M);
if M='yes' then
begin
writeln('So do co chia het cho 8 khong? (Ghi yes hoac no): ');
readln(X);
if X='yes' then writeln('So ban chon la so 8') else
begin
writeln('So do co chia het cho 6 khong? ( Ghi yes hoac no): ');
readln(Y);
if Y='yes' then writeln('So ban chon la so 6')
else writeln('So ban chon la so 4');
else writeln('So do co chia het cho 3 khong? (Ghi yes hoac no): ');
readln(Z);
if Z='yes' then
begin
writeln('So do co chia het cho 9 khong? (Ghi yes hoac no): ');
readln(T);
if T='yes' then writeln('So ban chon la so 9')
else writeln('So ban chon la so 3');
else writeln('So do co chia het cho 7 khong? (Ghi yes hoac no): ');
readln(S);
if S='yes' then writeln('So ban chon la so 7')
else writeln('So ban chon la so 5');
readln;
end.

Xem tiếp...

Lan Thanh nói:

Ghét nhứt Pascal, hồi đó học chẳng hiểu con ma gì Mà chẳng hiểu học Pascal để làm cái gì/ứng dụng gì nữa hổng biết. Thấy Word, Excel and/or Access còn có xài, chứ Pascal có thấy sao này mình xài tới gì đâu ta.....

Xem tiếp...

1246uy3nh4ck3r2000 nói:

Đây cũng là một chương trình pascal cua mình làm không compile được. Bạn nào giúp mình tiếp đi.
use crt;

Xem tiếp...

Dark.Love nói:

Cái chương trình Pascal lớp 11 cũng đủ giúp bạn giai quyết khối việc đó bạn ạ.

Xem tiếp...

Dark.Love nói:

Một cái đơn giản như sau nhé.
VD như tính điểm trung bình: Nhập từng điểm thành phần, điểm thi của từng môn 1, nhập số học trình,... ~> Máy tính cho ta số điểm trung bình các môn đó, xét cho ta được học lực gì, có bị học lại / thi lại không, có bị lưu ban không
(Tất nhiên ta có thể tính thủ công có lẽ sẽ nhanh hơn là ngồi code)
Nhưng sau khi code xong có thể dùng để tính cho nhiều bạn khác, như vậy sẽ tiết kiệm thời gian hơn rất nhiều.

Hay giải các bài toán khó, giải các bài bằng công thức có sẵn, blah blah

Xem tiếp...