|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.05.2012, 15:25 | #1 |
Новичок
Джуниор
Регистрация: 20.05.2012
Сообщений: 5
|
задача в Delphi7 с матрицей
задача по программированию в Delphi7 с матрицей
Последний раз редактировалось Славик42; 20.05.2012 в 19:20. |
20.05.2012, 17:49 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Код:
I'm learning to live...
|
20.05.2012, 18:28 | #3 |
Новичок
Джуниор
Регистрация: 20.05.2012
Сообщений: 5
|
не непонятна.. я вообще низнаю как её решать
|
20.05.2012, 18:54 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну хоть что-то ты сам напиши. Ввод массива в консольном приложении хотя бы.
I'm learning to live...
|
21.05.2012, 17:08 | #5 |
Новичок
Джуниор
Регистрация: 20.05.2012
Сообщений: 5
|
procedure TForm1.sChange(Sender: TObject);
begin z.RowCount:=s.Value; z.ColCount:=s.Value; end; procedure TForm1.wClick(Sender: TObject); var a: array[1..10,1..10] of integer; i, j, k, n, sum: integer; begin n:=s.Value; for i:=1 to n do for j:=1 to n do if j=1 then a[i,j]:=i else begin sum:=0; for k:=j-1 downto 1 do sum:=sum+a[i,k]; a[i,j]:=sum; end; \ }-подскажите что тут надо дописать чтобы работала / z.Cells[i,j]:=IntToStr(a[i,j]); end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача с матрицей | coolplayer | Общие вопросы C/C++ | 0 | 18.01.2012 12:23 |
задача с матрицей | kypykyky | Общие вопросы C/C++ | 0 | 24.12.2011 22:00 |
задача с матрицей | amsterdam | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 09.06.2011 09:49 |
Задача с матрицей | fightclub | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 4 | 15.01.2010 10:31 |
Задача с матрицей | Kawun | Помощь студентам | 9 | 26.03.2009 00:29 |