ANTICHAT — форум по информационной безопасности, OSINT и технологиям

 Program Kontra2;
Uses crt;
type mas= array[1..100] of integer;{массив который мы будем анализировать}
var
 i,Nmax,menu,n:integer;
 A:Mas;
 f:boolean;

Procedure vvod( var A:Mas; var n:integer; var f:boolean);   {Ввод массива}
  Var I: integer;
    Begin
    writeln('Сколько элементов массива? ');
    readln(n);
    for I:=1 to n do
      Begin
        Write('Введите элемент # ',i,' ');
        Readln(A[i]);
      end;
    f:=true;
end;

function max(A:mas; n:integer):integer;
var
i:integer;
buff:integer;
Begin
     buff:=A[1];
     For i:=1 to n Do
     If A[i]>buff then buff:=A[i];
     max:=buff;
End;

procedure zamena(var A:mas; var n:integer; var max:integer);
var
i:integer;
Begin
  For i:=1 to n Do
    Begin
      If A[i]>0 then
      If (A[i] mod 5) = 0 then A[i]:=max;
    End;
End;

procedure randmas(var A:mas; var n:integer; var f:boolean); {создание случайного массива}
var
i:integer;
  begin
  i:=1;
  write('из скольки элементов хотите массив? ');
  readln(n);
    for i:=1 to n do
      begin
      A[i]:=random(200);
      end;
    f:=true;
  end;

Procedure Vuvod( A:Mas; var n:integer);   {Вiвод массива}
Var I: integer;
  Begin
  for I:=1 to n do
    Begin
    Write(A[i],' ');
    end;
  writeln;
end;

Begin
 f:=false;
 randomize;
 while true do
 Begin
 clrscr;
 {ввожу массивы}
writeln('1. Ввод массива целых чисел');
writeln('2. Вывод массива случайных целых чисел');
writeln('3 Найти максимальный элемент');
writeln('  Заменить все положительные элементы кратные 5 на максимальный');
writeln('4. Завершить работу');
write('Ваш выбор: ');
readln(menu);
case menu of
  1: begin
     vvod(A,n,f);
     readln;
     end;
  2: begin
     randmas(A,n,f);
     vuvod(A,n);
     readln;
     end;
  3: begin
     vuvod(A,n);
     Nmax:=max(A,n);
     zamena(A,n,Nmax);
     vuvod(A,n);
     readln;
     end;
  4: break;
  else writeln('!!!ВЫБЕРИТЕ ВЕРHЫЙ ПУHКТ МЕHЮ (1-4)!!!');
  readln;
  end;
 end;
end.

program ebaat;
var a,b,c,d: real;
begin
write('Input abc:');
read(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln('Fuck you')
else begin writeln('x1=',(-b+sqrt(d))/(2*a));
writeln('x2=',(-b-sqrt(d))/(2*a)) end
end.

writeln('x1=',(-b+sqrt(d))/(2*a))

program equation;

procedure GetCoeff (var a : real; var b : real; var c : real);
begin
  write ('Vvedite koefficienty cherez probel: ');
  readln (a, b, c);
  writeln (a : 0 : 3, 'x^2 + ', b : 0 : 3, 'x + ', c : 0 : 3);
end;

function GetDiscriminant (a, b, c : real) : real;
var
  d : real;
begin
  d := b * b - 4 * a * c;
  GetDiscriminant := d;
end;

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

begin
  GetCoeff (a, b, c);
  d := GetDiscriminant (a, b, c);
  if d > 0 then begin
    x1 := (-b - sqrt (d)) / (2 * a);
    x2 := (-b + sqrt (d)) / (2 * a);
    writeln ('x1 = ', x1 : 0 : 3);
    writeln ('x2 = ', x2 : 0 : 3);
  end
  else if d = 0 then begin
    x1 := -b / (2 * a);
    writeln ('x = ', x1 : 0 : 3);
  end
  else begin
    x1 := -b / (2 * a);
    x2 := sqrt (abs (d)) / (2 * a);
    writeln ('x1 = ', x1 : 0 : 3, ' - i * ', x2 : 0 : 3);
    writeln ('x2 = ', x1 : 0 : 3, ' + i * ', x2 : 0 : 3);
  end;
end.