Формулы для графиков (видны на 2 картинке):
1. =1/8*A2^2-2
2. =-1/8*A2^2+2
3. =1/8*A6^2-1
4. =-((A3+2)^2)+3
5. =-((A4+2)^2)+2
6. =-((A12-2)^2)+3
7. =-((A13-2)^2)+2
Объяснение:
картинки
Для введения значений x используем автозаполнение (в ячейку А2 пишем -4, в ячейку А3 пишем -3,5, выделяем обе ячейки и растягиваем вниз за маркер заполнения)
Формулы вставляем в верхнюю ячейку интервала, которому принадлежит х и копируем в остальные ячейки.
Для 4 формулы взят интервал [-3,5; -1], для 5 формулы взят интервал [-3; -1,5], для 6 формулы взят интервал [1; 3,5], для 7 формулы взят интервал [1,5; 3].
Для построения графика выделяем всю таблицу (диапазон А1:Н18) - открываем вкладку меню Вставка - Диаграммы - Точечная - Точечная с гладкими кривыми.
При желании можно дать диаграмме название, убрать оси и сетку и задать другие цвета графикам.
program znanijacom;
const
n = 5;
type
mas = array[1..n] of integer;
var
a: mas;
i: integer;
max: integer;
begin
writeln('введите элементы массива');
for i:=1 to n do readln(a[i]);
writeln('вывод элементов массива:');
for i:=1 to n do write(a[i]:3);
max := a[1];
for i:=1 to n do if a[i] > max then max := a[i];
writeln(' максимальный элемент: ', max);
writeln('массив после изменений: ');
for i:=1 to n do begin
if a[i] = max then a[i] := a[i]*i;
write(a[i]:3);
end;
end.
Объяснение:
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var amax:=a.Max;
Writeln('Максимальный элемент- ',amax);
Write('Номера элементов, равных ',amax,': ');
a.Select((x,i)->(x,i)).Where(xi->xi[0]=amax).Select(xi->xi[1]+1).Println
end.
Пример
n= 50
1 3 -3 0 -9 0 -7 1 1 2 2 -5 2 -7 3 5 -6 10 7 3 1 -3 0 5 10 4 1 -6 -6 -4 -3 10 2 -3 4 -10 -1 9 -4 -9 8 -10 -3 6 4 -8 -9 -7 7 -6
Максимальный элемент- 10
Номера элементов, равных 10: 18 25 32