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

прблема с функцией

30.05.2011, 22:18. Показов 478. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задание 4: Создать процедуру, вычисляющую количество заданных элементов(чисел) в одномерном массиве.
Задание 5: Создать функцию, вычисляющую количество заданных элементов (чисел)в одномерном массиве.

задание 4 и 5 я решил сделать сразу вместе, через процедуру получилось сделать а вот через функцию никак, выдает ошибку, тут надо связать как то со стрингрид но он его невидит
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
procedure chisla (var n:integer; a:array of integer);
begin
 n:=length(a);
 end;
 
procedure TForm1.Button1Click(Sender: TObject);
 var
 i,n,x:Integer;
    a:array of integer;
begin
  setlength(a,0);
 for i:=0 to StringGrid1.ColCount-1 do
 try
 n:=strtoint(StringGrid1.Cells[i,0]);
 setlength(a,length(a)+1);
 a[high(a)]:=n;
 except
end;
  chisla(x,a);
  label1.Caption:=inttostr(x);
end;
 
 
  function chisla2(n:integer):integer;
 var
 i,l,x:Integer;
    a:array of integer;
begin
  setlength(a,0);
 for i:=0 to 100 do
 
 try
 l:=a[i];
 setlength(a,length(a)+1);
 a[high(a)]:=l;
 except
end;
  n:=a[high(a)];
  result:=n
  end;
 
 
 procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption:=inttostr(chisla2(n));
end;
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2011, 22:18
Ответы с готовыми решениями:

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

Прблема с bootcamp
Проблем возник при установке Windows на MacBook Pro. А именно я хотел переустановить Windows (хотел...

Продвижение в регионе. Прблема.
Добрый день. Заранее спасибо всем ответившим. Сайт по ключевым запросам по России занимает 20-40...

Прблема с дженериками(List<T>)
struct mystruct { public int a; } static void Main(string...

1
47 / 47 / 21
Регистрация: 30.04.2009
Сообщений: 119
30.05.2011, 22:57 2
Если не видит стринггрид то пиши так
Delphi
1
form1.stringgrid1
1
30.05.2011, 22:57
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2011, 22:57
Помогаю со студенческими работами здесь

Прблема с параллакс эффектом
Здравствуйте, уважаемые коллеги! Делаю блок с параллакс эффектом. Но в макете имеются зигзаги до...

XDEBUG remote_connect_back прблема
Привет. На виртуальной машине стоит Apache/2.2.22 (Ubuntu 12.04 LTS) + PHP Version 5.3.10 +...

Прблема с index.php
Доброго денька!!! Ребята, объясните, будьте добры: есть сервер apache2 (версия Apache/2.2.14...

Прблема с иминем получаьеля
Я сталкнулся вот с такой проблемой:как то раз мы неправильно прописали имя получателя(так то по...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru