100 Bài Tập Turbo Pascal Danh Cho Học Sinh Lớp 8

Program Chu_nhat;

uses crt;

Var a, b, S, CV: real;

Begin

     Write(‘Nhap chieu dai:’); readln(a);

     Write(‘Nhap chieu rong:’); readln(b);

     S := a*b;

     CV := (a+b)*2;

     Writeln(‘Dien tich hinh chu nhat la:’,S);

     Writeln(‘Chu vi hinh chu nhat la:’,CV:10:2);

     readln

end.

Program HINH_VUONG;

uses crt;

Var canh: real;

Begin

     clrscr;

     Write(‘Nhap do dai canh:’);readln(canh);

     Writeln(‘Chu vi hinh vuong la:’,4*canh:10:2);

     Writeln(‘Dien tich hinh vuong la:’,canh*canh:10:2);

     readln

end.

Program HINH_TRON;

uses crt;

Var r: real;

Begin

     clrscr;

     Write(‘Nhap ban kinh:’); readln(r);

     Writeln(‘Chu vi duong tron la:’,2*pi*r:10:2);

     Writeln(‘Dien tich hinh tron la:’,pi*r*r:10:2);

     readln

end.

Program TAM_GIAC;

uses crt;

Var a,b,c,p,S: real;

Begin

     clrscr;

     Write(‘Nhap canh a:’);readln(a);

     Write(‘Nhap canh b:’);readln(b);

     Write(‘Nhap canh c:’);readln(c);

     p:=(a+b+c)/2;

     S:= sqrt(p*(p-a)*(p-b)*(p-c));

     Write(‘Dien tich tam giac la:’,s:10:2);

     readln

end.

Program TB_Cong_4_So;

uses crt;

Var a, b, c, d: real;

Begin

     Clrscr;

     Write(‘Nhap so thu nhat:’);readln(a);

     Write(‘Nhap so thu hai:’);readln(b);

     Write(‘Nhap so thu ba:’);readln(c);

     Write(‘Nhap so thu tu:’);readln(d);

     Writeln(‘Trung binh cong: ‘,(a+b+c+d)/4):10:2;

     Readln

end.

Program TB_Cong_4_So;

uses crt;

Var s,a: real;

Begin

     Clrscr;

     S:=0;

     Write(‘Nhap so thu nhat:’);readln(a); S:=S+a;

     Write(‘Nhap so thu hai:’);readln(a); S:= S+a;

     Write(‘Nhap so thu ba:’);readln(a); S:=S+a;

     Write(‘Nhap so thu tu:’);readln(a); S:=S+a;

     Writeln(‘Trung binh cong: ‘,S/4:10:2);

     readln

end.

Program TB_nhan;

uses crt;

Var a, S: real;

Begin

    clrscr;

    S:=1;

    Write(‘Nhap so thu nhat: ‘); readln(a); S:=S*a;

    Write(‘Nhap so thu hai: ‘); readln(a); S:=S*a;

    Write(‘Nhap so thu ba: ‘); readln(a); S:=S*a;

    Write(‘Nhap so thu tu: ‘); readln(a); S:=S*a;

    Write(‘Trung binh nhan cua bon so la:’,sqrt(sqrt(s)));

    readln

End.

Program Doi_Gia_Tri;

uses crt;

var a, b, tam:real;

Begin

    clrscr;

    write(‘nhap a: ‘); readln(a);

    write(‘nhap b: ‘); readln(b);

    writeln(‘Truoc khi doi a =’,a,’ va b= ‘,b);

    readln;

    tam:=a;

    a:=b;

    b:=tam;

    writeln(‘Sau khi doi a =’,a,’ va b= ‘,b);

    readln

end.

Program Doi_Gia_Tri;

uses crt;

var a, b:real;

Begin

    clrscr;

    write(‘nhap a: ‘); readln(a);

    write(‘nhap b: ‘); readln(b);

    writeln(‘Truoc khi doi a =’,a,’ va b= ‘,b);

    readln;

    a:=a+b;

    b:=a-b;

    a:=a-b;

    writeln(‘Sau khi doi a =’,a,’ va b= ‘,b);

    readln

end.

Program CHU_SO;

uses crt;

var n:integer;

begin

     clrscr;

     write(‘Nhap so n: ‘);readln(n);

     writeln(‘Chu so hang don vi: ‘,n mod 10);

     n:=n div 10;

     writeln(‘Chu so hang chuc: ‘,n mod 10);

     n:=n div 10;

     writeln(‘Chu so hang tram: ‘,n mod 10);

     readln

end.

Program CHU_SO;

uses crt;

var n:integer;

begin

     clrscr;

     write(‘Nhap so n: ‘);readln(n);

     writeln(‘Chu so hang trm: ‘,n div 100);

     n:=n mov 100;

     writeln(‘Chu so hang chuc: ‘,n div 10);

     n:=n div 10;

     writeln(‘Chu so hang tram: ‘,n);

     readln

end.

Program SO_SANH1;

uses crt;

var a,b: real;

begin

     clrscr;

     write(‘nhap so thu nhat: ‘); readln(a);

     write(‘nhap so thu hai: ‘); readln(b);

     if a> b then writeln(‘ So lon la:’,a);

     if a<= b then writeln(‘ So lon la:’,b:10:2);

     readln

end.

Program SO_SANH2;

uses crt;

var a,b: real;

begin

     clrscr;

     write(‘nhap so thu nhat: ‘); readln(a);

     write(‘nhap so thu hai: ‘); readln(b);

     if a> b then writeln(‘ So lon la:’,a:10:2)

     else writeln(‘ So lon la:’,b:10:2);

     readln

end.

Program So_Lon_Nhat_1;

Uses crt;

Var a,b,c,d: real;

Begin

     Clrscr;

     Write(‘Nhap so thu nhat:’);readln(a);

     Write(‘Nhap so thu hai:’);readln(b);

     Write(‘Nhap so thu ba:’);readln(c);

     Write(‘Nhap so thu tu:’);readln(d);

     if (a>=b) and (a>=c) and (a>= d) then writeln(‘So lon nhat la:’,a:10:2);

     if (b>=a) and (b>=c) and (b>= d) then writeln(‘So lon nhat la:’,b:10:2);

     if (c>=a) and (c>=b) and (c>= d) then writeln(‘So lon nhat la:’,c:10:2);

     if (d>=a) and (d>=b) and (d>= c) then writeln(‘So lon nhat la:’,d:10:2);

     readln

end.

Program So_Lon_Nhat_2;

Uses crt;

Var a,max: real;

Begin

     Clrscr;

     Write(‘Nhap so thu nhat:’);readln(a);Max:=a;

     Write(‘Nhap so thu hai:’);readln(a);if a>=Max then Max:=a;

     Write(‘Nhap so thu ba:’);readln(a);if a>=Max then Max:=a;

     Write(‘Nhap so thu tu:’);readln(a);if a>=Max then Max:=a;

     Write(‘So lon nhat la:’,Max:10:2);

     readln

end.

Program Tam_giac_deu;

uses crt;

var a,b,c: real;

begin

     clrscr;

     write(‘Nhap a = ‘); readln(a);

     write(‘Nhap b = ‘); readln(b);

     write(‘Nhap c = ‘); readln(c);

     if (a = b) and (b = c) then writeln(‘La tam giac deu’)

     else

     writeln(‘Khong phai la tam giac deu’);

     readln

end.

Program Tam_giac_can;

uses crt;

var a,b,c: real;

begin

     clrscr;

     write(‘Nhap a = ‘); readln(a);

     write(‘Nhap b = ‘); readln(b);

     write(‘Nhap c = ‘); readln(c);

     if (a = b) or (b = c) or (a = c) then writeln(‘La tam giac can’)

     else

     writeln(‘Khong phai la tam giac can’);

     readln

end.

Program Tam_giac_can;

uses crt;

var a,b,c: real;

begin

     clrscr;

     write(‘Nhap a = ‘); readln(a);

     write(‘Nhap b = ‘); readln(b);

     write(‘Nhap c = ‘); readln(c);

     if (a*a = b*b+c*c) or (b*b = c*c+a*a) or (c*c= a*a+b*b) then writeln(‘La tam giac vuong’)

     else

     writeln(‘Khong phai la tam giac vuong’);

     readln

end.

Program Phuong_trinh_2;

uses crt;

var a,b:real;

begin

     clrscr;

     Writeln(‘          CHUONG TRINH GIAI PT ax + b = 0’);

     Write(‘Nhap he so a = ‘);readln(a);

     Write(‘Nhap he so b = ‘);readln(b);

     if (a<>0) then writeln(‘phuong trinh’,a:10:2,’x + ‘,b:10:2,’= 0′,’ co nghiem x =;’,-b/a:10:2);

     if (a=0) and (b=0) then writeln(‘Phuong trinh co vo so nghiem’);

     if (a=0) and (b<>0) then writeln(‘Phuong trinh vo nghiem’);

     readln

end.

Program Phuong_trinh_2;

uses crt;

var a,b:real;

begin

     clrscr;

     Writeln(‘         CHUONG TRINH GIAI PT ax + b = 0’);

     Write(‘Nhap he so a = ‘);readln(a);

     Write(‘Nhap he so b = ‘);readln(b);

     if (a<>0) then writeln(‘phuong trinh’,a:10:2,’x + ‘,b:10:2,’= 0′,’ co nghiem x =;’,-b/a:10:2)

     else

     if (b=0) then writeln(‘Phuong trinh co vo so nghiem’)

     else

     writeln(‘Phuong trinh vo nghiem’);

     readln

end.

Program Phuong_trinh_Bac_hai;

uses crt;

var a,b,c,delta,x1,x2:real;

begin

    clrscr;

    write(‘Nhap a = ‘); readln(a);

    write(‘Nhap b = ‘); readln(b);

    write(‘Nhap c = ‘); readln(c);

    delta:=b*b-4*a*c;

    if delta > 0 then

    begin

        x1:= -b+sqrt(delta)/(2*a);

        x2:= -b-sqrt(delta)/(2*a);

        writeln(‘Phuong trinh co hai nghiem phan biet’);

        writeln(‘x1=’,x1:10:2);

        writeln(‘x2=’,x2:10:2);

    end;

    if delta = 0 then

    begin

        x1:= -b/(2*a);

        writeln(‘Phuong trinh co nghiem kep’);

        writeln(‘x1=x2=’,x1:10:2);

    end;

    if delta <0 then write(‘Phuong trinh vo nghiem’);

    readln

end.

2

3

4

5

6

7

8

Monday

Tuesday

Wednesday

Thursday

Friday

Saturday

Sunday

Program dich;

uses crt;

Var thu:byte;

begin

     clrscr;

     write(‘nhap thu can dich 2à8: ‘); readln(thu);

     case thu of

     2: Write(‘–> Monday’);

     3: Write(‘–> Tuesday’);

     4: Write(‘–> Wednesday’);

     5: Write(‘–> Thursday’);

     6: Write(‘–> Friday’);

     7: Write(‘–> Saturday’);

     8: Write(‘–> Sunday’);

     else

     Write(‘ Khong co thu nay’);

     end;

     readln

end.

Program Dien_Tich_cac_hinh;

uses crt;

var chon: byte;

    a,b,c,S: real;

Begin

     clrscr;

     writeln(‘CHUONG TRINH TINH DIEN TICH CAC HINH’);

     Writeln(‘          ————‘);

     writeln(‘1.   DIEN TICH HINH TAM GIAC’);

     writeln(‘2.   DIEN TICH HINH VUONG’);

     writeln(‘3.   DIEN TICH HINH CHU NHAT’);

     writeln(‘4.   DIEN TICH HINH THANG’);

     writeln(‘5.   DIEN TICH HINH TRON’);

     write(‘Moi ban chon hinh can tinh dien tich: ‘);readln(chon);

     (case upcase chon) of

     1 : Begin

          Write(‘Cho biet canh day: ‘); readln(a);

          Write(‘Cho biet chieu cao: ‘); readln(b);

          S:=(a*b)/2;

          end;

     2:Begin

         Write(‘Cho biet chieu dai canh: ‘); readln(a);

         S:=a*a;

         end;

     3:Begin

         Write(‘Cho biet chieu dai: ‘); readln(a);

         Write(‘Cho biet chieu rong: ‘); readln(b);

         S:=a*b;

         end;

     4:Begin

              Write(‘Cho biet day lon: ‘); readln(a);

              Write(‘Cho biet day nho: ‘); readln(b);

              Write(‘Cho biet chieu cao: ‘); readln(c);

              S:=(a+b)*c/2;

        End;

     5:Begin

              Write(‘Cho biet ban kinh: ‘); readln(a);

              S:=a*a*pi;

         End;

     else

        Writeln(‘Chon sai roi!!!’);

     end;

     Writeln(‘Dien tich cua hinh la: ‘,S:8:2);

     readln

end.

Program In_So_Le;

Uses crt;

var i,n: integer;

Begin

     Clrscr;

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

     For i:=1 to n do if i mod 2 =1 then Write(i:3,’,’);

     readln

end.

Program In_So_Le;

Uses crt;

var Dem,i,n: integer;

Begin

     Clrscr;

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

     Dem:= 0;

     For i:=1 to n do if i mod 2 =1 then

     Begin Write(i:3,’,’);

     Dem:= Dem + 1;

     if Dem mod 15 = 0 then Writeln;

     end;

     readln

end.

Program In_So_Le;

Uses crt;

var S,i,n: integer;

Begin

     Clrscr;

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

     For i:=1 to n do if i mod 2 =1 then S:= S+i;

     Writeln(‘Tong cac so le nho hon ‘,n,’ la: ‘,S);

     readln

end.

Program Tim_uoc;

uses crt;

Var n, i: integer;

Begin

    clrscr;

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

    For i:=1 to n do if n mod i = 0 then write(i:3,’,’);

    readln

end.

Program So_Hoan_Chinh;

uses crt;

var n, i, s: integer;

begin

     write(‘nhap so n: ‘);readln(n);

     s:=0;

     for i:= 1 to n -1 do if n mod i = 0 then s:=s+i;

     if s = n then write(n, ‘ la so hoan chinh’)

     else writeln(n, ‘ khong phai la so hoan chinh’);

     readln

end.

Program Tim_uoc_2;

uses crt;

Var S, n, i,j: longint;

Begin

    clrscr;

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

    For i:=1 to n do

    Begin

      S:=0;

      For j:=1 to i do if i mod j = 0 then S:=S+j;

      if S = 2*i then write(i:6,’,’);

    end;

    readln

end.

Program Cuu_Chuong_1;

uses crt;

var  n, i : integer;

begin

    clrscr;

    write(‘Nhap n: ‘); readln(n);

    for i:= 1 to 9 do writeln(n,’ x ‘, i, ‘ = ‘, n*i);

    readln

end.

Program Cuu_Chuong_1;

uses crt;

var  i,j : integer;

begin

    clrscr;

    for i:= 2 to 9 do

    Begin

    Writeln(‘Bang cuu chuong ‘,i);

    For j := 1 to 9 do writeln(i,’ x ‘, j, ‘ = ‘, j*i);

    readln

    end;

    readln

end.

Program Nguyen_to_1;

uses crt;

var n, i: integer;

    ok: boolean;

begin

   ok:=true;

   write(‘Nhap n: ‘);readln(n);

   for i:= 2 to n – 1 do if n mod i = 0 then ok :=ok and false;

   if ok then write(n,’ la so nguyen to’)

   else write(n, ‘ khong la so nguyen to’);

   readln

end.

Program Nguyen_to_1;

uses crt;

var n, i, j: integer;

    ok: boolean;

begin

   clrscr;

   write(‘Nhap n: ‘); readln(n);

   for i := 2 to n do

   begin

   ok:=true;

   for j:= 2 to i – 1 do if i mod j = 0 then ok :=ok and false;

   if ok then write(i,’;’)

   end;

   readln

end.

Program In_So_Le;

uses crt;

var i,n:integer;

begin

      clrscr;

      write(‘Nhap so n: ‘);readln(n);

      i:=1;

      while i<=n do

      begin

           write(i:3,’, ‘);

           i:=i+2;

      end;

      readln

end.

Program Giai_Thua_while;

uses crt;

var n, gt:longint;

begin

     clrscr;

     write(‘Nhap n: ‘);readln(n);

     gt:=1;

     while n>0 do

     begin

     gt:=gt*n;

     n:=n-1;

     end;

     writeln(‘Giai thua cua n la: ‘,gt);

     readln

end.

Program  Giai_thua_kep;

uses crt;

var n,gt:longint;

begin

    write(‘Nhap n: ‘);readln(n);

    gt:=1;

    while n>0 do

    begin

    gt:=gt*n;

    n:=n-2;

    end;

    write(‘Giai thua la: ‘,gt);

    readln

end.

Program Tong_Repeat;

uses crt;

var i: byte;

    so, tong: real;

begin

     write(‘NHAP CAC SO – NHAP 0 DE NGUNG ‘);

     readln;

     repeat

     clrscr;

     write(‘Nhap so thu ‘,i,’: ‘);

     readln(so);

     tong:=tong+so;

     i:=i+1;

     until so=0;

     write(‘Tong la: ‘,tong:6:1);

     readln

end.

Program UCLN;

uses crt;

var a,b,r:byte;

begin

     clrscr;

     writeln(‘CHUONG TRINH TIM UCLN CUA HAI SO’);

     write(‘Nhap a: ‘);readln(a);

     write(‘Nhap b: ‘);readln(b);

     r:=a mod b;

     while r<> 0 do

     begin

         b:=r;

         a:=b;

         r:=a mod b;

     end;

     write(‘UCLN cua hai so la: ‘,b);

     readln

end.

Program mang_1;

uses crt;

var n, i: integer;

    M: array[1..100] of real;

Begin

    write(‘Nhap so n: ‘);readln(n);

    for i:=1 to n do

    Begin

        write(‘M[‘,i,’]=’); readln(M[i]);

    end;

    for i:= n downto 1 do write(m[i],’ ,’);

    readln

end.

Program Mang_Tong_Le;

uses crt;

var i,n:byte;

    M:array[1..100] of integer;

    tong:longint;

begin

    write(‘Nhap so phan tu cua day: ‘);readln(n);

    for i:=1 to n do

    begin

         write(‘M[‘,i,’]’); readln(M[i]);

    end;

    tong:=0;

    for i:=1 to n do if M[i] mod 2 =1 then    

    tong:=tong+M[i];

    write(‘Tong cac so le trong day la: ‘,tong);

    readln

end.

Program Xoa_mang;

uses crt;

var m:array[1..100] of integer;

    n,i,k:byte;

begin

     Write(‘So phan tu cua day: ‘);readln(n);

     for i:=1 to n do

     Begin

          write(‘M[‘,i,’]=’);

          readln(M[i]);

     end;

     write(‘Nhap phan tu can xoa: ‘);readln(k);

     for i:=k to n-1 do m[i]:=m[i+1];

     for i:=1 to n-1 do write(m[i],’, ‘);

     readln

end.

Program Mang_chen;

uses crt;

var M: array[1..100] of integer;

    i,n,k:integer;

begin

     clrscr;

     write(‘Nhap : ‘);readln(n);

     for i:=1 to n do

     begin

         write(‘M[‘,i,’]=’); readln(M[i]);

     end;

     write(‘Vi tri chen: ‘);readln(k);

     for i:=n+1 downto k+1 do M[i]:=M[i-1];

     write(‘Nhap so can chen: ‘); readln(M[k]);

     for i:=1 to n+1 do write(M[i],’, ‘);

     readln

end.

Program TIM_NHO_NHAT;

uses crt;

var n,i,nhonhat:integer;

    m: array[1..100] of real;

    min:real;

begin

     write(‘Nhap n: ‘); readln(n);

     for i:=1 to n do

     begin

          write(‘M[‘,i,’]=’);

          readln(m[i]);

     end;

     min:=m[1];

     nhonhat:=1;

     for i:=2 to n do if m[i]  < min then

     begin

          min:=m[i];

          nhonhat:=i;

     end;

     writeln(‘phan tu nho nhat la phan tu thu’,nhonhat);

     readln

end.

Program Sap_xep_1;

uses crt;

var n,i,k,nhonhat:integer;

    m: array[1..100] of integer;

    min,tam:integer;

begin

{— Nhap mang co n phan tu——}

     write(‘Nhap n: ‘); readln(n);

     for i:=1 to n do

     begin

          write(‘M[‘,i,’]=’);

          readln(m[i]);

     end;

{—Tim so be nhat ——–}

     for k:=1 to n do

     begin

     min:=m[k];

     nhonhat:=k;

     for i:=k+1 to n do if m[i]  < min then

     begin

          min:=m[i];

          nhonhat:=i;

     end;

{—-Doi cho m[k] voi m[j] vi m[j] nho nhat ———–}

     tam:=m[k];

     m[k]:=m[nhonhat]

     m[nhonhat]:=tam;

     end;

{—-In mang sau khi sap xep –}

     for i:=1 to n do write(m[i],’, ‘);

     readln

end.

Program Fibonacy_mang;

uses crt;

var i,n: integer;

    m:array[1..100] of longint;

begin

     write(‘Nhap so phan tu can in:’); readln(n);

     m[1]:=1;

     m[2]:=1;

     for i:=3 to n do m[i]:=m[i-1]+m[i-2];

     for i:=1 to n do write(m[i],’ ,’);

     readln

end.

Program Tam_giac_Pascal;

uses crt;

var n,i,j:integer;

    m,tam: array[1..100] of integer;

begin

     write(‘Nhap bac cua tam giac: ‘);readln(n);

     m[1]:=1;

     m[2]:=1;

     for i:=1 to n do

     begin

     {Phan tu dau bang 1}

     tam[1]:=1;

     for j:=2 to i-1 do tam[j]:=m[j-1]+m[j];

     {Phan tu cuoi bang 1}

     tam[i]:=1;

     {Chuyen cac phan tu tu mang tam sang mang m}

     for j:=1 to i do m[j]:=tam[j];

     {in ra hang thu i}

     for j:=1 to i do write(m[j]:3); writeln;

     end;

     readln

end.

Program Giai_PT_bac_hai;

uses crt;

var a,b,c,delta:real;

{———————-}

Procedure delta_duong;

begin

write(‘Phuong trinh co hai nghiem x1=’,(-b+sqrt(delta))/(2*a),’x2=’,(-b+sqrt(delta))/(2*a));

end;

{———————}

Procedure delta_khong;

begin

write(‘Phuong trinh co nghiem kep x=’,-b/(2*a):3:1);

end;

{——————–}

Procedure delta_am;

begin

writeln(‘Phuong trinh vo nghiem’);

end;

{Chuong trinh chinh}

Begin

clrscr;

write(‘Nhap a: ‘);readln(a);

write(‘Nhap b: ‘);readln(b);

write(‘Nhap c: ‘);readln(c);

delta:=b*b-4*a*c;

if delta>0 then delta_duong

else if delta = 0 then delta_khong

else delta_am;

readln

end.

Program CTC_1;

uses crt;

var a,b: real;

{—-CTC doi gia tri—-}

Procedure swap(var x,y:real);

var tam:real;

begin

tam:=x;

x:=y;

y:=tam;

end;

{—–Ket thuc CTC—–}

begin

clrscr;

write(‘Nhap so a: ‘);readln(a);

write(‘Nhap so b: ‘);readln(b);

swap(a,b);

write(‘Sau khi doi a =’,a:3:1);

write(‘Sau khi doi b =’,b:3:1);

readln

end.

Program CTC_2;

uses crt;

var n:integer;x:longint;

Procedure Giai_Thua(var GT:longint; n:byte);

begin

    GT:=1;

    while n>0 do

    begin

    GT:=GT*n;

    n:=n-1;

    end;

end;

begin

   repeat

   clrscr;

   write(‘Nhap so n: ‘);readln(n);

   if n < 0 then begin write(‘Nhap so n >=0’);readln; end;

   until n>=0;

   Giai_Thua(x,n);

   writeln(‘Giai thua cua ‘,n,’la:’,x);

   readln

end.

Program Giai_thua_Ham;

uses crt;

var n: longint;

Function Giai_Thua(n:longint):longint;

Var GT:Longint;

begin

     GT:=1;

     while n > 0 do

     begin

     GT:=GT * n;

     n:=n-1;

     end;

     Giai_thua:=GT;

end;

begin

    clrscr;

    write(‘Nhap n: ‘); readln(n);

    write(n,’!=’,Giai_thua(n));

    readln

end.

Program Rut_gon_phan_so;

uses crt;

var tu,mau:integer;

Function UCLN(a,b:integer):integer;

var r: integer;

begin

     r:= a mod b;

     while r <> 0 do

     begin

         a:= b;

         b:= r;

         r:=a mod b;

     end;

     UCLN:=b;

end;

begin

   clrscr;

   write(‘Nhap tu: ‘); readln(tu);

   write(‘Nhap mau: ‘); readln(mau);

   write(‘Ket qua rut gon: ‘,tu,’/’,mau,’=’,tu div UCLN(tu,mau),’/’,mau div UCLN(tu,mau));

   readln

end.

Program Tron_day;

uses crt;

type kieu_mang =  array[1..100] of integer;

var A, B, C: Kieu_mang;

    n,i,j: integer;

Procedure Nhap_Mang(Var X: Kieu_mang; n:byte);

var i:integer;

begin

    for i:=1 to n do

    begin

        write(‘M[‘,i,’]=’);readln(X[i]);

    end;

end;

Procedure In_Mang(X:kieu_mang; n:byte);

var i: byte;

begin

     for i:=1 to n do write(x[i],’, ‘);

end;

{———–}

begin

   clrscr;

   write(‘Nhap so phan tu cua day: ‘);read(n);

   Nhap_mang(A,n);

   Nhap_mang(B,n);

   i:=1;

   j:=1;

   while i<= n do

   begin

        C[j]:=  A[i];

        C[j+1]:=B[i];

        j:=j+2;

        i:=i+1;

   end;

   in_mang(C,2*n);

   readln

end.

Program In_so_nguyen_to;

uses crt;

var  n, i: integer;

{——Ham kiem tra——-}

Function kiem_tra(n:integer):boolean;

var i: integer;

begin

    kiem_tra:=true;

    for i:=2 to n-1 do if (n mod i) = 0 then kiem_tra:=false;

end;

{——CTC—————-}

begin

    clrscr;

    write(‘Nhap n: ‘); readln(n);

    for i:=2 to n do if kiem_tra(i) then write(i:3, ‘, ‘);

    readln;

end.

Program Sap_xep_day;

uses crt;

type kieu_mang =array[1..100] of integer;

Var A: kieu_mang;

    n,i,j:byte;

{———————}

Procedure Nhap_mang(var M:Kieu_Mang;n:byte);

Var i:byte;

begin

    for i:=1 to n do

    begin

        write(‘M[‘,i,’]=’);readln(M[i]);

    end;

end;

{———————}

Procedure In_mang(var M:Kieu_Mang;n:byte);

Var i:byte;

begin

    for i:=1 to n do write(M[i]:3,’, ‘)

end;

{———————}

Procedure swap(var a,b:integer);

var tam:integer;

begin

    tam:=b;

    b:=a;

    a:=tam;

end;

{———————}

Begin

    Clrscr;

    write(‘Cho biet so phan tu cua day: ‘);readln(n);

    nhap_mang(A,n);

    for i:=1 to n-1 do

       for j:= i to n do if A[i]>A[j] then swap(A[i],A[j]);

    In_mang(A,n);

    readln

end.

Program Giai_thua_de_qui;

uses crt;

var n: longint;

function Giai_thua(n:longint):longint;

begin

    if n=0 then giai_thua:=1

    else Giai_thua:=n*Giai_thua(n-1);

end;

begin

    clrscr;

    write(‘Nhap n: ‘); readln(n);

    write(n,’!=’,Giai_thua(n));

    readln

end.

Program UCLN_de_qui;

uses crt;

var a,b: integer;

Function UCLN(a,b:integer):integer;

begin

   if a mod b = 0 then UCLN:=b

   else UCLN:=UCLN(b,(a mod b));

end;

begin

     clrscr;

     write(‘Nhap a: ‘);readln(a);

     write(‘Nhap b: ‘);readln(b);

     write(‘UCLN(‘,a,’,’,b,’)=’,UCLN(a,b));

     readln

end.

Program xau_doi_xung;

var st:string;

    doi_xung: boolean;

    i,n:byte;

begin

     write(‘Nhap xau can kiem tra: ‘); readln(st);

     doi_xung:= true;

     n:=length(st);

     for i:=1 to n div 2 do

     if st[i]<> st[n-i+1] then doi_xung:=false;

     if doi_xung then write(‘Xau doi xung’) else write(‘Khong doi xung’);

     readln

end.

Program Doi_chu;

uses crt;

var st: string;

    i:byte;

begin

    clrscr;

    write(‘Nhap xau can doi:’); readln(st);

    for i:= 1 to length(st) do if (st[i]=’ ‘) then st[i+1]:=upcase(st[i+1]);

    st[1]:=upcase(st[1]);

    write(st);

    readln

end.

Program Xoa_trang;

uses crt;

var st: string;

     n:byte;

begin

     clrscr;

     write(‘Nhap xau can chuan hoa: ‘); readln(st);

     n:= Pos(‘  ‘,st);

     while n<>0 do

     begin

     delete(st,n,1);

     n:=Pos(‘  ‘,st);

     end;

     write(st);

     readln

end.

Program Tach_Ten;

uses crt;

var st,ten: string;

     vitri,dai,i: byte;

begin

    clrscr;

    write(‘Nhap xau: ‘); readln(st);

    for i:=1 to length(st) do if st[i]=’ ‘ then vitri:=i+1;

    writeln(vitri);

    dai:=length(st) – vitri + 1;

    ten:=Copy(st,vitri,dai);

    write(ten);

    readln

end.

Program Mooc_xo;

uses crt;

var st,mooc :string;

    i: byte;

begin

    write(‘Nhap cau bach van: ‘); readln(st);

    for i:=1 to length(st) do

    case st[i] of

    ‘a’: mooc:=mooc + ‘  ‘+’._’;

    ‘b’: mooc:=mooc + ‘  ‘+’_.’;

    end;

    write(mooc);

    readln

end.

Program Ma_hoa;

uses crt;

var st: string;

    i: byte;

begin

   clrscr;

   write(‘Nhap xau can ma hoa: ‘);readln(st);

   for i:= 1 to length(st) do st[i]:=succ(st[i]);

   write(‘Sau ma hoa: ‘,st);

   readln;

   for i:= 1 to length(st) do st[i]:=pred(st[i]);

   write(‘Sau giai ma: ‘,st);

   readln;

end.

Program Doi_Ra_Nhi_Phan;

uses crt;

var st,st1: string;

    so: longint;i:byte;

begin

    clrscr;

    write(‘Nhap so can doi: ‘); readln(so);

    st:=”;

    while so > 0 do

    begin

    str(so mod 2,st1);

    st:=st+st1;

    so:=so div 2;

    end;

    for i:=length(st) downto 1 do write(st[i]);

    readln

end.

Program Ra_chu;

uses crt;

var st:string;

    M: array[‘A’..’Z’] of byte;

    ch:Char;

    i:byte;

begin

    clrscr;

    writeln(‘CHUONG TRINH RA CHU DE CAT KHAU HIEU’);

    write(‘Nhap cau: ‘);readln(st);

    for i:=1 to length(st) do st[i]:=upcase(st[i]);

    for ch:=’A’ to ‘Z’ do M[ch]:=0;

    for i:=1 to length(st) do

    begin

       ch:=st[i];

       M[ch]:= M[ch]+1;

    end;

    for ch:=’A’ to ‘Z’ do if M[ch]>0 then write(ch,’:’,M[ch],’   ‘);

    readln

end.

Program Cong_so_lon;

uses crt;

var so1, so2, tong, st1: string;

    nho, i, chuso1, chuso2, chusoc: byte;

    m:integer;

Procedure Doi_chieu(var so:string);

var i:byte;

    tam: string;

begin

    tam:=”;

    for i:=length(so) downto 1 do tam:=tam+so[i];

    so:=tam;

end;

begin

    write(‘Nhap so thu nhat: ‘);readln(so1);

    write(‘Nhap so thu hai: ‘);readln(so2);

    doi_chieu(so1);

    doi_chieu(so2);

    {-Lam cho hai so co do dai giong nhau}

    if length(so1)>length(so2) then

    for i:=1 to length(so1)-length(so2) do so2:=so2 +’0′

    else

    for i:=1 to length(so2)-length(so1) do so1:=so1 +’0′;

    {–Bat dau cong———–}

    nho:=0;

    for i:=1 to length(so1) do

    begin

        val(so1[i],chuso1,m);

        val(so2[i],chuso2,m);   {Doi thanh so de cong}

        chusoc:= (chuso1+chuso2+nho) mod 10;

        nho:= (chuso1+chuso2+nho) div 10;

        str(chusoc,st1);  {Doi thanh ky tu de dua vao tong}

        tong:=tong+st1

    end;

    {Cong them nho cuoi cung}

    if nho>0 then

    begin

         str(nho,st1);

         tong:=tong+st1

    end;

    {—————}

    doi_chieu(tong);

    write(tong);

    readln

end.

Program Doc_so;

var n:longint;

Function Dich_1so(n:byte):string;

begin

    case n of

    1: Dich_1so:=’mot’;

    2: Dich_1so:=’hai’;

    3: Dich_1so:=’ba’;

    4: Dich_1so:=’bon’;

    5: Dich_1so:=’nam’;

    6: Dich_1so:=’sau’;

    7: Dich_1so:=’bay’;

    8: Dich_1so:=’tam’;

    9: Dich_1so:=’chin’;

    0: Dich_1so:=’khong’;

    end;

end;

Function Dich_3so(n:integer):string;

var Ket_qua: string;

begin

    Ket_qua:=Dich_1so(n div 100) + ‘ tram ‘;

    n:= (n mod 100);

    Ket_qua:=Ket_qua + Dich_1so(n div 10) +’ muoi ‘;

    n:=n mod 10;

    Ket_qua:=Ket_qua + Dich_1so(n);

    Dich_3so:=Ket_qua;

end;

Function Dich_9so(n:longint):string;

var ket_qua: string;

begin

     ket_qua:=”;

     if n div 1000000000 > 0 then  ket_qua:=dich_3so(n div 1000000000) +’ ty, ‘;

     n:=n mod 1000000000;

     if n div 1000000 > 0 then ket_qua:=ket_qua + dich_3so(n div 1000000)+’ trieu, ‘;

     n:=n mod 1000000;

     if n div 1000 > 0 then ket_qua:=ket_qua + dich_3so(n div 1000)+’ ngan, ‘;

     n:=n mod 1000;

     ket_qua:=ket_qua + dich_3so(n);

     Dich_9so:=ket_qua;

end;

{———————-}

begin

     write(‘Nhap so n: ‘); readln(n);

     write(Dich_9so(n));

     readln

end.

Program Phan_So_1;

uses crt;

var x: record

       Tu: Integer;

       Mau: Integer;

       end;

Begin

    clrscr;

    Write(‘Nhap tu so: ‘);readln(x.Tu);

    Write(‘Nhap mau so: ‘); readln(x.Mau);

    with x do

    begin

    Write(‘Phan so vua nhap la:’,Tu,’/’,Mau);

    end;

    readln

end.

Program Phan_So_2;

uses crt;

Type Phan_so = record

                     Tu: Integer;

                     Mau: Integer;

                end;

var x: Phan_so;

Procedure Nhap_Phan_so(Var a:Phan_so);

begin

     with a do

            begin

                 Write(‘Nhap tu so: ‘);readln(Tu);

                 Write(‘Nhap mau so: ‘); readln(Mau);

            end;

end;

{——————-}

Procedure In_Phan_so(a:Phan_so);

Begin

    with x do

    Write(‘Phan so vua nhap la:’,Tu,’/’,Mau);

end;

{——————-}

begin

     clrscr;

     Nhap_Phan_so(x);

     In_Phan_so(x);

     Readln

end.

Program Phan_So_2;

uses crt;

Type Phan_so = record

                     Tu: Integer;

                     Mau: Integer;

                end;

var x: Phan_so;

Procedure Nhap_Phan_so(Var a:Phan_so);

var st,st1:string;

    n,m:integer;

begin

     write(‘Nhap phan so a/b: ‘);readln(st);

     n:= Pos(st,’/’);

     with a do

            begin

                 st1:= copy(st,1,n-1);

                 val(st1,tu,m);

                 st1:= copy(st,n+1,length(st)-n);

                 val(st1,Mau,n);

            end;

end;

{——————-}

Procedure In_Phan_so(a:Phan_so);

Begin

    with x do

    Write(‘Phan so vua nhap la:’,Tu,’/’,Mau);

end;

{——————-}

begin

     clrscr;

     Nhap_Phan_so(x);

     In_Phan_so(x);

     Readln

end.

Program Phan_So_2;

uses crt;

Type Phan_so = record

                     Tu: Integer;

                     Mau: Integer;

                end;

var x: Phan_so;

{———————-}

Function UCLN(a,b:integer):integer;

begin

   if a mod b = 0 then UCLN:=b

   else UCLN:=UCLN(b,(a mod b));

end;

{———————-}

Procedure Nhap_Phan_so(Var a:Phan_so);

var st,st1:string;

    n,m:integer;

begin

     repeat

     write(‘Nhap phan so : ‘);readln(st);

     n:= Pos(‘/’,st);

     until n>0;

     with a do

            begin

                 st1:= copy(st,1,n-1);

                 val(st1,tu,m);

                 st1:= copy(st,n+1,length(st)-n);

                 val(st1,Mau,n);

            end;

end;

{——————-}

Procedure In_Phan_so(a:Phan_so);

Begin

    if a.Tu=a.Mau then write(1)

    else

    with a do

    Write(Tu,’/’,Mau);

end;

{——————-}

Procedure Rut_Gon_Phan_so(var a:Phan_so);

var tam: integer;

begin

     tam:=UCLN(a.Tu,a.Mau);

     with a do

          begin

              Tu:=Tu div tam;

              mau:=Mau div tam;

          end;

end;

{——————–}

begin

     clrscr;

     Nhap_Phan_so(x);

     Rut_gon_phan_so(x);

     write(‘Phan so sau khi rut gon: ‘);

     In_Phan_so(x);

     Readln

Program Phan_So_2;

uses crt;

Type Phan_so = record

                     Tu: Integer;

                     Mau: Integer;

                end;

var x,y,z: Phan_so;

{———————-}

Function UCLN(a,b:integer):integer;

begin

   if a mod b = 0 then UCLN:=b

   else UCLN:=UCLN(b,(a mod b));

end;

{———————-}

Procedure Nhap_Phan_so(Var a:Phan_so);

var st,st1:string;

    n,m:integer;

begin

     repeat

     write(‘Nhap phan so : ‘);readln(st);

     n:= Pos(‘/’,st);

     until n>0;

     with a do

            begin

                 st1:= copy(st,1,n-1);

                 val(st1,tu,m);

                 st1:= copy(st,n+1,length(st)-n);

                 val(st1,Mau,n);

            end;

end;

{——————-}

Procedure In_Phan_so(a:Phan_so);

Begin

    if a.Tu=a.Mau then write(1)

    else

    with a do

    Write(Tu,’/’,Mau);

end;

{——————-}

Procedure Rut_Gon_Phan_so(var a:Phan_so);

var tam: integer;

begin

     tam:=UCLN(a.Tu,a.Mau);

     with a do

          begin

              Tu:=Tu div tam;

              mau:=Mau div tam;

          end;

end;

{——————–}

Procedure Cong_Phan_so(a,b:Phan_so; Var c:Phan_so);

begin

    with c do

         begin

             Tu:=a.Tu*b.Mau + a.Mau*b.Tu;

             Mau:= a.Mau * b.Mau

         end;

    Rut_gon_phan_so(c);

end;

{——————–}

begin

     clrscr;

     Nhap_Phan_so(x);

     Nhap_Phan_so(y);

     Cong_phan_so(x,y,z);

     In_Phan_so(z);

     Readln

end.

Program Nhan_su;

uses crt;

type Hoso = record

                 Holot: string[20];

                 Ten: string[10];

                 Gioitinh:boolean;

                 Ngaysinh: string[10];

                 SDD: longint;

                 Donvi: string[15];

             end;

var danhsach: array[1..100] of Hoso;

    nhap:Char;

    gt: string;

    i:byte;

Begin

    nhap:=’Y’;

    i:=0;

    while nhap=’Y’ do

    begin

        clrscr;

        window(10,10,60,40);

        writeln(‘—— NHAP HO SO NHAN SU——-‘);

        writeln;

        i:=i+1;

        writeln(‘Nhap ho so nguoi thu ‘,i,’:’);

        write(‘Ho lot:’);readln(danhsach[i].Holot);

        write(‘Ten:’);readln(danhsach[i].Ten);

        write(‘Gioi tinh (Nam/Nu):’);readln(gt);

        if gt = ‘Nu’ then danhsach[i].Gioitinh:= true;

        write(‘Ngay sinh:’);readln(danhsach[i].Ngaysinh);

        write(‘So dien thoai:’);readln(danhsach[i].SDD);

        write(‘Don vi:’);readln(danhsach[i].Donvi);

        write(‘Nhap tiep Y/N’);readln(nhap);

        nhap:=upcase(nhap);

    end;

end.

Program Nhan_su;

uses crt;

type Hoso = record

                 Holot: string[20];

                 Ten: string[10];

                 Gioitinh:boolean;

                 Ngaysinh: string[10];

                 SDD: longint;

                 Donvi: string[15];

             end;

Type danhsach = array[1..100] of Hoso;

Var ds: danhsach;

     i:integer;

Procedure Nhap_ho_so(Var ds:danhsach);

var nhap:Char;

    i:byte;

    gt: string;

begin

    nhap:=’Y’;

    i:=0;

    while nhap=’Y’ do

    begin

        clrscr;

        writeln(‘—— NHAP HO SO NHAN SU——-‘);

        writeln;

        i:=i+1;

        writeln(‘Nhap ho so nguoi thu ‘,i,’:’);

        write(‘Ho lot:’);readln(ds[i].Holot);

        write(‘Ten:’);readln(ds[i].Ten);

        write(‘Gioi tinh (Nam/Nu):’);readln(gt);

        if gt = ‘Nu’ then ds[i].gioitinh:= true;

        write(‘Ngay sinh:’);readln(ds[i].ngaysinh);

        write(‘So dien thoai:’);readln(ds[i].SDD);

        write(‘Don vi:’);readln(ds[i].Donvi);

        write(‘Nhap tiep Y/N: ‘);readln(nhap);

        nhap:=upcase(nhap);

    end;

end;

Procedure In_ho_so(HVien:Hoso);

begin

    with Hvien do

    writeln(‘|’,Holot:20,Ten:10,’|’,Ngaysinh:10,’|’,SDD:10,’|’,Donvi:20,’|’);

end;

begin

    nhap_ho_so(ds);

    writeln(‘DANH SACH HOC VIEN NU’);

    writeln;

    i:=1;

    while ds[i].holot<>” do

    begin

        if ds[i].gioitinh then in_ho_so(ds[i]);

        i:=i+1;

    end;

    readln

end.

Program File_So_le;

uses crt;

var sole: file of integer;

    i,n,so:integer;

begin

    write(‘Nhap n: ‘);readln(n);

    { Thu tuc chuan bi ghi xuong dia}

    assign(sole,’sole.dat’);

    rewrite(Sole);

    {Thuc hien ghi cac so le xuong file sole = sole.dat }

    for i:= 1 to n do if i mod 2 = 1 then write(sole,i);

    close(sole);

    writeln(‘Da ghi xuong file sole.dat’);

    readln;

    {Thu tuc chuan bi doc duw lieu tu file tren dia}

    assign(sole,’sole.dat’);

    reset(sole);

    {Thuc hien do va in ra man hinh}

    while not eof(sole) do

    begin

         read(sole,so);

         write(so,’,  ‘);

    end;

    close(sole);

    readln

end.

Program File_Nguyen_to;

uses crt;

var nguyento: file of integer;

    i,n,so:integer;

{——————–}

Function nguyen_to(a:integer):boolean;

var i: integer;

begin

    nguyen_to:=true;

    for i:=2 to a-1 do if a mod i = 0 then nguyen_to:=false;

end;

{——————–}

begin

    write(‘Nhap n: ‘);readln(n);

    assign(nguyento,’nguyento.dat’);

    rewrite(nguyento);

    for i:= 2 to n do if nguyen_to(i) then write(nguyento,i);

    close(nguyento);

    writeln(‘Da ghi xuong file nguyento.dat’);

    readln;

    assign(nguyento,’nguyento.dat’);

    reset(nguyento);

    while not eof(nguyento) do

    begin

         read(nguyento,so);

         write(so,’,  ‘);

    end;

    readln

end.