... 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 BEGIN9. ... tập Pascal Chương 4CHƯƠNG TRÌNH CON: THỦ TỤC VÀ HÀMI. KHÁI NIỆM VỀ CHƯƠNG TRÌNH CONChươ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ÀNH1. Khởi động Turbo Pascal. 2. Nhập vào đoạn chương trình sau:Uses Crt;BeginWriteln(‘***********************************************************’);Writeln(‘* CHUONG TRINH PASCAL DAU TIEN CUA...
... 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:TYPEHoso ... đọ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 Case2 Lưu ý: Unit Printer của Turbo Pascal chỉ...
... Writeln('He PT co vo so nghiem dang: x, y=(',c1,'-',a1,'x)/',b1) End Else IF Deltax=Deltay then Writeln('He PT co vo so nghiem dang: x, y=(',c1,'-',a1,'x)/',b1) ... Write(i,'x',j:2,'=',i*j:2,' ');Writeln; End;ReadlnEND.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);ReadlnEND.Program BaiToanTramTrauTramCo;Var td,tn,tg: Byte;BEGIN Writeln('Co 100 Trau an 100 bo co.');...
... 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àitập ngôn ngữ lập trình PasCal Biên soạn: Hoàng Đức Hà x1:=(-b+sqrt(Delta))/(2*a);...
... Tập IVí dụ với file INP.TXT4 1 1 4 431 27 26 127 26 22 58 22 13 412 20 14 3 file OUT.TXT sẽ là3 33 4Víi file INP.TXT4 1 1 3 41 29 26 129 26 19 58 19 14 712 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ỗidò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...
... BàitậpPascal 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àitậpPascal BỒI DƯỢNG HỌC SINH GIỎI HUYỆN GV: Trần Minh Thọrepeatch:=readkey;write('*');s:=s+ch;until ... nhập: abc6ghj7kkkkk1hhhh9Kết quaû: abc1ghj6kkkkk7hhhh9var a:array[1 100]of integer; BàitậpPascal 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...
... cu: - D liu vào t file GB.INP gm nhiu dòng, dòng u là s test (<10), các dòng tip theomi dòng ghi 1 s t nhiên chn ln hn 2 (<32000) - D liu ra là file GB.OUT gm các dòng ... bằng nhau thì in ra heát.ví duï:Input OutputNguyen van truong truong 4Truong thich hoc pascal Truong pascal 5BÀI 5: DÃY CON LỚN NHẤTCho 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 260.04.030.017.5Hạn chế kỹ thuật: - Ghi tên filebài làm là DIENTICH.PAS. - Dữ liệu vào là chính xác...