bai tap pascal file

... nhập số liệu từ file trên, sắp xếp n dãy trên theo thứ tự tăng dần và ghi kết quả ra file OUTPUT.TXT có dạng tương tự như file nhập liệu. 6 Làm việc với File trong Pascal 1. Một file văn bản trên ... 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 ... chương trình nhập dữ liệu học sinh từ file trên và đưa vào các mảng dữ liệu tương ứng, tên file cũng được đọc từ bàn phím. Var f: text; fn: string; {Tên file} n, i: integer; ht: array[1 100]...

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

... với File trong Pascal 1. M t file v n b n trên đ a có tên là SON.INF ch a đúng m t dòng bao g m hai s t ộ ă ả ĩ ứ ộ ồ ố ự nhiên n, m đ c vi t cách nhau m t d u cách. Sau đây là m t ví d v file ... do Begin Readln(f,a[i]); Writeln(a[i]); End; close(f); Readln; End. (Bai 9) Var f: text; fn: string; {Tên file} n, i, l, j: integer; ht: array[1 100] of string[20]; t: array[1 100] of string[3]; xl: array[1 100] of char; Begin Write('Tên file cần ... nh p d li u h c sinh t file trên và đ a vào các m ng d li u ế ươ ậ ữ ệ ọ ừ ư ả ữ ệ t ng ng, tên file c ng đ c đ c t bàn phím.ươ ứ ũ ượ ọ ừ Var f: text; fn: string; {Tên file} n, i: integer; ht:...

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

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

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

... string; Tuoi:byte; CoQuan:String; Luong:longint; HonPhoi:Boolean; End; Chương trình cho phép: a) Tạo file. b) Xem file. c) Thêm vào file một phần tử d) Xóa khỏi file một phần tử. e) Duyệt file để trả lời cho biết các thông tin cần biết về Luong ... giản đa thức, Cộng/Trừ/Nhân hai đa thức. 6 (Nếu file A có dòng: ‘DAY la dONG troNG File thì dòng tương ứng trong file (B) là: ‘Day La Dong Trong File ) 34. Khai báo kiểu dữ liệu như sau: TYPE Hoso ... đọc một file văn bản (A) và SAVE lại file đó với một tên khác (B) với nội dung gồm 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ỉ...

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]; ... end; Var ds: Danhsach; i: byte; f: file of Danhsach; BEGIN ClrScr; Writeln('Danh sach hoc sinh tu file bai2 .dat'); Writeln; Assign(f,&apos ;bai2 .dat'); Reset(f); For i:=1 ... char; End; Var ds1 : Danhsach1; ds2 : Danhsach2; f1 : file of Danhsach1; f2 : file of Danhsach2; 36 Bài tập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà x1:=(-b+sqrt(Delta))/(2*a);...

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

... Tập I Ví dụ với file INP.TXT 4 1 1 4 4 31 27 26 1 27 26 22 5 8 22 13 4 12 20 14 3 file OUT.TXT sẽ là 3 3 3 4 Víi file INP.TXT 4 1 1 3 4 1 29 26 1 29 26 19 5 8 19 14 7 12 20 14 5 file OUT3.TXT sẽ ... vào đợc cho bởi file INP.BL trong đó mỗi dòng ghi một xâu ký tự. Với mỗi dòng đọc đợc của file INP.BL, có ba khả năng: - Nếu xâu tơng ứng chứa ký tự khác với ( và ), ghi vào file OUT.BL dòng ... MIN1[i,1], . ., MIN1[i,N]. Ghi ra file MIN1-2.TXT mảng MIN2 thể hiện tình trạng mìn theo cách thứ hai, mỗi dòng của mảng MIN2 ghi thành một dòng của file. 2. Đọc từ file MIN2.TXT mảng MIN2 cho biết...

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 ... nhập: abc6ghj7kkkkk1hhhh9 Kết quaû: 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

... cu: - D liu vào t file GB.INP gm nhiu dòng, dòng   u là s test (<10), các dòng tip theo mi dòng ghi 1 s t nhiên chn ln hn 2 (<32000) - D liu ra là file GB.OUT gm các dòng ... bằng nhau thì in ra heát. ví duï: 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ố nguyên gồm n phần tử. Tìm dãy con gồm m ... phẩy). Ví dụ: DIENTICH.INP Kết quả trên màn hình (hoặc file DIENTICH.OUT) 10 6 2 10 6 2 60.0 4.0 30.0 17.5 Hạn chế kỹ thuật: - Ghi tên file bài làm là DIENTICH.PAS. - Dữ liệu vào là chính xác...

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

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

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