BÀI TẬP PASCAL CÓ LỜI GIẢI CHI TIẾT - Tài Liệu Text - 123doc

Tải bản đầy đủ (.pdf) (31 trang)

1. Trang chủ
>>
2. Công Nghệ Thông Tin
>>
3. Kỹ thuật lập trình

BÀI TẬP PASCAL CÓ LỜI GIẢI CHI TIẾT

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (601.42 KB, 31 trang )

----HỌC NỮA-HỌC MÃI----BÀI TẬP PASCAL CÓ LỜIGIẢI CHI TIẾTBÀI TẬP PASCAL CÓ LỜI GIẢI CHI TIẾTBài 1:Nhập vào 1 số n nguyên (2sv[j].dtb then begintg:=sv[i];sv[i]:=sv[j];sv[j]:=tg;end;for i:=1 to n dowith sv[i] dobeginwriteln(' Ho ten:',hoten);writeln(' Diem TB:',dtb:2:2);writeln;end;end;beginclrscr;write(' Nhap n=');readln(n);nhap;BÀI TẬP PASCAL CÓ LỜI GIẢI CHI TIẾThienthi;sapxep;readln;end.Bài 8:-Nhập vào một danh sách sinh viên (họ tên,năm sinh,dan tộc,điểm 1 ,điểm 2 , điểm 3,giới tính)-hiện danh sách sinh viên vừa nhập dưới dạng cộtSTT Hoten Gioitinh Dantoc Diem1 Diem2 Diem3 DTB-liệt kê danh sách sinh viên đạt loại khá (dtb>7)Bài giảiprogram yen8;uses crt;type sinhvien=recordhoten,dantoc,gioitinh:string;namsinh,diem1,diem2,diem3:integer;dtb:real;end;mang=array [1..10] of sinhvien;var sv:mang;i,n,d:integer;procedure nhap;beginclrscr;writeln('NHAP THONG TIN CHO SINH VIEN');for i:=1 to n dowith sv[i] dobeginwrite(' Ho ten:');readln(hoten);write(' Gioi tinh:');readln(gioitinh);write(' Dan toc:');readln(dantoc);write(' Diem1,Diem2,Diem3:');readln(diem1,diem2,diem3);dtb:=(diem1+diem2+diem3)/3;writeln;end;end;procedure hienthi;BÀI TẬP PASCAL CÓ LỜI GIẢI CHI TIẾTbeginwriteln;writeln;writeln('DANH SACH SINH VIEN VUA NHAP');for i:=1 to n dowith sv[i] dobeginwriteln(' Ho ten:',hoten);writeln(' Nam sinh:',namsinh);writeln(' Diem TB:',dtb:2:2);writeln;writeln;end;end;procedure sapxep;beginwriteln('DANH SACH SINH VIEN DAT LOAI KHA');writeln;d:=0;for i:=1 to n doif sv[i].dtb>7 then beginwriteln(' Ho ten:',sv[i].hoten);writeln(' Diem TB:',sv[i].dtb:2:3);writeln;writeln;d:=d+1;end;if d=0 then writeln('( khong co sinh vien nao )');end;beginclrscr;write(' Nhap n=');readln(n);nhap;hienthi;sapxep;readln;end.Bài 9:-kiểm tra kí tự bất kì có là chữ cái từ a..z không-nhập vào một xâu sau đó đếm xem trong xâu có bao nhiu kí tự không pải là chữ cáiBài giảiBÀI TẬP PASCAL CÓ LỜI GIẢI CHI TIẾTprogram yen9;uses crt;type tap=set of char;var ch:char;st:string;chucai:tap;i,d:integer;procedure kiemtra;beginif ch in chucai then writeln(' Ki tu ',ch,' co trong bang chu cai')else writeln(' Ki tu ',ch,' khong co trong bang chu cai');d:=0;for i:=1 to length(st) doif st[i] in chucai then d:=d+1;writeln(' Trong xau co ',length(st)-d,' ki tu khong la chu cai');end;beginclrscr;write(' Nhap ki tu:');readln(ch);write(' Nhap xau:');readln(st);chucai:=['a'..'z','A'..'Z'];kiemtra;readln;end.Bài 10:-kiểm tra một xâu s1 có mặt tỏng xâu s2 không tình từ 1 vị trí bất kì-nhập 2 xâu s1 ,s2 .Đếm em xâu s1 có mặt trong xâu s2 bao nhiu lầnBài giảiprogram yen10;uses crt;var s1,s2:string;i,j,d,k,t:integer;procedure kiemtra;begind:=0;for i:=1 to length(s2) doif s2[i]=s1[1] then beginBÀI TẬP PASCAL CÓ LỜI GIẢI CHI TIẾTk:=2;t:=1;for j:=i+1 to (i+length(s1)-1) doif s2[j]=s1[k] then begink:=k+1;t:=t+1;end;if t=length(s1) then d:=d+1;end;if d>0 then beginwriteln(' Xau s1 co xuat hien trogn xau s2');writeln(' Xau s1 xuat hien ',d,' lan trong xau s2');endelse writeln(' Xau s1 khong xuat hien trong xau s2');end;beginclrscr;write(' Nhap xau s1:');readln(s1);write(' Nhap xau s2:');readln(s2);kiemtra;readln;end.Bài 11:Nhập vào các số n , m (2