bai+tap+pascal

Ngày tải lên: 16/08/2012, 09:03

Ngày tải lên: 16/08/2012, 09:03

... Write('-Nhap mot so thuc = '); Readln(so_thuc); Writln; GIAO TRINH LY THUYET VA BAI TAP TURBO PASCAL- CHUONG 1 Dang Thanh Tuan(15/3/2004) **********0101********** Program PTB2; Var ... Writeln('De '); Writeln('Cu '); Readln End. *********0108********* Program Tam_giac _Pascal; Begin Writeln(' 1'); Writeln(' 1 1'); Writeln(' 1 2 1'); ... ',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...

Ngày tải lên: 17/08/2012, 09:04

... chạy chương trình trên. 4. Lưu chương trình vào đĩa với tên BAI1 .PAS. 5. Thoát khỏi Pascal. 6. Khởi động lại Turbo Pascal. 7. Mở file BAI1 .PAS. 8. Chèn thêm vào dòng: CLRSCR; vào sau dòng BEGIN 9. ... HÀNH 1. Khởi động Turbo Pascal. 2. Nhập vào đoạn chương trình sau: Uses Crt; Begin Writeln(‘***********************************************************’); Writeln(‘* CHUONG TRINH PASCAL DAU TIEN CUA ... tập Pascal Chương 4 CHƯƠNG TRÌNH CON: THỦ TỤC VÀ HÀM I. KHÁI NIỆM VỀ CHƯƠNG TRÌNH CON Chương trình con (CTC) là một đoạn chương trình thực hiện trọn vẹn hay một chức năng nào đó. Trong Turbo Pascal, ...

Ngày tải lên: 17/08/2012, 10:48

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

Ngày tải lên: 31/08/2012, 09:33

... dữ liệu trừu tượng nào đó do sinh viên tự khai báo} DataPtr = ^Node; Node = Record Data : Hoso; Next : DataPtr; End; VAR NhanVien,Tam:DataPtr; a) Viết các thủ tục để tạo một danh sách liên kết ... chuỗi. Kết quả trên màn hình có dạng: Chương trình đếm số kí tự có trong chuỗi. Nhập chuoi: Hoc tap chuyen can. 4 25. (*) Như bài 24. Viết thêm phần chia một đa thức cho một nhị thức bậc nhất ... tất cả dòng của file (A) đã được chuẩn hóa thành dạng Title Case 2 Lưu ý: Unit Printer của Turbo Pascal chỉ hỗ trợ xuất ra máy in qua cổng LPT1 (DB25 connector), không thực hiện được với các máy...

Ngày tải lên: 13/11/2012, 12:03

Ngày tải lên: 01/03/2013, 17:01

Ngày tải lên: 31/05/2013, 00:21

Ngày tải lên: 05/06/2013, 01:26

... 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 Trau an 100 bo co.'); ...

Ngày tải lên: 15/06/2013, 01:26

... phan tu khoi tap hop *) Uses Crt; Var tap: set of char; ch: char; BEGIN tap: =[]; Writeln('Nhap cac phan tu cho mot tap hop cac ki tu: '); Repeat ch:=ReadKey; tap: =tap+ [ch]; ... Writeln('Cac phan tu cua tap hop la:'); For ch:='a' to 'z' do If ch in tap then Write(ch,' '); 33 Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức ... Close(f); End; Function Card(S: Tap) : byte; Var i,n: byte; Begin n:=0; For i:=0 to 99 do If i in S then Inc(n); Card:=n; End; BEGIN Nhap; Clrscr; Write(&apos ;Tap S co ',Card(S),'...

Ngày tải lên: 21/06/2013, 01:26

... sắp xếp lại dÃy đó để nhận đợc dÃy hình sin bậc M. Dữ liệu vào đợc cho bởi file văn bản với tên BAI1 .INP có cấu trúc nh sau: - dòng đầu gồm hai số nguyên N và M, - dòng sau ghi N số nguyên X 1 , ... , X N Các số trên một dòng cách nhau ít nhất một dấu cách. Kết quả ghi ra file văn bản với tên BAI1 .OUT theo cấu trúc sau: - dòng đầu ghi số 1 nếu dÃy đà cho là dÃy hình sin bậc M và ghi số 0...

Ngày tải lên: 24/06/2013, 01:28

... Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN GV: Trần Minh Thọ BÀI TẬP CƠ BẢN - Đáp án ++ 1. Viết chương ... end; write('ucln ',ucln); write('bcnn ',a*b/ucln:1:1); readln; end. Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN GV: Trần Minh Thọ repeat ch:=readkey; write('*'); s:=s+ch; until ... dụ: nhập: abc6ghj7kkkkk1hhhh9 Kết quả: abc1ghj6kkkkk7hhhh9 var a:array[1 100]of integer; Bài tập Pascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN GV: Trần Minh Thọ 4. VCT giải hai bài toán cổ: 100 trâu 100...

Ngày tải lên: 26/06/2013, 01:26

... bằng nhau thì in ra hết. ví dụ: Input Output Nguyen van truong truong 4 Truong thich hoc pascal Truong pascal 5 BÀI 5: DÃY CON LỚN NHẤT Cho một mảng số ngun gồm n phần tử. Tìm dãy con gồm m phần...

Ngày tải lên: 02/07/2013, 01:25

Ngày tải lên: 16/07/2013, 01:26

... phải. Bài tập 2: Viết chương trình in ra màn hình tam giác Pascal. Ví dụ, với n=4 sẽ in ra hình sau: 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 Ý tưởng: Tam giác Pascal được tạo ra theo qui luật sau: + Mỗi dòng đều...

Ngày tải lên: 16/07/2013, 01:26

... chứa một chương trình Pascal hoàn chỉnh. Trong chương trình này trên một dòng có thể chứa nhiều lệnh. Em hãy viết chương trình in ra file mới có tên BLMOI.PAS chương trình Pascal trên sao cho ... trong phần Câu hỏi, ví dụ, bài tập nhưng theo chiều ngược lại, tức là thực hiện các thao tác ghi. (Bai 1) Var f:text; m,n:integer; Begin m:=10; n:=4; assign(f, 'son.inf'); reWrite(f); Writeln(f, ... ',n); close(f); assign(f, 'son.inf'); reset(f); Readln(f, m, n); close(f); Writeln(m:4, n:4); Readln; End. (Bai 2) Var f:text; m,n:integer; Begin m:=4; n:=5; assign(f, 'sod.inf'); reWrite(f); Writeln(f,...

Ngày tải lên: 18/07/2013, 01:26

... dòng bao g m M s cách nhau b i d uế ố ệ ủ ỗ ồ ố ở ấ cách. 2 Writeln(m); Writeln(n); Readln; End. (Bai 3) Var f:text; n,i:integer; a:array[1 100] of integer; Begin Write('Nhập số n: ');Readln(n); Writeln('Nhập ... reset(f); Readln(f, n); For i:=1 to n do Readln(f,a[i]); close(f); For i:=1 to n do Writeln(a[i]); Readln; End. (Bai 4) Var f:text; n,i:integer; a:array[1 100] of integer; Begin Write('Nhập số n: ');Readln(n); Writeln('Nhập ... reset(f); Readln(f,n); For i:=1 to n do Read(f,a[i]); close(f); For i:=1 to n do Writeln(a[i]); Readln; End. (Bai 6) Var f: text; n, i: integer; a: array[1 100] of integer; Begin Write('Nhập số n: ');...

Ngày tải lên: 18/07/2013, 01:26

Ngày tải lên: 20/07/2013, 01:28

Ngày tải lên: 26/07/2013, 01:25