Tài liệu học tin 11 Thử nghiệm Tin11 Bai3

Tài liệu học tin 11 Thử nghiệm Tin11 Bai3 tài liệu, giáo án, bài giảng , luận văn, luận án, đồ án, bài tập lớn về tất cả...

1 Cấu trúc chung

Phần khai báo

Tên chương

Phần thân

Bắt đầu Begin

Kết thúc End.

Các câu lệnh…

a) Phần khai báo.

◦ Khai báo tên chương trình (có thể có

hoặc không) Bắt đầu bằng từ khóa program

Ví dụ

 Program bai1;

 program ptb2;

a) Phần khai báo.

◦ Khai báo thư viện:

Để sử dụng câu lệnh xoá trắng màn hình thì ta phải khai báo:

Uses crt;

Sau khi khai báo thư viện, ta có thể sử

dụng lệnh xoá màn hình như sau:

Trong pascal: clrscr;

a) Phần khai báo.

 Khai báo hằng và biến:

 Hằng:

Const PI=3.14;

N=10;

KQ=‘Ket qua’;

 Biến:

Var a,b,c:integer;

x1,x2:real;

b) Phần thân chương trình

Phần thân chương trình được đặt

trong cặp tên dành riêng Begin

và end.

Begin

Các lệnh…

End.

PROGRAM TEN_CHUONG_TRINH; (*Đây là dòng tiêu đề*)

USES CRT ;(*Khai báo sử dụng thư viện hàm của pascal*)

(*Phần khai báo dữ liệu và chương trình con*)

CONST… (*Khai báo hằng*)

TYPE… (*Khai báo kiểu dữ liệu mới -> trình bày trong ch4*)

VAR… (*Khai báo biến*)

(*Đây là phần khai báo thủ tục và hàm, sẽ trình bày trong

chương 6 *)

PROCEDURE… (* Ở đây có thể có nhiều Procedure và nhiều

Function *)

FUNCTION…

(* Phần thân chương trình chính *)

BEGIN

(* Các lệnh được viết ở đây *)

END.

Phần khai báo

Phần thân chương trình

3 Ví dụ chương trình đơn giản

Program BTCB_1;

uses crt;

begin clrscr;

writeln(‘Chao ban! ');

Readln;

end.

Bài 1 : Viết chương trình :

- Xuất ra màn hình câu 'Chao

Ban… !'

 Mở Free Pascal, Vào

File  New, gõ chương

trình vào

 Lưu bài: Vào file

Save, gõ vào đường

dẫn D:\ , bấm phím

Enter, click chọn thư

mục lớp mình (lưu ý

không double Click),

sửa tên file *.pas thành

BTCB_1.pas, click OK

 Để chạy chương trình: bấm Ctrl + F9

Bài 2 : Viết chương trình :- Vẽ hình chữ nhật từ các dấu *.

program BTCB_2;

uses crt;

Begin

clrscr;

writeln('********************************');

writeln('*         *');

writeln('*        *');

writeln('*        *');

writeln('********************************');

readln;

end.

Viết chương trình :

- Nhập vào bán kính hình tròn

- Tính chu vi của hình tròn và in ra màn hình

- Tính diện tích hình tròn và in ra màn hình

Vào trang web: tinyurl.com/lstsict

Tải phần mềm số 7 Free Pascal về cài

program BTCB_3;

uses crt;

var R, C, S : real;

Const Pi=3.14;

Begin

clrscr;

write('Nhap ban kinh hinh tron R = ');

readln(R);

C:=2*R*Pi;

S:=Pi*R*R;

writeln('Chu vi cua hinh tron la = ',C);

writeln('Dien tich cua hinh tron la =',S:4:3); readln;

end

program tim_max_2so;

uses crt;

var a,b:integer;

begin

clrscr;

write(‘Nhap a,b:’);

readln(a,b);

if(a>b) then write(‘Gia tri lon nhat la:’,a) else write(‘Gia tri lon nhat la:’,b);

end.

uses crt;

const pi=3.14;

var r:integer;

cv:real;

begin

write('Nhap ban kinh cua duong tron:'); readln(r);

cv:=2*pi*r;

write('Chu vi cua duong tron la:',cv);

readln;

end.

 Vào trang web: tinyurl.com/lstsict

 Tải phần mềm Free Pascal về cài và chạy thử các chương trình đã học trong phần trên.