Bài 1: Nhập vào 2 canh của mỏt hình chữ nhật.. In ra mân hinh diện tích và chu vì của nó.. Bài ?: Nhập vào bán kính của hình tròn.. Ín ra man hinh dién tich va chu vi cia no.. Kiém tra x
Trang 2Bài 1: Nhập vào 2 canh của mỏt hình chữ nhật In ra mân hinh diện tích và chu vì của nó Program HINH CHỦ NHAÀAT;
Uses Crt,
Var a.b,s,c: real,
Begin
Clrscr;
Wnteln(‘ TINH DIEN TICH & CHU VI HINH CHỦ NHÀ TT),
Wnite(‘Nhap chieu dat=); readln(a);
Wnte(Nhap chieu rong=') 1eadln(b);
s =a*b;,
c.=(a+b)*2,
Writeln(CDlen tích hình chu nhat la:' s 6:2);
Writeln(C hu v1 hình chu nhat:,c 6-2);
Readin;
End
Bài ?: Nhập vào bán kính của hình tròn Ín ra man hinh dién tich va chu vi cia no
Program HINHTRON,
Uses Crt,
Var r,dt,cv -real,
Begin
Clrscr,
Wnteln(TINH DIEN TICH & CHỦ VI HINH TRON');
Wrnite (Nhap ban kinh R=”) xeadln(r),
ct:=pI*1*r,
cv:=2*pi*r;
Wnhiteln( ‘Dien tich hinh tron la-‘\dt:6:2),
Writeln(C hu v1 hình tron la:' cv:6:2);
Readin,
End
Bài 3 - Tỉnh tam giác: Nuập vào ba số a,b,c bat ki Kiém tra xem nó có thể là độ dài ba
canh hay khong, néu khong thi in m man hinh ‘ Fhong la ba canh cua mot tam giac’ Ngược lại, thì in điện tích, chu v1 của tam giác ra màn hình
Program TÀMGIAC;
Uses crt,
Var a,b,c,sp real,
Begin
Clrscr,
Wniteln( ‘BAI TOAN TAM GIAC:’);
Write(nhap a =');readln(a),
Wnte (nhapb =) readln(b);,
Write(nhap c =');readln(c);,
Tf ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
p=(atb+c)/2 ;
s:=sqrt(p“(p-a)*(p-b)*(p-c));
Writeln(ˆC hu vì tam giac:’,2*p:4:2) ; Wniteln(D1en tích tam giac ˆ,s4:2);
End
Else
Trang 1
Trang 3Writeln(a,', “, b,', “, c, “ khong phai la ba canh cua tam giac’) ; Readln;
End
Bài 4: Viết chương trình giải phương trình bậc 1 (ax +b = D)
Var a.b,x:real,
Begin
Clrscr,
Wnhiteln(‘GIAI PRUONG TRINH BAC NHAT: AX + B=0');
Wnite (Nhap a= `); readln(a),
Write CNhap b= ');readIn(b);
Ifa=0) then
Ifb=0) then Writeln(° Phuong trmh co vo so nghiem) Else
writeln( Phuong trmg vo ng hie1m) Else
Writeln(Phuong trmh co nghiem x= ,-b/a:4:2), 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_BACTI;
Uses crt,
Var a,b: real,
Begin
Clrscr,
Wniteln(‘GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0');
Wnite( nhap a=`),readln(a),
Write(‘nhap b=") readln(b);
Ifa<>0 then
Ifa>0 then Wniteln(‘Bat phuong trinh co nghiem: x>=",-b/a:4:2) Else Writeln(‘Bat phuong tnnh co nghiem: x<=",-b/a:4:2)
Else
Ifb>=0 then Wniteln(‘Bat phuong trnh co vo so nghiem’) Else writeln(Bat phuong trmh vo ng hiem),
Readln;
End
Bài 6: Việt chương trình giải phương trình bậc 2 (ax” +bx + c =0)
Program GIAI PHUONG_TRINH_BACII,
Uses crt;
Var a.b,c,d.x,x1,x2-real,
Begin
Wnhiteln(‘GIAI PHUONG TRINH BAC II");
Write(Nhap he so a=);1eadln(a);
Wnite(‘Nhap he so b=") readln(b);
Wnite(Nhap he so c=);readln(c);
Trang
Trang 4If a=O0 then
If b=0 then
Ifc=0 then WritelnCPhuong trình co vo so nghiem’)
Else
Wnriteln(‘Phuong tnnh vo nghiem’)
Else
Write In(‘Phuong trinh co mot nghiem: x=",-c/b:4:2) Else
Begin
d:=b*b-4*a*c,
If d=0 then
Write In(‘Phuong trinh co nghiem kep: x=",-b/(2*a):4:2) Else
If d<O then Wnriteln(‘Phuong tnnh vo nghiem’)
Else
Begin
x1:= (-b+sqrt(d))/(2*a);
x2:= (-b-sqrt(d))2*a);
Wnhite(‘Phuong trinh co hai nghiem: ‘);
Writeln(“ x1=' x1 42 'va x2='x2:42), End,
End;
Readln;
End
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
Clrscr,
Wnhuiteln( TIM SO LON NHAT TRONG BON SO A,B,C, D’):
Wnite('Nhap a="); ReadIn(a);
Wnite(‘Nhap b="), Readln(b);
Wnhite('Nhap c="); Readln(c);
Wnite(‘Nhap d="), Readln(d);
max =a,
If b>max then max:=b;
If d>max then max:=d,
Writeln(So lon nhat Ìa:' max:4:2);
Readln;
End
Bài 8: Tìm giá trị nhỏ nhất trong 4 so a, b, c, d(a,b, c, direc 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
Trang 5Wate ing” = 3,
Write(‘Nhap vac so giay }1eadÌn(x),
gio’ = x div 3600,
Writeln(Ket qua =", g.'g -', phut, ‘phat : *, x, ‘giay’),
Readin,
End
Ba I} Nhép vào tắm và bán kính của mổt đường tròn Sau đó nhấp vào mốt dim A(x,
v2 bắt ki và kiến tra xema nó có thuốc đường tron hay khong?
Prograrma KIEM TRA DIEht THUOC_DUONG_TRON,
Uses crt,
Var x0, W.xa, ye,d.z real,
Begin
Writeln(KIEM TRA DIEM THUOC DUONG TRON 3,
Write lil - ~~ ++ ene nnn nnn nnn nn cnr nee net errr ee 3
Write(Nhap ban kinh R= *) xeadlz<x)
Write(‘Nhap toa do tam duong tron = 2), readln(x0, v0),
Write(‘Nhap toa do dem a = *), readin(xa, ye),
đ “SQRT(SOR(xa-x0)+SOR(wa-0)),
1f red then
Writein(‘Diem A nam tren deong ton’) Else
if d>r then Wiiteln(‘Doem A nam ngoai duong tron’) Else Writeln(‘Diem A nam trong duong trom), Readhn
End
Bà 12: Tính x' ( Vou x, yla 26 there)
Program X_LUYTHUA_Y
Uses crt,
Vaz x, y= real,
Begin
Writeln( ‘TINH X LUY THUA Y:")
Write(Nhap x “ 2, readin(x),
Wrde( nhap y= *), readin(y),
If x>=0 then
Begin
z“e©xp(y*lxx))
Wrdteln(x ^y“=“z4 2), End
Else
'Wrtdetn( hong tình deoc do x la so em),
Readin,
End
Sa j? Tinh a!
Progrem TNH_N_GIAI THUA
Uses crt,
Var ingt integer,
Trang
Trang 6Ba _ 16: Tinh ting S = 2x
Program TÍNH_ TONG2,
Uses Crt,
Var in integer,
x.s.1treal,
Begin
Clrscr,
Wrweln( TINH TONG LUY THỦA 2
Write(Nhap x = *), readin(x),
Write(nhap n =), readin{n)
= =O,
lr=i,
For 1 =1 to ndo
Begin
it=h*x
s:=stlt ,
Ex;
Writeln('Tong S = s 3:2),
Readin,
End
Bis 17: Tinh tingS = >"
a
Program TĨNH TONG3,
Uses Crt,
Vaz ngt integer,
x.s.1 real,
Begin
Chrecr,
Wrwein("TINH TONG LUY THUA/GIAI THƯA,
Write(Nhap x = °), readin(x)
Wr#e( nhap n “ 2, readln(n) ,
s=2,
gt:=1
It-=1,
For i:=1 to ndo
Begin
hei*x ,
gt-=gt*i,
s~stitigt
Exd
Writeln(‘Tong S = "2 8:2),
Readin,
End
Bà l# Tứ tất cả các chẽ số có be chữ số abc seo cho tổng các lắp phương của các chữ
sở thi bảng chính số đó ( abc = a’ +b’ +’)
Program TIM_SO,
Uses crt,
Trang
Trang 7Repeat
t= tel,
Until (i mod t= 0) or ( t*t>i)
IG ¢t*t>2) then Wri+te(:4), End
End,
Readin,
End
Bà +¡- Nhắp 3 ba: tiến và số tiến cán đổi Hãy tim tất cả các tổ hợp có được của 3 loại tiên trên cho sở tin va nhập
Program DOI TIEN;
Uses C:t,
Var x.vzn1Jjh+elongrmt,
Begin
Clrscr,
Writeln( CHUONG TRINH DOI TIEN’),
Write(Nhap so tien can doi n= )xeadln(n),
Wirite(Nhap bai then thu 1: ) zeadin(x)
Write(Nhap lai ten thu 2: )zeadin(y)
Wnrite(Nhap lai ten tha 3: ) readla(z)
Writeln(‘Loai’.x 6," Loei’y6, Loai.z6),
For 1:=0 to (n div x) do
For }:=0 to (ndiv vì do
For h-= 0 to (n drv z) do
If (2*x4j* yth* zn) then Writein (23): 12.b:10), Readin
End
Ba ¬3
Tram trau tram co
Trảu đứng án nắm
Trầu nắm ăn ba Trâu gia ba con motbo Hỏi có bao nhšều con mỗi bei?
Program TRAMTRAU_TRAMCO,
Uses crt,
Var td.tn.tg integer,
Begin
Cirscr,
Writely” TRAM TRAU TRAMCO:),
Wirrte Inf ’- - 2222222 -ee enn eee neon 7 4
Writeln( Treudung Traunam Trau gi’),
For td =0 to 20 do
For tn “0 to 33 do
For tg =0 to 100 do If((S**i+3°ta+tg/3=100)azel (tả+tn+t+g=100)) then Writela(td 6, tr 12, tg 15),
Readin,
Trang 9
Trang 8Béi 23: Tao bang sd dang sau:
2 13 14 l5 lốế 17 1§ 19
Program BANG SO,
Uses crt,
Var 1)j,n mteger,
Begin
Clrscr,
Writeln( TẠO BANG SO TU 0-999,
WnielÌn( -——=—=== -');
For 1:=0 to 99 do
Begin
If (2 mod 10 = 0) then Writeln;
Write(13) End;
Readln;
End
Bai 24: Tao hinh
Program TAO HINH_A;
Uses Crt,
Var 1), integer,
Begin
Cliscr,
Wrteln' “TẠO HINH A-),
Winieln( — ——-————-—-—-—;
Wnte(Nhap so dong n=”);readln(n);
For1= 1 to ndo
Begin
For j:=1 to ido
White(* '), Wnteln;
End;
Readln;
End
Program TẠO HINH B,
Uses Crt;
Var 1),n,m: mteger;
c)
~
*+u*x*
eeu es
Trang 10