Пожалуйста, помогите решить задачу - Страница 2

Мага · 10.12.2013, 20:58

Огромное спасибо

AlexZir · 10.12.2013, 20:59

1. Зачем вы подключаете модуль crt, если вы его функции нигде не используете?
2. Вы не считаете количество введенных чисел, соответственно, и среднее арифметическое не вычисляете.
3. Среднее арифметическое - вещественного типа/
4.Непонятно, зачем вы постоянно выводите значение суммы, если вам в задании нужно вывести среднее арифметическое.
Вот исправленный вариант задачи

Цитата:

program tex;
var s:Real; k,a:integer;
begin
s:=0;
k:=0;
repeat
write('vvedite chislo (0 = konec vvoda): ');
readln(a);
s := s + a;
inc(k);
until a = 0;
writeln('srednee arifmet ravno: ', s/k:4:6);
readln
end.

Мага · 10.12.2013, 21:08

Цитата:

Сообщение от AlexZir

1. Зачем вы подключаете модуль crt, если вы его функции нигде не используете?
2. Вы не считаете количество введенных чисел, соответственно, и среднее арифметическое не вычисляете.
3. Среднее арифметическое - вещественного типа/
4.Непонятно, зачем вы постоянно выводите значение суммы, если вам в задании нужно вывести среднее арифметическое.
Вот исправленный вариант задачи

uses crt привык так удобнее , про тип забыл , остальное не знал .. спасибо

10.12.2013, 20:58	#11 (permalink)
Мага Member Регистрация: 10.12.2013 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Огромное спасибо

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070