Вопросы и ответы | 

Анатолий Моисеенко
отмечаю верный ответ из лекции но нет

здравствуйте у меня есть проблема,я обучаюсь на курсе обьектно-ориентированого програмирования и в 12 тесте есть вопрос "успех это" и когда я выбираю ответ который есть в лекции в итоге показывает что неверно,как-так?

Сергей Волохов
С чего мне начать обучение?

Доброго времени суток!Я пользователь ПК.собираю ПК(железо),устанавливаю системы и программы.Но мне не хватает образования для очень многих моментов,в частности по программированию,по сетевым вопросам и по вопросам сист.админа.Посоветуйте,пожалуйста,с чего мне начать обучение?

Евгений Сидорук
код Dreamspark просрочен

Добрый день! Запросил код Dreamspark - система выдала вот этот  KCH69-3Y6R7-J7HTK-2G9DG-QWYTZ, а в системе говорят, что этот код уже просрочен?! А при выдаче было сказано, что могу получить только 1 раз в год ((( А как быть в таком случае?

Анатолий Федоров
Анатолий Федоров | Репутация: 779 (Специалист) 7 января 2016 в 12:19

Обещали прислать коды после праздников

Анатолий Федоров
Анатолий Федоров | Репутация: 779 (Специалист) 12 января 2016 в 15:42

Вот код:
7R49Y-9266K-4GWKM-3TDHD-DCPKZ

Илья Петров
В чём различие между базовыми вариантами использования и общими?

В курсе "Нотация и семантика языка UML" в лекции 4 я столкнулся со следующей терминологической проблемой: У вас перечислены действия для построения use case диаграмм и сказано, что требуется "Выделить общие варианты использования и изобразить их взаимосвязи с базовыми со стереотипом <<include>>"

Насколько я понимаю, вариант использования, в который включается некоторый подпроцесс с помощью связи <<include>> называется базовым. Логично предположить, что второй вариант использования (подпроцесс) в этом случае решает более частную задачу. Чем же тогда является "общий" вариант использования?
Источник: http://www.intuit.ru/studies/courses/32/32/lecture/1006?page=3

Алексей Семёнов
Алгоритм Флойда-Уоршелла

Задача: найти медиану графа, т.е такую его вершину. что сумма расстояний от нее до остальных вершин минимальна. 
Я пока пытаюсь найти только матрицу кратчайших расстояний(по алгоритму Флойда-Уоршелла).
У меня 2 матрицы(в виде StringGrid на форме), одна - матрица смежности, другая - матрица кратч. расстояний."inf" выводится во второй, при условии наличия ребра, которое отображается в первой
Я ввожу вес ребра прямо в матрицу(пока интерфейс не особо дружелюбен, потом исправлю..).

Код Delphi

var
  Form1: TForm1;
  r_g,i,j,k,s:Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.button1Click(Sender: TObject);
begin
if (length(Edit1.Text)>0)then
begin
  r_g:=StrToInt(Edit1.Text);
  StringGrid1.ColCount:= r_g;
  StringGrid1.RowCount:= r_g;
  StringGrid2.ColCount:= r_g;
  StringGrid2.RowCount:= r_g;
end
else
Application.MessageBox('Необходимо ввести число','Ошибка', MB_OK+MB_ICONSTOP);
end;
 
//задать граф
procedure TForm1.Button3Click(Sender: TObject);
begin
 for i:=0 to r_g-1 do
  for j:=0 to r_g-1 do
      begin
       if i=j then StringGrid1.Cells[i,j]:=IntToStr(0);  {между одной и той же вершиной}
       if i=j then StringGrid2.Cells[i,j]:=IntToStr(0)  {не может быть ребёр}
       else
       randomize;
       if i<>j then StringGrid1.Cells[i,j]:=IntToStr(random(2));
      end;
end;
 
//задать матрицу кратч. расстояний
procedure TForm1.Button2Click(Sender: TObject);
begin
 for i := 0 to StringGrid1.ColCount-1 do
       for j := 0 to StringGrid1.RowCount-1 do
         if StringGrid1.Cells[i, j] = ('0') then
            StringGrid2.Cells[i, j] := IntToStr(999)
         else
         if StringGrid1.Cells[i, j] = ('1') then
            StringGrid2.Cells[i, j] := 'inf';
end;
 
 //Медиана по алг Флойда
procedure TForm1.Button9Click(Sender: TObject);
begin
     k := 1;
     while k < StringGrid2.ColCount-1 do
       begin
         for i := 1 to StringGrid2.ColCount-1 do
           for j := 1 to StringGrid2.RowCount-1 do
             begin
               if (i <> k) and (j <> k) and (i <> j) then
               if StrToInt(StringGrid2.Cells[i, j]) > StrToInt(StringGrid2.Cells[i, k]) + StrToInt(StringGrid2.Cells[k, j]) then
                   begin
                     StringGrid2.Cells[i, j] := IntToStr(StrToInt(StringGrid2.Cells[i, k]) + StrToInt(StringGrid2.Cells[k, j]));
                   end;
             end;
         k := k + 1;
       end;
end;
 
end.

Помогите разобраться!

Елена Бережная
Елена Бережная | Репутация: 0 (Без голоса) 22 декабря 2013 в 21:49