Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

10.4. Процедура EXIT

Как указывалось раньше (см. п. 5.1.2), оператор GOTO нельзя использовать для досрочного выхода из подпрограммы. В Turbo Pascal с этой целью используется процедура Exit.

Пример. Функция, определяющая первое отрицательное число в массиве.

function Minus(var Massiv; N: Integer): Real; {Massiv - параметр без типа}
type T = array[l..1000] of Real;  
var i: Integer;  
begin  
  Minus := 0;  
  for i := 1 to N do  
    if T(Massiv)[i] < 0 then {преобразование типа}
      begin  
        Minus := T(Massiv) [ i ];  
        Exit {досрочный выход из функции}
      end  
end;  




 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100