Вопрос по информатике:
Помогите решить, пожалуйста)
var a,b,t,M,R :integer;
Function F(x:integer):integer;
begin
F : = 9 * (x + 19) * (x - 19) + 1;
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);
end.
- 14.12.2017 04:57
- Информатика
- remove_red_eye 5262
- thumb_up 12
Ответы и объяснения 1
Уберите лишние пробелы после ":" и все заработает, на выходе получите 0
Исправленный вариант кода:
var
a, b, t, M, R: integer;
function F(x: integer): integer;
begin
F := 9 * (x + 19) * (x - 19) + 1;
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);
end.
- 15.12.2017 21:51
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.