Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Write(R);
|
|
END.
13) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a, b, t, M, R: integer;
Function F(x: integer): integer;
Begin
F: = x*x + 2*x + 10;
End;
BEGIN
a: =-10; b: =10;
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);
END.
14) (Л.А. Тумарина) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a, b, t, M, R: integer;
Function F(x: integer): integer;
Begin
F: =4*(x-5)*(x+3);
End;
BEGIN
a: =-20; b: =0;
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);
END.
15) (Л.А. Тумарина) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a, b, t, M, R: integer;
Function F(x: integer): integer;
Begin
F: = 2*x*x + 8*x + 10;
End;
BEGIN
a: =0; b: =10;
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.
16) (Л.А. Тумарина) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
Var a, b, t, M, R: integer;
Function F(x: integer): integer;
Begin
F: =-(x+4)*(x+2);
End;
BEGIN
a: =-2; 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);
END.
17) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
Function F(x: integer): integer;
Begin
F: = 2*(x-9)*(x-9)+12;
End;
BEGIN
a: = -20; b: = 20;
M: = a; R: = F(a);
for t: = a to b do
if (F(t)< R) then begin
M: = t;
R: = F(t);
End;
Write(M);
END.
18) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
Function F(x: integer): integer;
Begin
F: = 9*(x-15)*(x+17)+2;
End;
BEGIN
a: = -20; b: = 20;
M: = a; R: = F(a);
for t: = a to b do
if (F(t)< R) then begin
M: = t;
R: = F(t);
End;
Write(M);
END.
19) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
Function F(x: integer): integer;
Begin
F: = -3*(x-10)*(x+2)+2;
End;
BEGIN
a: = -20; b: = 20;
M: = a; R: = F(a);
for t: = a to b do
if (F(t)> R) then begin
M: = t;
R: = F(t);
End;
Write(M);
END.
20) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
Function F(x: integer): integer;
Begin
F: = 5*(x+10)*(x+2)+2;
End;
BEGIN
a: = -20; b: = 20;
M: = a; R: = F(a);
for t: = a to b do
if (F(t)< R) then begin
M: = t;
R: = F(t);
End;
Write(M);
END.
21) (А. Лаздин) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
Function F(x: integer): integer;
Begin
F: = -2*(x+2)*(x-6);
End;
Begin
a: = -11; b: = 11;
M: = a; R: = F(a);
t: =a;
while t < b do
Begin
if (F(t)> R) then
Begin
M: = t;
R: = F(t);
End;
t: =t+2;
End;
Write(R);
End.
22) (А. Лаздин) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
Function F(x: integer): integer;
Begin
F: = -2*(x+2)*(x-6);
End;
Begin
a: = -11; b: = 11;
M: = a; R: = F(a);
t: =a;
while t < b do
Begin
if (F(t)> R) then
Begin
M: = t;
R: = F(t);
End;
t: =t+2;
End;
Write(M);
End.
23) (А. Лаздин) Определите, какое число будет напечатано в результате выполнения следующего алгоритма:
var a, b, t, M, R: integer;
Function F(x: integer): integer;
Begin
F: = -2*(x+2)*(x-6);
End;
Begin
a: = -11; b: = 11;
M: = a; R: = F(a);
t: =a;
while t < b do
Begin
if (F(t)> =R) then
Begin
M: = t;
R: = F(t);
End;
t: =t+2;
End;