Đang tải... (xem toàn văn)
CÁC BÀI TẬP PASCAL TỪ CƠ BẢN ĐẾN NÂNG CAO CỦA LỚP 11. GIÚP CÁC EM HỌC SINH NẮM VỮNG KIẾN THỨC BÀI HỌC HƠN SAU KHI HỌC TIẾT LÝ THUYẾT TRÊN LỚP. TÀI LIỆU CÓ 27 TRANG. HY VỌNG CÓ THỂ GIÚP CÁC THẦY CÔ TRONG VIỆC GIẢI QUYẾT CÁC BÀI TẬP PASCAL.
Phần I: CÁC BÀI TẬP CƠ BẢN Bài 1: Tìm giá trị lớn số a, b, c, d (a, b, c, nhập từ bàn phím) Program Program TIM_SO_LON_NHAT; Uses crt; Var a,b,c,d,max: real; BEGIN Clrscr; Writeln('TIM SO LON NHAT TRONG BON SO A, B, C, D'); Writeln(' -'); Write('Nhap a='); Readln(a); Write('Nhap b='); Readln(b); Write('Nhap c='); Readln(c); Write('Nhap d='); Readln(d); max:=a; If b>max then max:=b; If c>max then max:=c; if d>max then max:=d; Writeln('So lon nhat la: ',max: 4: 2); Readln; END Bài 1B: Viêt chương trình nhập ba số dương bất kỳ, kiểm tra ba số vừa nhập có phải ba cạnh tam giác không? Nếu phải tính chu vi diện tích tam giác PROGRAM Kiem_tra_tam_giac; Uses crt; Var a,b,c,cv,s,p: real; BEGIN Clrscr; Writeln(‘nhap so thu nhat’); readln(a); Writeln(‘nhap so thu hai’); readln(b); Writeln(‘nhap so thu ba’); readln(c); If(a+b>c) And(a+c>b) And(b+c>a) then Begin Cv:=a+b+c; p:=c/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(‘ba so vua nhap la ba canh cua tam giac’); Writeln(‘ chu vi cua tam gia la’, cv: 4: 2, ‘ dien tich cua tam giac la’, s:6:2); End Else Writeln(‘ba so vua nhap khong phai la ba canh cua tam giac’); Readln End Bài 1C: Viết chương trình nhập độ cao h so với mặt đất vật rơi nơi có gia tốc g, Tính hiển thị vận tốc vật mặt đất Program Tinh_van_toc; Uses crt; Var h, v,g: real; Begin Clrscr; Writeln(‘nhap cao cua vat’); readln(h); Writeln(‘nhap gia toc’); readln(g); V:=sqrt(2*g*h); Writeln(‘van toc tai mat dat la’, v: 6: 2); Readln End Bài 2: Viết chương trình giải phương trình ax+b=0 Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt; Var a,b,x: real; Begin Clrscr; Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0'); Writeln(' '); Write ('Nhap a= '); readln(a); Write ('Nhap b= '); readln(b); If(a=0) then If(b=0) then Writeln(' Phuong trinh co vo so nghiem') Else writeln(' Phuong tring vo nghiem') Else Writeln('Phuong trinh co nghiem x=',-b/a: 4: 2); Readln End Bài 3: Viết chương trình giải bất phương trình bậc (ax + b > 0) Program BAT_PHUONG_TRINH_BAC_I; Uses crt; Var a,b: real; Begin Clrscr; Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0'); Writeln(' '); Write('nhap a='); readln(a); Write('nhap b='); readln(b); If a0 then If a>0 then Writeln('Bat phuong trinh co nghiem: x>=',-b/a: 4: 2) Else Writeln('Bat phuong trinh co nghiem: xds[j].holot) then Doi(i,j); end; Writeln('Danh sach hoc sinh: '); For i:=1 to n With ds[i] Writeln(holot: 20,ten: 11,tuoi: 4,lop: 5); Writeln; Write('Bam Enter de ket thuc '); Readln; END Bài tập 3: Thông tin học sinh ghi gồm trường: Họđệm: xâu 25 kí tự Tên: xâu 10 kí tự Tuổi: số nguyên hai chữ số Lớp: xâu hai chữ số chữ viết hoa Một file ghi chứa danh sách lớp gồm 20 học sinh Hãy lập chương trình hiển thị danh sách lên hình, người dòng Program Nhaphocsinh; Uses Crt; Const n=5; Type Danhsach=record holot: string[25]; ten: string[10]; tuoi: 99; lop: string[3]; end; Var ds: Danhsach; i: byte; f: file of Danhsach; BEGIN ClrScr; Writeln('Danh sach hoc sinh tu file bai2.dat'); Writeln; Assign(f,'bai2.dat'); Reset(f); For i:=1 to n Begin Read(f,ds); With ds Writeln(holot: 20,ten: 11,tuoi: 4,lop: 5); End; Close(f); Writeln; Write('Bam Enter de ket thuc '); Readln; END Bài tập 4: Một file ghi chứa danh sách học sinh, thông tin học sinh giống Hãy lập chương trình tạo file ghi khác chứa danh sách đó, ghi gồm trường: Họtên: xâu 35 kí tự Tuổi: số nguyên hai chữ số Khối: số nguyên hai chữ số Lớp: chữ viết hoa Prorgam file_banghi; Uses Crt; Type Danhsach1=record holot: string[25]; ten: string[10]; tuoi: 99; lop: string[3]; End; Danhsach2=record hoten: string[35]; tuoi: byte; khoi: byte; lop: char; End; Var ds1: Danhsach1; ds2: Danhsach2; f1: file of Danhsach1; f2: file of Danhsach2; c: integer; BEGIN ClrScr; Writeln('Ghi tu file bai3.dat sang bai3n.dat: '); Writeln; Assign(f1,'bai3.dat'); Reset(f1); Assign(f2,'bai3n.dat'); Rewrite(f2); While not Eof(f1) Begin Read(f1,ds1); With ds1 Begin ds2.hoten:=holot+ten; val(copy(lop,1,2),ds2.khoi,c); ds2.tuoi:=tuoi; ds2.lop:=UpCase(lop[3]); Write(f2,ds2); End; End; Close(f1); Close(f2); Writeln; Writeln('Bam Enter de ket thuc!'); Readln; END Bài tập chương trình Bài tập Dùng thủ tục chuyển số tự nhiên n cho trước sang hệ số Procedure Change ( n: integer ; Var St: String ) ; b: Array[0 1] Of Char = ('0', '1') ; Var du, So: Integer ; S: String ; Begin S:='' ; {tao xau rong} So:=n ; Repeat Du:= So mod ; So:=So div ; S:=b[du] + s ; Until So = ; St:=S ; End ; Bài tập 2: Dùng thủ tục giải phương trình bậc hai ax2 + bx + c = Uses Crt ; Var a, b, c, x1, x2: real; {================================} Procedure Nhapabc(var aa,bb,cc: real); Begin Write('a='); Readln(aa); Write('b='); Readln(bb); Write('c='); Readln(cc); End; {=================================} Procedure GPTB2; Var Delta: real; Begin Delta:=sqr(b)-4*a*c; If Delta=0); End; Begin Input(a, 'a'); Input(b, 'b'); Input(c, 'c'); End; Procedure Kiemtra(a, b, c: Real); Begin If (a[...]... de ket thuc!'); Readln; END Bài tập về chương trình con Bài tập 1 Dùng thủ tục chuyển một số tự nhiên n cho trước sang hệ cơ số 2 Procedure Change ( n: integer ; Var St: String ) ; b: Array[0 1] Of Char = ('0', '1') ; Var du, So: Integer ; S: String ; Begin S:='' ; {tao xau rong} So:=n ; Repeat Du:= So mod 2 ; So:=So div 2 ; S:=b[du] + s ; Until So = 0 ; St:=S ; End ; Bài tập 2: Dùng thủ tục giải phương... i:=1 to n do With ds[i] do Writeln(holot: 20,ten: 11, tuoi: 4,lop: 5); Writeln; Write('Bam Enter de ket thuc '); Readln; END Bài tập 3: Thông tin về mỗi học sinh là một bản ghi gồm các trường: Họđệm: một xâu 25 kí tự Tên: một xâu 10 kí tự Tuổi: một số nguyên hai chữ số Lớp: một xâu hai chữ số và một chữ cái viết hoa Một file bản ghi chứa một danh sách một lớp gồm 20 học sinh Hãy lập chương trình hiển thị... Writeln(holot: 20,ten: 11, tuoi: 4,lop: 5); End; Close(f); Writeln; Write('Bam Enter de ket thuc '); Readln; END Bài tập 4: Một file bản ghi chứa một danh sách học sinh, thông tin về mỗi học sinh giống như bài trên Hãy lập chương trình tạo một file bản ghi khác chứa danh sách đó, mỗi bản ghi gồm các trường: Họtên: một xâu 35 kí tự Tuổi: một số nguyên hai chữ số Khối: một số nguyên hai chữ số Lớp: một chữ cái... Delete(s,pos(‘ ‘,s),1); K:=length(s); For i:=1 to k do if ( s[i]=’ ‘ )And( s[i+1]’ ‘) do upcase(s[i+1]); Writeln(‘xau sau khi dieu chinh la’,s); Readln End Bài tập phần bản ghi, file Bài tập 1: Chương trình nhập danh sách học sinh gồm Họ tên, tuổi, lớp của học sinh,in ra danh sách vừa nhập Program danh_sach; Uses Crt; Const n=15; Type Danhsach=record holot: string[25]; ten: string[10]; tuoi: 0 99; lop:... k:=i to n-1 Do a[k]:=a[k+1]; n:=n-1; End Else i:=i+1; End; Writeln; Write('-Mang con lai: '); For i:=1 to n Do Write(a[i]: 8); Writeln; Writeln(' Bam phim de ket thuc '); Readln End Bài tập phần xâu: Bài tập1 : Chương trình nhập từ bàn phím các ký tự chương trình đếm số lần xuất hiện của mỗi ký tự Program Dem_so_lan; Uses Crt ; Var a: Array[ 'A' 'Z' ] of integer; ch: char ; i: byte ; BEGIN Clrscr... Writeln; End; Writeln('Danh sach hoc sinh: '); For i:=1 to n do With ds[i] do Writeln(holot: 20,ten: 10,tuoi: 4,lop: 5); Writeln; Write('Bam Enter de ket thuc '); Readln; END Bài tập 2: Chương trình nhập danh sách học sinh gồm Họ tên, tuổi, lớp Chương trình in ra danh sách sau khi sắp xếp theo thứ tự tăng dần Program sap_xep; Uses Crt; Const n=5; Type Danhsach=record holot: string[25]; ten: string[10]; tuoi:... END Bài tập 4: Viết chương trình nhập vào một xâu, sau đó xuất ra xâu sau khi đã xóa hết ký tự số Program xoa_ky_tu_so; Uses crt; Var I,k: byte; S: string; Ch: char; Begin Clrscr; Writeln(‘nhap xau ‘); readln(s); K:=length(s); i:=1; For ch:=’0’ to ‘9’ do Begin While (i 0 Then Writeln (ch ‘xuat hien’, a[ch]: 4, ' lan '); Readln ; END Bài tập 2: Nhập xâu cho trước kiểm tra có phải xâu đối xứng hay không? Program Xau-doi-xung; Uses Crt; Var St: string; dx: Boolean; i, len: byte; BEGIN Clrscr; Write(' Nhap xau St = '); Readln(St); dx:=True;... len:=Length(St); While dx And (i