М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Mihael13
Mihael13
19.08.2022 20:55 •  Информатика

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

👇
Ответ:
валерия20156
валерия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
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
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
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.

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

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

1

8

6

10

0

0

2

16

0

16

3

16

96

5

0

112

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

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

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

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

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

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

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

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

1

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

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

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

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

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

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

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

4,8(29 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ