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

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

BÀI TẬP PASCAL CÓ LỜI

GIẢI CHI TIẾT

Bài 1:

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 nhiêu sô

Bài giải program yen1;

-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 giải program yen2;

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;

end

Bài 3:

-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 giải program yen3;

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

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 giải program yen5;

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

Bài giải program yen6;

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

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

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

-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 program yen7;

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

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

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

-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 giải program yen8;

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

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

-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 giải

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

for i:=1 to length(s2) do

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

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(tu1) div 2) do

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

ok:=false;

break;

end;

doixung:=ok;

end;

begin

clrscr;

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

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

else writeln(' Tu vua nhap khong doi xung');

write(' Nhap so de kiem tra xem co trong day fibonaci khong:');readln(m); fibonaci;

d:=0;

for i:=1 to n do

if a[i]=m then d:=d+1;

if d=1 then writeln(' So de kiem tra co mat trong day fibonaci')

else writeln(' So kiem tra khong co mat trong day fibonaci');

-đế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

for i:=1 to length(st) do

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

demtu:=d;

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

Uses Crt;

Var a,b,s,c: real;

Begin

Clrscr;

Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’); -‘); Write('Nhap chieu dai='); readln(a);

Write('Nhap chieu rong=');readln(b);

Bài 20 : Tính tam giác: Nhâp vào ba số a,b,c bất kì Kiểm tra xem nó có thể là độ

dài ba cạnh hay không, nếu không thì in ra màn hình ' Khong la ba canh cua mot tam giac' Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình

Bài giải Program TAMGIAC; Uses crt;

Var a,b,c,s,p : real;

Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac') ; Readln;End

Bài 21: Viết chương trình giải phương trình bậc 1 (ax + b = 0)

Bài giải Program GIAI_PHUONG_TRINH_BAC_NHAT;

Var a,b,x:real; Begin

Var a,b,c,d,x,x1,x2:real; Begin

Writeln('GIAI PHUONG TRINH BAC II:'); Writeln(' -'); Write('Nhap he so a=');readln(a);

Write('Nhap he so b=');readln(b); Write('Nhap he so c=');readln(c);

Write('Phuong trinh co hai nghiem: ‘); Writeln(‘ x1=',x1:4:2,' va x2=',x2:4:2);

Bài 23: Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím)

Bài giải Program TIM_SO_NHO_NHAT;

Uses crt;

Var a,b,c,d,min:real;

Begin

Clrscr;

Writeln('TIM SO NHO 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); min:=a;

If b<min then min:=b;

If c<min then min:=c; If d<min then min:=d;

Writeln('So nho nhat la:',min:4:2); Readln;

dd:=a*d-b*c; dx:=m*d-b*n; dy:=a*n-c*m; If dd=0 then

If (dx=0) and (dy=0) then

Writeln('He vo so nghiem hoac vo nghiem') Else writeln('He vo nghiem') Else

Begin End;

Write('He co nghiem :'); Writeln('x=',dx/dd:4:2,' va y=',dy/dd:4:2);

Readln;

End