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

[Мага]

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

Задача не сложная вроде как , но я не посещал занятия программирования весь семестр через неделю экзамен ( вот задача : написать программу которая запрашивает с клавиатуры вести целые числа пока не будет веден 0 , и вывести среднее арифметическое веденных чисел. tehno010tehno010:tehnari_ru_267:

 

[Мага]

Хотя бы начало напишите плиз дальще постараюсь продолжить...

 

[AlexZir]

Язык программирования какой?
Вот на алгоритмическом, разбирайтесь:

[FONT=&quot] алг сумма
нач цел т, вещ с,ч
. с:=0 |задаем начальное значение переменной суммы
. т:=0 |задаем начальное значение переменной счетчика введенных чисел
. ч:=111111111 |задаем произвольное значение переменной текущего числа
. нц пока ч<>0 |заводим цикл ввода чисел, условием выхода из цикла ставим значение ч=0
. . ввод ч |вводим текущее число
. . т:=т+1 |счетчик введенных чисел увеличиваем на 1
. . с:=с+ч |сумму увеличиваем на введенное число
. кц
. с:=с/т |вычисляем среднее арифметическое
. вывод"среднее арифметическое введенных чисел равно ",с
кон[/FONT]

Данный алгоритм рассматривает введенный нуль как одно из значащих чисел, если же 0 не нужно учитывать при вычислении среднего арифметического, то алгоритм принимает следующий вид (даю без комментариев):

[FONT=&quot] алг сумма
нач цел т, вещ с,ч
. с:=0
. т:=0
. ч:=111111111
. нц пока ч<>0
. . ввод ч
. . т:=т+1
. . если ч<>0
. . . то с:=с+ч
. . все
. кц
. с:=с/т
. вывод"среднее арифметическое введенных чисел равно ",с
кон[/FONT]

 

[Мага]

Pascal ABC . Сейчас проверю что получается спасибо!

 

[AlexZir]

На Pascal можно использовать цикл repeat...until в первом случае, и while... во втором.

 

[Мага]

Немного не получается ..

 

[Мага]

program tex;
uses crt;
var
a, s : integer;
begin
s := 0;
repeat
write('vvedite chislo (0 = konec vvoda): ');
readln(a);
s := s + a;
writeln('summa ravna: ', s);
until a = 0;
readln
end.

 

[Мага]

вот так получается но задача полностью не выполнена же ?

 

[Vladimir_S]

вот так получается но задача полностью не выполнена же ?

Ладно, раз Вы сами хоть что-то попытались сделать - помогу. Вот Вам рабочий код:

Var
 A,Sum,n:Integer;
Begin
 Sum:=0;
 n:=0;
 Repeat
  Write('Next number: ');
  Readln(A);
  if A<>0 then
   begin
    Inc(n);
    Inc(Sum,A);
   end;
 Until A=0;
 If n<>0 then Writeln('Reasult= ',Sum/n:0:3);
 Readln
End.

 

[Мага]

спасибо ! я вообще не то делал ..

 

[Мага]

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

 

[AlexZir]

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.

 

[Мага]

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

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