Информатика: Составить программу вычисления выражения: max(x^2+y^3, y^2+z^3)-4

Составить программу вычисления выражения: max(x^2+y^3, y^2+z^3)-4

👇

Ответ:

валерия20156

19.08.2022

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (x,y,z):=ReadReal3('Введите x,y,z:');
Writeln(Max(x*x+y*y*y,y*y+z*z*z)-4)
end.

Пример
Введите x,y,z: 2.6 -1.05 4
61.1025

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

Ответ:

andreyshilenko

19.08.2022

If (x+2*y) > (y*3*z-4*x) then max := (x+2*y) else max := (y*3*z-4*x);

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

Открыть все ответы

Ответ:

gubkina2003

19.08.2022

1) var a: array[0..100] of integer; i, s, n: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do   begin
a[i] := random(10);
write(a[i], ' ');
s := s * a[i];
end;
writeln;
writeln(s);
end.

2) var a: array[0..100] of integer; i, s, n: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do   begin
a[i] := random(10);
write(a[i], ' ');
end;
for i := 1 to n do   begin
// if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов.
// if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов.
end;
writeln;
writeln(s);
end.

3)var a: array[0..100] of integer; i, s, n, max: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do   begin
a[i] := random(10);
write(a[i], ' ');
end;
s:=0;
for i := 1 to n do   begin
if (a[i]>s) then s:=a[i];
end;
writeln;
writeln(s);
end.

4)var a: array[0..100] of integer; i, s, n, max: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do   begin
a[i] := random(10);
write(a[i], ' ');
end;
s:=0;
for i := 1 to n do   begin
if (a[i]>s) and (a[i] mod 3=0) then s:=a[i];
end;
writeln;
writeln(s);
end.

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

Ответ:

yuliyayulyafe

19.08.2022

Решение.

15.1 Следующий алгоритм выполнит требуемую задачу.

нц

пока справа свободно

закрасить

вправо

кц

нц

пока снизу свободно

закрасить

вниз

кц

закрасить

нц

пока не (снизу свободно)

влево

кц

вниз

нц

пока не (справа свободно)

закрасить

вниз

кц

закрасить

вправо

нц

пока не (сверху свободно)

закрасить

вправо

кц

15.2 Решение

var a, s: integer;

begin

s: = 0;

readln(a);

while a<>0 do begin

if (a mod 8=0) and (a mod 10 = 6) then

s : = s + a;

readln(a);

end;

writeln(s)

end.

Для проверки правильности работы программы необходимо использовать следующие тесты:

Входные данные Выходные данные

112

Спрятать критерии

Критерии проверки:

Критерии оценивания выполнения задания 15.

Алгоритм правильно работает при всех допустимых исходных данных 2

При всех допустимых исходных данных верно следующее:

1) выполнение алгоритма завершается, и при этом Робот не разбивается;

2) закрашено не более 10 лишних клеток;

3) остались незакрашенными не более 10 клеток из числа тех, которые должны были быть закрашены

Задание выполнено неверно, т. е. не выполнены условия, позволяющие поставить 1 или 0

Максимальный 2

Критерии оценивания выполнения задания 15.

Предложено верное решение. Программа правильно работает на всех приведённых выше тестах. Программа может быть записана на любом языке программирования 2

Программа выдаёт неверный ответ на одном из тестов, приведённых выше. Например, решение, в котором неверно задано условие отбора чисел: (a mod 8=0)or(a mod 10=6), выдаст неправильный ответ на тесте № 1. 1

Программа выдаёт на тестах неверные ответы, отличные от описанных в критерии на 0

Максимальный 2

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

Это интересно:

Здоровье

26.08.2020

Как начать заниматься бикрам йогой...

Компьютеры-и-электроника

05.02.2021

5 простых шагов, как добавить проигрыватель к стереосистеме...

Стиль-и-уход-за-собой

26.01.2020