Решить в паскале (без массива) №1 составьте не менее трёх вариантов программы определения наименьшего их трех данных чисел. №2 составить программу сортировки по возрастанию значений трёх переменных : а,в,с . №3 заданы размеры а,в прямоугольного отверстия x,y,z кирпича. определить пройдет ли кирпич через отверстие .

152

244

Посмотреть ответы 2

Ответы на вопрос:

tepop13

Информатика

4,5(26 оценок)

первые два вчера писал:

в третьем не уверен в самом

var

a, b, x, y, z : real;

begin

read (a, b, c, x, y);

if ((a < = x) and (b < = y)) or ((a < = y) and (b < = x))

or ((a < = x) and (b < = z)) or ((a < = z) and (b < = x))

or ((a < = z) and (b < = y)) or ((a < = y) and (b < = z)) then writeln ('yes') else writeln ('no');

end.

Astento

Информатика

4,8(1 оценок)

1вариант var a,b,c,max,min, sum: real; {описание переменных, они все действительного типа} begin readln(a,b,c); {ввод с клав. чисел a,b,c} if (3*a)< (a+b) and (3*a)< (7*c) then {если первое выражение меньше второго и третьего, то} min: =3*a {переменной min присвоить значение первого выражения} else if (a+b)< (7*c) then {иначе, если 2-ое выражение < 3-го,то} min: =a+b {переменной min присвоить значение второго выражения} else min: =7*c; {иначе значение третьего выражения} if a> c then max: =a+b {если a> c (сравниваем только эти числа, так как число b входит в оба выражения), то переменной max присвоить значение первого выражения} else max: =b+c; {иначе второго} sum: =min+max; {находим сумму min и max} writeln(sum: 1: 2); {выписываем на экране ответ} readln; end. 2 вариант (все тоже самое, просто нахождение минимума и максимума производится в процедуре) процедура описывается всегда до основной программы, в ней используются абстрактные переменные, в данном случае x,y,z,u (локальные переменные), вместо которых при вызове процедуры в основной программе будут даваться конкретные значения введенных ранее переменных. var a,b,c,max, min, sum: real; procedure mn(x,y,z: real; var u: real); begin if (x< y) and (x< z) then u: =x else if (y< z) then u: =y else u: =z; end; procedure mx(x,y: real; var u: real); begin if (x> y) then u: =x else u: =y; end; begin readln(a,b,c); mn(3*a,a+b,7*c,min); mx(a+b,b+c,max); sum: =min+max; writeln(sum: 1: 2); readln; end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.