BAI TAP PASCAL VA LOI GIAI

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 Diem[r]

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ô

-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ìuhơn một dấu cách đứng liền nhau

-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ữ

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:

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')

else writeln(' So vua nhap khong la so chinh phuong'); readln;

if n mod i=0 then d:=d+i;

if d=n then writeln(' So vua nhap la so hoan hao') else writeln(' So vua nhap khong la so hoan hao'); end;

for i:=1 to length(st) do

if (st[i]<>' ')and(st[i+1]=' ') then d:=d+1;

write(' Nhap xau:');readln(st);

write(' Nhap ki tu:');readln(ch);

chuanhoa;

writeln(' Trong xau co ',demkitu,' ki tu C');

writeln(' Trong xau co ',demtu,' tu');

writeln(' Ki tu ',ch,' vua nhap co mat ',dem,' lan trong xau'); readln;

write(' Nhap so de tinh day fibonaci:');readln(n);

write(' Nhap so de kiem tra xem co trong day fibonaci

end

Bài 9:

program yen9;

for i:=1 to (length(tu1) div 2) do

if tu1[i]<>tu1[length(tu1)-i+1] then begin

write(' Nhap tu:');readln(tu);

if doixung(tu) then writeln(' Tu vua nhap doi xung') else writeln(' Tu vua nhap khong doi xung');

procedure hienthi;

for i:=1 to length(s2) do

if s2[i]=s1[1] then begin

if d>0 then begin

writeln(' Xau s1 co xuat hien trogn xau s2');

writeln(' Xau s1 xuat hien ',d,' lan trong xau s2'); end

else writeln(' Xau s1 khong xuat hien trong xau s2');

end;

begin

clrscr;

write(' Nhap xau s1:');readln(s1);

write(' Nhap xau s2:');readln(s2);

for i:=1 to length(st) do

if st[i] in chucai then d:=d+1;

writeln(' Trong xau co ',length(st)-d,' ki tu khong la chu cai'); end;

begin

clrscr;

write(' Nhap ki tu:');readln(ch);

write(' Nhap xau:');readln(st);

write(' Gioi tinh:');readln(gioitinh);

write(' Dan toc:');readln(dantoc);

write(' Diem1,Diem2,Diem3:');readln(diem1,diem2,diem3); dtb:=(diem1+diem2+diem3)/3;

write(' Gioi tinh:');readln(gioitinh);

write(' Dan toc:');readln(dantoc);

write(' Diem1,Diem2,Diem3:');readln(diem1,diem2,diem3); dtb:=(diem1+diem2+diem3)/3;

writeln(' NHAP THONG TIN CHO SINH VIEN');

for i:=1 to n do

with sv[i] do

begin

write(' 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;