Написать в Паскале 93.Написать алгоритм и программу проверки, является ли данный четырехугольник параллелограммом. 95.Стороны одного прямоугольника равны A и B. Стороны другого равны X и Y. Написать алгоритм и программу проверки прямоугольников на равенство 102.Известна заработная плата сотрудника. Вычислить величину подоходного налога. 107. По заданным значениям одного из сопротивлений цепи и ее полного сопротивления определить, имеет ли место в данной цепи параллельное соединение проводников. 108.Из одной точки к прямой проведены перпендикуляр и наклонная. По длинам отрезков определить, который из них перпендикуляр.

Предыдущий
вопрос Следующий
вопрос

Программа для проверки, является ли данный четырехугольник параллелограммом:

program checkParallelogram;
var
a, b, c, d: integer;
begin
writeln('Введите стороны четырехугольника:');
readln(a, b, c, d);
if (a = c) and (b = d) then
writeln('Данный четырехугольник является параллелограммом')
else
writeln('Данный четырехугольник не является параллелограммом');
end.

Программа для проверки прямоугольников на равенство сторон:

program checkRectangles;
var
a, b, x, y: integer;
begin
writeln('Введите стороны первого прямоугольника (A, B):');
readln(a, b);
writeln('Введите стороны второго прямоугольника (X, Y):');
readln(x, y);
if (a = x) and (b = y) then
writeln('Прямоугольники равны')
else
writeln('Прямоугольники не равны');
end.

Программа для вычисления подоходного налога по заработной плате сотрудника:

program incomeTax;
var
salary, tax: real;
begin
writeln('Введите заработную плату сотрудника:');
readln(salary);
if (salary <= 1000) then
tax := 0
else if (salary <= 2000) then
tax := salary * 0.1
else
tax := salary * 0.2;
writeln('Подоходный налог: ', tax:0:2);
end.

Программа для определения параллельного соединения в цепи:

program parallelConnection;
var
resistance1, totalResistance: real;
begin
writeln('Введите значение одного из сопротивлений цепи:');
readln(resistance1);
writeln('Введите полное сопротивление цепи:');
readln(totalResistance);
if (resistance1 = totalResistance) then
writeln('В данной цепи имеет место параллельное соединение проводников')
else
writeln('В данной цепи нет параллельного соединения проводников');
end.

Программа для определения перпендикуляра из заданной точки к прямой:

program perpendicularLine;
var
perpendicular, inclined: integer;
begin
writeln('Введите длину перпендикуляра:');
readln(perpendicular);
writeln('Введите длину наклонной:');
readln(inclined);
if (perpendicular > inclined) then
writeln('Перпендикуляр длиннее наклонной')
else
writeln('Наклонная длиннее перпендикуляра');
end.

Эти программы помогут выполнить указанные задачи на языке программирования Паскаль.