ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Массив через Random с вводимым числом элементов.
19 сообщений из 19, страница 1 из 1
Массив через Random с вводимым числом элементов.
    #39563222
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
Пишет предупреждение [Warning] Unit1.pas(39): Variable 'X' might not have been initialized
и вылетает когда нажимаю на кнопку

Код: pascal
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.
    ...................
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   type
  mass=array of real;
var
  Form1: TForm1;
  n:integer;
implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
var
i:integer;
X:mass;
begin
n:=strtoint(edit1.Text);
For i:=1 to n do begin
X[i]:=Random(n);
 F1Book1.NumberRC[i,1]:=X[i];
 end
end;

end.
...
Рейтинг: 0 / 0
03.12.2017, 10:30:15
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563227
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
temir123,

правду пишет. где инициализация дин. массива?
...
Рейтинг: 0 / 0
03.12.2017, 11:36:47
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563234
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
makhaon,стало только хуже, пишет invalid pointer operation

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
mass=array of real;
var
  Form1: TForm1;
  n:integer;
implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
var
i:integer;
X:mass;
begin
n:=strtoint(edit1.Text);
setlength(X,n);
For i:=1 to n do begin
X[i]:=Random(n);
 F1Book1.NumberRC[i,1]:=X[i];
 end
end;

end.
...
Рейтинг: 0 / 0
03.12.2017, 12:21:18
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563236
fd00ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fd00ch
Участник
temir123, почитай букварь про нумерацию элементов в массиве
...
Рейтинг: 0 / 0
03.12.2017, 12:38:12
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563265
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
temir123стало только хуже, пишет invalid pointer operationЕсли Вы еще проинициализируете n, а потом почитаете проfd00chнумерацию элементов в массивето все у Вас получится
...
Рейтинг: 0 / 0
03.12.2017, 14:26:47
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563266
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
_Vasilisk_Если Вы еще проинициализируете n,Не заметил. Вы таки ее инициализируете
...
Рейтинг: 0 / 0
03.12.2017, 14:27:55
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563272
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
Объясните пожалуйста, ничего не помогает
...
Рейтинг: 0 / 0
03.12.2017, 14:48:11
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563276
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
temir123Объясните пожалуйста, ничего не помогает тынц
...
Рейтинг: 0 / 0
03.12.2017, 14:54:57
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563279
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
у меня ничего не получилось, но все равно спасибо
...
Рейтинг: 0 / 0
03.12.2017, 15:29:37
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563280
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
temir123у меня ничего не получилосьПоказывайте как пытались
...
Рейтинг: 0 / 0
03.12.2017, 15:32:19
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563285
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
temir123,

авторFor i:=1 to n do begin

Динамические массивы нумеруются от 0 до Length-1. Почитай азы, прежде чем писать, правда :)
...
Рейтинг: 0 / 0
03.12.2017, 15:53:50
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563286
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
Возможно еще здесь есть 'особенности':
авторF1Book1.NumberRC[i,1]:=X[i];
...
Рейтинг: 0 / 0
03.12.2017, 15:55:23
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563288
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
Код: pascal
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.
type
  mass=array of real;
var
  Form1: TForm1;
  n:integer;
implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
var
i,a,b:integer;
X:mass;
begin
a:=strtoint(edit2.Text);
b:=strtoint(edit3.Text);
n:=strtoint(edit1.Text);
setlength(X,n);
randomize;
For i:=0 to n-1 do begin
X[i]:=Random(b-a+1)+a;
 F1Book1.NumberRC[i,1]:=X[i];
 end
end;

end.



Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
03.12.2017, 16:08:11
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563289
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
makhaon, все равно ничего
...
Рейтинг: 0 / 0
03.12.2017, 16:09:02
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563300
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
temir123все равно ничегоЧего ничего?
...
Рейтинг: 0 / 0
03.12.2017, 16:53:49
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563304
temir123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
temir123
Гость
не работает
...
Рейтинг: 0 / 0
03.12.2017, 16:59:06
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563314
GunSmoker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GunSmoker
Участник
temir123, ошибка в 13 строке.
...
Рейтинг: 0 / 0
03.12.2017, 17:36:14
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563332
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Что такое F1Book1.NumberRC[] ?
...
Рейтинг: 0 / 0
03.12.2017, 19:03:42
| Ответить | Цитировать | Написать  
Массив через Random с вводимым числом элементов.
    #39563333
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Выкини эту строчку
...
Рейтинг: 0 / 0
03.12.2017, 19:06:55
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Массив через Random с вводимым числом элементов.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=123&tid=2041483]:
 0ms
get settings:
 7ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 62ms
get topic data:
 15ms
get forum data:
 4ms
get page messages:
 90ms
get tp. blocked users:
 2ms
others: 248ms
total:  455ms
созд. / загр.: 455ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]