Ошибка в создании функции - PascalABC.NET
Формулировка задачи:
Всем привет! Прошу помощи от каждого.
Не могу толком понять, из-за чего не запускается процедура. Да и верно-ли, на ваш взгляд, она составлена?
Решение задачи: «Ошибка в создании функции»
textual
Листинг программы
program TripleFunction12; type vector = array[1..1000] of integer; var x, y, z, t: real; n, a: integer; F: vector; procedure MinXmassive(x: real; N, a: integer; F: vector); begin x := sqr(F[1]); for a := 2 to N do begin if sqr(F[a]) < x then x := sqr(F[a]); end end; procedure MinYmassive(y, x: real; N, a: integer; F: vector); begin y := sqr(F[1] - sqrt(x)); for a := 2 to N do begin if sqr(F[a] - sqrt(x)) < y then y := sqr(F[a] - sqrt(x)); end end; procedure MinXmassive(z, y: real; N, a: integer; F: vector); begin z := exp(3 * ln(F[1] - sqrt(y))); for a := 2 to N do begin if exp(3 * ln(F[a] - sqrt(y))) < z then z := exp(3 * ln(F[1] - sqrt(y))); end end; begin Writeln('Enter size of array: '); Read(N); Writeln('Enter all value of array: '); for a := 1 to n do Read(F[a]); {Встречена процедура, а ожидался оператор.} Writeln('The final value: ', x, y, z); end.
Объяснение кода листинга программы
Список элементов кода:
- Объявление переменных: x, y, z, t, n, a, F.
- Создание процедуры MinXmassive.
- Создание процедуры MinYmassive.
- Создание процедуры MinZmassive.
- Ввод размера массива и заполнение его значениями.
- Вывод окончательного значения переменных x, y, z.
- Ошибка в создании функции.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д