|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.07.2008, 18:53 | #1 |
Новичок
Джуниор
Регистрация: 09.07.2008
Сообщений: 1
|
Допоможіть описати ДВОВИМІРНИЙ масив!
Допоможіть зробити блок-схему!
program dvm37_2; uses crt; var d:array[1..5,1..5] of real; i,j,k:integer; max:real; begin clrscr; for i:=1to 5 do begin for j:=1to 5 do begin d[i,j]:=sin(i+j); write(d[i,j]:7:2); end; writeln end; begin max:=d[1,1]; for i:=1to 5 do for j:=1to 5 do if max<d[i,j] then begin max:=d[i,j]; k:=i; end; writeln; writeln('max=',max:4:2); writeln; for i:=k to 5 do begin for j:=1 to 5 do begin write(d[i,j]:7:2); end; writeln end; end; end. Последний раз редактировалось helof; 10.07.2008 в 19:52. |
10.07.2008, 19:51 | #2 |
я получил эту роль
Старожил
Регистрация: 25.05.2007
Сообщений: 3,694
|
То есть?
array[1..5,1..5] и есть двухмерный. Чего сделать-то конкретно нужно?
пыщь
|
10.07.2008, 21:33 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Во-первых поправил в программе ошибки.
Код:
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Масив и timage. | RealSHELS | Мультимедиа в Delphi | 2 | 06.05.2008 13:39 |
Масив строк => строка | Rio309 | Помощь студентам | 4 | 22.03.2008 15:35 |
Масив и матрица | nikleb | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 26.02.2008 01:31 |
элемменты заданого масива a(n) перепешите в новый масив b(n) в обратном порядке! | finch | Помощь студентам | 4 | 25.06.2007 13:20 |
маcсив | nikleb | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 19.04.2007 23:23 |