Нахождение простого числа. Опции

[urbAn]

Я начинающий в этом деле , изучаю паскаль вторую неделю - но не могу разобратся с блоксхемой для данной задачи.

Задача:
Ввести число B ( обязательно не простое число ) . Найти ближайшее простое число к числу B (например B=9 то ближайшее должно получится 11 , а если 20 то ближайшее 23 ).

Впринципе понятно что надо писать программу при использовании циклов .И при использовании ( while и repeat ). Если кому то не лень повозится с новичком , то обьясните пожалуйсто.

Сообщение отредактировано: urbAn - 30.09.2007 15:44

[Neznaika]

Наверно уже не нужно, но я кажется знаю, что urbAn имеет в виду.

program Prog;

 { Проверка составного числа: Check. }
 function Check( B : Integer ) : Boolean;
 var
   I : Integer;
 begin
   Check := TRUE;
   for I := 2 to Trunc(Sqrt(B)) do
     if (B mod I) = 0 then
       Exit;
   Check := FALSE
 end; { Check }

 var
   B, I, X : Integer;
 begin
   Write('Введите число: ');
   ReadLn(B);
   if B < 2 then
     begin
       Write('ОШИБКА: ',B,' < 2!');
       Exit
     end;
   if not Check(B) then
     begin
       Write('ОШИБКА: ',B,' - простое число!');
       Exit
     end;
   { === Решение задачи === }
   X := 0;
   for I := B + 1 to MAXINT do
     if not Check(I) then  { Найдено простое число! }
       begin
         X := I;
         Break
       end;
   if X <> 0 then
     Write('Ближайшее простое число после ',B,' равно ',X,'.')
   else  { X = 0! }
     Write('Число не найдено.')
 end.

Зачем я это написал?
Эта программа является "примером", показывающим зачем нужны подпрограммы:

Когда в разных частях программы выполняются несколько одинаковых действий
(они решают одну и ту же задачу с возможно разными исходними данными и результатом),
такие действия лучше выделить в подпрограмму.

Для начинающих...