Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2009, 13:46   #1
Beka
 
Регистрация: 29.10.2009
Сообщений: 7
Вопрос В чем ошибка?

Нужно создать матрицу StringGrid и выполнить проверку - если в ячейке записано нечисло, то в ней должен появиться 0, если число, то это число остается. Потом после нажатия кнопки появлятся вторая матрица StringGrid, значения которой являются результатом умножения первой матрицы на 2. Вот код:

Код:
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..5,1..5] of integer;
i,j: integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
if StringGrid1[i,j]:=integer then
a[i,j]:=StringGrid1[i,j]
else a[i,j]:=0
end;

procedure TForm1.Button2Click(Sender: TObject);
var b: array[i,j] of integer;
i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
b[i,j]:=(a[i,j])*2;
StringGrid2.Visible:=true;
end;
Он не работает. В чем ошибка?

Последний раз редактировалось Stilet; 25.11.2009 в 14:39.
Beka вне форума Ответить с цитированием
Старый 25.11.2009, 14:33   #2
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 17,351
По умолчанию

if StringGrid1[i,j]:=integer then
Во-первых сравнение со знаком =, а не :=.
Далее integer это тип обозначающий целое число, но не само число и такое выражение не допустимо.
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Старый 25.11.2009, 14:39   #3
Beka
 
Регистрация: 29.10.2009
Сообщений: 7
По умолчанию

А что обозначает само число?
Beka вне форума Ответить с цитированием
Старый 25.11.2009, 14:40   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
А что обозначает само число?
А что ты хочешь этим участком кода делать?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.11.2009, 14:45   #5
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 17,351
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
А что ты хочешь этим участком кода делать?
Ему надо проверить является ли данный текст в ячейке числом.
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Старый 25.11.2009, 14:46   #6
Beka
 
Регистрация: 29.10.2009
Сообщений: 7
По умолчанию

Хочу чтобы если в ячейке записать число, то оно там так и осталось, а если не число - оно превратилось в нуль.
Beka вне форума Ответить с цитированием
Старый 25.11.2009, 14:51   #7
pu4koff
Старожил
 
Аватар для pu4koff
 
Регистрация: 22.05.2007
Сообщений: 9,091
По умолчанию

Код:
...
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j] := StrToIntDef(StringGrid1[i,j],0);
pu4koff вне форума Ответить с цитированием
Старый 25.11.2009, 15:09   #8
Beka
 
Регистрация: 29.10.2009
Сообщений: 7
По умолчанию

pu4koff, спасибо, но надо через if then else
Beka вне форума Ответить с цитированием
Старый 25.11.2009, 15:12   #9
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
но надо через if then else
Что за глупость? Зачем еще такая морока?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.11.2009, 15:16   #10
Beka
 
Регистрация: 29.10.2009
Сообщений: 7
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Что за глупость? Зачем еще такая морока?
Сказали так сделать
Beka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В чем ошибка? hitman12 Паскаль, Turbo Pascal, PascalABC.NET 13 04.11.2009 12:38
в чем ошибка Arassir Помощь студентам 3 01.04.2009 21:51
В чем ошибка ? Droid Общие вопросы Delphi 13 03.05.2008 18:17
В чем ошибка!!! juden Общие вопросы Delphi 12 10.03.2008 08:53
в чем ошибка? Lonix Общие вопросы Delphi 2 24.03.2007 09:41