tự học lập trình turbo pascal 7 0

... 1 CGAC0 CGAC1 CGAC2 CGAC3 CGACHi 0 1 2 3 4 320x 200 320x 200 320x 200 320x 200 640x 200 EGA 3 EGALO EGAHi 0 1 640x 200 640x3 50 IBM8514 6 IBM8514L O IBM8514Hi 0 1 640x4 80, 256 ... x: =0; t3:= 100 ; n: =0; t2:= 10; while t2<= 600 do Begin setcolor(green); y:=sin(x); t1:=round(y* 50) ; t3:=round(y * 70 ); t4:=round(y* 100 ); t1:= 200 -t1; t3:= 200 -t3; t4:= 200 +t4; ... graphresult<>grok then halt(1); moveto (0, 0); setcolor(5); lineto( 300 , 300 ); delay(2 500 ); circle( 400 , 300 , 100 ); delay(1 500 ); restorecrtmode; (* Chuyển về chế ñộ văn bản *) gotoxy( 20, 20) ;textcolor(9); write('Happy...

Ngày tải lên: 21/07/2014, 16:20

Ngày tải lên: 10/08/2014, 09:20

Ngày tải lên: 10/08/2014, 09:20

Ngày tải lên: 10/08/2014, 09:20

Ngày tải lên: 06/01/2014, 23:31

... x0 y0 w2 h0" alt=""

Ngày tải lên: 01/04/2014, 19:19

... x0 y0 w0 h0" alt=""

Ngày tải lên: 01/04/2014, 19:22

... x0 y0 w2 h0" alt=""

Ngày tải lên: 01/04/2014, 19:25

... x0 y0 w0 h0" alt=""

Ngày tải lên: 27/06/2014, 08:20

... x0 y0 w2 h0" alt=""

Ngày tải lên: 27/06/2014, 08:20

... x0 y0 w2 h0" alt=""

Ngày tải lên: 04/07/2014, 20:02

Ngày tải lên: 17/07/2014, 14:00

... Loại theo công thức sau: Loại = ‘Cao’ nếu Tiền > 500 00 Loại = ‘TB’ nếu 200 00& lt;= Tiền <= 500 00 Loại = ‘THAP’ nếu Tiền < 200 00. ... Loại : Tiền = Số lương x ðơn giá . Loại = ‘Cao’ nếu Tiền > 500 000 . Loại = ‘THAP’ nếu Tiền <= 500 000 . 5. Viết chương trình tạo tệp dữ liệu ‘SACH.DAT’ chứa bảng danh mục của n quyển ... luong:=heso * 2 100 00; end; With banghk1 do begin pho:='Hang Dao'; tel:=8 573 9 80; end; With luong2 do Readln(hoten); With bangkh2 do Writeln(pho); 1.5 - Các chương trình sử...

Ngày tải lên: 21/07/2014, 16:20

... CHƯƠNG TRÌNH CON: HÀM VÀ THỦ TỤC 1 - Cấu trúc của hàm và thủ tục 1.1- Chương trình con Khi lập trình gặp ñoạn chương trình cần dùng nhiều lần, ñể tránh viết lặp lại thì ñoạn chương trình ... 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 ... Chương trình có chương trình con. 3. Cho dãy số sau: a 1 ,a 2 , ,a n . 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 chương...

Ngày tải lên: 21/07/2014, 16:20

... ký tự 'a ' hoặc ‘A’ trong xâu. 9. Viết chương trình nhập vào một xâu ký tự. Hãy kiểm tra xem xâu ñó có ñối xứng không. In kí tự ñầu và kí tự cuối của xâu ñó. 10. Viết chương trình ... xâu ký tự có ñộ dài bằng nhau. Hãy xây dựng xâu chứa các ký tự xen kẽ của hai xâu ñó, theo thứ tự một kí tự của xâu1 rồi ñến 1 kí tự của xâu 2. Trư ờng ðại học Nô ng nghi ệp 1 - Giáo trình ... Ngaysinh:=' 20- 10- 19 60& apos;; Quequan:='Gia lam - Ha noi '; c. Truy nhập xâu kí tự Mỗi kí tự trong xâu ñược chỉ ra bằng 1 số thứ tự ñược gọi là chỉ số viết trong [ ], kí tự ñầu tiên...

Ngày tải lên: 21/07/2014, 16:20

... với ñộ chính xác ε= 10 -4 ( ABS(x n /n!) < ε ), giá trị x ñược nhập vào từ bàn phím khi chạy chương trình. 7. Cần có 500 00 ñ từ các loại giấy bạc 100 0ñ, 200 0ñ và 500 0ñ. Tìm tất cả các phương ... writeln(r :7) ; sẽ cho kết quả 1.234 500 000 E +02 ( 10 chữ số dành cho phần lẻ ) 123.4 50 1.2E +00 ( có làm tròn ) *- Viết ra kiểu kí tự Với kiểu kí tự, viết không quy cách sẽ cho ra kí tự bình ... WRITELN(HT:25,HS:6:2,LUONG: 10: 1,BHXH: 10: 1,BHYT: 10: 1,TL: 10: 1); READLN; END. Trư ờng ðại học Nô ng nghi ệp 1 - Giáo trình Tin h ọc ñ ại c ươ ng 1 30 1 30 VD2: Viết chương trình...

Ngày tải lên: 21/07/2014, 16:20

... với ñộ chính xác ε= 10 -4 ( ABS(x n /n!) < ε ), giá trị x ñược nhập vào từ bàn phím khi chạy chương trình. 7. Cần có 500 00 ñ từ các loại giấy bạc 100 0ñ, 200 0ñ và 500 0ñ. Tìm tất cả các ... khoá ) Phạm vi biểu diễn Kích thước (byte) Byte 0 255 1 Shortint -128 1 27 1 Integer -3 276 8 3 276 7 2 Word 0 65535 2 Longint -21 474 83648 21 474 836 47 4 2.2. Kiểu số thực Kiểu số thực là tập ... Kích thước ( byte ) Single 1.5E-45 3.4E+38 7- 8 4 Real 2.9E-39 1.7E+38 11-12 6 Double 5.0E-324 1.7E+ 308 15-16 8 Extended 3.4E-4932 1.1E+4932 19- 20 10 ...

Ngày tải lên: 21/07/2014, 16:20

... dài quá 1 27 kí tự (!). Tên thường ñược ñặt mang tính gợi nhớ. TURBO PASCAL không phân biệt chữ hoa và chữ thường khi viết từ khoá hay tên. Ví dụ : khi viết chương trình giải phương trình bậc ... chính của chương trình ñể giải quyết bài toán. Người lập trình phải bỏ nhiều công sức ñể thiết kế thuật giải và viết chương trình cho phần này. 4.4. Các bước cơ bản khi lập trình Trước ... chương trình giải quyết một bài toán nào ñó, người lập trình phải biết cách giải bài toán ñó hay chính xác hơn phải biết thuật giải ñể giải bài toán và trình bày thuật giải bằng ngôn ngữ lập trình...

Ngày tải lên: 21/07/2014, 16:20

... x0 y0 w0 h0" alt=""

Ngày tải lên: 09/08/2014, 08:22

Ngày tải lên: 10/08/2014, 09:20