Help Anh Dev em hỏi tí

[bolun06]

Em học lớp 8, do thích tin học nên tự mua sách tin học lớp 8 về mò học pascal. Có ai còn nhớ pascal cho em hỏi tí:
Em không biết cách viết một câu lệnh đơn giản:
- Sau khi thực hiện xong chương trình thì nó hỏi " Exit ? ", nếu mình nhập yes thì nó thoát, còn nhấn No thì nó vẫn y nguyên

Ai chỉ em với

 

[bolun06]

ùa, các anh ơi giúp e học sinh này với

 

[kixxixxi]

viết java đi bạn. giờ còn pascal nữa làm j có ai mà nhớ nổi

 

[amelia65]

Pascal 10-20 năm rồi , ai còn nhớ

 

[bolun06]

viết java đi bạn. giờ còn pascal nữa làm j có ai mà nhớ nổi

mới học lớp 8, mày mò pascal để đi thi à bác

 

[membernew]

cũng chả nhớ nữa
cái này có thể dùng if

 

[bolun06]

cũng chả nhớ nữa
cái này có thể dùng if

lệnh if...then...esle đó hả bác ?

 

[emyeusss7]

coder trên đây đa phần là chuyên c# c++ Autoit PHP, chứ ngôn ngữ pascal nó xưa quá rồi ^^

 

[kixxixxi]

if input = yes then do sthing else do sthing. còn syntax thì bác tự viết nhé

 

[tramphan]

... chắc trước khi exit thì em đã biết code rồi chứ gì.... đợi tí a xem lại pascal

 

[tuan6956]

lớp 8 mà đã tham gia mmo rồi pro ghê

 

[bolun06]

coder trên đây đa phần là chuyên c# c++ Autoit PHP, chứ ngôn ngữ pascal nó xưa quá rồi ^^

pascal cho học sinh mà bác

 

[bolun06]

... chắc trước khi exit thì em đã biết code rồi chứ gì.... đợi tí a xem lại pascal

Dạ viết lệnh tính đơn giản em đã biết rùi, em chỉ không biết làm sao dc như #1

 

[bolun06]

if input = yes then do sthing else do sthing. còn syntax thì bác tự viết nhé

Em viết: If input = Y then exit;
Sao nó không chịu bác ơi

 

[tramphan]

Dạ viết lệnh tính đơn giản em đã biết rùi, em chỉ không biết làm sao dc như #1

a := 1;
n := 0;
ch:='n';
while a > 0 do
begin
writeln('Xin nhap so tu nhien N, (nhap 0 de thoat), N = ', n);
if (n = 0) then
writeln('Ban co muon thoat khong? Y/N = ', ch);
if (ch = 'Y') then a := 0; // gán a = 0, ngừng chương trình;
else writeln('N = ', n);
end;

hiểu không

 

[oxno]

tương lai là pro mmo đây

 

[quentenroi]

dùng 1 vong lặp while rồi break khi nhập Yes hay No

 

[bolun06]

tương lai là pro mmo đây

Thanks bác ^^

dùng 1 vong lặp while rồi break khi nhập Yes hay No

bác nói rõ hơn được không

 

[quentenroi]

kiểu như này

var s;

while true do
    begin
       
            // cho câu lệnh kia vào đây
          
           writeln("Ban co muon dung chuong trinh k0?(Yes/No)"); readln(s);         
           if(s='Yes') break;
    end;