Var
x0,xn,c:real;
x,y,xmax,ymax:real;
begin
writeln('Xнач, Xкон:');
readln(x0,xn);
write('С = '); readln(c);
x:=x0;
xmax:=x; ymax:=x*x-100*x+10;
repeat
x:=x+c;
y:=x*x-100*x+10;
if y>ymax then begin xmax:=x; ymax:=y; end;
until x>=xn;
writeln('xmax = ',xmax,' ymax = ',ymax);
end.
Пример:
Xнач, Xкон:
-10 20
С = 1
xmax = -10 ymax = 1110
В кабинет информатики без учителя не входить.
Не входить в верхней одежде
Без разрешения учителя не садиться и не включать компьютеры.
Посторонии предметы за ПК не брать
По кабинету не бегать.
Нельзя вставать из за компьютера не спросив учителя!!!!
Оформи таблицу сам. пишу алгоритм, цифры тебе пояснения сколько в каком сосуде воды.
<span>Наполнить сосуд А 5-0
</span><span>Перелить из сосуда А в В 0-5
</span><span>Наполнить сосуд А 5-5
</span>Перелить из сосуда А в В 1-9
<span>Вылить из сосуда б 1-0
</span>Перелить из сосуда А в В 0-1
<span>Наполнить сосуд А 5-1
</span>Перелить из сосуда А в В 0-6
Наполнить сосуд А 5-6
Перелить из сосуда А в В 2-9
<span>Вылить из сосуда б 2-0
</span>
<span>Перелить из сосуда А в В 0-2
</span><span>Наполнить сосуд А 5-2
</span><span>Перелить из сосуда А в В 0-7</span>
Программа:
const m=7; n=8;
var t:array[1..m,1..n] of integer;
i,j:integer; s,max:real;
begin
Randomize;
writeln('Результаты измерений:');
writeln(' 0 3 6 9 12 15 18 21');
writeln(' -------------------------------');
for i:=1 to m do
begin
for j:=1 to n do
begin
t[i,j]:=random(10)-5;
write(t[i,j]:4);
end;
writeln;
end;
max:=-200;
for i:=1 to m do
begin
s:=0;
for j:=1 to n do s:=s+t[i,j];
s:=s/n;
if s>max then max:=s;
end;
writeln('max = ',max:5:1);
end.
Пример:
Результаты измерений:
0 3 6 9 12 15 18 21
-------------------------------
-4 4 2 -4 0 -1 4 1
-5 -2 2 3 4 0 -5 -3
-4 -4 2 0 -3 -1 -1 -4
-5 -3 4 -3 -4 1 -4 3
4 -1 -5 -1 -5 2 1 -1
-1 2 3 -1 -5 3 2 4
1 -5 -5 -1 0 0 1 2
max = 0.9
