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.
2.
Программа определения частного действительных чисел, исключающая
деление на ноль, и производящая запрос об окончании работы программы.
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.
3. Программа определения растяжения пружины и производящая запрос об окончании работы программы.
program Guk;
uses crt;
label n;
const g=9.8;
Var vvod,y: char; Lkr,k,m,L: real;
begin
writeln ('Введите критическую длину и коэффициент жесткости : ');
readln(Lkr, k);
n: writeln ('Введите массу груза ');
readln(m);
l:=m*g/k;
if l<lkr then
writeln('Растяжение пружины равно ' ,l:7:5, ' метров')
else
writeln('Разрыв пружины');
readln;
writeln('Завершить ввод данных: y/n');
readln (vvod);
if vvod='y' then
exit
else
goto n;
end.
