ОЧЕНЬ Задание 1. ( )
Написать программу на Паскале и построить блок-схему алгоритма для решения следующей задачи:
Вычислить площадь прямоугольного треугольника по известным катетам. Длины катетов задать с оператора ввода самостоятельно.
На проверку нужно прислать скриншоты с кодом и результатом работы программы, а также построенную блок-схему алгоритма.
Задание 2. ( )
Дан четырехугольник АВСD. По длинам четырех отрезков (АВ, ВС, СD, DА), введенных пользователем с оператора ввода, определить, возможно ли в данный четырехугольник, составленный из этих отрезков, вписать окружность. Если действие возможно, вывести сообщение «Окружность вписать возможно», в противном случае – вывести сообщение об ошибке.
Задание нужно выполнить на Паскале. На проверку нужно прислать скриншоты с кодом и результатом работы программы.
Задание 3. ( )
Написать код на Паскале для решения задачи.
Дан массив из 12 целых чисел. В заданном массиве найти максимальный четный элемент. Вывести на экран его значение и позицию в массиве.
На проверку нужно прислать скриншоты с кодом и результатом работы программы.
const
N = 10;
var
a: array [1..N] of integer;
i, j, b: integer;
begin
for i := 1 to N do
a[i] := Random(81) - 40;
writeln('Элементы массива a: ');
for i := 1 to N do
write(a[i], ' ');
writeln;
//сортировка не очень быстрая, но и массив маленький
for j := 1 to n do
for i := 1 to n - 1 do
if a[i] < a[i + 1] then
begin
b := a[i];
a[i] := a[i + 1];
a[i + 1] := b;
end;
writeln;
writeln('После сортировки : ');
for i := 1 to N do
write(a[i], ' ');
writeln;
end.
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;
Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
k:=0;
for i:=1 to N do
for j:=1 to M do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 = 0) then k:=k+1;
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to M do
Begin
Write(mas[i,j], ' ')
end;
Writeln();
end;
Writeln();
Writeln('Количество четных элементов = ',k);
end;
readln;
end.