М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Составьте программу в Lazarus


Составьте программу в Lazarus

👇
Открыть все ответы
Ответ:
stepankachan
stepankachan
13.01.2020
Var
  a: array [1..6] of real;
  q, b, c: real;

begin
  for i: byte := 0 to 2 do
    readln(a[i * 2 + 1], a[i * 2 + 2]);
  q := sqrt(sqr(a[1] - a[3]) + sqr(a[2] - a[4]));
  b := sqrt(sqr(a[5] - a[3]) + sqr(a[6] - a[4]));
  c := sqrt(sqr(a[5] - a[1]) + sqr(a[6] - a[2]));
  if ((q + b > c) and (q + c > b) and (b + c > q)) then
  begin
    if (max(q, max(b, c)) = sqrt(sqr(min(q, min(b, c))) + sqr(min(q, max(b, c then 
      writeln('Прямоугольный!');
    writeln(String.Format('Геом. центр - ({0}; {1})', (a[1] + a[3] + a[5]) / 3, (a[2] + a[4] + a[6]) / 3));
  end
  else
    writeln('Нет такого ▲');
end.
4,8(8 оценок)
Ответ:
Tcgdfh
Tcgdfh
13.01.2020
Const
  n = 15;

var
  a: array[1..n, 1..n] of integer;
  i, j: integer;
  HasNull: Boolean;

begin
  Randomize;
  writeln('Исходная матрица');
  HasNull := False;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(100) - 50;
      if a[i, j] = 0 then HasNull := True;
      write(a[i, j]:5);
    end;
    writeln
  end;
  if HasNull then writeln('Матрица имеет нулевые элементы')
  else writeln('Матрица не имеет нулевых элементов')
end.

Тестовое решение:

Исходная матрица
   16   23  -50   14  -44   15  -28    8   40  -43   -4   31  -11  -24  -15
   31  -37  -42    2   15   23   -8  -19   14  -35   -5  -30   41   11  -18
  -44   -3   30  -34   40   39   -7   -8   -6  -16   29  -11  -43   39   28
    5   37   42   46   13  -27  -39    2  -19  -45  -27   -8  -14   -2   11
   -6  -20   47    8  -49   48  -50  -28  -15   -4  -13   20   14  -32   35
  -17  -16   -8   35   10    7  -22   45   47  -41   45   45   -2  -39   17
   -3  -43   43   32   39   -2   -9   -1   37   29    4   15    7    0  -24
    2   -4  -17   -5   21   38   49    0   37  -47  -34  -15  -50   -2  -45
  -47    2  -40   18   48  -20   27   31  -21  -13   42   35    4  -45  -44
   42   20   -6   21    6   -2   11  -48  -10   28   -3    6  -45   29   22
  -38   -9  -50   32   26  -49    4   38    1   46   24   15  -46  -42   29
  -47   -5   -6   31  -39   -5   40  -21   41    7   -9   -1   20   39    1
   23   21  -48    6  -26    0   35   22  -21  -46  -12   32   42   24   32
   32    7   44   11   25  -49  -38  -26   17  -24  -28  -38  -42  -25  -16
    2   33   48  -50  -27  -47   13   -2   34  -22  -32   23  -35   26   22
Матрица имеет нулевые элементы
4,6(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ