Российская Федерация, г. Москва
СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ
Благодаря готовым учебным материалам для работы в классе и дистанционно
Скидки до 50 % на комплекты
только до
Готовые ключевые этапы урока всегда будут у вас под рукой
Организационный момент
Проверка знаний
Объяснение материала
Закрепление изученного
Итоги урока
Была в сети 20.03.2025 22:09
Шамаева Татьяна Владимировна
Учитель информатики
11 лет
0
Местоположение
Специализация
Дз 8. Задания на тему функции2
Категория:
Информатика
22.10.2016 22:33
Просмотр содержимого документа
«Дз 8. Задания на тему функции2»
Вычислите площадь всех фигур (включая вложенные), вызывая функцию, использующую формулу Герона. Рекомендуется использовать также функцию для вычисления периметра треугольника по введенным координатам.
21-33. Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R:integer;
Function F(x: integer):integer;
begin
F := 281 - 2*(17+x)*(17+x);
end;
BEGIN
a := -7; b := 25;
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;
writeln(R);
END.
21-34. Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a,b,t,M,R :integer;
Function F(x:integer):integer;
begin
F := (x*x-9)*(x*x-9)+5 end;
begin
a := -13; b := 13; M := a; R := F (a) ;
for t := a to b do
if (F(t)
M := t; R := F(t)
end;
write(M+7)
end.
21-36. Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, N, P :integer;
Function F(x: integer):integer;
begin
F := 3*(9-x)*(9-x)+12;
end;
BEGIN
a := -10; b := 10;
P := 25;
N := 0;
for t := a to b do begin
if (F(t) P) then begin
N := N+1;
end;
end;
write(N);
END.
21-47. Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 20:
var i, k: integer;
function F(x:integer):integer;
begin
F:=x*x+5*x;
end;
begin
i := 15;
readln(K);
while (i 0) and (F(i) K) do
i:=i-1;
writeln(i);
end.
21-49. Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 28:
var i, k: integer;
function F(x:integer):integer;
begin
F:=x*x*x+x*x+2*x;
end;
begin
i := 0;
readln(K);
while F(i)
i:=i+1;
writeln(i);
end.
21-40. Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, N, Z :integer;
Function F(x: integer):integer;
begin
F := -2*(5-x)*(2-x)+4;
end;
BEGIN
a := 2; b := 9;
Z := F(a);
N := 0;
for t := a to b do begin
if (F(t)
N := N+1;
Z:=F(t);
end;
write(N);
END.
21-62. При каком наименьшем значении входной переменной k программа выдаёт тот же ответ, что и при входном значении k = 90?
var k, i : longint;
function f(n: longint) : longint;
begin
f := n * n * n - 30
end;
begin
readln(k);
i := 12;
while (i0) and (f(i) k) do
i := i-1;
writeln(i)
end.
21-68. Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k=14. Значение k=14 также включается в подсчёт различных значений k.
var k, i : longint;
function f(n: longint) : longint;
begin
f := 2*n*n + 5;
end;
begin
readln(k);
i := 1;
while f(i)
i:= i+1;
if f(i)-k
writeln(i)
else writeln(i-1);
end.
21-72. Напишите в ответе число, равное количеству различных значений входной переменной k, при которых приведённая ниже программа выводит тот же ответ, что и при входном значении k=12. Значение k=12 также включается в подсчёт различных значений k.
var k, i : longint;
function f(n: longint) : longint;
begin
f := 3*n*n - 2*n;
end;
begin
readln(k);
i := 1;
while f(i)
i:= i+1;
if f(i)-k
writeln(i)
else writeln(i-1);
end.
21-76. Напишите в ответе наименьшее значение входной переменной k, при котором программа выдаёт тот же ответ, что и при входном значении k = 12.
var k, i : longint;
function f(n: longint): longint;
begin
f := n * n * n;
end;
function g(n: longint): longint;
begin
g := 3*n + 2;
end;
begin
readln(k);
i := 1;
while f(i)
i := i+1;
writeln(i)
end.
Вебинар для учителей
Свидетельство об участии БЕСПЛАТНО!
