Предмет: Информатика,
автор: sokirkin03
Прошу помощи по информатике. Требуется написать программу на паскале по этой формуле min (ab, ac, bc) (это нахождение наименьшего значения, как я понимаю). Прошу помочь (я гуманитарий).
Ответы
Автор ответа:
1
var a,b,c:integer;
begin
readln(a);readln(b);readln(c);
if (a*b < a*c)and (a*b < b*c)then
writeln(a*b)else
if (a*c < a*b)and (a*c < b*c)then
writeln(a*c)else writeln(b*c);
end.
sokirkin03:
Выдаёт цифру 2, а не нужное мне выражение
программа выдает минимальное произведение
var a,b,c:integer;
begin
readln(a);readln(b);readln(c);
if (a*b < a*c)and (a*b < b*c)then
writeln(a,'*',b)else
if (a*c < a*b)and (a*c < b*c)then
writeln(a,'*',c)else writeln(b,'*',c);
end.
так надо?
begin
readln(a);readln(b);readln(c);
if (a*b < a*c)and (a*b < b*c)then
writeln(a,'*',b)else
if (a*c < a*b)and (a*c < b*c)then
writeln(a,'*',c)else writeln(b,'*',c);
end.
так надо?
Вот ещё нужно. Дополнить программу следующим фрагментом. Определить, принадлежит ли вычисленное значение максимума (минимума) интервалу [0.5; 2.0] и выдать на экран соответствующее сообщение. Отладить и выполнить программу с произвольными значениями входных данных
так максимума или минимума?
минимума
ок
var
a, b, c: real;
begin
readln(a);readln(b);readln(c);
if (a * b < a * c) and (a * b < b * c) then
begin
writeln(a, '*', b);
if (a * b <= 2) and (a * b >= 0.5) then writeln('YES') else writeln('NO'); end
else
if (a * c < a * b) and (a * c < b * c) then
begin
writeln(a, '*', c);
if (a * c <= 2) and (a * c >= 0.5) then
writeln('YES') else writeln('NO'); end
else begin
writeln(b, '*', c);
if (b * c <= 2) and (b * c >= 0.5) then
writeln('YES') else writeln('NO'); end;
end.
a, b, c: real;
begin
readln(a);readln(b);readln(c);
if (a * b < a * c) and (a * b < b * c) then
begin
writeln(a, '*', b);
if (a * b <= 2) and (a * b >= 0.5) then writeln('YES') else writeln('NO'); end
else
if (a * c < a * b) and (a * c < b * c) then
begin
writeln(a, '*', c);
if (a * c <= 2) and (a * c >= 0.5) then
writeln('YES') else writeln('NO'); end
else begin
writeln(b, '*', c);
if (b * c <= 2) and (b * c >= 0.5) then
writeln('YES') else writeln('NO'); end;
end.
так?
Похожие вопросы
Предмет: Химия,
автор: pavelpaskaruk
Предмет: Информатика,
автор: Darochkka
Предмет: Алгебра,
автор: ewgeniu44
Предмет: Математика,
автор: Кошельник10Артем
Предмет: Математика,
автор: ДаШеНьКа0821