Вопросики по Турбо Паскалю |
Cообщение скрыто для удобства комментирования.
Прочитать сообщение
| Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |
kpt_Petia обратиться по имени
Пятница, 02 Февраля 2007 г. 20:50 (ссылка)
Den_VO обратиться по имени
Пятница, 02 Февраля 2007 г. 20:52 (ссылка)
kpt_Petia обратиться по имени
Пятница, 02 Февраля 2007 г. 21:09 (ссылка)
Den_VO обратиться по имени
Пятница, 02 Февраля 2007 г. 21:48 (ссылка)
kpt_Petia, ну смотри в процедуре делаем такkpt_Petia обратиться по имени
Пятница, 02 Февраля 2007 г. 21:58 (ссылка)
Den_VO обратиться по имени
Пятница, 02 Февраля 2007 г. 21:59 (ссылка)
kpt_Petia, о! отлично, теперь ясно, спасибо))Dim_K обратиться по имени
Re: Ответ в community_coding; Вопросики по Турбо Паскалю Суббота, 03 Февраля 2007 г. 11:17 (ссылка)
Исходное сообщение Den_VO
kpt_Petia, динамика в паскале есть)
Den_VO обратиться по имени
Суббота, 03 Февраля 2007 г. 11:56 (ссылка)
type
t1=array[1..1] of integer;
var
a:^t1;
n,m,i,j,k,p:integer;
max:integer;
begin
readln (n);
readln (m);
getmem (a,sizeof(integer)*n*m);
for i:=1 to n*m do
read(a^[ i ]);
max:=a^[1]; k:=1; p:=1;
for i:=1 to n do
for j:=1 to m do
if a^[(i-1)*m+j] > max then
begin
max:=a^[(i-1)*m+j];
k:=i; p:=j;
end;
write(k:2, p:2);
freemem(a,2*n*m);
end.
kpt_Petia обратиться по имени
Суббота, 03 Февраля 2007 г. 13:39 (ссылка)
Dim_K обратиться по имени
Re: Ответ в community_coding; Вопросики по Турбо Паскалю Суббота, 03 Февраля 2007 г. 19:35 (ссылка)
Исходное сообщение Den_VO
это разве не то?
1 2
3 4
| Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |