Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Write(N);






END.

37) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

var a, b, t, N, P: integer;

Function F(x: integer): integer;

Begin

F: = 4*(5-x)*(5-x)+10;

End;

BEGIN

a: = -10; b: = 10;

P: = 40;

N: = 0;

for t: = a to b do begin

if (F(t) > P) then begin

N: = N+1;

End;

End;

Write(N);

END.

38) (Муфаззалов Д. Ф., УГАТУ, Уфа) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

var a, b, t, N, Z: integer;

Function F(x: integer): integer;

Begin

F: = 2*(x-5)*(x-5)+4;

End;

BEGIN

a: = -10; b: = 10;

Z: = F(a);

N: = 0;

for t: = a to b do begin

if (F(t) < Z) then begin

N: = N+1;

Z: =F(t);

End;

End;

Write(N);

END.

39) (Муфаззалов Д. Ф., УГАТУ, Уфа) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

var a, b, t, N, Z: integer;

Function F(x: integer): integer;

Begin

F: = 2*(x-5)*(3-x)+4;

End;

BEGIN

a: = 2; b: = 9;

Z: = F(a);

N: = 0;

for t: = a to b do begin

if (F(t) < Z) then begin

N: = N+1;

Z: =F(t);

End;

End;

Write(N);

END.

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) < Z) then

N: = N+1;

Z: =F(t);

End;

Write(N);

END.

41) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

var a, b, t, N: integer;

Function F(x: integer): integer;

Begin

F: = 16*(9-x)*(9-x)+127;

End;

BEGIN

a: = -20; b: = 20;

N: = 0;

for t: = a to b do begin

if (F(t) > = 0) then begin

N: = N+1;

End;

End;

Write(N);

END.

42) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

var a, b, t, N: integer;

Function F(x: integer): integer;

Begin

F: = 16*(9-x)*(9-x)-127;

End;

BEGIN

a: = -20; b: = 20;

N: = 0;

for t: = a to b do begin

if (F(t) > = 0) then begin

N: = N+1;

End;

End;

Write(N);

END.

43) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

var a, b, t, N: integer;

Function F(x: integer): integer;

Begin

F: = 16*(6-x)*(6-x)-450;

End;

BEGIN

a: = -20; b: = 20;

N: = 0;

for t: = a to b do begin

if (F(t) > = 0) then begin

N: = N+1;

End;

End;

Write(N);

END.

44) Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 18:

var i, k: integer;

function F(x: integer): integer;

Begin

F: =x*x;

End;

Begin

i: = 0;

Readln(K);

while F(i) < K do

i: =i+1;

Writeln(i);

End.

45) Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 30:

var i, k: integer;

function F(x: integer): integer;

Begin

F: =x*x*x*x;

End;

Begin

i: = 18;

Readln(K);

while (i > 0) and (F(i) > K) do

i: =i-1;

Writeln(i);

End.

46) Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 22:

var i, k: integer;

function F(x: integer): integer;

Begin

F: =x*x*x+x*x;

End;

Begin

i: = 20;

Readln(K);

while (i > 0) and (F(i) > K) do

i: =i-1;

Writeln(i);

End.

47) Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 20:

var i, k: integer;

function F(x: integer): integer;

Begin

F: =x*x+5*x;

End;

Begin

i: = 15;


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.013 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал