Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура Continue.

  • Объявление:

    Procedure Continue;

  • Описание:

    Продолжает циклы For, While и Repeat.

  • Замечания:

    Заставляет цикл For, While или Repeat немедленно перейти к следующей итерации.

    Компилятор сообщает об ошибке, если вызов Continue не был сделан внутри циклов For, While или Repeat.

  • Пример:

    { Пример программы для процедуры Continue }
    Uses WinCrt;
    Var I : Integer;
    Name : String[79];
    F : File;
    Begin
    For I:=1 To ParamCount Do
    Begin
    Name:=ParamStr(I);
    Assign(F, Name);
    {I-}
    Reset(F, 1);
    {I+}
    If IOResult<>0 Then
    Begin
    WriteLn('Файл "', Name, '" не найден...');
    Continue;
    End;
    WriteLn(Name, ' : ', FileSize(F), ' байт');
    Close(F);
    End;
    End.



Вернуться к оглавлению справочника