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 Cấu trúc trúc chung chung Tên chương trình Program Thư viện Uses crt; Hằng số Const Biến số Var Phần khai báo Phần thân Bắt đầu Begin Các câu lệnh… Kết thúc End a) Phần khai báo ◦ Khai báo tên chương trình (có thể có khơng) Bắt đầu từ khóa program Ví dụ Program bai1; program ptb2; Các a) thành phần chương trình Phần khai báo ◦ Khai báo thư viện: Để sử dụng câu lệnh xố trắng hình ta phải khai báo: Uses crt; Sau khai báo thư viện, ta sử dụng lệnh xố sau: Trong pascal: clrscr; Các a) thành phần chương trình Phần khai báo Khai báo biến: Hằng: Const PI=3.14; N=10; KQ=‘Ket qua’; Biến: Var a,b,c:integer; x1,x2:real; Các thành phần chương trình Phần thân chương trình Phần thân chương trình đặt cặp tên dành riêng Begin end Begin Các lệnh… End b) PROGRAM TEN_CHUONG_TRINH; (*Đây dòng tiêu đề*) USES CRT;(*Khai báo sử dụng thư viện hàm pascal*) (*Phần khai báo liệu chương trình con*) CONST… (*Khai báo hằng*) TYPE… (*Khai báo kiểu liệu -> trình bày ch4*) VAR… (*Khai báo biến*) Phần khai báo (*Đây phần khai báo thủ tục hàm, trình bày chương *) PROCEDURE… (* Ở có nhiều Procedure nhiều Function *) FUNCTION… (* Phần thân chương trình *) BEGIN (* Các lệnh viết *) END Phần thân chương trình 3 Ví Ví dụ dụ chương chương trình trình đơn đơn giản giản Bài : Viết chương trình : - Xuất hình câu 'Chao Ban… !' Mở Free Pascal, Vào Program BTCB_1; File New, gõ chương uses crt; trình vào begin Lưu bài: Vào file clrscr; Save, gõ vào đường writeln(‘Chao dẫn D:\ , bấm phím ban! '); Enter, click chọn thư Readln; mục lớp (lưu ý end khơng double Click), Để chạy chương trình: sửa tên file *.pas thành bấm Ctrl + F9 BTCB_1.pas, click OK Bài : Viết chương trình :- Vẽ hình chữ nhật từ dấu * program BTCB_2; uses crt; Begin clrscr; writeln('********************************'); writeln('* *'); writeln('* *'); writeln('* *'); writeln('********************************'); readln; end Vào trang web: tinyurl.com/lstsict Tải phần mềm số Free Pascal cài Viết chương trình : - Nhập vào bán kính hình tròn - Tính chu vi hình tròn in hình - Tính diện tích hình tròn in hình 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 cài chạy thử chương trình học phần ... 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 cài chạy thử chương trình học phần ... CRT;(*Khai báo sử dụng thư viện hàm pascal*) (*Phần khai báo liệu chương trình con*) CONST… (*Khai báo hằng*) TYPE… (*Khai báo kiểu liệu -> trình bày ch4*) VAR… (*Khai báo biến*) Phần khai báo... writeln('* *'); writeln('********************************'); readln; end Vào trang web: tinyurl.com/lstsict Tải phần mềm số Free Pascal cài Viết chương trình : - Nhập vào bán kính hình