Giáo trình nhập môn tin học phần III ngôn ngữ lập trình pascal 1

TRƯỜNG ĐẠI HỌC XÂY DỰNG KHOA CÔNG NGHỆ THÔNG TIN    GIÁO TRÌNH MÔN HỌC: NHẬP MÔN TIN HỌC PHẦN III – NGÔN NGỮ LẬP TRÌNH PASCAL -1 Giảng viên: ĐÀO TĂNG KIỆM Bộ môn : TIN HỌC XÂY DỰNG Hà nội 2011 Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - GVC: Đào Tăng Kiệm PHẦN NGÔN NGỮ LẬP TRÌNH PASCAL Chương CÁC KHÁI NIỆM CƠ BẢN I Ngôn ngữ lập trình Pascal: Giới thiệu chung ngôn ngữ lập trình: Từ trước tới có hàng nghìn ngôn ngữ lập trình khác thiết kế sử dụng Hàng năm lại có nhiều ngôn ngữ đời Các ngôn ngữ dùng phổ biến kể đến : Ngôn gữ Ada, Angol, APL, Asembly Basic, C, C++,Cobol, Fortran, Delphi, Java, Lisp,Pascal,Perl,PHP,Prolog, Python, Ruby …Sự phát triển ngôn ngữ gắn liền với phát triển tin học phần cứng Mỗi loại ngôn ngữ thích hợp với lĩnh vực số dạng toán định Ví dụ, khối kỹ thuật, ngôn ngữ sử dụng nhiều Algol, Fortran, C++, Basic, Visual Basic, Java, Pascal … Các ngôn ngữ lập trình xây dựng dựa “ Lập trình tuyến tính”, “ Lập trình có cấu trúc” : Pascal; “Lập trình hướng đối tượng” : Java, Delphi,Visual Basic; “Lập trình Web”: HTML Các ưu điểm Pascal yêu cầu hệ thống: - Pascal Niklaus Wirth phát triển dựa Algol năm 1970, ngôn ngữ lập trình có cấu trúc Pascal phù hợp với dạng toán kỹ thuật dễ diễn tả sơ đồ thuật toán, phù hợp cho việc giảng dạy trường phổ thông đại học - Với phiên khác Pascal dùng hệ điều hành DOS, Window cà có số hệ điều hành dùng Pascal để viết (như Macintosh) - Pascal ngôn ngữ lập trình định kiểu có trình biên dịch mạnh, giải toán đệ qui - Tuỳ theo phiên Pascal mà chạy môi trường DOS Window Khởi động giao diện Turbo Pascal:  Từ DOS : C:\ > CD TP  C:\ TP > CD BIN  C:\ TP \ BIN > TURBO  Trên hình xuất hình soạn thảo Turbo Pascal Bạn bắt đầu gõ chương trình  Từ WINDOWS nhiều cách :  Chọn nhấn vào biểu tượng PASCAL hình (nếu có) Bộ môn Tin học Xây dựng Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal -  GVC: Đào Tăng Kiệm Nhấn Start  Run  Browse mở hộp hội thoại, từ Look in tìm thư mục tệp chứa Turbo Pascal ( Turbo.exe )  nhấn OPEN hình Pascal (nền xanh): II Các thành phần ngôn ngữ:  -  - Ký hiệu sở Pascal Bộ ký tự : Các chữ : 26 chữ từ A-W không phân biệt chữ hoa chữ thường Số từ 0-9 Các dấu : , ’ ( ) / [, ], *, …và số ký tự đặc biệt Không sử dụng ký hiệu toán học vật lý Ω, ∆, ∂, ∑ … Trong đó: dấu phẩy (,) dùng để nhăn cách thành phần danh sách; Dấu chấm (.) ngăn phân nguyên- thập phân; dấu nhát đơn (’ ’) giới hạn xâu ký tự; Dấu ngoặc tròn ( ( ) ) chứa biểu thức, đối số hàm ; dấu (=) phép so sánh; dấu chấm phẩy (;) dùng ngăn cách câu; dấu ngoặc vuông ( [ ] ) giới hạn số mảng Dấu phép tình số học : + - / * Div Mod Dấu phép tình so sánh: > ,= , , =, , =, , =, b THEN Max := a ELSE Max := b ; + IF a [i ,j ] >0 THEN begin T:= T+ a [i ,j ] ; SL := SL +1 ; End; - Viết chương trình Tìm giá trị lớn nhất, nhỏ số a,b,c - Program Tim_Max_Min_trong 3_so_abc; Uses Crt; Var a, b, c, Max, Min : real ; BEGIN Clrscr; Write (’ Nhap cac gia tri cua a, b, c ’ ) ; Readln (a, b, c ); IF a>b THEN Begin Max := a ; Min := b ; End ELSE Begin Max := b ; Min := a End; IF c > Max Then Max := c ; IF c < Min Then Min := c ; Writeln ( ’ Gia tri lon nhat so la : ’ , Max:8:2 ); Writeln ( ’ Gia tri nho nhat so la : ’ , Min:8:2 ); Readln END Bộ môn Tin học Xây dựng 22 Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - GVC: Đào Tăng Kiệm - Viết chương trình để Giải phương trình bậc : ax2 +bx + c =0 (Thuật toán Ví dụ 3) Program GPTbac2; Var a, b, c, delta, x1, x2: real; BEGIN repeat write ( 'nhap gia tri cho a: ' ); readln(a); until a0; write ( 'nhap gia tri cho b: ' ); readln(b); write ( 'nhap gia tri cho c: '); readln(c); delta:=b*b-4*a*c; IF delta>=0 Then begin x1:=(-b+sqrt(delta))/(2*a); x2:=(-b-sqrt(delta))/(2*a); writeln('Nghiem x1= ',x1:7:1); writeln('Nghiem x2= ',x2:7:1); end Else writeln( ' Phuong trinh vo nghiem! ' ); readln end Câu lệnh lựa chọn CASE (CASE OF)  Khái niệm – ý nghĩa: Lệnh CASE OF lệnh chuyển điều khiển có điều kiện, thường dùng viết cho toán cần phân nhiều nhánh theo điều kiện  Dạng lệnh : CASE < Biểu thức chọn > OF M1 : Nhóm lệnh ; M2 : Nhóm lệnh ; ……………… Mn : Nhóm lệnh n ; [ ELSE Nhóm lệnh n+1 ; ] END;  Giải thích đại lượng : - Biểu thức chọn thường biểu thức nguyên BT xâu - Mi: giá trị có biểu thức chọn, nguyên, ký tự tập hợp số nguyên, ký tự Tập hợp có kiểu miền (5 10, 15 20) , (‘a’ ‘h’) kiểu liệt kê (4,7,9 ) , ( ‘ a’ , ‘h’, ‘ g’) - Câu lệnh có Else lệnh đầy đủ, lệnh Else lệnh không đầy đủ  Cách thực hiện: - Chương trình xét biểu thức chọn, kiểm tra giá trị biểu thức chọn có thuộc giá trị Mi hay không, Nhóm lệnh i tương ứng Bộ môn Tin học Xây dựng 23 Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - GVC: Đào Tăng Kiệm thực kết thúc lệnh Nếu giá trị biểu thức chọn không nằm Mi Thoát khỏi lệnh ( dạng không đầy đủ ) thực Nhóm lệnh n+1 (nhánh Else) với dạng đầy đủ - Mỗi lần thực có nhánh (Một nhóm lệnh) thực - Với dạng đầy đủ lúc có nhánh thực hiện, dạng không đầy đủ, nhánh thực  Các lưu ý : - Biểu thức chọn biến nguyên ký tự Tuỳ phiên mà biến mảng - Nếu Nhóm lệnh có từ lệnh trở lên lệnh phải đặt khối Begin …End; - Các lệnh CASE lồng Các lệnh Case cặp ngoặc tròn thực từ Tuy nhiên từ nhóm chuyển cấm lệnh từ nhóm chuyển vào  Ví dụ : - Các ví dụ minh hoạ cho lệnh : CASE Dthi [i] OF CASE Tuoi OF : Writeln (‘Sinh vien kem’); : Writeln (‘Chưa học 1’); : Writeln (‘Sinh vien trung binh’); 10 : Writeln (‘Hoc sinh cap 1’); : Begin 11 14 : Writeln (‘Hoc sinh cap 2’); Slk := Slk + 1; j:= j+1; 15 17 : Writeln (‘Hoc sinh cap 3’); HSk [j] := HT [i] ; 18 23 : Writeln (‘Sinh viên’); End ELSE Writeln (‘ Cac loai hinh khac’); 10 : Begin End; Slg := Slg + 1; k:= k+1; HSg [j] := HT [i] ; End END; III Các lệnh chu trình (Cấu trúc lặp) Ở phần ta xét đến dạng toán thực đơn lẻ phép tính phép xử lý Trong nhiều toán (đặc biệt xử lý liệu mảng), ta phải lặp lại nhiều lần số lệnh với dạng tổng quát không thay đổi Nếu viết lặp lại công thức dài, nhàm chán chưa biết số lần lặp Để thể dạng thuật toán lặp, người ta đưa cấu trúc cho nhiều vòng lặp lồng Với dạng thuật toán lặp, Pascal xử dụng lệnh For To Do, While Do, Repeat Until lệnh gán kết hợp với IF – Goto để thể cho vòng lặp biết trước số lần lặp vòng lặp không xác định Bộ môn Tin học Xây dựng 24 Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - GVC: Đào Tăng Kiệm Câu lệnh lặp với số lần lặp xác định FOR ( FOR TO DO)  Khái niệm: Lệnh For To Do dùng cho toán lặp với số lần lặp xác định bước nhẩy (số gia) biến điều khiển +1 -1  Cấu trúc lệnh : FOR Bđk := n1 TO n2 DO Các lệnh lặp ; FOR Bđk := n1 DOWNTO n2 DO Các lệnh lặp ;  Giải thích đại lượng : - Bđk biến điều khiển hay biến đếm chu trình n1 n2 giá trị đầu giá trị cuối biến điều khiển, chúng phải hằng, biến biểu thức đơn giản có kiểu nguyên ký tự - Miền tác động lệnh (Các lệnh lặp) nhiều lệnh thực với số vòng lặp |n1-n2| lần  Cách thực lệnh: Khi gặp lệnh, chương trìnhc thực gồm bước phần thuật toán Có thể hiểu là: Các lệnh lặp thực nhiều lần với giá trị biến điều khiển từ n1 đến n2 Câu lệnh tự động thực bước: gán giá trị đầu, tăng kiểm tra giá trị cuối biến điều khiển (mà bước câu lệnh)  Các lưu ý: - Nếu Miền tác động có lệnh viết sau Do, có từ lệnh trở lên lệnh phải đặt khối Begin …End; - Khôngcó dấu ; sau Do - Các lệnh lồng nhau, nhiên vòng lặp không cắt - Vòng lặp kết thức trước đến giá trị cuối biến điều khiển chuyển vòng lặp ngoài, nhiên chuyển từ vòng lặp vào vòng lặp - Lệnh For to Do loại lệnh thực trước, kiểm tra sau, thực lần - Trong miền tác động lệnh lệnh làm biến đổi giá trị đầu, cuối biến điều khiển  Ví dụ: - Các ví dụ minh hoạ cho câu lệnh + FOR i := TO n DO T:=T + A[i] ; (Tính tổng véc tơ) + FOR i := m DO (Nhập liệu tính tổng cho mảng A) Begin Write (’ A[ ’ , I , ’ ] = ’); Readln ( A[i] ); T:=T + A[i] ; End; - Các tập: + Bài tập 1: Viết chương trình Tìm giá trị lớn vecto (Ví dụ phần thuật toán) Bộ môn Tin học Xây dựng 25 Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - GVC: Đào Tăng Kiệm Program tim_max_cua_vec_to; Var i,n: integer; a: array [1 50] of real; ln:real; BEGIN write('Nhap so phan tu n='); readln (n); for i:=1 to n Begin Write ( 'Nhap gia tri cua phan tu thu ', i, ': ' ); Readln (a[i]); End; ln:= a [1]; for i:=1 to n if a[i]> ln then ln := a[i]; writeln ('Gia tri lon nhat cua day so la ', ln: 10:2); readln; END + Bài tập 2: Cho ma trận B có mxn phần tử Viết chương trình Pascal tính số lượng phần tử > K hàng tích phần tử < K ma trận Program Tim_so_luong_Tich ; Var i, j, m, n, dem : integer; B: array [1 10, 10 ] of real; Sl: array [1 10 ] of integer; K, Tich :real ; BEGIN Write ( ' Nhap so phan tu cua ma tran m, n= ' ); Readln (m, n); Write ( ' Nhap gia tri K = ' ); Readln (k); for i:=1 to m for j:=1 to n Begin Write ('Nhap gia tri cua phan tu B [', i, ',' , j , ’ ] ’ ); Readln ( B [ i,j ] ); End; For i := to m Begin SL [i] := ; for j := n If B [ i, j ] > K Then SL [i] := SL [i] +1 ; End; Tich := ; dem := ; For i := to m for j := n If B [ i, j ] < K Then Begin Tich := Tich * B [I,j] ; Dem := Dem + ; End; Bộ môn Tin học Xây dựng 26 Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - { Xuat ket qua } Wwiteln ( ’ So luong cac phan tu For i:= to m Writeln ( If Dem Then Writeln ( ’ Else Writeln ( Readln END GVC: Đào Tăng Kiệm cua tung hang > K ’ ); Hang ’ , i , ’ : ’ , SL [[i] :5 ) ; Tich cac phan tu < K = ’ , Tich : 8:2 ) ’ Khong co phan tu nao < K , Tich = ’ ) ’ Câu lệnh lặp kiểm tra điều kiện trước - WHILE (WHILE DO)  Khái niệm: Lệnh While Do dùng cho dạng toán lặp với số lần lặp xác định không xác định  Cấu trúc lệnh : WHILE < Biểu thức điều kiện > DO Các lệnh lặp ;  Giải thích đại lượng : - Biểu thức điều kiện biểu thức so sánh Logic, kết nhận giá trị sai - Miền tác động lệnh (Các lệnh lặp) nhiều lệnh thực điều kiện  Cách thực lệnh: Khi gặp lệnh, chương trình kiểm tra giá trị BTĐK, lệnh lặp thực giá trị biểu thức điều kiện “đúng” dừng thực giá trị BTĐK nhận giá trị “sai”  Các lưu ý : - Khi sử dụng lệnh While Do cho thuật toán chu trình phải ý, câu lệnh chưa có bước gán giá trị đầu tăng biến điều khiển Do phải tự bổ sung cần Bước nhẩy biến điều khiển - Nếu Miền tác động có lệnh viết sau Do, có từ lệnh trở lên lệnh phải đặt khối Begin …End; - Khôngcó dấu ; sau Do - Các lệnh lồng nhau, nhiên vòng lặp không cắt - Vòng lặp kết thức trước giá trị biến điều khiển nhận giá trị “sai” chuyển vòng lặp ngoài, nhiên chuyển từ vòng lặp vào vòng lặp - Lệnh While Do loại lệnh kiểm tra trước,thực sau, vòng lặp thực  Ví dụ: - Các ví dụ minh hoạ cho câu lệnh: + WHILE i ;  Giải thích đại lượng : - Biểu thức điều kiện biểu thức so sánh Logic, kết nhận giá trị sai - Miền tác động lệnh (Các lệnh lặp nằm Repeat Until) nhiều lệnh, lệnh thực điều kiện sai  Cách thực lệnh: Khi gặp lệnh, chương trình thực lần lệnh miền tác động (giữa Repeat tới Until), sau kiểm tra giá trị BTĐK, lệnh thực lặp lại giá trị biểu thức điều kiện “sai” dừng thực giá trị BTĐK nhận giá trị “đúng”  Các lưu ý : - Khi sử dụng lệnh Repeat Until cho thuật toán chu trình phải ý, câu lệnh chưa có bước gán giá trị đầu tăng biến điều khiển Do phải tự bổ sung cần Bước nhẩy biến điều khiển - Miền tác động lệnh đặt khối Begin …End; - Các lệnh lồng nhau, nhiên vòng lặp không cắt - Vòng lặp kết thúc trước giá trị biểu thức điều kiện nhận giá trị “đúng” chuyển vòng lặp ngoài, nhiên chuyển từ vòng lặp vào vòng lặp - Lệnh Repeat Until loại lệnh thực trước, kiểm tra sau, lệnh lặp thực lần  Ví dụ: - Các ví dụ minh hoạ cho câu lệnh: + REPEAT T:= T + i / X[i] Until i > n ; + REPEAT Write (‘Nhap du lieu, Ho ten ‘); Readln ( SV[i] Hoten); Bộ môn Tin học Xây dựng 28 Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - - GVC: Đào Tăng Kiệm … Readln (Hoi) ; Until Hoi = ‘K’; + i:= ; Repeat Write (’ A[ ’ , i , ’ ] = ’); Readln ( A[i] ); T:=T + A[i] ; i := i+ Until i > n ; Ví dụ sử dụng lệnh chu trình: Cho véc tơ A có n phần tử Viết chương trình tạo véc tơ từ A véc tơ B chứa phần tử dương véc tơ C chứa phần tử âm Program Tach_vec_to; Var i,j,k, n: integer; A, B, C : array [1 10] of real; BEGIN Write (' Nhap so phan tu n= '); Readln (n); i:=1; { Nhap du lieu mang A – su dung Repeat } Repeat Write (' Nhap gia tri cua phan tu thu A[ ', i, ' ] : ' ); Readln (a[i]); i:= i+ Until i >n ; { Tach vec to – Su dung While Do } i:=1; j:= ; k:= 1; While i Then Begin J:= j + 1; B [j] := A[i] End Else If a[i] tham số không cần xuất câu lệnh đựoc phủ miền With Cấu trúc lệnh With WITH Tên_biến_bản_ghi Tên_trường [tên_trường ] DO < Các lệnh miền tác động With> Bộ môn Tin học Xây dựng 31 Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - GVC: Đào Tăng Kiệm Viết lại câu lệnh dùng With For i:= to m Do With Ho_so[i] Do Writeln (Ho_ten: 25,N_sinh: 6, Luong: 8:2); Ví dụ:  Các ví dụ minh hoạ cho câu lệnh: Khai báo gián tiếp ghi đơn Type SV = Record HT : string [15]; D : array [ 50 ] of TB : real; PL : Char; End ; real ; VT = array [1 60] of SV ; Var DS1,DS2 : VT ; Khai báo ghi kép Type HT = Record Ho : String [15] ; Dem : String [10] ; Ten : String [15] ; End; SV = Record Hoten : HT; D : array [ 50 ] of real ; TB : real; PL : Char; End ; Var DS : array [1 60] of SV;  Các tập ví dụ: - Bài tập 1: Cho lớp học sinh, biết mã số SV, tên điểm thi môn sinh viên Viết chương trình (cấu trúc liệu kiểu ghi) tính điểm trung bình người xếp lại danh sách theo điểm trung bình tăng dần Program Vi_du_Ban_ghi_Sapxep; type sinhvien = record masv:string[10]; tensv: string[30]; dt,dl,dh,dtb:real; end; var temp:sinhvien; sv:array[1 100] of sinhvien; n, i, j: integer; BEGIN {Nhap du lieu n sinh vien} write('Nhap so sinh vien:'); readln(n); for i:=1 to n begin writeln('Nhap thong tin cua sv thu ' , i); Bộ môn Tin học Xây dựng 32 Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - GVC: Đào Tăng Kiệm write('Ma sv:'); readln(sv[i].masv); write('Ten sv:'); readln(sv[i].tensv); write('Diem toan:'); readln(sv[i].dt); write('Diem ly:'); readln(sv[i].dl); write('Diem hoa:'); readln(sv[i].dh); sv[i].dtb := (sv[i].dt+sv[i].dl+sv[i].dh)/3; end; {in danh sach sinh vien vua nhap} writeln; writeln(' Danh sach sinh vien vua nhap'); writeln(' STT ','Masv':5,'Tensv':10,' DT DL DH DTB'); for i:=1 to n writeln(i:4, sv[i].masv:5, sv[i].tensv:10, sv[i].dt:6:1, sv[i].dl:6:1, sv[i].dh:6:1, sv[i].dtb:6:1); {sap xep danh sach sinh vien theo diem trung binh tang dan} for i:= to n for j:=i+1 to n if (sv[i].dtb >sv[j].dtb) then begin temp:=sv[i]; sv[i]:=sv[j]; sv[j]:=temp; end; {in ket qua sau danh sach sinh vien sau sap xep} writeln; writeln(' Danh sach sinh vien sap theo thu tu dtb tang dan'); writeln(' STT ','Masv':5,'Tensv':10,' DT DL DH DTB'); for i:=1 to n writeln(i:4, sv[i].masv:5, sv[i].tensv:10, sv[i].dt:6:1, sv[i].dl:6:1, sv[i].dh:6:1, sv[i].dtb:6:1); readln; END - Bài tập : Cho lớp học sinh có n người, biết mã số SV, tên điểm thi m môn sinh viên Viết chương trình (cấu trúc liệu kiểu ghi) tính điểm trung bình người tách danh sách lớp thành danh sách: SV có DTB nhỏ từ 57,và DTB >8 Program Ban_ghi_Tao_danh_sach; type sv=record ms:integer; ht:string[25]; d:array[1 20] of real; dtb:real end; var n,m,n1,n2,n3,i,j,k:integer; Bộ môn Tin học Xây dựng 33 Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - GVC: Đào Tăng Kiệm ds,ds1,ds2,ds3:array[1 30] of sv; ttsv:sv; t:real; BEGIN Write ( ' Nhap so nguoi n, somon m= '); readln(n,m); for i:=1 to n begin write ( 'ms[',i,']=? ' ); readln(ds[i].ms); write ( 'ht[',i,']=? ' ); readln(ds[i].ht); for j:=1 to m begin write('d[',j,']=? '); readln(ds[i].d[j]); end end; { Tinh diem trung binh cho tung nguoi } for i:=1 to n begin t:=0; for j:=1 to m t:=t+(ds[i].d[j]); ds[i].dtb:=t/m end; { Lap cac danh sach } n1:=0; n2:=0; n3:=0; for i:=1 to n if ds[i].dtbn, với n nhập từ bàn phím 4.5 Viết chương trình tính tổng S = + 1/2 + 1/3 + 1/4 + +1/n Với n số nguyên chẵn 4.6 Viết chương trình tính tổng S = + 1/x + 1/x2 + 1/x3 + +1/xn Với n nhập từ bàn phím 4.7 Cho mảng X (nguyên) có m phần tử Hãy tách mảng X thành mảng Y chứa phần tử chẵn X mảng Z chứa phần tử chia hết cho 4.8 Cho liệu lớp học sinh có m người Biết thông tin Họ tên, Mã số sinh viên, điểm trung bình năm người Tìm số người có điểm trung bình >B Lập danh sách cho người có điểm trung bình từ từ 10 4.9 Cho dãy số (mảng chiều) số thực Tìm số lớn nhất, bé dãy số Sắp xếp dãy số theo chiều tăng dần giá trị 4.10 Cho mảng X có m phần tử, mảng Y có n phần tử Hãy tạo mảng Z có m+n phần tử ghép từ mảng X, Y Tính tổng phần tử >A mảng Z tích phần tử8 Bộ môn Tin học Xây dựng 35 Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - GVC: Đào Tăng Kiệm - Sắp xếp lại danh sách lớp theo điểm trung bình giảm dần 4.12 Cho ma trận A vuông (mảng chiều) có m hàng, m cột - Tính trung bình cộng ma trận - Tính tổng phần tử nằm phía đường chéo - Tìm giá trị lớn phần tử nằm phía đường chéo 4.13 Cho liệu phường dân cư có m người Biết thông tin Tên chủ hộ, Địa chỉ, Tổng số nước tiêu thụ (m3) tháng nhà 12 tháng - Nhập thông tin hộ In lên hình (Tên CH., Địa ,Tháng Tháng 12) - Tìm số lượng nước tiêu thụ trung bình phường năm - Tìm tổng số nước tiêu thụ traong 12 tháng hộ - Lập danh sách hộ có lượng tiêu thu nước > X m3 4.14 Cho ma trận B (mảng chiều) có m hàng, n cột - Tìm giá trị nhỏ B - Xoá hàng cột chứa giá trị nhỏ (Xét theo hàng) ma trận (Ma trận m-1 hàng n-1 cột) Bộ môn Tin học Xây dựng 36 [...]... man hinh } If n1 0 then begin writeln( '1 DS SINH VIEN CO DTB .. .Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - GVC: Đào Tăng Kiệm PHẦN NGÔN NGỮ LẬP TRÌNH PASCAL Chương CÁC KHÁI NIỆM CƠ BẢN I Ngôn ngữ lập trình Pascal: Giới... Phan khai bao } Type k1=array [1 15 ,1 15] of real; var n,m,i,j,k:integer; a:k1; c:real; Bộ môn Tin học Xây dựng Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - GVC: Đào Tăng... Tên_kiểu  Ví dụ Bộ môn Tin học Xây dựng 11 Giáo trình Nhập môn Tin học: Phần III – Ngôn ngữ lập trình Pascal - GVC: Đào Tăng Kiệm Type T1 = Set of 10 ; T2 = Set of 15 Var Mon _BB: T1 ; Mon_TC :T2