РЕБЯТА С ИНТЕРНЕТ УРОКА С ИНФОРМАТИКОЙ Напишите программные коды на языке Паскаль для решения задания 1-3. Все задания обязательно нужно выполнить, используя программное обеспечение. Рукописный вариант кода на проверку не принимается.
•Задание 1
Вычислите значение функции (задача на фото!). Значение переменных x и y задайте самостоятельно путем ввода с клавиатуры.
•Задание 2
Используя формулу суммы членов арифметической прогрессии, найдите сумму всех натуральных чисел от 1 до М. Значение М задайте путём ввода с клавиатуры самостоятельно.
•Задание 3
Дана функция fi(x) =3x²+2cosx. Протабулируйте данную функцию на промежутке [-3;3] с шагом h=0.3. Найдите минимальное значение функции, а также определите значение аргумента, для которого оно достигается.

ААА

Хорошо, давайте решим задания по порядку.

Задание 1:
Для решения задания нужно написать программу на языке Паскаль, которая будет вычислять значение функции, используя значения переменных x и y, заданные пользователем.

Вот код программы на языке Паскаль:

```
program Task1;

var
x, y, result: real;

begin
writeln('Введите значение переменной x (вещественное число): ');
readln(x);

writeln('Введите значение переменной y (вещественное число): ');
readln(y);

result := 2 * x + (y - 3) / (2 * y);

writeln('Значение функции: ', result);

readln;
end.
```

Объяснение:
- Сначала программа запрашивает ввод значения переменной x с помощью команды `readln(x)`. Аналогично программа запрашивает ввод значения переменной y с помощью команды `readln(y)`.
- Затем программа рассчитывает значение функции, используя формулу `2 * x + (y - 3) / (2 * y)`. Результат сохраняется в переменную `result`.
- Наконец, программа выводит значение функции на экран с помощью команды `writeln('Значение функции: ', result)`.

Задание 2:
Для решения задания нужно написать программу на языке Паскаль, которая будет вычислять сумму всех натуральных чисел от 1 до М, где М - значение, заданное пользователем.

Вот код программы на языке Паскаль:

```
program Task2;

var
M, sum, i: integer;

begin
writeln('Введите значение M (натуральное число): ');
readln(M);

sum := 0;
for i := 1 to M do
sum := sum + i;

writeln('Сумма всех натуральных чисел от 1 до ', M, ': ', sum);

readln;
end.
```

Объяснение:
- Сначала программа запрашивает ввод значения М с помощью команды `readln(M)`.
- Затем программа инициализирует переменные `sum` и `i` соответствующими значениями.
- После этого программа использует цикл `for` для перебора чисел от 1 до М и суммирует их значение с помощью команды `sum := sum + i`.
- И наконец, программа выводит результат на экран с помощью команды `writeln('Сумма всех натуральных чисел от 1 до ', M, ': ', sum)`.

Задание 3:
Для решения задания нужно написать программу на языке Паскаль, которая будет табулировать функцию fi(x) = 3*x^2 + 2*cos(x) на заданном промежутке [-3;3] с шагом h=0.3, а затем найти минимальное значение функции и значение аргумента, при котором оно достигается.

Вот код программы на языке Паскаль:

```
program Task3;

uses
math;

var
x, result, minResult, argMin: real;

begin
minResult := MaxReal;

writeln('Табулирование функции:');
writeln('x | fi(x)');
writeln('-----------------');

x := -3;
while x <= 3 do
begin
result := 3 * power(x, 2) + 2 * cos(x);

writeln(x:6:2, ' | ', result:0:2);

if result < minResult then
begin
minResult := result;
argMin := x;
end;

x := x + 0.3;
end;

writeln('-----------------');
writeln('Минимальное значение функции: ', minResult:0:2);
writeln('Значение аргумента при минимальном значении функции: ', argMin:6:2);

readln;
end.
```

Объяснение:
- Сначала программа объявляет переменные `x`, `result`, `minResult` и `argMin`.
- Затем программа инициализирует переменную `minResult` максимально возможным значением типа `real`, чтобы гарантировать, что первое найденное значение функции будет меньше этого значения.
- После этого программа выводит заголовок таблицы с помощью команды `writeln('x | fi(x)');`.
- Начинается цикл, который будет табулировать функцию.
- Внутри цикла программа вычисляет значение функции `fi(x)` с помощью формулы `3 * power(x, 2) + 2 * cos(x)`.
- Затем программа выводит значение `x` и `result` в виде строки таблицы с помощью команды `writeln(x:6:2, ' | ', result:0:2);`.
- Программа также проверяет, является ли текущее значение `result` минимальным. Если да, то оно сохраняется в переменную `minResult`, а значение `x` сохраняется в переменную `argMin`.
- После этого значение `x` увеличивается на шаг `0.3` с помощью команды `x := x + 0.3;`.
- Цикл повторяется, пока значение `x` не превысит 3.
- После завершения цикла программа выводит разделительную строку таблицы с помощью команды `writeln('-----------------');`.
- И, наконец, программа выводит минимальное значение функции и значение аргумента при минимальном значении функции с помощью команд `writeln('Минимальное значение функции: ', minResult:0:2);` и `writeln('Значение аргумента при минимальном значении функции: ', argMin:6:2);`.

Надеюсь, эти пошаговые решения помогут вам понять, как написать программные коды на языке Паскаль для решения данных заданий. Если у вас возникнут какие-либо вопросы, не стесняйтесь задавать их!