оператор goto безусловный оператор

| | | | | | Copyright Y 2010-2013 All rights reserved

Коннектов к бд: 7Генерация 0.0088 секРазмер файла: 14576 байт

Три способа, которыми советские программисты достают программное обеспечение: воровство, грабеж, и обмен награбленным.

Для добавления комментариев, Вам необходимо

Обычно операторы в программе выполняются в том порядке, в каком они записаны. Оператор перехода прерывает естественный порядок выполнения программы и указывает, что дальнейшее выполнение должно продолжаться, начиная с оператора, помеченного меткой, указанной в операторе перехода. Пример записи оператора перехода:goto 218; Оператор безусловного перехода. Оператор безусловного (быстрого) перехода GOTO позволяет изменить стандартный последовательный порядок выполнения операторов и перейти к выполнению программы, начиная с заданного оператора.Форма записи оператора: GOTO <метка>Он указывает, что дальнейшая работа программы должна продолжатся с оператора, на котором стоит <метка>. Оператор, на который происходит переход, должен быть помечен меткой. Эта же метка должна быть указана в операторе GOTO, и описана в разделе описания меток.Метки используемые в TP, могут быть двух типов:- целым числом в диапазоне от 0 до 9999;- обычным идентификатором. Все перечисленные метки должны быть перечислены в разделе объявления меток, начинающимся зарезервированным словом label, например: label 1, 2, Metka; Одной меткой можно пометить только один оператор. Метка от помеченного оператора отделяется двоеточием. Метка может устанавливаться перед любым оператором, в том числе и перед пустым оператором. Например: 1: Write('Привет ');Примеры программ:PROGRAM Ex_1; Label Out; {описание метки} Var {описание переменных} X,Y,Res: Integer;Begin Write('Введите делимое: '); Readln(X); Write('Введите делитель: '); Redln(Y); if Y = 0 then begin Writeln('деление на ноль'); GOTO Out; {использование GOTO} end; Res := X div Y; Write('Частное = ',Res); Out: {метка на "пустой" оператор}End.PROGRAMM Ex_2; Label 1, 2; Var x,y,res: real; s: byte;Begin 1: Write('Введите делимое: '); Readln(x); Write('Введите делитель: '); Readln(y); if Y = 0 then begin Writeln('деление на ноль'); GOTO 2; end; res := x/y; Writeln('Частное = ',res); 2: Write('Продолжить вычисления? 1-да, 2-нет. : '); Readln(s); if s = 1 then GOTO 1;End.Program P70;label 1, 2;var x, y : real;begin write('x='); readln(x); if x>=0 then goto 1; y:=2*x; writeln('x<0, y=', y); goto 2; 1 : y:=x; writeln('x>=0, y=', y); 2 : readln;end.

Для нормального функционирования сайта Вам необходимовключить поддержку JavaScript, в настройках своего браузера!

» » » » » » » » » »