|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
26.11.2020, 12:19 | #11 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
26.11.2020, 12:19 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можно упростить решение вопроса путем просмотра схожих постов Паскаль, массив Паскаль. Массив Массив, Паскаль Массив, Паскаль Паскаль, массив |
26.11.2020, 12:33 | #13 (permalink) |
Member
Регистрация: 17.01.2012
Адрес: Краснодар
Сообщений: 2,708
Записей в дневнике: 5
Сказал(а) спасибо: 30
Поблагодарили 254 раз(а) в 36 сообщениях
Репутация: 59322
|
Володь, ну, во-первых, по поводу повторяющихся значений я не понял, честно говоря (думал, это так, к слову в задании ), а, во-вторых, мои познания в программировании вообще стремятся к нулю . Когда-то, много лет назад, я самостоятельно пытался осваивать это увлекательное занятие. А пару месяцев назад решил тряхнуть стариной и кое что освежить в памяти, написав для своей организации телефонный справочник под SQL-сервер. Вспоминать, конечно, было очень сложно - всё, что знал, и что не знал, забыл напрочь.
__________________
Одна голова - хорошо, а три - сквозной канал!© |
26.11.2020, 14:54 | #15 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну вот, но это, к сожалению, всего лишь Pascal, а не Delphi, поэтому все дельфийские штучки (ввод/вывод, преобразование формата) я оставляю "за кадром".
Код:
Const m=4; Type Vect=Array[1..m] of Integer; Matr=Array[1..m] of Vect; Const R:Matr=((-4,3,2,3),(5,6,9,13),(-7,11,-8,11),(45,-4,31,-4)); Var NS:Array[1..m] of Integer; mS,i:Integer; Function Rep(VR:Vect):boolean; var b:boolean; p,q:Integer; begin b:=FALSE; for p:=1 to m-1 do for q:=p+1 to m do if VR[p]=VR[q] then b:=TRUE; Rep:=b; end; Begin mS:=0; for i:=1 to m do if Rep(R[i]) then begin Inc(mS); NS[mS]:=i; end; if mS=0 then Writeln('No such strings') else begin Writeln('String numbers:'); for i:=1 to mS do Write(' ',NS[i]); end; Readln; End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|