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

... ðạ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 ... 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 166 166 Thủ tục này gán tên_tệp cho biến_tệp. Tên_tệp theo ñúng qui tắc ñặt tên trong DOS mà ta ñã học ở phần...

... CGAC2 CGAC3 CGACHi 0 1 2 3 4 320 x200 320 x200 320 x200 320 x200 64 0x200 EGA 3 EGALO EGAHi 0 1 64 0x200 64 0x350 IBM8514 6 IBM8514LO IBM8514Hi 0 1 64 0x480, 25 6 màu 1 024 x 768 , 25 6 ... rectangle(30 ,20 ,61 0,450); rectangle(31 ,21 ,60 9,449); rectangle( 32, 22, 60 8,448); setfillstyle(9 ,2) ; bar(33 ,23 ,60 7,447); setcolor(red); setbkcolor(red); for i:=1 to 10 do circle( 320 ,24 0,i); ... linerel(round(130*cos((i* 6- 8 9)*pi/180)),round(130*sin((i* 6- 8 9)*pi/180))); moveto( 320 ,24 0); linerel(round(130*cos((i* 6- 9 0)*pi/180)),round(130*sin((i* 6- 9 0)*pi/180))); moveto( 320 ,24 0); linerel(round(130*cos((i* 6- 9 1)*pi/180)),round(130*sin((i* 6- 9 1)*pi/180)));...

... 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...

... 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 1 46 1 46 Writeln(A[1 ,2] ); 1.7. Các chương trình ... Bài tập chương 4 Hãy 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 ... [1 99] ; tập này có 100 phần tử . [ 2, 4 ,6, 8 12] ; tập có các phần tử là 2, 4 ,6, 8,9,10,11, 12. ['a' 'd',' m','n'] ; tập này có các phần tử 'a',...

... 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 ... ðại học Nông nghiệp 1 - Giáo trình Tin học ñại cương 127 127 *- 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 ... Trường ðại học Nông nghiệp 1 - Giáo trình Tin học ñại cương 1 26 1 26 2. 4. Viết ra dữ liệu có quy cách Một trong những yêu cầu khi trình bày dữ liệu...