Tin học đại cương - Phần 2 Ngôn ngữ lập trình TURBO PASCAL - Chương 7 pps

... CGAC2 CGAC3 CGACHi 0 1 2 3 4 320 x200 320 x200 320 x200 320 x200 640x200 EGA 3 EGALO EGAHi 0 1 640x200 640x350 IBM8514 6 IBM8514LO IBM8514Hi 0 1 640x480, 25 6 màu 1 024 x768, 25 6 ... Procedure son2; Begin nt( 677 ); End; Procedure la2; Begin nt (7 12) ; End; Procedure si2; Begin nt (75 5); End; Procedure Langtoi; Begin Trường ðại học Nông nghiệp 1 - Giáo trình Tin học ... rectangle(30 ,20 ,610,450); rectangle(31 ,21 ,609,449); rectangle( 32, 22, 608,448); setfillstyle(9 ,2) ; bar(33 ,23 ,6 07, 4 47) ; setcolor(red); setbkcolor(red); for i:=1 to 10 do circle( 320 ,24 0,i);...

... Trường ðại học Nông nghiệp 1 - Giáo trình Tin học ñại cương 1 72 1 72 2: sua; 3: them; 4: doc; end; until i=5; readln; end. 2. 7 - Tệp văn bản ... hang' :20 ,'| Ngay nhap': 12, '| So luong': 12, '| Don gia': 12, '| Tien': 12 ); for i:= 1 to n do with bang[i] do Writeln(ten :20 , ngay: 12, sl: 12: 2, gia: 12: 2, ... ðại học Nông nghiệp 1 - Giáo trình Tin học ñại cương 1 62 1 62 CHƯƠNG VI KIỂU DỮ LIỆU CÓ CẤU TRUC: KIỂU BẢN GHI VÀ KIỂU TỆP 1 - Kiểu bản ghi (record) 1.1 - Khái...

... chương trình, bài toán lớn ñược phân thành các phần nhỏ, mỗi phần xây dựng thành các chương trình con. Chương trình chính sẽ gọi tới các chương trình con . Trong Pascal có 2 loại chương trình ... tập chương 5 1. Viết chương trình tính tổ hợp chập m của n phần tử: Cmn Chương trình viết có chương trình con. 2. Viết chương trình tính Pn(x)=(. . . ( ( an*x+an-1 )*x+an -2 )*x+. ... Chương trình có chương trình con. 3. Cho dãy số sau: a1,a 2 , ,an . Viết chương trình tính tổng, trung bình cộng các phần tử của dãy số ñó. Chương trình viết có chương trình con. 4. Lập...

... viết chương trình cho các bài toán sau: 1. Cho dãy số sau: a1,a 2 , ,an . Viết chương trình tìm phần tử lớn nhất, phần tử nhỏ nhất của dãy số ñó. 2. Cho dãy số sau: a1,a 2 , ,an ... Tinh tan so } for i:=’A’ to ‘’Z’ do ts[i] :=0 ; Trường ðại học Nông nghiệp 1 - Giáo trình Tin học ñại cương 146 146 Writeln(A[1 ,2] ); 1 .7. Các chương trình ... Trường ðại học Nông nghiệp 1 - Giáo trình Tin học ñại cương 1 47 1 47 Chương trình (* nhan hai ma tram *) program nhan_ma_tran; uses crt; type mang=array[1 20 ,1 30]...

... ðại học Nông nghiệp 1 - Giáo trình Tin học ñại cương 1 27 1 27 *- Các thủ tục trình bày màn hình của TURBO PASCAL ðây là những thủ tục có sẵn của TURBO PASCAL ... writeln('X1=',-b/ (2* a):6 :2, &apos ;-& apos;,sqrt(-dta):6 :2, 'i'); writeln('X2=',-b/ (2* a):6 :2, '+',sqrt(-dta):6 :2, 'i'); end; readln; End. Lưu ý: - Câu lệnh ... Trường ðại học Nông nghiệp 1 - Giáo trình Tin học ñại cương 129 129 3. Các lệnh ñiều kiện Phần này ta sẽ nghiên cứu các lệnh cho phép chương trình rẽ nhánh...