Bài 3. Chương trình máy tính và dữ liệu

Vì số thực gồm các số: + Số nguyên 

+ Số thập phân

+ Phân số

+...

Nên tả dùng div mà mod cho dễ dùng vùng tài liệu ít đi.

Chúng ta thảo luận riêng Read và Readln đơn giản vì trong bước đầu lập trình, bạn sẽ sử dụng rất nhiều

Cú pháp:

(1) Readln(Biến_1, biến_2, biến_n);
(2) Read(Biến_1, biến_2, biến_n);

Khi thực hiện lệnh này, máy dừng lại chờ người dùng nhập vào đủ n lần nhập dữ liệu tương ứng với n biến.
Ngoài ra, ta có thể sử dụng thủ tục Readln để dừng chương trình và chờ người dùng ấn một phím bất kỳ để tiếp tục, ký tự được ấn không hiển thị lên màn hình.

Chú ý:

– Các biến trong thủ tục Readln phải thuộc kiểu nguyên, thực, ký tự hoặc xâu ký tự. Do đó, ta không thể nạp từ bàn phím giá trị True hoặc False các biến kiểu Boolean.
– Dữ liệu nhập vào phải tương ứng với kiểu đã khai báo. Phải ấn phím Enter để thực hiện lệnh nhập sau khi gõ xong giá trị cần nhập.

Cái này rất quan trọng, chúng ta thường quen với “hiện đại hóa” ví dụ hỏi năm chúng ta chỉ cần nhập 2012 thôi mà không ENTER
Vì vậy trong bước đầu, nên có dòng hướng dẫn người sử dụng ấn phím ENTER

Ví dụ : Với a, b là hai biến nguyên, x là biến thực. Xét đoạn chương trình sau:

Readln(a, b);
Readln(x);

Nếu ta gõ các phím: 4 454 6.5 87 -> Enter
Kết quả: a nhận giá trị 4, b nhận giá trị 454. Các ký tự còn lại bị bỏ qua và không được xét trong thủ tục Readln(x) tiếp theo. Như vậy, máy dừng lại ở câu lệnh Readln(x) để chờ nhập số liệu cho biến x.

Lúc này nếu nhập tiếp 4 454 6.5 87 -> Enter thì giá trị của x sẽ là 4

Nhìn “na ná” như nhau, tuy nhiên Read khác hẳn Readln. Tuy nhiên chúng ta sẽ bàn tới Read sau.

Chúng ta thảo luận riêng Read và Readln đơn giản vì trong bước đầu lập trình, bạn sẽ sử dụng rất nhiều

Cú pháp:

(1) Readln(Biến_1, biến_2, biến_n);
(2) Read(Biến_1, biến_2, biến_n);

Khi thực hiện lệnh này, máy dừng lại chờ người dùng nhập vào đủ n lần nhập dữ liệu tương ứng với n biến.
Ngoài ra, ta có thể sử dụng thủ tục Readln để dừng chương trình và chờ người dùng ấn một phím bất kỳ để tiếp tục, ký tự được ấn không hiển thị lên màn hình.

Chú ý:

– Các biến trong thủ tục Readln phải thuộc kiểu nguyên, thực, ký tự hoặc xâu ký tự. Do đó, ta không thể nạp từ bàn phím giá trị True hoặc False các biến kiểu Boolean.
– Dữ liệu nhập vào phải tương ứng với kiểu đã khai báo. Phải ấn phím Enter để thực hiện lệnh nhập sau khi gõ xong giá trị cần nhập.

Cái này rất quan trọng, chúng ta thường quen với “hiện đại hóa” ví dụ hỏi năm chúng ta chỉ cần nhập 2012 thôi mà không ENTER
Vì vậy trong bước đầu, nên có dòng hướng dẫn người sử dụng ấn phím ENTER

Ví dụ : Với a, b là hai biến nguyên, x là biến thực. Xét đoạn chương trình sau:

Readln(a, b);
Readln(x);

Nếu ta gõ các phím: 4 454 6.5 87 -> Enter
Kết quả: a nhận giá trị 4, b nhận giá trị 454. Các ký tự còn lại bị bỏ qua và không được xét trong thủ tục Readln(x) tiếp theo. Như vậy, máy dừng lại ở câu lệnh Readln(x) để chờ nhập số liệu cho biến x.

Lúc này nếu nhập tiếp 4 454 6.5 87 -> Enter thì giá trị của x sẽ là 4

Nhìn “na ná” như nhau, tuy nhiên Read khác hẳn Readln. Tuy nhiên chúng ta sẽ bàn tới Read sau.

Read nghĩa là nhập từ bàn phím nhưng không tự động xuống dòng

Readln nghĩa là nhập từ bàn phím và tự động xuống dòng sau khi nhập .

dòng nào cũng 5 kí tự ?

begin

   writeln('*****');

   writeln('*****');

   writeln('*****');

   writeln('*****');

   writeln('*****');

   readin

end.

Đôi khi phần program khôgn cần thiết :)

uses crt;

begin

clrscr;

writeln('  * * * * * ');

writeln('  * * * * * ');

writeln('  * * * * * ');

writeln('  * * * * * ');

writeln('  * * * * * ');

readln;

end.

Những chỗ sai được in đậm em nhé

program Hà 0908

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');

readln;

end.

Sửa lại như sau:

program Ha_0908;

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);

readln;

end.

sai nhu nay 

Hà 0908 ko ';'

writeln... =;4;2'); => ko co dau ' nay nha 

sai tên

dùng để đọc

Read -> translate dịch nghĩa là đọc 

khi nào thì sử dụng read

khi cần máy đọc nhiều biến

khi cần máy đọc nhiều biến

Lệnh read dùng để đọc nha!

đọc 

program ctdt;

uses crt;

begin

                                     writeln('*');

                                writeln('*        *');

                            writeln('*       *        *');

                        writeln('*      *         *        *');

                  writeln('*        *        *        *          *');

end.

thêm readln  nữa nhé, sr mik quên

Program Ve_hinh;

Uses crt;

Begin

          Clrscr;

          Writeln('                   *                       ');

          Writeln('              *        *                  ');

          Writeln('           *       *      *             ');

          Writeln('        *      *       *      *        ');

          Writeln('     *     *       *       *       * ');

          Readln;

End.

Uses crt;

Var a,b : integer;

Begin

Writeln('Tong hai so a va b la= ', a + b );

Readln;

End.

Cho phép viết lại :)

Uses crt;

Var a,b:integer;

Begin

clrscr;

Writeln('Nhap so a = '); Readln(a);

Writeln('Nhap so b = '); Readln(b);

Writeln('Tong hai so a va b la = ',a+b);

Readln;

end.

program tinhtong;

uses crt;

var a,b,s:integer;

begin

clrscr;

readln(a,b);

s:= a+b;

writeln('tong hai so a va b s la ',a+b);

readln;

end.

b1: Nhập n.

b2:Nếu n chia hết cho 1 và n chia hết cho n thì n là số nguyên tố, ngược lại n không phải là số nguyên tố.

b3: Thông báo kết quả và kết thúc thuật toán.