Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
vamp1r04ka
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 8
#1

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

30.05.2010, 19:25. Просмотров 546. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2010, 19:25
Ответы с готовыми решениями:

delphi. Исправление ошибок
Ребят....Очень прошу помогите исправить ошибки. Вылезаеют Ошибки ...

консольное приложение
Как из консольного приложения сделать неконсольное,а чтобы формы открывал???

Модель ОЧЕРЕДЬ (queue). Создать приложение, описывающее процедуры и функции работы с ней
- push(c) - поместить в голову; - pop - удалить из хвоста и вернуть удаляемое...

Вывести сумму чисел из данного набора, расположенных между последними двумя нулями (консольное приложение)
Дано целое число N и набор из N целых чисел, содержащий по крайней мере два...

Поиск и исправление орфографических ошибок
Здравствуйте! Началась практика, получили задание, и не знаю как его...

1
kukuruku310
197 / 184 / 26
Регистрация: 14.02.2010
Сообщений: 539
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2010, 23:07

Исправление ошибок русского языка и математическое вычисление!
Привет, недавно сдавал вступительный экзамен по русскому языку. Жду...

Граф. приложение+библиотеки+консольное приложение! Не работает программа без использования консоли. Если использую, то всё прекрасно работает.
Ребята нужна помощь,все вроде сделал, но приложение начинает зависать при...

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


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

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

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