bai tap pascal
Giáo trình lý thuật bài tập pascal Chương I
... GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL- CHUONG 1 Dang Thanh Tuan(15/3/2004) **********0101********** Program PTB2; Var ... ',x2:6:2); End; readln End. **********0102********** Program Ao_thu; Begin Writeln(' BAI THO AO THU'); Writeln('Ao thu lanh leo nuoc trong veo'); Writeln('Mot ... Writeln('De '); Writeln('Cu &ap...
Ngày tải lên: 17/08/2012, 09:04
Bài tập pascal
... môi trường WINDOWS (xem hình). 142 Giáo trình bài tập Pascal MỤC LỤC Lời mở đầu 1 Chương 1: CÁC THÀNH PHẦN CƠ BẢN CỦA NGÔN NGỮ LẬP TRÌNH PASCAL 2 Chương 2: CÁC KIỂU DỮ LIỆU CƠ BẢN – KHAI BÁO ... readln; End. Hãy cho biết 2 chương trình trên cho kết quả đúng hay sai? Tại sao? 14 Giáo trình bài tập Pascal Begin Line(x0+Round(P1.x*k),y0-Round(P1.y*k), x0+Round(P2.x*k),y0- Round(P2.y*k));...
Ngày tải lên: 17/08/2012, 10:48
Giáo trình lý thuyết và bài tập Pascal
... GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL- CHUONG 1 Dang Thanh Tuan(15/3/2004) **********0101********** Program PTB2; Var a,b,c:Integer; ... ',x2:6:2); End; readln End. **********0102********** Program Ao_thu; Begin Writeln(' BAI THO AO THU'); Writeln('Ao thu lanh leo nuoc trong veo'); Writeln('Mot chiec ... Writeln('De '); Writeln('...
Ngày tải lên: 31/08/2012, 09:33
Bài tập Pascal
... Word, Integer, Longint. Real. Char. Boolean A) Làm quen với phần mềm Borland Pascal : a. Thực tập cài đặt Borland Pascal lên máy của mình. b. Hướng dẫn ghi đè file Turbo.tpl để chống lỗi “divide ... Dùng lệnh Run của Windows chạy thử Pascal bằng cách dùng Turbo.exe và bằng cách dùng BP.EXE. Quan sát và cho nhận xét. Tạo Shorcut cho BP.EXE. e. Chạy Borland Pascal và quan sát các thàn...
Ngày tải lên: 13/11/2012, 12:03
Các bài tập Pascal
... Write(i,'x',j:2,'=',i*j:2,' ');Writeln; End; Readln END. Program BaiToanGaCho; Var sg,sc: Byte; BEGIN Writeln(&apos ;Bai toan co Ga + Cho = 36 con. Chan ga + Chan Cho = 100 chan'); ... then Writeln('Ket qua So Ga la: ',sg,' So Cho la: ',sc); Readln END. Program BaiToanTramTrauTramCo; Var td,tn,tg: Byte; BEGIN Writeln('Co 100...
Ngày tải lên: 15/06/2013, 01:26