сервис вопросов и ответовОпределите, какое число будет напечатано в результате выполнения следующего алгоритма: var a,b,t,M,R:integer; Function F(x:
5-9 класс|
|
integer):integer;
begin
F := 6*(x+10)*(x+10)+30;
end
BEGIN
a := -5; 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;
writeln(R);
END
Anja2190
07 нояб. 2013 г., 17:46:26 (10 лет назад)
Ibragim163443
07 нояб. 2013 г., 20:35:13 (10 лет назад)
Засунь данное условие в Paskal и он выдаст тебе ответ.
Ответ:5430
Ответить
Другие вопросы из категории
1.Если данное натурального число меньше 10, то прибавьте 10, иначе вычьте. Решить через Паскаль var, begin-end. 2. Дано трехзначное число.
Верно ли, что его первая цифра меньше последней? Решить также. Помогите пожалуйста!
7.Дано
А=10010012,
В=10011002.
Какое из чисел С, записанных в десятичной
форме, отвечает условию А<С<В?
Читайте также
Определите, какое число будет напечатано в результате выполнения след. алг.:
Var a,b,t,M,R :integer;
begin
F:=-(x+4)*(x+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);
END.
a) -3
B) 3
C) -2
D) 2
Определите, какое чиcло будет напечатано в результате выполнения следующего алгоритма. Паскаль var a,b,a,K,L: integer; begin F:=(1-x)*(x-9)+4 end;
Begin a:=-16; b:=16 K:=a to b do if F(s) > L then begin K:=s; L:=F(a) end; writen (K) End.
В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] - градусы за первый день. Dat[2] - за второй и т.д.)
Определите, какое число будет напечатано в результате работы следующей программы.
Паскаль.
Var k, m: integer;
Dat: array[ 1..10] of integer;
Begin
Dat[ 1] := 12;
Dat[ 2] := 15;
Dat[ 3] := 17;
Dat[ 4] := 15;
Dat[ 5] := 14;
Dat[ 6] := 12;
Dat[ 7] := 10;
Dat[ 8] := 13;
Dat[ 9] := 14;
Dat[ 10] := 15;
m := 0;
for k := 1 to 10 do
if Dat[ k] =15 then
begin
m := m+1
end;
writeln(m);
End.
В таблице Dat хранятся оценки (по десятибалльной шкале) студента по программированию за 8 прошедших с начала учебы семестров (Dat[1] -оценка за первый
семестр, Dat[2] - оценка за второй семестр и т.д.). Определите что будет напечатано в результате выполнения следующего алгоритма:
Var k,m, term: integer;
Dat: array[1..8] of integer;
begin
Dat[1]:= 7 ; Dat[2]:= 7 ; Dat[3]:=6 ; Dat[4]:= 8 ;
Dat[5]:=4 ; Dat[6]:= 5; Dat[7]:= 4; Dat[8]:= 7;
term:=1; m:=Dat[1];
for k:=2 to 8 do
begin if Dat[k] < m then
begin m:=Dat[k]; term:=k
end end
write (term); end.
Определите, что будет напечатано в результате выполнения следующего алгоритма var k,m,i: integer; mas:array[1..10] of integer; begin
mas[1]:=12;
mas[2]:=43;
mas[3]:=48;
mas[4]:=56;
mas[5]:=76;
mas[6]:=73;
mas[7]:=36;
mas[8]:=96;
mas[9]:=69;
mas[10]:=25;
k:=0;
m1:=mas[1] div 10 - mas[1] mod 10;
for i:=2 to 10 do begin
m2:=mas[i] div 10 - mas[i] mod 10;
if m1 > m2 then begin
m1:=m2; k:=i;
end;
end;
write(k);
end.
Вы находитесь на странице вопроса "Определите, какое число будет напечатано в результате выполнения следующего алгоритма: var a,b,t,M,R:integer; Function F(x:", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.