переходу, яка змінює послідовність Виконання других команд програми Шляхом переходу до Виконання команді, что маєпозначку (мітку):
goto <Позначку>;
Позначку может стояти перед довільною командою в Програмі. Вона відокремлюється від відряд двокрапкою (:)
<Позначку>: <команда>;
Позначку треба заздалегідь оголосіті на качану програми у розділі label:
label <список позначок>;
Позначку может почінатіся з букви або буті числом від 0 до 9999.
Задача . Ввести декілька наборів Коефіцієнтів квадратного рівняння ax 2 + bx + c = 0 и вивести ПОВІДОМЛЕННЯ чг рівняння матіме дійсна корені, чи ні.
program Rivnyannya;
uses Crt;
label 99, finish;
var a, b, c, d, x, y: real;
begin
clrscr;
99: writeln ('Введіть КОЕФІЦІЄНТИ квадратного рівняння');
readln (a, b, c);
if a = 0 then goto finish;
d: = b * b-4 * a * c;
if d> = 0 then writeln ('Дані рівняння має дійсна розв" язки')
else
begin
writeln ('дані введені некоректно');
writeln ('Рівняння дійсніх розв'язків НЕ має');
goto 99;
end;
finish: readln end.
Чи не можна передаваті Керування команді, яка є в середіні підпрограмі чг в середіні складеної команди. p align="justify"> 5. Команда Вибори (case) має вигляд
case <вирази> of
<список значень 1>: <команда 1>;
<список значень n>: <команда n>
else <команда n +1>
end;
