Ошибки в программе

@янгл · Регистрация: 23.07.2009

Студворк — интернет-сервис помощи студентам

Помогите разобраться с ошибками.

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure StringGrid1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.StringGrid1Click(Sender: TObject);
var a:array[1..3] of real;
i:integer;
begin
for i:=1 to 3
a[i]:=strtoint(stringgrid1.Cells)
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var    a:array[1..3] of real;
d:real;
begin
d:=a[1]*a[5]*a[9]-a[1]*a[6]*a[8]-a[2]*a[4]*a[9]+a[2]*a[6]*a[7]+a[3]*a[4]*a[8]-a[3]*a[5]*a[7];
label1.Caption:=floattostr(d);
end;
 
end.

Добавлено через 5 минут 53 секунды
Вот какие ошибки:
'D0'expected but identifier 'a' found
constant expression violates subrange bounds
constant expression violates subrange bounds
constant expression violates subrange bounds
constant expression violates subrange bounds
constant expression violates subrange bounds
constant expression violates subrange bounds
could not compile used unit 'Unit1.pas'

@Meh · 31.07.2009, 16:26

[QUOTE=Jazon_deenAlt;229769]а етот код давайте разберем)

Delphi
1
2
3
4
repeat //повторяем следуещие
StringGrid1.Cells[i,j]:=IntToStr(Random(10)); //задаем ячейке число 
a[i,j]:=strtoint(stringgrid1.Cells[i,j]) //присваиваем ето число матрице
until StringGrid1.Cells[i,j]<>'0' //пока ета ячейка не равна 0

тоесть в результате все ячейки и елементы матрицы будут равны 0)))

Не будут они равны 0, неправильное понимание цикла. Здесь происходит след:
until StringGrid1.Cells[i,j]<>'0' //ДО ТЕХ ПОР ПОКА ЭТА ЯЧЕЙКА НЕ БУДЕТ РАВНА 0!!!!
ТО есть если ячейка равна 0, то ей присваивается новое значение StringGrid1.Cells[i,j]:=IntToStr(Random(10))

@Jazon_deenAlt · 31.07.2009, 16:35

Meh, да, вы правы) затупил))) прошу прощения) четто с чем-то спутал)

@Meh · 31.07.2009, 16:36

Добавлено через 35 секунд

Сообщение от Jazon_deenAlt

Meh, да, вы правы) затупил))) прошу прощения) четто с чем-то спутал)

Бывает) Ничего страшного)

@TAVulator · 31.07.2009, 16:37

млин... чего вы мучаетесь?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var
 A: array[1..3,1..3] of integer;
 i,j: byte;
 D: integer;
begin
stringgrid1.FixedCols:=0;
stringgrid1.FixedRows:=0;
stringgrid1.RowCount:=3;
stringgrid1.ColCount:=3;
Randomize;
For i:=1 to 3 do
 For j:=1 to 3 do
  Begin
   A[i,j]:= Random(100);
   stringgrid1.Cells[i-1,j-1]:=inttostr(A[i,j]);
  End;
D:=a[1,1]*a[2,2]*a[3,3]-a[1,1]*a[2,3]*a[3,2]-a[1,2]*a[2,1]*
   a[3,3]+a[1,2]*a[2,3]*a[3,1]+a[1,3]*a[2,1]*a[3,2]-a[1,3]*
   a[2,2]*a[3,1];
label1.Caption:='Оперделитель: '+inttostr(D);
end;

проверил - работает.

@schdub · 31.07.2009, 16:37

Сообщение от Meh

Delphi
1
until StringGrid1.Cells[i,j]<>'0' //ДО ТЕХ ПОР ПОКА ЭТА ЯЧЕЙКА НЕ БУДЕТ РАВНА 0!!!!

ТО есть если ячейка равна 0, то ей присваивается новое значение StringGrid1.Cells[i,j]:=IntToStr(Random(10))

Meh, специфика цикла с постусловием REPEAT, такова, что выход из него будет совершен, если условие после UNTIL ложно (читай, равно False).

@Jazon_deenAlt · 31.07.2009, 16:47

lexus_ilia, глобальненько) спасибо мне может пригодитса) ато я все

Delphi
1
2
3
4
5
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',',','-']) then
key:=#14;
end;

юзал)

Добавлено через 8 минут 30 секунд
polivets, нє-нє-нє... он прав) после антила условия выхода из цыкла) тоесть если то что после антила = тру тогда цыкл кончаетса)))

Добавлено через 1 минуту 22 секунды
ето в вайле пока тру цыкл крутитса а если фальш то заканчиваетса)

@Meh · 31.07.2009, 16:48

Не по теме:

Всех СисАдминов с праздником! Пошел пить пиво)

@schdub · 31.07.2009, 16:51

polivets, нє-нє-нє... он прав) после антила условия выхода из цыкла) тоесть если то что после антила = тру тогда цыкл кончаетса)))

да ты прав, после того, как написал, только понял, что написал.
Meh, извини.

@TAVulator · 31.07.2009, 16:58

Сообщение от янгл

Нужны не случайные числа, а те, которые вводятся в StringGrid1.

а ну тогда вот так:

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
procedure TForm1.Button1Click(Sender: TObject);
var
 A: array[1..3,1..3] of integer;
 i,j: byte;
 D: integer;
begin
stringgrid1.FixedCols:=0;
stringgrid1.FixedRows:=0;
stringgrid1.RowCount:=3;
stringgrid1.ColCount:=3;
Randomize;
For i:=1 to 3 do
 For j:=1 to 3 do
  Begin
   If stringgrid1.Cells[i-1,j-1]<>'' then
   A[i,j]:= strtoint(stringgrid1.Cells[i-1,j-1])
   else Begin
   A[i,j]:= 0;
   stringgrid1.Cells[i-1,j-1]:='0';
   end;
  End;
D:=a[1,1]*a[2,2]*a[3,3]-a[1,1]*a[2,3]*a[3,2]-a[1,2]*a[2,1]*
   a[3,3]+a[1,2]*a[2,3]*a[3,1]+a[1,3]*a[2,1]*a[3,2]-a[1,3]*
   a[2,2]*a[3,1];
label1.Caption:='Оперделитель: '+inttostr(D);
end;
 
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var
 s: string;
begin
If not (Key in ['0'..'9']) then
 key:=#0;
end;

проверил - работает.

@Puporev · 31.07.2009, 18:07

If not (Key in ['0'..'9']) then

Добавил бы сюда #8 и '-', причем разрешить минус только первым символом.

@янгл · 31.07.2009, 18:35 **[ТС]**

TAVulator работает.
Только вот не понятно

Delphi
1
If stringgrid1.Cells[i-1,j-1]<>''

'' это то же самое, что 0?
И почему в

Delphi
1
stringgrid1.Cells[i-1,j-1]:='0';

0 стоит в ковычках?

Да и, как глобально объявлять массив?

@schdub · 31.07.2009, 18:48

Delphi
1
stringgrid1.Cells[i-1,j-1]:='0';

0 стоит в ковычках?

В стринггриде элементы храняться в текстовом представлении, именно по этому

Delphi
1
If stringgrid1.Cells[i-1,j-1]<>''

не то же самое, что

Delphi
1
If stringgrid1.Cells[i-1,j-1]<>'0'

@янгл · 31.07.2009, 18:52 **[ТС]**

Как глобально объявлять массив?

@schdub · 31.07.2009, 19:00

Сообщение от янгл

Как глобально объявлять массив?

в твоем первом посте видишь строки 23-24

Delphi
1
2
3
4
var
  Form1: TForm1;
  // здесь твой массив
  Massiv : array[1..3, 1..3] of Real;

@galileopro · 31.07.2009, 19:08

Delphi
1
2
StringGrid1.Cells[i,j]:=IntToStr(Random(10));
  a[i,j]:=strtoint(stringgrid1.Cells[i,j])

Лучше

Delphi
1
2
a[i,j]:=Random(10);
StringGrid1.Cells[i,j]:=IntToStr(a[i,j]);

Меньше вычислений.

Добавлено через 2 минуты 3 секунды

Сообщение от polivets

в твоем первом посте видишь строки 23-24

Delphi
1
2
3
4
var
  Form1: TForm1;
  // здесь твой массив
  Massiv : array[1..3, 1..3] of Real;

Лучше

Delphi
1
2
3
4
Type
  Mass=array[1..3, 1..3] of Real;
var 
  Massiv :Mass;

Так нагляднее, что Mass - отдельный тип данных.

@янгл · 31.07.2009, 19:15 **[ТС]**

Я пишу процедуру для кнопки очистки таблицы stringgrit. В ней каждому элементу массива присваивается значение 0:

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject);
i,j:byte;
begin
For i:=1 to 3 do
 For j:=1 to 3 do
  begin
  a[i,j]:=0;
  end;
end;

он говорит, что неизвестна директива i и не описаны идентификаторы i,j.
Вроде все в var

@schdub · 31.07.2009, 19:17

Не по теме:

Так нагляднее, что Mass - отдельный тип данных.

Не знаю, я не считаю, что этот метод нагляднее, наоборот неопытного программиста, может запутать такое объявление... В данном случае это не отдельный тип данных, а отдельная сущность.

Незнаю, незнаю, дело вкуса.

янгл, вопрос разрешен? топик закрывать?

@galileopro · 31.07.2009, 19:18

Не знаю. Я var в строке

Delphi
1
i,j:byte;

не вижу)

@schdub · 31.07.2009, 19:18

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject);
var i,j:byte;
begin
For i:=1 to 3 do
 For j:=1 to 3 do
  begin
  a[i,j]:=0;
  end;
end;

@galileopro · 31.07.2009, 19:20

Не знаю, я не считаю, что этот метод нагляднее, наоборот неопытного программиста, может запутать такое объявление... В данном случае это не отдельный тип данных, а отдельная сущность.

Сори, но я сказал так, как советовали в институте. Еще раз сори)

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	31.07.2009, 16:35
	Meh, да, вы правы) затупил))) прошу прощения) четто с чем-то спутал) 0

@Meh
	31.07.2009, 16:48
	Не по теме: Всех СисАдминов с праздником! Пошел пить пиво) 0

@янгл 6 / 6 / 0 Регистрация: 23.07.2009 Сообщений: 237
	31.07.2009, 18:52 [ТС]
	Как глобально объявлять массив? 0