Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите с описанием программы; Оч надо!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Roofless
Пожалуйсто напишите пояснения к (почти) каждой строчке; мне очень срочно нужно с ней разобраться.
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
А что такое Решето Эратосфена ты вообще знаешь?
Roofless
Да, я знаю что такое решето эратосфена.
andriano
Ну вот - опиши, тогда только останется всего лишь расставить фрагменты твоего описания по соответствующим строкам кода.
asu2006
Сначало изучи паскал а потом все поймешь cool.gif

 ! 
Да что ж тебе так неймется, чтоб забанили. Уже дождись, и так забанят.

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

Roofless
мне нужно понять что делает программа! За что отвечает for и until в ней
Roofless
Что никто не поможет?[size=4]
brahma
Цитата(Roofless @ 16.12.2007 22:49) *

За что отвечает for и until в ней

Если операторы циклов не знаешь, то открой любой учебник по паскалю или в гугле ищи.
Roofless
спасибо
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.