Любая сторона треугольника меньше суммы двух других сторон и больше их разности, т.е. нужно проверять условия: 1) x < y + z, x > y – z; 2) y < x + z, y > x – z; 3) z < x + y, z > x – y. блок схема: ввод данных → проверка первого условия → проверка второго условия → проверка третьего условия → если хоть одно из условий нарушено, то нельзя построить, иначе можно
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var c1:=ReadReal('Цена первой покупки:'); var c2:=ReadReal('Цена второй покупки:'); var c3:=ReadReal('Цена третьей покупки:'); var s:=c1+c2+c3; Writeln('Сумма к оплате: ',s); var p:=ReadReal('Внесена сумма:'); Writeln('Причитается сдача: ',p-s) end.
Пример Цена первой покупки: 152.40 Цена второй покупки: 375 Цена третьей покупки: 140.62 Сумма к оплате: 668.02 Внесена сумма: 700 Причитается сдача: 31.98
begin Write('Что будем искать?: '); ReadLn(x); if x = 'скорость' then begin Write('Введите расстояние: '); ReadLn(s); Write('Введите время: '); ReadLn(t); WriteLn('Скорость=', s / t); end else if x = 'время' then begin Write('Введите расстояние: '); ReadLn(s); Write('Введите скорость: '); ReadLn(v); WriteLn('Время=', s / v); end else if x = 'расстояние' then begin Write('Введите скорость: '); ReadLn(v); Write('Введите время: '); ReadLn(t); WriteLn('Расстояние=', v * t); end else WriteLn('Неверно указано, что будем искать.'); end.
1) x < y + z, x > y – z;
2) y < x + z, y > x – z;
3) z < x + y, z > x – y.
блок схема: ввод данных → проверка первого условия → проверка второго условия → проверка третьего условия → если хоть одно из условий нарушено, то нельзя построить, иначе можно