Версия для печати темы

Автор: Roofless 16.12.2007 17:40

Пожалуйсто напишите пояснения к (почти) каждой строчке; мне очень срочно нужно с ней разобраться.

Program resheto;
Const
  n=500;
type
   erat = array[0..n] of boolean;
Var
  j,i,k:integer;
  b: erat;
Begin
read(j);  
for i:=2 to j do b[i]:=true; {??????????}
  i:=2;               {??????????}
  repeat            {??????????}
    k:=i;              {??????????}
    repeat           {??????????}
      i:=i+k;         {??????????}
      b[i]:=false;    {??????????}
    until i>j;           {??????????}
    i:=k+1;             {??????????}
  until i>j;              {??????????}
for i:=2 to j do        {??????????}
      if b[i]=true then write(i,' ');       {??????????}
    readln;                     {??????????}
  readln;                       {??????????}
end;                          {??????????}

Заранее огромное спасибо!

Автор: andriano 16.12.2007 18:02

А что такое Решето Эратосфена ты вообще знаешь?

Автор: Roofless 17.12.2007 1:32

Да, я знаю что такое решето эратосфена.

Автор: andriano 17.12.2007 1:37

Ну вот - опиши, тогда только останется всего лишь расставить фрагменты твоего описания по соответствующим строкам кода.

Автор: asu2006 17.12.2007 1:38

Сначало изучи паскал а потом все поймешь

!

Да что ж тебе так неймется, чтоб забанили. Уже дождись, и так забанят. Ты учти, кнопочка "удалить" очень удобная, нам работы - удалять твой флуд - не много.

Автор: Roofless 17.12.2007 1:49

мне нужно понять что делает программа! За что отвечает for и until в ней

Автор: Roofless 18.12.2007 21:54

Что никто не поможет?[size=4]

Автор: brahma 18.12.2007 23:42

Если операторы циклов не знаешь, то открой любой учебник по паскалю или в гугле ищи.

Автор: Roofless 18.12.2007 23:57

спасибо