Bài tập Pascal và lời giải

BÀI TẬP PASCAL VÀ LỜI GIẢI Bài 1: Nhập vào 1 số nguyên gồm 4 chữ số -Kiểm tra tình chắn lể -kiểm tra xem có phải là số nguyên tố không -kiểm tra xem có phải là số hoàn hảo không

Bài 2: Nhập vào 1 số n nguyên (2<n<20) -nhập vào mảng n số nguyên dương -hiện tất cả số nguyên tố trong mảng và đếm xem có bao nhiu sô

Bài 3: Nhạp vào 1 số n nguyên (2<n<20) -nhập vào mảng n số nguyên -tìm số lớn nhất và vị trí của nó -sắp xếp mảng tang giần theo giá trị -hiển thị mảng vừa sắp xếp

Bai 4: -viết chương trình kiểm tra xem 1 số có là số hoàn hảo không -liệt kê tất cả số hoàn hảo từ 1..2000 và đếm xem có bao nhiu số

Bài 5: Nhập vào 1 số n nguyên (2<n<20) -nhập vào một mảng n số thực -tình trung bình công của tất cả số dương trong mảng -kiểm tra xem trong mảng có bao nhiu số có giá trị trùng với giá trị của tbc nói trên

Bài 6: -đếm xem 1 xâu s có bao nhiu kí tự c , ch (không kể in hoa hay thường) -đém xem xâu s có bao nhiu từ (một từ được định nghĩa là một tập các kí tự không chứa dấu cách) -chuẩm hóa xâu xóa tất cả kí tự cách ở đầu và cuói câu ,trong xâu không co nhìu hơn một dấu cách đứng liền nhau

Bài 7: -nhập vào một ma trận m*n -hiện ma trận vủa nhập

Bài 8: Giải bài toán FIBONACI

ThuVienDeThi.com

Bài 9: Kiểm tra tình đối xứng của 1 từ

Bài 10: Nhập vào các số n , m (2<n,m<20) -nhập vào ma trận các số nguyên -xây dựng một mảng thứ 2 gồm các giá trị max của hàng trong ma trận trên -hiện cả hai mảng ra màn hình

Bai 11: Nhập vào các số n , m (2<n,m<20) -nhập vào ma trận gồm các số nguyên -hiện ma trận vùa nhập ra màn hình -tìm số nguyên tố và cho bít vị trí của nó

Bai 12: Nhập vào các số n , m (2<n,m<20) -nhập một ma trận các số nguyên -hiện ra màn hình ma trận vừa nhập -sắp xếp lai ma trận sao cho hàng tăng cột tăng

Bai 13: -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ần

Bài 14: -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ái

Bài 15: -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ột STT Hoten Gioitinh Dantoc Diem1 Diem2 Diem3 DTB -liệt kê danh sách sinh viên đạt loại khá (dtb>7)

Bài 16: -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ột STT Hoten Gioitinh Dantoc Diem1 Diem2 Diem3 DTB -cho bit có bao nhiu phần trăm sinh viên nam bao nhiu phần trăm nữ

ThuVienDeThi.com

Bai 17: -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ột STT Hoten Gioitinh Dantoc Diem1 Diem2 Diem3 DTB -sắp xếp lại danh sách sinh viên tăng dần theo điểm trung bình (không làm sai lệch thông tin)

Bài giải Bài 1: program yen1; uses crt; var i,n,k,d:integer; ok:boolean; function chanle(n:integer):boolean; begin ok:=true; if n mod 2<>0 then ok:=false; chanle:=ok; end; function nguyento(n:integer):boolean; begin ok:=true; d:=0; for i:=1 to n-1 do if n mod i=0 then d:=d+1; if d<>1 then ok:=false; nguyento:=ok; end; function chinhphuong(n:integer):boolean; begin ok:=true; k:=trunc(sqrt(n)); if sqr(k)<>n then ok:=false; chinhphuong:=ok; end; begin clrscr; write(' Nhap n=');readln(n); if chanle(n) then writeln(' So vua nhap la chan') else writeln(' So vua nhap la so le'); if nguyento(n) then writeln(' So vua nhap la nguyen to') else writeln(' So vua nhap khong phai la so nguyen to'); if chinhphuong(n) then writeln(' So vua nhap la so chinh phuong')

ThuVienDeThi.com