Простой пример на Pascal

Пример: Дан массив 3 на 3. Положительные числа заменить на номер строки, а отрицательные числа заменить на номер столбца в квадрате.

Решить можно простои по сложнее.
[php]
program massiv;

{$APPTYPE CONSOLE}
Var massive: array[1..3,1..3] of Integer;
i,j : Integer;
Begin
  WriteLn (‘Input massive 3 to 3 string:’);
  for i:=1 to 3 do
    begin
    WriteLn (‘vvod string  ‘, i, ‘: ‘);
      for j:=1 to 3 do
        begin
          WriteLn (‘vvod stolbec ‘, j, ‘: ‘);
          Write (‘vvod elementa ‘, i,j, ‘: ‘);
          ReadLn(massive[i,j]);
        end;
    end;
    for i:=1 to 3 do
      begin
         for j:=1 to 3 do
           begin
             if (massive[i,j] > 0) then massive[i,j] := i;
             if (massive[i,j] < 0) then massive[i,j] := sqr(massive[i,j]);
             Write (massive[i,j], ‘ ‘);
           end;
         WriteLn;
      end;
ReadLn;
End.
[/php]

Второй пример: Дано уравнение ax2+bx+c=0. Найти корни, если они есть.

Решение:
[php]
Program uravnenie;
 Var a,b,c,d:Integer;
   x1,x2:Real;
 Begin
   WriteLn (‘Решение квадратного уравнения ax^2+bx+c=0 ‘);
   Write (‘Введите a: ‘);
   Read (a);
   Write (‘Введите b: ‘);
   Read (b);
   Write (‘Введите c: ‘);
   Read (c);
   d := sqr(b) -4*a*c;
   WriteLn (‘Дискриминант равен: ‘, d);
   if (d<0) then WriteLn(‘Корней нет’);
   if (d=0) then
     begin
       x1:=(-b/2*a);
       WriteLn (‘Единственное решение: ‘, x1);
     end;
   if (d>0) then
     begin
       x1:=(-b+sqrt(d))/2*a;
       x2:=(-b-sqrt(d))/2*a;
       WriteLn (‘Корень x1=’,x1,’ Корень x2=’,x2);
     end;
 End.
[/php]

Второе (с функцией):
[php]
Program uravnenie;
 Var a,i:Integer;
    otvet:Char;
    mass: array [1..3] of Integer;
  function vvod (a,b,c:Integer):Integer;
    var d:Integer;
    x1,x2:Real;
    begin
      d := sqr(b) -4*a*c;
      WriteLn (‘Дискриминант равен: ‘, d);
   if (d<0) then WriteLn(‘Корней нет’);
   if (d=0) then
    begin
     x1:=(-b/2*a);
     WriteLn (‘Единственное решение: ‘, x1);
   end;
   if (d>0) then
     begin
       x1:=(-b+sqrt(d))/2*a;
       x2:=(-b-sqrt(d))/2*a;
       WriteLn (‘Корень x1=’,x1,’ Корень x2=’,x2);
     end;
   end;
 Begin
   otvet:=’y’;
   Repeat
     for i:=1 to 3 do
       begin
         Case i of
         1:
           begin
             Write (‘Введите a: ‘);
             ReadLn (mass[i]);
           end;
         2:
           begin
             Write (‘Введите b: ‘);
             ReadLn (mass[i]);
           end;
         3:
           begin
             Write (‘Введите c: ‘);
             ReadLn (mass[i]);
           end;
         end;
       end;
    vvod(mass[1],mass[2],mass[3]);
    Write (‘Хотите еще работать с программой? (y/n): ‘);
    ReadLn(otvet);
    Until (otvet=’n’);
 End.
[/php]

. паскаль примеры легкий паскаль простой пример
. паскаль примеры легкий паскаль простой пример
Комментирование и размещение ссылок запрещено.

Top