Cùng các bạn trong nhóm thảo luận và trả lời câu hỏi sau:

Xét chương trình sau:

Const

a=20;

d= TRUE

Var

b: integer; x: real; c: char:

Begin

write (' Hay nhap gia tri cho b: ') ; readln(b) ;

write (' Hay nhap gia tri cho c: ') ; readln(c) ;

...

readln;

End.

Khi thực hiện chương trình, nếu người sử dụng giá trị 18 cho biến b và nhập kí tự 'k' cho biến c thì từng lệnh dưới đây sẽ hiển thị kết quả gì lên màn hình khi đc thay vào chỗ dấu 3 chấm ?(không sử dụng Free Pascal để chạy thử)
Lệnh 1. writeln ( (36-5*2) div 3) ;
Lệnh 2.writeln ( (8 mod 3) <> 2);
Lệnh 3. writeln (b/6) ;
Lệnh 4. writeln (b/6 :10:2) ;

Lệnh 5. writeln (a/6:10:2) ;

Lệnh 6. writeln (b/6<=a/5) ;

Lệnh 7. writeln (c='K') ;

Lệnh 8. writeln (d) ;

Em hãy dùng Free Pascal để kiểm tra lại ý kiến của mình trong bài tập trên

            BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DO

Bài 1: SGK 60

      Nhập chương trình :

       uses crt;

       var N,I:integer;

       begin

                clrscr; 

                write (Nhap so N='); readln(N);

                writeln;

                writeln('Bang nhan',N);

                writeln;

                for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);

               readln

end

                                                            Câu hỏi ôn tập: 

a. Sau khi nhập đoạn chương trình bài 1. Cho biết ý nghĩa từng câu lệnh trong chương trình .

b. Nếu giá trị cuối trong lệnh For...do sủa cho 100.thì kết quả như thế nào ?

c. Nếu giá trị đầu và cuối trong lệnh For... do sủa là -10 và 100. thì kết quả như thế nào?