Составьте разветвляющуюся программу в паскале: на автобазе стоят весы. если машина легче 15 тонн, то недогруз. если больше 30 тонн, то перегруз. иначе норма.

275

472

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

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

Fezit

Информатика

4,4(20 оценок)

program asdas;

uses crt;

var ves: real; //real- ибо нужно допустить вес в 3,5 тонны как пример

begin

readln (ves);

if ves< 15

then writeln ('недогруз')

else if ves> 30

then writeln ('норма');

end.

sashamay2016

Информатика

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

Задумана проверка на равенство введеного числа с плавающей точкой и 36.6

Но делается это, на самом деле, не совсем верно, дробные числа не совсем также как и целые хранятся в памяти, поэтому, число 1.0 может быть записано как условное 1.00000000000002 и все, уже равенства с 1.0 не будет, поэтому при сравнении дробных число нужно вводить, какую-то очень маленькую величину, например, eps = 1e-6 и сравнивать таким образом: if( fabs(first_number - second_number) <= eps) => ok; else => not ok