Visual basic! написать процедуру:
1) вычислить сумму элементов массива x(m)
2)те из элементов массива y(n), значения которых равны произведению двух предыдущих умножить сумму элементов массива x(m)
3) элементы преобразованного массива y(n) вывести в список на форме.

Практическая работа

Тема: Построение графиков функций в Excel 2010

Задание 1. Построить график функции y=x2 на отрезке [-5; 5] с шагом 0,5hello_html_m7434b05.png

Составить таблицу значений (Рисунок 1)

Выделите диапазон ячеек значений y и выполните команду Вставка – График.

Откройте Вкладку Работа с диаграммами Макет Название диаграммы График функции y=x2

Щелкните по области построения диаграммы, Выбрать данные – Подписи горизонтальной оси (категории) –Изменить- выделить диапазон А3:А23 (Рисунок 2)hello_html_m46c52806.png

  Выберите Ряд Изменить - Имя ряда y=x^2 - Ок

Не снимая выделения с диаграммы выберите вкладку Макет – Названия осей –название горизонтальной оси – название под осью-x. Аналогично внесите название оси y.

hello_html_mfc27ecf.png

Рисунок 3 - Название графика

Выделите двойным щелчком мыши линию графика, правой кнопкой мыши -Формат ряда данных- тип линии- сглаженная линия.

hello_html_m1a8e5315.png

Формат ряда данных

Перенесите ось y в точку 0. Для этого выполните команду Макет- Оси-Горизонтальная ось - Дополнительные параметры горизонтальной оси -

hello_html_m74b02b75.png

– Дополнительные параметры основной горизонтальной оси

Вертикальная ось пересекает в категории номер 11, Положение оси по делениям

Самостоятельно измените цвет линии графика и формат области диаграммы выбрав Градиентную заливку.

Самостоятельно аналогично выполните задания:

Задание 2. Построить график функции y=x3 на отрезке [-3; 3] с шагом 0,5

Задание 3. Построить график функции y=cosx на отрезке [-3; 3] с шагом 0,5

Задание 4. Построить график функции y=2sin3x на отрезке [-3; 3] с шагом 0,5

Задание 5. Решите графически с уравнение 2x2=2x+4

Объяснение:

Var
    n, i, prev: integer;

function IsSimpleNumber(n: integer): boolean;
var
    i: integer;
begin
    IsSimpleNumber := true;
    
    for i := 2 to round(sqrt(n) + 1) do
        if n mod i = 0 then begin
            IsSimpleNumber := false;
            exit;
        end;
end;

begin
    read(n);
    prev := 0;
    
    for i := n to 2 * n do
        if IsSimpleNumber(i) then
            if prev = 0 then
                prev := i
            else if i - prev = 2 then begin
                writeln(i, ', ', prev, ' - близнецы');
                halt;
            end
            else prev := i;
    
    writeln('Близнецов нет');
end.