Роздивися вигляд різних програм для створення та редагування малюнків . запиши , що в них спільного а що відмінного

#include <cstdlib>

#include <iostream>

#include <ctime>

#include <clocale>

#include <cmath>

using namespace std;

void area_determ(double coordx, double coordy) {

if (coordy < 0 || (coordy > 0 && coordx < 0.75)) {

 cout << "Точка лежит вне области\n" << endl;

}

if (coordx > 0.75 && coordy > 0 && (sqrt(pow(coordx, 2) + pow(coordy, 2)) > 1)) {

 cout << "Точка лежит внутри области\n" << endl;

}

else if ((coordx == 0.75 && sqrt(pow(coordx, 2) + pow(coordy, 2)) > 1) ||

 (coordy == 0 && coordx > 1) ||

 (coordx > 0.75 && sqrt(pow(coordx, 2) + pow(coordy, 2)) == 1)) {

 cout << "Точка лежит на границе области\n" << endl;

}

}

int main() {

system("chcp 1251");

setlocale(LC_ALL, "Rus");

srand(time(NULL));

double x, y;

cout << "Введите координату x точки" << endl;

cin >> x;

cout << "Введите координату y точки" << endl;

cin >> y;

area_determ(x, y);

system("pause");

return 0;

}

Объяснение:

type

   matrix = array of array of integer;

   arr = array of integer;

procedure matr2(c: char; var x: matrix; var m, n: integer);

var

  i, j: integer;

begin

    writeln('Введите количество строк в матрице ' + c + ': ');

    readln(m);

    writeln('Введите количество столбцов в матрице ' + c + ': ');

    readln(n);

    SetLength(x, m);

    writeln('Матрица ', c, ':');

    for i := 0 to m-1 do

    begin

         SetLength(x[i], n);

         for j := 0 to n-1 do

             begin

                  x[i, j] := -99 + random(199);

                  write(x[i, j]:4);

             end;

             writeln;

    end;

    writeln;

end;

procedure el(const x: matrix; const m, n: integer; var y: arr);

var

i, j: integer;

begin

    SetLength(y, n);

    for j := 0 to n-1 do y[j] := 0;

    for i := 0 to m -1  do

       for j := 0 to n - 1 do

           if x[i, j] < 0 then inc(y[j]);

end;

procedure poell(var y: arr; const n: integer);

var

   j: integer;

begin

    writeln('Количество отрицательных элементов по столбцам:');

    for j := 0 to n - 1 do write(y[j]:4);

    writeln;

end;

var

  a, b: matrix;

  c, d: arr;

  m, n: integer;

begin

    randomize;

    matr2('A', a, m, n);

    el(a, m, n, c);

    poell(c, n);

    matr2('B', b, m, n);

    el(b, m, n, d);

    poell(d, n);

    readln();

end.