1 задание: Для приведенной ниже числовой
последовательности написать программу для вычисления числа:
2 задание: Постановка задачи. Написать оптимальную (по числу
арифметических операций) программу для вычисления приведенной ниже
функции. Построить график данной функции на отрезке [a; b], а также график
касательной к ней в точке с абсциссой хо.
3 задание: Постановка задачи. Затабулировать функцию двух переменных z(x,y)
внутри квадрата xmax ≥ x ≥ xmin и ymax ≥ у ≥ ymin и области существования
функции z. Шаги табуляции Δх = Δу. Результаты вывести на рабочий лист
Excel. В точках, где функция не определена вывести 4 символа «*». Выделить
различным цветом точки, в которых функция определена и точки, в которых
функция не определена.
ВАРИАНТ 5( скрины заданий по порядку от 1 до 3
1. Порядковый номер максимальной цифры, считая номера от конца числа:
- Сначала разложим число на цифры. Для этого будем постепенно делить число на 10 и брать остаток от деления.
- Найдем максимальную цифру из полученных. Для этого пройдемся по всем цифрам и будем сравнивать их со значением максимальной цифры.
- Запомним номер цифры, имеющей максимальное значение. Для этого заведем переменную, которая будет хранить индекс этой цифры (начиная от 1).
- Если в процессе прохода найдется еще одна цифра с бОльшим значением, обновим значение максимальной цифры и индекса.
- По окончанию прохода получим порядковый номер максимальной цифры, считая номера от конца числа.
2. Порядковый номер минимальной цифры, считая номера от конца числа:
- Алгоритм аналогичен предыдущему, только теперь будем находить минимальную цифру.
- Получим порядковый номер минимальной цифры, считая номера от конца числа.
Давай теперь напишем программу на языке Pascal, которая это решает:
```pascal
program FindNumbers;
var
num, digit, maxDigit, minDigit, maxIndex, minIndex, count: integer;
begin
Write('Введите натуральное число: ');
Readln(num);
maxDigit := 0;
minDigit := 9;
maxIndex := -1;
minIndex := -1;
count := 1;
while num <> 0 do
begin
digit := num mod 10;
if digit > maxDigit then
begin
maxDigit := digit;
maxIndex := count;
end;
if digit < minDigit then
begin
minDigit := digit;
minIndex := count;
end;
num := num div 10;
count := count + 1;
end;
writeln('Порядковый номер максимальной цифры, считая номера от конца числа: ', count - maxIndex + 1);
writeln('Порядковый номер минимальной цифры, считая номера от конца числа: ', count - minIndex + 1);
end.
```
Надеюсь, что данное пошаговое решение и программный код помогут тебе понять, как решить данную задачу. Если у тебя возникнут вопросы, не стесняйся задавать их! Я всегда готов помочь!