21 bt pascal cơ bản

<span class="text_page_counter">Trang 1</span><div class="page_container" data-page="1">

<i><b>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ó.</b></i>

Program hcn;Uses crt;

Var a,b,s,c:real;Begin

Writeln(‘Tinh chu vi va dien tich hcn’);Write(‘nhap chieu dai:’); Readln(a);Write(‘nhap chieu rong:’); Readln(b);S:=a*b;

Writeln(‘Dien tich hinh chu nhat la:’,S);Writeln(‘Chu vi hinh chu nhat la:’,C);Readln;

<i><b>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ó.</b></i>

Program hinh_tron;Uses crt;

Var R, S, P: real;Const pi=3.14;Begin

Writeln(‘Dien tich va chu vi hinh tron:’);Write(‘nhap ban kinh:’); Readln(R);S:=pi*R*R;

Writeln(‘dien tich cua hinh tron la:’,S);Writeln(‘chu vi cua hinh tron la:’,P);Readln;

<i><b> à i 3 : Tính tam giác: Nhậ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.</b></i>

Program Tam_giac;Uses crt;

Var a,b,c,s,p:real;Begin

Writeln(‘bai toan tam giac’);Write(‘nhap a=’); Readln(a);Write(‘nhap b=’); Readln(b);

</div><span class="text_page_counter">Trang 2</span><div class="page_container" data-page="2">

Var a,b,x:real;Begin

Writeln(‘giai phuong trinh bac nhat:ax+b=0’);Write(‘nhap a=’); Readln(a);

Write(‘nhap b=’); Readln(b);If (a=0)then

Var a,b:real;Begin

Writeln(‘giai bat Phuong trinh bac nhat’);Write(‘nhap a=’); Readln(a);

Write(‘nhapb=’); Readln(b);If a<>0 then

If a>0 then writeln(‘bat phuong trinh co nghiem:x>=’,-b/a);Else writeln(‘bat phuong trinh co nghiem:x<=’-b/a);

<i><b> à i 6: Viết chương trình nhập sử dụng 2 biến X và Y để lưu 2 số nhập từ bànphím,sau đó hốn đổi giá trị của 2 biến cho nhau(x, y có giá trị tăng dần)</b></i>

<i>Cách 1: </i>

</div><span class="text_page_counter">Trang 3</span><div class="page_container" data-page="3">

Program hoan_doi;uses crt;

var X,Y,Z: real;begin

write('Nhap so X = '); readln(Y);write('Nhap so Y = '); readln(Y);if X>Y then

begin Z:=X;X:=Y; Y:=Z;End;

writeln(X,’ ’,Y);readln

<i><b>Bài7</b></i>

<b>:</b>

<b>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.</b>

program Sap_xep;uses crt;

var A, B, C, X: integer;begin

write('Nhap so A: '); readln(A);write('Nhap so B: '); readln(B);write('Nhap so C: '); readln(C);if (A+B<C) or (B+C<A) or (A+C<B)

then writeln('Day khong la ba canh cua mot tam giac') else if (A*A=B*B+C*C) or (B*B=A*A+C*C) or (C*C=A*A+B*B) then writeln('Day la ba canh cua tam giac vuong') else if (A=B) and(B=C) and (A=C)

then writeln('Day la ba canh cua tam giac deu') else if (A=B) or (B=C) or (C=A)

then writeln('Day la ba canh cua tam giac can') else writeln('Day chi la ba canh cua tam giac thuong');readln;

<i><b>Bài8: </b></i> <b>Viết chưong trình nhập 1 số tự nhiên vào máy tính và ghi ra màn hình kết quả số đã nhập là 1 số chẳn hay lẽ.</b>

Program chan_le;Uses crt;

Var n:real;BeginClrscr;

Write(‘nhap so n=’); readln(n);

If (n mod 2)= 0 then write(‘n la so chan’)Else write(‘n la so le);

</div><span class="text_page_counter">Trang 4</span><div class="page_container" data-page="4">

<i><b>Bài 9: Tìm giá trị lớn nhất trong 4 số a,b,c,d(a,b,c,d được nhập từ bàn phím)</b></i>

Program Tim_so_lon_nhat;Uses crt;

Var a,b,c,d,max:real;Begin

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;

<i><b>Bài 10:Viết chương trình giải phương trình tuyến tính:</b></i>



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

Writeln(‘giai he hai an:’);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

Write(‘he co nghiem:’);

</div><span class="text_page_counter">Trang 5</span><div class="page_container" data-page="5">

Writeln(‘x=’,dx/dd,’va y=’,dy/dd);End;

<i><b>Bài 11: </b></i>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;

Var x0,y0,xa,ya,d,r:real; Begin

Writeln(‘kiem tra diem thuoc duong tron:’);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);

<i><b>Bài 12: </b></i>Viết chương trình tính x

<small>y </small>

(với x,y là số thực)

Proram XluyY;Uses crt;Var x,y,z:real;Begin

Writeln(tinh x luy thua y);Write(‘nhap x=’);readln(x);Write(‘nhap y=’);readln(y);If x>0 then

Writeln(‘tinh x luy thua n);Write(‘nhap x=’); readln(x);

</div><span class="text_page_counter">Trang 6</span><div class="page_container" data-page="6">

Write(‘nhap n=’); readln(n);Lt:=1;

For i:=1 to n do Lt:=lt*x;

<i><b>Bài 14:</b></i>Viết chương trình tính n!

Program tinh_n_luy_thua;Uses crt;

Var I,n,gt:integer;Begin

Writeln(‘tinh n giai thua:’);Writeln(‘nhap n=’);readln(n);Gt:=1;

For i:=1 to n do Gt:=gt*i;Writeln(n,’!=’,gt);Readln;

<i><b>Bài 15: </b></i> Viết chương trình nhập vào 1 số nguyên dương x. Hãy xác định số x có chia hết cho 3 hay khơng?

Program Chia_het_3;Uses crt;

Var x:integer;Begin

Write(‘nhap x=’); readln(x);If (x mod 3)= 0 then

Writeln(‘x chia het cho 3:’)Else writeln(‘x khong chia het cho 3:’);Readln;

<i><b>Bài 16: </b></i> Viết chương trình nhập chiều dài,chiều rộng hình chữ nhật,bán kính hình trịn. So sánh diện tích của hình chữ nhật và hình trịn .

Program so_sánh;Uses crt;

Var a,b,r,s1,s2:real;Const pi=3.14;Begin

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);

</div><span class="text_page_counter">Trang 7</span><div class="page_container" data-page="7">

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’);

<i><b>Bài 17:</b></i> Viế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

Write(‘nhap ĐTBHKI

=’); readln(ĐTBHKI);

Write(‘nhap ĐTBHKII=’); readln(ĐTBHKII);ĐTBCN:=(ĐTBHKI+ĐTBHKII*2)/3;

If ĐTBCN < 5 then writeln(‘xep loai=’Yeu’);

If 5=<ĐTBCN<6.5 then writeln(‘xep loai=’Tbinh’);If 6.5=<ĐTBCN<8 then wrtieln(‘xep loai=’Kha’)Else writeln(‘xep loai=’Gioi’);

<i><b>Bài 18:</b></i> Viết chương trình nhập vào bán kính r1 và r2 của 2 đường trịn và khoảng cách giữa 2 tâm đường trịn là d(với r1,r2,d>0). Xác định vị trí tương đối giữa 2 đường trịn(cắt nhau, tiếp xúc nhau hay khơng cắt nhau)

Program bai18;Uses crt;

Var r1,r2,d:real;Begin

Writeln(‘vi tri tuong doi giua 2 duong tron’);

Write(‘nhap ban kinh duong tron 1,r1=’); readln(r1);Write(‘nhap ban kinh duong tron 2,r2=’); readln(r2);

Write(‘nhap khoang cach giua 2 tam duong tron d=’); readln(d);If r1+r2=d then writeln(‘hai duong tron tiep xuc ngoai’);

If r1+r2>d then writeln(‘hai duong tron cat nhau’);

If r1+r2<d then writeln(‘hai duong tron khong cat nhau’);Readln;

<i><b>Bài 19:</b></i>

Viết chương trình nhập n số nguyên. Đếm các số vừa chia hết cho 2 vừa chia hết3. Xuất kết quả ra màn hình.

</div><span class="text_page_counter">Trang 8</span><div class="page_container" data-page="8">

Program bai19;Uses crt;

Var i,n,dem:integer;X;real;

Write(‘nhap so thu tu’,i);readln(x);If (x mod 2=0) and(x mod 3=0) thenDem:=dem+1;

while i<=n dobegin

writeln(‘tich cua 10 so tu nhien dau tien la=’,tich);readln;

{ Duøng For...do…..}

Program tich;

Uses crt;Var i,n:integer;Begin

For i:=1 to 10 dobegin

tich:=tich*i;i:=i+1;

</div><span class="text_page_counter">Trang 9</span><div class="page_container" data-page="9">

while i<=n dobegin

Uses crt;Var i,n:integer;Begin

For i:=1 to 100 dobegin

Writeln(‘tong cua 100 so tu nhien dau tien la=’,tong);Readln;

End.

</div>