Разобрать задание по прикрепленному видео: 24. Задание 21 № 15989
4) Разобрать задание по прикрепленному видео: 24. Задание 21 № 15989
Какое число будет напечатано в результате работы следующей программы? Для Вашего удобства программа приведена на пяти языках программирования.
Паскаль
| Алгоритмический язык
| var
a, b, t, M, R: integer;
function F(x: integer): integer;
begin
f:=abs(abs(x−6)+abs(x+6)−16)+2;
end;
begin
a := −20; b := 20;
M := a; R:= F(a)
for t := a to b do begin
if F(t) <= R then begin
M := t;
R := F(t);
end;
end;
write(M+R);
end.
| алг
нач
цел a, b, t, M, R
a := −20; b := 20
M := a; R := F(a)
нц для t от a до b
если F(t) <= R
то M := t; R := F(t)
все
кц
вывод M + R
кон
алг цел f(цел x)
нач
знач:=abs(abs(x−6)+abs(x+6)−16)+2
кон
|
Решить задание самостоятельно:
5) Разобрать задание по прикрепленному видео:
Решить задание самостоятельно:
2. Задание 21
Определите, какое число будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на пяти языках):
Паскаль
| Алгоритмический язык
| var a,b,t,M,R :longint;
Function F(x:integer):integer;
begin
F := 2*(x*x-9)*(x*x-9)+9;
end;
BEGIN
a := -10; b := 20;
M := a; R := F(a);
for t := a to b do begin
if F(t)<=R then begin
M := t;
R := F(t);
end;
end;
write(M*R);
END.
| алг
нач
цел a, b, t, M, R
a := -10; b := 20
M := a; R := F(a)
нц для t от a до b
если F(t) <= R
то
M := t; R := F(t)
все
кц
вывод M*R
кон
алг цел F(цел x)
нач
знач := 2*(x*x-9)*(x*x-9)+9
кон
|
6) Разобрать задание по прикрепленному видео:
Решить задание самостоятельно:
5. Задание 21
Напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт ответ 23. Для Вашего удобства программа приведена на пяти языках программирования.
Паскаль
| Алгоритмический язык
| var
k, i : longint;
function f(n: longint) : longint;
begin
f := n * n * n;
end;
function g(n: longint) : longint;
begin
g:= n * n;
end;
begin
readln(k);
i := 1;
while f(i) < g(i) * k
i := i+1;
writeln(i)
end.
| алг
нач
цел i, k
ввод k
i := 1
нц пока f(i) < g(i) * k
i := i + 1
кц
вывод i
все
кон
алг цел f(цел n)
нач
знач := n * n * n
кон
алг цел g(цел n)
нач
знач := n * n
кон
|
7) Разобрать задание по прикрепленному видео:
Решить задание самостоятельно:
Задание 21
Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Бейсик
| Паскаль
| DIM A, B, T, M, R AS INTEGER
A =-5: B = 5
M = A: R = F(А)
FOR T = A TO B
IF F(T) < R THEN
M = T
R = F(T)
END IF
NEXT T
PRINT R
FUNCTION F(x)
F = (x+3)*(1-x)
END FUNCTION
| var a,b,t,M,R: integer;
Function F(x:integer): integer;
begin
F := (x+3)*(1-x)
end;
begin
a :=-5; b := 5;
M := a; R := F(a);
for t := a to b do begin
if (F(t) < R) then begin
M := t;
R := F(t)
end
end;
write(R)
end.
|
|