Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты! помогите составить консольное приложение с процедурой для вычисления среднего арифметичекого элементов массива. Заранее спасибо))

Вопрос задала: Альбина (статус: Посетитель) Вопрос отправлен: 14 января 2010, 22:28 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Жикльор

Здравствуйте, Альбина!

Код программы:

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
mas: array [1..5] of integer;
Middle: real;
i,suma: integer;
begin
Randomize;
suma:=0;
write('Elementu masivy   ');
for i:=1 to 5 do
  begin
  mas[i]:=Random(10);
  suma:=suma + mas[i];
  write(mas[i],'  ');
  end;
writeln;
Middle:=suma/5;
writeln('Sredne znachenie = ',Middle:4:2);
readln;
end.

Ответ отправил: Жикльор (статус: 5-ый класс) Время отправки: 15 января 2010, 00:24 Оценка за ответ: 3 Комментарий к оценке: извените,но в данной программе нет процедуры(((

Ответ #2. Отвечает эксперт: min@y™

Ну, если именно с процедурой надо, а не с функцией, то вот так:

program p3655;
 
{$APPTYPE CONSOLE}
 
const
  N = 10;
 
type
  TVector = array[0..N - 1] of Integer;
 
// Процедура заполнения массива случайными числами
procedure RandomVector(var V: TVector);
var
  Index: Integer;
begin
  for Index:= 0 to N - 1 do
    V[Index]:= Random(100);
end;
 
// Процедура вывода массива на консоль
procedure PrintVector(var V: TVector);
var
  Index: Integer;
begin
  for Index:= 0 to N - 1 do
    Write(V[Index]: 3);
  WriteLn;
end;
 
// Процедура вычисления среднего арифметического
procedure GetAverage(const V: TVector; var Result: Extended);
var
  Index, Sum: Integer;
begin
  Sum:= 0;
 
  for Index:= 0 to N - 1 do
    Inc(Sum, V[Index]);
 
  Result:= Sum / N;
end;
 
var
  V: TVector;
  Average: Extended;
 
begin
  Randomize();
  RandomVector(V);
  WriteLn('  Source array:');
  PrintVector(V);
  GetAverage(V, Average);
  WriteLn('  Average value: ~', Average: 3: 4);
 
  ReadLn;
end.

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 15 января 2010, 08:27 Оценка за ответ: 4

Мини-форум вопроса

webkent (статус: 2-ой класс), 15 января 2010, 08:49 [#1]: Тут, наверно, на каждой странице спрашивают про ср.арифметическое. Видимо, людям вообще лень что-либо искать.

Паровоз (статус: 10-ый класс), 15 января 2010, 09:59 [#2]: "Видимо, людям вообще лень что-либо искать" Зачем искать, когда за них постоянно все делают.

Жикльор (статус: 5-ый класс), 15 января 2010, 12:46 [#3]: Еще и перебирают вариантами(( Уже вообще охамели! За них все делаешь, а они еще и не довольны( Если бы строители строили дома так, как программисты пишут программы, то первый же дятел уничтожил бы цивилизацию.

min@y™ (статус: Доктор наук), 15 января 2010, 13:03 [#4]: Ой, и не говорите! Сплошной беспредел! Куда смотрят модераторы?! Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Альбина (статус: Посетитель), 15 января 2010, 15:29 [#5]: "Жикльор (статус: 5-ый класс), 15 января 2010, 12:46: Еще и перебирают вариантами(( Уже вообще охамели! За них все делаешь, а они еще и не довольны(" Извените конечно,но я же не виновата что мне нужна была программа другого типа,а не та,что предложили вы,Жикльор! Если вы здесь помогаете решать людям "их проблемы",значит это вам нравится,так на что жаловаться,если вы работаете в свое удовольствие?! Не умеете правильно оперировать слова,так и не делайте этого(это я про "охамели")!

Альбина (статус: Посетитель), 15 января 2010, 15:31 [#6]: А Вам,min@y™ ,большое спасибо!

min@y™ (статус: Доктор наук), 15 января 2010, 15:48 [#7]: Цитата (Альбина): А Вам,min@y™ ,большое спасибо! А почему 4? Решение не соответствует заданию на 100%? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Альбина (статус: Посетитель), 15 января 2010, 16:10 [#8]: Преподаватель оценил данную программу на 4 балла)))

min@y™ (статус: Доктор наук), 15 января 2010, 18:00 [#9]: Цитата (Альбина): Преподаватель оценил данную программу на 4 балла Чем он это объяснил? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Вадим К (статус: Академик), 15 января 2010, 19:13 [#10]: Все просто. он просто знает, на что способны его студенты. И по коду (плюс конечно по человеку, который сдает работу) видно сразу, понимает он или нет. Галочка "подтверждения прочтения" - вселенское зло.

min@y™ (статус: Доктор наук), 15 января 2010, 19:22 [#11]: Цитата (Вадим К): Все просто. он просто знает, на что способны его студенты. И по коду (плюс конечно по человеку, который сдает работу) видно сразу, понимает он или нет. А я тут причём? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Альбина (статус: Посетитель), 16 января 2010, 00:40 [#12]: Преподаватель у нас не объясняет,ставит оценку в зачетку и на листчек с ответом и все. Какая оценка-это твои проблемы,устраивает или нет! За задачу 4 стояло,а общая оценка 5!

Вадим К (статус: Академик), 16 января 2010, 01:06 [#13]: Цитата (min@y™): А я тут причём? Ну просто скопировали оценку. и такое бывает. Галочка "подтверждения прочтения" - вселенское зло.

min@y™ (статус: Доктор наук), 16 января 2010, 10:37 [#14]: Охренеть! Значит нам теперь тут преподы оценки ставят, а не те, кто вопросы задаёт... Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

webkent (статус: 2-ой класс), 16 января 2010, 11:35 [#15]: "Преподаватель у нас не объясняет,ставит оценку в зачетку и на листчек с ответом и все. Какая оценка-это твои проблемы,устраивает или нет! За задачу 4 стояло,а общая оценка 5! " Обычно что бы объяснили, нужно спросить =)

Мережников Андрей (статус: Абитуриент), 16 января 2010, 11:41 [#16]: Надо было показать преподу переписку на форуме и вопрос на сайте, может тогда чего другое поставит

Вадим К (статус: Академик), 16 января 2010, 12:55 [#17]: Боюсь, в худшую сторону поставил бы. Но осмелюсь предположить, что Альбина плохо разбирается в программировании, я прав? Галочка "подтверждения прочтения" - вселенское зло.

Паровоз (статус: 10-ый класс), 17 января 2010, 12:46 [#18]: "осмелюсь предположить, что Альбина плохо разбирается в программировании" Если бы она хорошо разбиралась, то не обратилась бы сюда. Поэтому данное предположение смелым не является.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.