0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 8
1

Консольное приложение, описывающее ф-цию нахождения ср.арифм. отр.чисел. Исправление ошибок

30.05.2010, 19:25. Показов 885. Ответов 1
Метки нет (Все метки)

Delphi
1
2
type ssilka = ^ integer;
vector = array[1..100] of ssilka;
Считая, что все элементы вектора Х отличны от nil, создать консольное приложение, описывающее функцию SRED(x) для нахождения среднего арифметического отрицательных чисел, на которые ссылаются элементы вектора Х.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
    ssilka=^integer;
    vector=array [1..100] of ssilka;
var
    v: vector;
 
function sred(var x:vector): ssilka;
var
    i, n: byte;
  sum: SmallInt;
begin
    sred:=nil;
  sum:=0;
    for I:=1 to 100 do
        if x[i]^<0 then 
            begin
                Inc (n);
                sum:=sum+(x[i]^)
            end;
end;
 
BEGIN 
    randomize;
    writeln('Massiv:');
    for i:=1 to 100 do   
            new(v[i]);
            v[i]^:=random*10-2;
            write(v[i]^)
        end;
    writeln;
    if sred(v)=nil then
                writeln('Otricatelnih chisel net ')
            else
                writeln('Srednee arifmeticheskoe: ', sred(v));
    for i:=1 to 100 do     
        dispose(v[i])
END.

помогите исправить пожалуйста.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2010, 19:25
Ответы с готовыми решениями:

Реализовать консольное приложение нахождения методом биссекции
Help!!! 4. Реализовать консольное приложение нахождения методом биссекции корней нелинейного...

Написать консольное приложение для нахождения палиндрома
Ребята, помогите с прогой на c# Есть целое n&gt; 2. Составить программу для нахождения всех простых...

Консольное приложение для нахождения корней нелинейного уравнения методом бисекции
Реализовать консольной приложение для нахождения корней нелинейного уравнения методом бисекции...

Составить программу которая считает пол,отр,дроб.пол,дроб.отр,нули среди задаваемых чисел
помогите пожалуйста!! составить программу которая считает положительные,отрицательные,дробные...

1
306 / 187 / 26
Регистрация: 14.02.2010
Сообщений: 540
30.05.2010, 23:07 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
program sredU;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  ssilka = ^Integer;
  vector = array [1..100] of ssilka;
var
  v: vector;
  i: Integer;  // íå îáúÿâëåíà ïåðåìåííàÿ
  resultOfSred: Double;
 
function sred(var x: vector): Double;  // ðåçóëüòàò ä.á. ñðåäåíèì àðèôì, à íå ssilka
var
  i, n: byte;
  sum: SmallInt;
begin
  sum := 0;
  n := 0;    // ÷èñëî îòðèöàòåëüíûõ ýëåìåíòîâ
  for i := 1 to 100 do
    if x[i]^ < 0 then begin
      Inc(n);
      sum := sum + (x[i]^);
    end;
  if n > 0 then
    Result := sum / n // ó âàñ âîîáùå íåò ïðèñâîåíèÿ ðåçóëüòàòà ôóíêöèè
  else
    Result := 0;
end;
 
begin
  Randomize;
  WriteLn('Massiv:');
  for i := 1 to 100 do begin // â êîäå ïî÷åìó-òî íåò "begin"
    New(v[i]);
    //v[i]^ := Round(Random * 10 - 2); // !! Random áåç óêàçàíèÿ ãðàíèöû âîçâðàùàåò Exteded
                                     //    ïîýòîìó íàäî ïðèâåäåíèå â Int
    v[i]^ := Random(1000) - Random(1000); // èëè íóæíî óêàçàíèå öåëîãî ÷èñëà
 
 
    Write(v[i]^, ':'); // íóæåí êàêîé-òî ðàçäåëèòåëü ýëåìåíòîâ
  end;
  WriteLn;
 
  {
  if sred(v) = 0 then // çäåñü áóäåò âû÷èñëÿòüñÿ Sred
    Writeln('Otricatelnih chisel net ')
  else
    Writeln('Srednee arifmeticheskoe: ', sred(v));  // à çäåñü îïÿòü...
  }
  resultOfSred := sred(v);
  if resultOfSred = 0 then
    Writeln('Otricatelnih chisel net ')
  else
    Writeln('Srednee arifmeticheskoe: ', resultOfSred);
 
  for i := 1 to 100 do
    Dispose(v[i]);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2010, 23:07

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Создать консольное приложение сложение двух чисел
Помогите создать консольное приложение сложение двух чисел.

Консольное приложение, преобразование чисел в символьный текст
Помогите пожалуйста, разработать консольное приложение, которое считывает число и выводит так как...

Как открыть консольное приложение в .NET через другое консольное приложение .NET
Есть один вопрос. Как открыть консольное приложение .NET через другое консольное приложение .NET,...

Определить ф-цию, нахождения векторного произведения векторов трёхмерного пространства
Определить ф-цию, нахождения векторного произведения векторов трёхмерного пространства(без...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.