Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 26.11.2020, 12:19   #11 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от vasilych Посмотреть сообщение
Я не профессиональный программист, как уважаемый Vladimir_S (пусть поправит меня, если я где ошибся)
Да какое там "профессиональный"! Простой физик-экспериментатор, программки пишу при необходимости. Кстати, в ООП я, ну как бы это помягче... в общем, оно мне на практике без надобности. Даже просто динамические структуры применяю редко, обхожусь обычным классическим программированием. Задачки, правда, у меня непростые, и программы на сотни страниц.
Vladimir_S вне форума   Ответить с цитированием

Старый 26.11.2020, 12:19
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Можно упростить решение вопроса путем просмотра схожих постов

Паскаль, массив
Паскаль. Массив
Массив, Паскаль
Массив, Паскаль
Паскаль, массив

Старый 26.11.2020, 12:24   #12 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от vasilych Посмотреть сообщение
Надеюсь, мои описания простым языком будут понятны автору.
Сергей, автору — может быть, а мне вот как-то не очень. Где проверка наличия повторяющихся значений?
Vladimir_S вне форума   Ответить с цитированием
Старый 26.11.2020, 12:33   #13 (permalink)
vasilych
Member
 
Аватар для vasilych
 
Регистрация: 17.01.2012
Адрес: Краснодар
Сообщений: 2,708
Записей в дневнике: 5
Сказал(а) спасибо: 30
Поблагодарили 254 раз(а) в 36 сообщениях
Репутация: 59322
По умолчанию

Володь, ну, во-первых, по поводу повторяющихся значений я не понял, честно говоря (думал, это так, к слову в задании ), а, во-вторых, мои познания в программировании вообще стремятся к нулю . Когда-то, много лет назад, я самостоятельно пытался осваивать это увлекательное занятие. А пару месяцев назад решил тряхнуть стариной и кое что освежить в памяти, написав для своей организации телефонный справочник под SQL-сервер. Вспоминать, конечно, было очень сложно - всё, что знал, и что не знал, забыл напрочь.
__________________
Одна голова - хорошо, а три - сквозной канал!©
vasilych вне форума   Ответить с цитированием
Старый 26.11.2020, 12:39   #14 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от vasilych Посмотреть сообщение
Володь, ну, во-первых, по поводу повторяющихся значений я не понял, честно говоря (думал, это так, к слову в задании )
Ладно, сейчас ухожу на обед, вернусь — нарисую по-простому, без ООП.
Vladimir_S вне форума   Ответить с цитированием
Старый 26.11.2020, 14:54   #15 (permalink)
Vladimir_S
Специалист
 
Регистрация: 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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 15:53.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.