Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 174375
19.11.2009, 15:38
35.00 руб.
0 9 1
Компьютеры Программирование
Здравствуйте,помогите срочно решить задачу на паскале и составить на нее блок-схему

Заполнить массив случайными числами(вещественными).Найти среднее арифметическое элементов массива А(50)

Обсуждение

Неизвестный
19.11.2009, 18:12
общий
это ответ
Доброго времени суток.
Прилагаю код программы. Блок схему постараюсь сделать как только освобожусь.
Алгоритм таков:
1) Для подстраховки обнуляем переменную Sum которая будет служить переменной суммы всех элементов.
2) Начинаем цикл (For i...) в диапазоне от 1-цы до 50-ти, так как в массиве 50 элементов следуя условию задачи.
3) Теле цикла присваиваем случайное число в диапазоне от 0 до 200.
4) Начинаем цикл (For i..) в том же диапазоне что и в пункте 2.
5) Складываем элемент с текущим значение Sum.
6) Ну и находим само средне арифметическое. А как известно оно равно сумма эллементов деленное на кол-во элементов.

Если что-то не понятно, то спрашивайте. Блок схему нарисую чуть позже.


Приложение:
{$N+}
uses crt;
var
A:array [1..100] of double;
i:integer;
Sum,Ar:double;
begin
clrscr;
randomize;
Sum:=0;
For i:=1 to 50 do
A[i]:=random(200);
For i:=1 to 50 do
Sum:=A[i]+Sum;
Ar:=Sum/50;
Writeln(Ar:0:2);
Readln;
end.
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.11.2009, 18:23
общий
Benqq:
Код:
const
  n=50;
var
  a:array[1..n]of real;
  b:real;
  c:integer;
begin
  {сбрасываем переменную}
  b:=0;
  for c:=1 to n do
    begin
      {создаем элемент массива}
      a[c]:=100*random;
      {суммируем }
      b:=b+a[c];
      {выводим результат}
      write(a[c]:10:5);
      {в блок схеме нет, служит только для визуального оформления результата}
      if (c mod 5)=0 then writeln;
    end;
  {выводим результат}
  write('Result:',(b/n):10:5);
  readln;
end.

и блок схема под мой код

У Warnes блок схема аналогичная, только будет два цикла.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.11.2009, 18:38
общий
Warnes:
Цитата: Платные (профессиональные) вопросы
ООО "Мастер-Эксперт Про" в лице Руководителя, Управляющих и Администраторов, а также сам эксперт, подавший ответ, несут ответственность за достоверность и качество ответов на вопросы этого типа. Все поступающие ответы на платные вопросы проходят жесткий контроль со стороны модераторов портала.

Внимательно прочтите. Ваш ответ не полный и на платные вопросы такие ответы
Цитата: 284254
Блок схему постараюсь сделать как только освобожусь

Недопустимы!
Постарайтесь осводится пораньше, т.к. вопрос звучал помогите [color=red]срочно решить задачу на паскале и составить на нее блок-схему[/color].

Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
19.11.2009, 18:50
общий
Написано срочно, по этой причине я и написал только код. Лучше что-то чем ничего.
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.11.2009, 19:07
общий
Warnes:
Ещё раз повторяю, что ответы на ПЛАТНЫЕ вопросы должны быть полные(т.е. качественные), не говоря уже о достоверности(т.е. правильные).
Ответ в том виде в котором Вы его отправили годится только для УСЛОВНО-БЕСПЛАТНЫХ впросов.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
19.11.2009, 19:42
общий
отлично спасибо
Неизвестный
19.11.2009, 21:27
общий
Warnes:
Добрый вечер. Вот перечень грамматических ошибок, которые я заметил.

Блок-схему постараюсь сделать, как только освобожусь.
1) Для подстраховки обнуляем переменную Sum, которая будет служить переменной суммы всех элементов.
2) Начинаем цикл (For i...) в диапазоне от 1-цы до 50-ти, так как в массиве 50 элементов, следуя условию задачи.
3) В тТеле цикла присваиваем случайное число в диапазоне от 0 до 200.
4) Начинаем цикл (For i..) в том же диапазоне, что и в пункте 2.
5) Складываем элемент с текущим значением Sum.
6) Ну и находим само среднее арифметическое.
А, как известно, оно равно суммеа эллементов, деленнойе
на кол-во элементов.


Рассмотрим смысловые ошибки.
1) Термин "подстраховка" относится к случайным процессам, а не к детерминированным.
3) Не указано, чему присваиваем случайное число.
5) В действительности, увеличиваем значение sum на величину элемента

Техническая неточность. В условии говорится о массиве из 50 элементов. Задан массив из 100 элементов, хотя используются только первые 50.
Неизвестный
20.11.2009, 08:52
общий
Спасибо за замечания.Буду исправляться. С грамматикой у меня проблемы это да. Но как кто-то сказал что "Зная 8 языков программирования, русский язык забывается напрочь" так это про меня=)
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
30.11.2009, 13:10
общий
Benqq:
Полная блок-схема:
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа