Trần Hữu Quyền. 8/3. TQT
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 hcn;
Uses crt;
Var a,b,s,c:real;
Begin
Clrscr;
Writeln(‘Tinh chu vi va dien tich hcn’);
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);
Writeln(‘Chu vi hinh chu nhat la:’,C);
Readln;
End.
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 hinh_tron;
Uses crt;
Var R, S, P: real;
Const pi=3.14;
Begin
Clrscr;
Writeln(‘Dien tich va chu vi hinh tron:’);
Write(‘nhap ban kinh:’); Readln(R);
S:=pi*R*R;
P:=2*pi*R;
Writeln(‘dien tich cua hinh tron la:’,S);
Writeln(‘chu vi cua hinh tron la:’,P);

' 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 Tam_giac;
Uses crt;
Var a,b,c,s,p:real;
Begin
Clrscr;
Writeln(‘bai toan tam giac’);
Write(‘nhap a=’); Readln(a);
Write(‘nhap b=’); Readln(b);
Write(‘nhap c=’); Readln(c);
GV: Leâ Baù Khaùnh Toaøn Tin hoc 8
1
Trần Hữu Quyền. 8/3. TQT
If ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));

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
Writeln(‘phuong trinh vo nghiem’);
Else
Writeln(‘phuong trinh co nghiem x=’,-b/a);
Readln;
End.
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;

if X>Y then
begin
Z:=X;
X:=Y;
Y:=Z;
End;
writeln(X,’ ’,Y);
readln
end.
Cách 2:
Program hoan_doi;
uses crt;
var X,Y,Z: real;
begin
clrscr;
write('Nhap so X = '); readln(Y);
write('Nhap so Y = '); readln(Y);
if X<=Y then
begin
X:=X+Y;
Y:=X-Y;
X:=X-Y;
End;
writeln(X,’ ’,Y);
readln
end.
Bài7:Viết chương trình nhập 3 số thực a,b,c từ bàn phím vào máy tính,sau đó
kiểm tra 3 số đó có thể là 3 cạnh của tam giác đều,tam giác cân hoặc tam giác
vuông hay không và ghi kết quả ra màn hình.
program Sap_xep;

Else write(n la so le);
Readln;
End.
Bi 9: Tỡm giỏ tr ln nht trong 4 s a,b,c,d(a,b,c,d c nhp t bn phớm)
Program Tim_so_lon_nhat;
Uses crt;
Var a,b,c,d,max:real;
Begin
Clrscr;
Writeln(Tim so lon nhat trong 4 so a,b,c,d);
Write(nhap so a=);readln(a);
Write(nhap so b=);readln(b);
Wtite(nhap so c=);readln(c);
Write(nhap so d=);readln(d);
Max:=a;
If b>max then max:=b;
If c>max then max:=c;
If d>max then max:=d;
Writeln(so lon nhat la:,max:4:2);
Readln;
End.
Bi 10:Vieỏt chửụng trỡnh giaỷi phửụng trỡnh tuyeỏn tớnh:

ax

+

by

=


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
Write(‘he co nghiem:’);
Writeln(‘x=’,dx/dd,’va y=’,dy/dd);
End;
Readln;
End.
Bài 11:Nhập vào tâm và bán kính của 1 đường 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

KIEMTRADIEMTHUOCDUONGTRON;
Uses crt;

Begin
Z:=exp(y*ln(x));
Writeln(‘x^y=’,z);
End;
Else
Writeln(‘khong tinh duoc vi x la so am’);
Readln;
End.
Bài 13:Vieát chöông trình tính x
n
Program tinh_x_luy_thua_n;
Uses crt;
Var I,n,x:integer;
Lt:real;
Begin
Clrscr;
Writeln(‘tinh x luy thua n);
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;
End.
Bài 14: Vieát chöông trình tính n!
Program tinh_n_luy_thua;
Uses crt;
Var I,n,gt:integer;
Begin

Const pi=3.14;
Begin
Clrscr;
Writeln(‘so sánh dien tich hcn & hinh tron’);
Write(‘nhap chieu dai=’);readln(a);
Write(‘nhap chieu rong=’);readln(b);
Write(‘nhap ban kinh hinh tron=’); readln(r);
S1:=a*b;
S2:=r*r*3.14;
If s1>s2 then writeln(‘dien tich hinh chu nhat lon hon hinh
tron’)
Else writeln(‘dien tich hinh tron lon hon hinh chu nhat’);
Readln;
End.
Bài 17: Vieát chöông trình tính điểm trung bình của 1 học sinh ,dữ liệu nhập vào là
ĐTBHKI,ĐTBHKII. In ra màn hình ĐTBCN của học sinh đó với
ĐTBCN=(ĐTBHKI+ĐTBHKII*2)/3,và xếp loại học lực biết:
+ ĐTBCN <5 ,xếp loại: Yếu.
+ 5=< ĐTBCN<6.5,xếp loại: Tbình.
+ 6.5=<ĐTBCN<8,xếp loại: Khá.
+ ĐTBCN>=8,xếp loại: Giỏi.
Program xep_loai;
Uses crt;
Var ĐTBHKI,ĐTBHKII,ĐTBCN:real;
Begin
Clrscr;
Write(‘nhap ĐTBHKI
=’); readln(ĐTBHKI);
Write(‘nhap ĐTBHKII=’); readln(ĐTBHKII);
ĐTBCN:=(ĐTBHKI+ĐTBHKII*2)/3;

Var i,n,dem:integer;
X;real;
Begin
Clrscr;
Write(‘nhap so luong so’); readln(n);
Dem:=0;
For i:=1 to n do
Begin
Write(‘nhap so thu tu’,i);readln(x);
If (x mod 2=0) and(x mod 3=0) then
Dem:=dem+1;
End;
Writeln(‘so luong cac so chia het cho 2 va 3 la:’dem);
Readln;
End.
Bài 20: Viết chương trình tính tích của 10 số tự nhiên đầu tiên.
{ Dùng while......do…..}
Program tich;
Uses crt;
Const n=10;
GV: Lê Bá Khánh Toàn Tin hoc 8
8