Một số đề bài trong FREE PASCAL (có đáp án)

MỘT SỐ ĐỀ BÀI TRONGPASCAL Phần 1... Từ câu 1 > 15, nếu sai điều kiện của lệnh cho nhập lại còn saiđiều kiện của giá trị thì không cho nhập lại... Bài 15: Nhập vào một mảng số nguyên A có

MỘT SỐ ĐỀ BÀI TRONG

PASCAL

Phần 1

Từ câu 1 > 15, nếu sai điều kiện của lệnh cho nhập lại còn sai

điều kiện của giá trị thì không cho nhập lại.

Bài 1: Nhập vào một số tự nhiên x (0 ≤ x ≤ 10000) rồi k tra:

- Số có bao nhiêu chữ số?

- Số có chia hết cho 4 không?

Bài 2: Nhập vào ba số nguyên a , b , c rồi kiểm tra xem:

- a ≥ b+c không?

- b ≥ a+c không?

Bài 3: Nhập vào một số nguyên Kiểm tra xem số đó có phải là

số nguyên tố hay không?

Bài 4: Nhập vào một số tự nhiên d (0 ≤ d ≤100) rồi lập bảng cửu chương (bảng cửu chương là 9 phép nhân) d

Bài 5: Tìm d2 của d (d ϵ N)

Bài 6: Nhập vào một xâu kí tự Nhập n và m sao cho:

- n là vị trí kí tự bị xóa đi

- m là vị trị kí tự bị xóa thêm vào

Bài 7: Tính chu vi và diện tích của hình chữ nhật có chiều rộng

là o, chiều dài là m, với o ,m ϵN , o< m

Bài 8: Nhập vào một số tự nhiên i(15<i<200), hãy tính tổng các số

Bài 11: Nhập vào một dãy số có n số rồi kiểm tra xem số nào chia hết cho 5.

Bài 12: Kiểm tra một số có phải là hợp số

Bài 13: Tìm BCNN của h , g¿

Bài 14: Nhập một số x, a Tính x a

Bài 15: Nhập vào một mảng số nguyên A có n phần tử Tính tổngcác phần tử

Từ câu 16 > 21 không cần nhập lại nếu sai

Bài 16: Hãy tạo một phần mềm học tập đưa ra 10 câu hỏi có đáp

án là số Nếu câu trả lời đúng thì điểm + 1 Cuối cùng đưa ra câunào sai và tổng điểm

Bài 17: Viết phần mềm kiểm tra có phải là số chính phương hay không?

Bài 18: Viết phần mềm đổi từ nhiệt độ oC -> oK

Bài 19: Viết phần mềm tính chu vi và diện tích hình tròn

Bài 20: Viết phần mềm tìm số x theo quy định

x = (a+32-12)/10 + 6

Bài 21: Viết chương trình chuyển đổi từ km (km là số nguyên)

-> cm

BÀI KIỂM RA HẾT PHẦN Hãy lập chương trình tạo phần mềm chứng minh hai số

-nguyên tố cùng nhau cơ bản

Hướng dẫn giải bài tập Bài 1:

Write('So ban nhap bi sai Nhap lai: ');readln(x);

if (0<= x) and (x <= 10000) then kt:=true else kt:=false;

Writeln('So do co ',d,' chu so');

if x mod 4 = 0 then writeln('So do chia het cho 4') else writeln('So do khong chia het cho 4');

end;

Write('Nhap mot so: '); readln(a);

for i:=1 to a do if a mod i = 0 then dem:=dem+1;

if dem=2 then writeln('So do la so nguyen to') else writeln('So do khong phai la so nguyen to');

if (o<m) and (1 <= m ) and (m<= 32767) and (0<= o) and (o

<= 32766) then kt:= true else kt:=false;

if (o<m) and (1<= m) and (m <= 32767) and (0<= o) and (o

<= 32766) then kt:= true else kt:=false;

Write('Nhap so: '); readln(n);

if (n<0) then Writeln('Day la so am.');

if (n>0) then Writeln('Day la so duong.');

for i:=1 to 5 do readln(A[i]);

for j:=1 to 5 do if (A[j] mod 4=0) then write(A[j], ' '); readln;

Write('Nhap so phan tu: '); readln(n);

for i:=1 to n do readln(A[i]);

for j:=1 to n do if (A[j] mod 5=0) then write(A[j], ' '); readln;

Write('Nhap mot so: '); readln(a);

for i:=1 to a do if a mod i = 0 then dem:=dem+1;

if dem=2 then writeln('So do khong phai la hop so') else writeln('So do la hop so');

Writeln('Cau 1: Chu so 9 trong so 893.');

Writeln('Cau 2: Ket qua cua phep nhan: 16 x 8.');

Write('Nhap so can kt: '); readln(n);

for i:=1 to n do if (i*i=n) then j:=j+1;

if j=0 then Writeln('Day khong phai la so chinh phuong') elseWriteln('Day la so chinh phuong');

clrscr;

Write('Nhap do C: '); readln(c); Writeln('Do K la: ',c+273.15);

clrscr;

Writeln('Chao ban den voi phan mem Prise - Chung minh

nguyen to cung nhau ');

clrscr;

Writeln('Moi so can chung minh se co dang a*n+b Trong do: a,

b la hai so da biet.');

Writeln('a: THUA SO A,n: SO N, b:SOHANG');

Write('Moi ban nhap thua so a cua so thu nhat: ');

if (sohang1_2-sohang2_2<> 1) then writeln('So ban nhap sai cach!!!') else

begin

Write('Goi d la UCLN (', thuasoa1,'*',thuasob1,'+',sohang1,',');Writeln(thuasoa2,'*',thuasob2, '+',sohang2,') (d thuoc N*)');Write('Ta co: ');

Writeln(thuasoa1,'*',thuasob1, '+', sohang1, ' chia het cho d');Writeln(' => ',thuasoa1_2, '*', thuasob1, '+', sohang1_2, ' chia het cho d');

Writeln(' ',thuasoa2,'*',thuasob2, '+', sohang2, ' chia het cho d');

Writeln(' => ',thuasoa2_2, '*', thuasob2, '+', sohang2_2, ' chia het cho d');

Write('=> ');

Writeln('[(',thuasoa1_2, '*', thuasob1, '+', sohang1_2,

')','-','(',thuasoa2_2, '*', thuasob2, '+', sohang2_2,')] ', 'chia het cho d');

Writeln('=> (',thuasoa1_2, '*', thuasob1, '+', sohang1_2, ' -

',thuasoa2_2,'*', thuasob2, '-', sohang2_2,') ', 'chia het cho d');Writeln('=> 1 chia het cho d');

Writeln('=> d = 1');

Writeln('=> UCLN (',thuasoa1, '*', thuasob1, '+', sohang1, ',', thuasoa2, '*',thuasob2, '+', sohang2, ')=1');

Writeln('Vay ',thuasoa1, '*', thuasob1, '+', sohang1, ' va ', thuasoa2, '*',thuasob2, '+', sohang2,' nguyen to cung nhau.');end;

end;

readln;

end