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

Мага · 10.12.2013, 18:58

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

Мага · 10.12.2013, 19:13

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

AlexZir · 10.12.2013, 19:18

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

Цитата:

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

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

Цитата:

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

Мага · 10.12.2013, 20:33

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

AlexZir · 10.12.2013, 20:41

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

Мага · 10.12.2013, 20:44

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

Мага · 10.12.2013, 20:49

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.

Мага · 10.12.2013, 20:50

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

Vladimir_S · 10.12.2013, 20:55

Цитата:

Сообщение от Мага

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

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

Код:

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.

Мага · 10.12.2013, 20:58

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

10.12.2013, 18:58	#1 (permalink)
Мага Member Регистрация: 10.12.2013 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Пожалуйста, помогите решить задачу Задача не сложная вроде как , но я не посещал занятия программирования весь семестр через неделю экзамен ( вот задача : написать программу которая запрашивает с клавиатуры вести целые числа пока не будет веден 0 , и вывести среднее арифметическое веденных чисел.

10.12.2013, 20:41	#5 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	На Pascal можно использовать цикл repeat...until в первом случае, и while... во втором. __________________ Убить всех человеков!

10.12.2013, 19:13	#2 (permalink)
Мага Member Регистрация: 10.12.2013 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Хотя бы начало напишите плиз дальще постараюсь продолжить...

10.12.2013, 20:33	#4 (permalink)
Мага Member Регистрация: 10.12.2013 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal ABC . Сейчас проверю что получается спасибо!

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

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

10.12.2013, 20:49	#7 (permalink)
Мага Member Регистрация: 10.12.2013 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	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.

10.12.2013, 20:50	#8 (permalink)
Мага Member Регистрация: 10.12.2013 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	вот так получается но задача полностью не выполнена же ?

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