|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
20.04.2014, 20:35 | #1 (permalink) |
Новичок
Регистрация: 20.04.2014
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача по Delphi со строками
|
20.04.2014, 20:35 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обратите внимание на данные топики Задача на работу с символами и строками Помогите с Delphi, очень легкая задача, но до меня не доходит |
20.04.2014, 21:14 | #2 (permalink) |
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
Дана матрица размера MxN. Удалить столбец, содержащий максимальный элемент матрицы.
Код:
program Project2; {$APPTYPE CONSOLE} uses SysUtils; Type Matrix=array of array of integer; function max(a:Matrix;n,m:integer):integer; var i,j,ind,m1:integer; begin m1:=a[0,0]; ind:=0; for i:=0 to n-1 do for j:=0 to m-1 do if a[i,j]>m1 then begin m1:=a[i,j];ind:=i;end; max:=ind; end; var a:Matrix; i,j,M,N,mel:integer; begin writeln('Vvedite razmer A(NxM)'); write('N: ');readln(n); write('M: ');readln(m); SetLength(a,n,m); for i:= 0 to n-1 do begin for j:=0 to m-1 do begin a[i,j]:=random(9); write(a[i,j],' '); end; writeln; end; writeln; mel:=max(a,n,m); for i:= 0 to n-1 do for j:=mel to m-2 do a[i,j]:=a[i,j+1]; SetLength(a,n,m-1); for I := Low(A) to High(A) do begin for j := Low(A[i]) to High(A[i]) do write(a[i,j],' '); writeln; end; readln; end. В файл записывать результат, дело не хитрое... |
20.04.2014, 21:34 | #5 (permalink) |
Новичок
Регистрация: 20.04.2014
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
слушай, ещё вопрос: а можно это как-то на форму разместить, или это только в консоли?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
21.04.2014, 13:04 | #7 (permalink) |
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
Сделано в консоли, на форму разместить можно.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|