BAI TAP PASCAL cơ bản LOP 8(có lời giải)

Câu 1: Viết chương trình nhập vào 2 số a, b. Tính tổng của 2 số a, b đó.
Uses crt;
Var a,b:integer;
Begin
Clrscr;
Write(‘a=’);Readln(a);
Write(‘b=’);Readln(b);
Writeln(a+b);
Readln;
End.
Câu 2: Viết chương trình nhập vào chiều rộng (a), chiều dài (b) của 1 hình chữ
nhật. Tính diện tích của hình chữ nhật đó.
Uses crt;
Var a,b:integer;
Begin
Clrscr;
Write(‘a=’);Readln(a);
Write(‘b=’);Readln(b);
Writeln(‘Dien tich HCN=’,a*b);
Readln;
End.
Bài 3: Viết chương trình nhập vào bán kính r của một
hình tròn. Tính chu vi và diện tích của hình tròn theo công
thức:
Chu vi
CV=2*pi*r
Diện tích
S=Pi*r*r
In các kết quả lên màn hình.
Cách 1:
Uses crt;

Var r:integer;
Begin
Clrscr;
Write(‘r=’);Readln(r);
Writeln(‘Chu vi=’,?);
Writeln(‘Dien tich =’,?);
Readln;
End.
Cách 2


var r, cv,s:real;
begin
readln(r);
cv:=2*pi*r;
s:=pi*spr(r);
writeln(‘chu vi:’,cv:9:2);
wrteln(‘Dien tich:’,s:9:2);
readln;
end.
Bài 4: Viết chương trình nhập độ dài 3 cạnh a,b,c của
một tam giác. Tính chu vi, diện tích của tam giác theo
công thức:
Chu vi
CV=a+b+c
Trong đó
p=CV/2
Diện tích
S=Sqrt(p*(p-a)*(p-b)*(p-c))
In các kết quả lên màn hình.

var a,b,c:integer;
p,cv,s:real;
begin
readln(a);
readln(b);
readln(c);
cv:=a+b+c;
p:=cv/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(‘chu vi=’,cv:9:2);
writeln(‘dien tich=’,s:9:2);
readln;
end.
Bài 5: Viết chương trình nhập vào hai số a, b sau đó
hoán đổi giá trị của hai số đó.
var a,b,tam:integer;
begin
write(‘nhap a,b:’);readln(a,b);
tam:=a;
a:=b;
b:=tam;


writeln(‘gia tri a=’,a);
writeln(‘gia tri b=’,b);
readln;
end.
Bài 6: Viết chương trình nhập 2 số a và b. Tìm giá trị lớn
nhất và nhỏ nhất trong 2 số đó.
Bài 7: Viết chương trình nhập 3 số từ bàn phím, tìm số

lớn nhất trong 3 số đó, in kết quả ra màn hình.
var a,b,c,max:integer;
begin
write(‘nhap a,b,c:’);readln(a,b,c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
writeln(‘so lon nhat la:’,max);
readln;
end.
Baøi 8: Viết chương trình nhập vào số N. Kiểm tra N
chẵn hay lẻ.
var N:Integer;
begin
write(‘nhap N):’);readln(N);
if N mod 2=0 then writeln(N, ‘la so chan) else writeln(N,’so le’);
readln;
end.
Bài 9 : Viết chương trình giải phương trình bậc nhất
ax+b=0 với a,b nhập từ bàn phím.
var a,b:real;
begin
write(‘nhap a,b (a<>0):’);readln(a,b);
if a<>0 then writeln(‘x=’,-b/a:9:2);
if a=0 and b=0 then writeln(‘PT nghiem dung voi moi x’);
if a=0 àn b<>0 then writeln(‘PT vo nghiem’);
readln;
end.
Bài 10: Viết chương trình giải phương trình bậc hai
ax2+bx+c=0 với a,b,c nhập từ bàn phím.

var a,b,c,delta:real;
begin
write(‘nhap a,b,c:’);readln(a,b,c);
delta:=b*b-4*a*c;
if delta <0 then writeln(‘phuong trinh vo nghiem’)
else
if delta:=0 then writeln(‘nghiem kep=’,-b/(2*a):8:2)
else
begin
writeln(‘phuong trinh co 2 nghiem’;
writeln(‘x1=’,(-b+sqrt(d))/(2*a):9:2);
writeln(‘x2=’,(-b-sqrt(d))/(2*a):9:2);
end;
readln;
end.
Bài 11: Viết chương trình nhập điểm của một học sinh
theo thang điểm 10 và tiến hành xếp loại văn hóa theo
điểm như sau:
program xep_loai_hoc_sinh;
uses crt;
var tbc:real;
begin
write('moi nhap diem trung binh: ');
readln(tb);
if (tbc>=8) then writeln('Xep loai Gioi';
else if (tbc>=6.5) and (tbc<8)
then writeln(‘xep loai Kha’;
else if (tbc<6.5) and (tbc>=5)

then writeln(‘xep loai Trung binh')
else writeln(‘Duoi trung binh’);
readln;
end.
Bài 12: Viết chương trình tính chu vi, diện tích của tam
giác (Bài tập 6) nhưng với yêu cầu sau khi nhập 3 số
a,b,c phải kiểm tra xem a,b,c có tạo thành tam giác
không? Nếu có thì tính chu vi, diện tích. Nếu không thì in
ra câu "khong tao thanh tam giac".
var a,b,c,s,cv,p:real;


begin
write(‘nhap a,b,c:’);readln(a,b,c);
if ((a+b)>c)and((b+c)>a)and((a+c)>b) then
begin
writeln(‘Ba so tao thanh 3 canh cua tam giac’);
cv:=a+b+c;
p:=cv/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(‘chu vi=’,cv:9:2);
writeln(‘dien tich=’,s:9:2);
end
else
writeln(‘3 so khong tao thanh tam giac’);
readln;
end.
Baøi 13: Viết chương trình nhập từ bàn phím hai số a,b và
một
ký

tự
ch
Nếu Ch là '+' thì in kết quả a+b
Nếu Ch là '-' thì in kết quả a-b
Nếu Ch là '*' thì in kết quả a*b
Nếu Ch là '/' thì in kết quả a/b
var a,b:integer;ch:char;
begin
write(‘nhap a,b:’);readln(a,b);
write(‘cho biet phep toan:’);readln(ch);
case ch of
‘+’:writeln(a+b);
‘-’:writeln(a-b);
‘*’:writeln(a*b);
‘/’:writeln(a/b);
end;
readln;
end.
ƠN TẬP HỌC KÌ



TRẢ LỜI:
Đề 1: Viết chương trình thực hiện nhập từ bàn phím 1 số nguyên dương N.
- In ra các số từ 1 đến N.
- Tính tổng S=1+2+3+….+N (vd 5)


Program Tong;
Uses crt;

Var N,S,i : Integer;
Begin
Clrscr;
Write('Nhap so nguyen N= '); Readln(N);
Write(‘Cac so tu 1 den ',N,’ la:’);
For i:=1 To n Do
Begin
Write(i,’ ‘);
S:=S+i;
End;
Writeln(‘Tong cac so tu 1 den ‘,n,’ la: ‘,S);
Readln;
End.

Đề 2: Viết chương trình thực hiện nhập từ bàn phím 1 số nguyên dương N.
- In ra các số chẵn từ 1 đến N.
- Có bao nhiêu số chẵn từ 1 đến N.


Đề 3:

Đề 4:

Đề 5:

Đề 6:


Đề 7:

Đề 8:


Đề 9:

Đề 10: