1. Giải PT bậc 1 (ax+b=0)
PROGRAM NCK;
 VAR A,B:REAL;BEGIN
 WRITELN('NHAP A, B: ');READLN(A,B);
 IF (A=0) AND (B<=0) THEN WRITELN('VO NGHIEM');
 IF (A=0) AND (B>0) THEN WRITELN('X THUO^.C R');
 IF A<0 THEN WRITELN('NGHIEM: X<',-B/A:0:2);
 IF A>0 THEN WRITELN('NGHIEM: X>',-B/A:0:2);READLN;END.

2.a.Hãy tìm ra dãy hoán vị của dãy duoc nhap tu ban phim

code:

type Array_Type = array [1..100] of integer;
var day_thuan_the, day_hoan_vi: Array_Type;
 tam, i, j, n: integer;

begin
 write('Nhap vao do dai cua day [1..100]: ');
 readln(n);

 write('Nhap vao day thuan the: ');
 for i:=1 to n do
 begin
   read(day_thuan_the[i]);

   day_hoan_vi[i] := i;
 end;

 if (day_thuan_the[1] <> 0) then
   write('Day thuan the khong hop le.')
 else
 begin
   for i := 1 to n do
   begin
     if day_thuan_the[i] < (i - 1) then
     begin
       tam := day_hoan_vi[i];

       for j := i downto (day_thuan_the[i] + 1) do
         day_hoan_vi[j] := day_hoan_vi[j - 1];

       day_hoan_vi[day_thuan_the[i] + 1] := tam;
     end;
   end;

   writeln;
   write('Day so hoan vi la: ');
   for i := 1 to n do
     for j := 1 to n do
       if (day_hoan_vi[j] = i) then
         write(j:4);
 end;

 readln
end.

3.Tính tích các số chắn trong dãy

vd: Dãy A gồm  7  phần tử:    5       13      4       7       2        10

  Tich cac so chan la:    80

BÀI GIẢI:

USES CRT;

VAR A: ARRAY[1..100] OF INTEGER;

  I,N: INTEGER;

  TICH: LONGINT;

BEGIN          

    WRITELN('NHAP SL PHAN TU: ');

    READLN(N);

    FOR I:=1 TO N DO

    BEGIN

        WRITELN('NHAP SO THU: ',I,' ');

        READLN(A[I]);

    END;

  TICH:=1;

  FOR I:=1 TO N DO

  IF A[I] MOD 2 =0 THEN TICH:=TICH*A[I];

  WRITELN('TICH CAC SO CHAN LA: ',TICH);

READLN

END.