Bài tập thực hành Pascal và hướng dẫn giải
B à i 1 :
Nhập vào 2
cạnh
của
mộ
t hình chữ
nhật. In
ra
màn
hình diện
tích
và
chu vi của
nó.
Program
HINH_CHU_NHAT;
Uses
Crt;
Var a,b,s,c:
real;
Begin
End.
Clrscr;
Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’);
Writeln(‘--------------------------------------------------------------‘);
Write('Nhap
chieu
dai=');
readln(a);
Write('Nhap
chieu
rong=');readln(b);
s:=a*b;
c:=(a+b)*2;
Writeln('Dien
tich hinh chu nhat la:’,s:6:2);
Writeln('Chu
vi hinh
chu nhat:',c:6:2);
Readln;
B à i 2 :
Nhập vào bán
kính
của hình tròn. In
ra màn hình diện tích và chu vi của nó.
Program
HINHTRON;
Uses Crt;
Var
r,dt,cv:real;
Begin
Clrscr;
Writeln('TINH DIEN TICH &
CHU VI HINH TRON:');
Writeln('------------------------------------------------------');
Write ('Nhap
ban kinh
R=');readln(r);
dt:=pi*r*r;
cv:=2*pi*r;
Writeln('Dien
tich
hinh
tron
la:',dt:6:2);
Writeln('Chu
vi hinh
tron
la:',cv:6:2);
Readln;
End.
B à i 3 :
Tính tam
giác: Nụâ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.
Program
TAMGIAC;
Uses crt;
Var a,b,c,s,p : real;
Begin
Clrscr;
Writeln(‘BAI TOAN TAM
GIAC:’);
Writeln('---------------------------------');
Write('nhap a
=');readln(a);
Write
('nhap b
=');readln(b);
Write('nhap c
=');readln(c);
If
((a+b)>c)and((b+c)>a)and((a+c)>b)
then
Begin
Else
End
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('Chu
vi
tam giac:',2*p:4:2)
;
Writeln('Dien
tich
tam
giac:',s:4:2);
Trang
1
End.
Writeln(a,’, ‘,
b,’, ‘,
c,
‘
khong phai la
ba canh cua
tam
giac') ;
Readln;
B à i 4 : Viết chương
trình giải
p
hươ
ng
trình
bậc 1 (ax
+
b = 0)
Program
GIAI_PHUONG_TRINH_BAC_NHAT;
Var
a,b,x:real;
Begin
Clrscr;
Writeln('GIAI PHUONG TRINH BAC NHAT: AX +
B=0');
Writeln('------------------------------------------------------------');
Write ('Nhap
a= ');
readln(a);
Write
('Nhap
b= ');readln(b);
If(a=0)
then
If(b=0) then
Writeln('
Phuong trinh
co
vo so nghiem')
Else
Else
writeln('
Phuong
tring
vo
nghiem')
End.
Writeln('Phuong trinh
co nghiem
x=',-b/a:4:2);
Readln;
B à i 5 : Viết chương
trình giải bất
phương
trình bậc 1 (ax
+
b
[
0)
Program
BAT_PHUONG_TRINH_BACI;
Uses crt;
Var a,b: real;
Begin
Clrscr;
Writeln('GIAI BAT
PHUONG
TRINH BAC
NHAT: AX + B>=0');
Writeln('----------------------------------------------------------------------');
Write('nhap a=');readln(a);
Write('nhap
b=');readln(b);
If a<>0
then
If a>0
then
Writeln('Bat
phuong
trinh
co nghiem:
x>=',-b/a:4:2)
Else Writeln('Bat phuong
trinh co
nghiem:
x<=',-b/a:4:2)
Else
If b>=0 then Writeln('Bat phuong trinh
co
vo
so nghiem')
Else
writeln('Bat
phuong trinh
vo
nghiem');
End..
Readln;
B à
i
6:
Viết chương
trình giải phương
trình
bậc 2 (ax
2
+ bx +
c =0)
.Program
GIAI_PHUONG_TRINH_BACII;
Uses crt;
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);
Trang
2
If
a=0
then
If
b=0 then
If
c=0
then
Writeln('Phuong trinh co vo
so
nghiem')
Else
Else
Writeln('Phuong trinh
vo
nghiem')
Else
Begin
Writeln('Phuong trinh
co mot nghiem:
x=',-c/b:4:2)
d:=b*b-4*a*c;
If
d=0 then
Writeln('Phuong trinh
co nghiem
kep:
x=',-b/(2*a):4:2)
Else
If
d<0 then
Writeln('Phuong trinh
vo
nghiem')
End.
End;
Readln;
Else
Begin
End;
x1:= (-b+sqrt(d))/(2*a);
x2:= (-b-sqrt(d))/(2*a);
Write('Phuong trinh
co
hai nghiem:
‘);
Writeln(‘
x1=',x1:4:2,'
va
x2=',x2:4:2);
B à i 7 : 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).
Program
TIM_SO_LON_NHAT;
Uses crt;
Var
a,b,c,d,max:real;
Begin
End.
Clrscr;
Writeln('TIM SO LON 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);
max:=a;
If
b>max then max:=b;
If
d>max then max:=d;
Writeln('So
lon
nhat la:',max:4:2);
Readln;
Bài 8 : Tìm giá trị
nhỏ
nhất trong 4
số a, b,
c, d (a, b, c,
được nhập từ bàn
phím).
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');
Trang
3
End.
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;
B à i 9 :
Giải hệ phương
trình
tuyến
tính:
ax
by
m
cx
dy
n
Program
GIAI_HE_HAI_AN;
Uses crt;
Var
a,b,c,d,m,n:real;
dx,dy,dd:real;
Begin
Clrscr;
Writeln(' GIAI
HE HAI AN:');
Writeln('----------------------------------');
Write('Nhap
a=');readln(a);
Write('Nhap
b=');readln(b);
Write('Nhap
c=');readln(c);
Write('Nhap
m=');readln(m);
Write('Nhap
n=');readln(n);
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);
End.
Readln;
Bài
10 :
Nhập vào
thời gian 1 công
việc
nào
đ
ó
là x giây. Hãy chuyển
đổ
i và viết ra màn
hình
số thời gian
trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, bao nhiêu
giây.
Program
DOI_GIO_PHUT_GIAY;
Uses crt;
Var
gio, phut,giay,
x:
longint;
Begin
Clrscr;
Writeln('DOI
SANG
GIO
PHUT GIAY');
Trang
4
End.
Writeln('--------------------------------------');
Write('Nhap
vao
so giay:
');readln(x);
gio:= x div
3600;
x:=x
mod 3600;
phut:=x div
60;
x:=x
mod 60;
Writeln('Ket qua = ',
gio,'gio
: ', phut, 'phut : ', x,
'giay');
Readln;
B à i
1 1 :
Nhập
vào
tâm
và bán
kính
của một
đườn
g
tròn. Sau
đó
nhập vào
một
điể
m
A(x,
y)
bất kì và
kiểm
tra xem nó
có thuộc
đườ
ng
tròn
hay
không?
Program
KIEM_TRA_DIEM_THUOC_DUONG_TRON;
Uses crt;
Var
x0,y0,xa,ya,d,r:real;
Begin
Writeln('KIEM TRA
DIEM THUOC DUONG
TRON:');
Writeln('--------------------------------------------------------');
Write('Nhap ban
kinh R= ');readln(r);
Write('Nhap
toa do tam duong
tron =
'); readln(x0,
y0);
Write('Nhap
toa do
diem a
= '); readln(xa, ya);
d:=SQRT(SQR(xa-x0)+SQR(ya-y0));
If
r=d
then
Writeln('Diem
A nam
tren
duong tron')
Else
If
d>r then
Writeln('Diem
A
nam
ngoai
duong
tron')
Else
Writeln('Diem
A nam
trong duong tron');
End.
Readln;
B à i 1 2 : Tính
x
y
(
Với x,
y
là số thực).
Program
X_LUYTHUA_Y;
Uses crt;
Var
x,y,z:real;
Begin
Writeln(‘TINH X LUY THUA
Y:’);
Writeln('----------------------------------');
Write('Nhap
x = '); readln(x);
Write('nhap
y
= '); readln(y);
If
x>=0
then
Begin
Else
End
z:=exp(y*ln(x));
Writeln('x ^
y
=
',z:4:2);
End.
Writeln('Khong tinh duoc do x
la so
am');
Readln;
B à i 1 3 : Tính n!
Program
TINH_N_GIAI_THUA;
Uses crt;
Var
i,n,gt:integer;
Trang
5
Begin
End.
Clrscr;
Writeln('
TINH N
GIAI THUA:');
Writeln('----------------------------------');
Write('Nhap n ='); readln(n);
gt:=1;
For i:=1
to
n
do
gt:=gt*i;
Writeln(n,
'!=
',gt);
Readln;
B à i 1 4 :
Tính x
n
(Với
n là số
nguyên không
âm).
Program
TINH_X_LUY_THUA_N;
Uses crt;
Var
i,n,x:integer;
lt:real;
Begin
End.
Writeln('
TINH X LUY THUA
Y:');
Writeln('----------------------------------');
Write('Nhap
x =');
readln(x);
Write('Nhap n ='); readln(n);
lt:=1;
For i:=1
to
n
do
lt:=lt*x;
Writeln(x,
'^',n,'
=
',lt:4:2);
Readln;
n
B à i 1 5 :
Tính tổng S
=
1
i=0 i!
Program
TINH_TONG1;
Uses crt;
Var i,n,gt: integer;
s:real;
Begin
Clrscr;
Writeln('CHUONG TRINH TINH
TONG:');
Writeln('----------------------------------------');
Write('Nhap
n=');
Readln(n);
gt:=1;
s:=1;
For i:=1
to
n
do
Begin
End;
gt:=gt*i;
s:=s+1/gt;
End.
Writeln('Tong
S =
',s:8:2);
Readln;
có thể bạn quan tâm
Hướng dẫn giải bài tập Vật lý 11 Thực hành: Tìm hiểu những cơ hội và t...
2
699
312
Giải bài tập các môn
2
(New)
HƯỚNG DẪN GIẢI BT THỰC HÀNH KINH TẾ LƯỢNG
9
1.001
234
Đề thi, bài tập
9
(New)
Hướng dẫn Giải bài tập sách bài tập Toán 6: Thực hành đo góc trên mặt...
2
519
263
Giải bài tập các môn
2
(New)
Hướng dẫn giải bài tập hóa học lớp 9 Thực hành: Tính chất hóa học của...
2
706
296
Giải bài tập các môn
2
(New)
Hướng dẫn giải bài tập Hóa học 9 - Thực hành: Tính chất hóa học của ba...
2
808
305
Giải bài tập các môn
2
(New)
Hướng dẫn giải bài tập sách giáo khoa Toán lớp 3: Thực hành nhận biết...
2
742
286
Giải bài tập các môn
2
(New)
Luận văn thạc sĩ: 1. Đánh giá thực trạng kiến thức, thái độ, thực hành...
74
911
417
Thạc sĩ cao học
74
(New)
Hướng dẫn giải bài tập Sách giáo khoa Toán lớp 4: Hình bình hành - Diệ...
4
1.303
308
Giải bài tập các môn
4
(New)
thông tin tài liệu
Tài liệu cung cấp 61 bài tập pascal giúp người học hiểu sâu hơn về lĩnh vực này
Mở rộng để xem thêm
tài liệu mới trong mục này
tài liệu hot trong mục này
tài liệu giúp tôi
Nếu bạn không tìm thấy tài liệu mình cần có thể gửi yêu cầu ở đây để chúng tôi tìm giúp bạn!
×
