Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi

Войти
Регистрация
Восстановить пароль
 
vamp1r04ka
0 / 0 / 0
Регистрация: 25.05.2010
Сообщений: 8
#1

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

30.05.2010, 19:25. Просмотров 538. Ответов 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):

delphi. Исправление ошибок - Delphi
Ребят....Очень прошу помогите исправить ошибки. Вылезаеют Ошибки Field Form1.Button1 doesnot have a corresponding...

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

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

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

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

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

1
kukuruku310
197 / 184 / 7
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Консольное приложение для нахождения корней нелинейного уравнения методом бисекции - C#
Реализовать консольной приложение для нахождения корней нелинейного уравнения методом бисекции (x2+x+1)( x2+x+1) -12=0

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


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

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

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