Помощь - Поиск - Пользователи - Календарь
Полная версия: Не работает функция
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Игорь
Написал функцию (находит ср. арифметическое), вставил в программу, не работает. Из той же функции сделал программу, работает как надо.


function medsum:real;
var
a,med:real;
n,i:word;
begin
write('Введите кол-во слагаемых: ');
readln(n);
for i:=1 to n do
begin
write('Введите ',i,' слагаемое: ');
readln(a);
med:=med+a;
end;
a:=n;
writeln('Среднее арифметическое: ',(sum/a));
readln;
end;





volvo
Цитата
Написал функцию (находит ср. арифметическое), вставил в программу, не работает.
1000 раз говорено: ВСЕ переменные должны быть инициализированы. В случае, если все происходит в программе без подпрограмм - компилятор Паскаля берет на себя инициализацию (только глобальных переменных). Локальные (описанные внутри процедуры/функции) хранят мусор, заполнить их корректным начальным значением - проблема программиста, то есть, твоя...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.