Мітки та переходи, Детальна інформація

writeln('момент прибуття й тривалість – два невід'ємних цілих :');

readln(x,t);

if t>t0 then {обробити x, t і обчислити момент від'їзду y}

begin

if y
y:=b+t;

writeln('час від'їзду : ', y)

end

until t=t0.

Цикл читання можна записати за допомогою одного старого програмістського трюку. Він полягає у використанні "нескінченного циклу" у сполученні з переходом за кінець циклу. Скористаємося оператором break мови Турбо Паскаль:

t0:=0; y:=0;

while true do

begin

readln(x, t);

{!!! } if t=t0 then break; {ознака кінця: вихід із циклу }

{замість break можливо exit – вихід із (під)програми}

if y
y:=b+t;

writeln('час від'їзду : ', y)

end\xF0E7

Більш загальним випадком завдання кінця послідовності є повторення найпершого значення послідовності. Схема розв'язання залишається тією самою, тільки спочатку "особливе значення" запам'ятовується в результаті читання, а не присвоювання.

”

\x0161

e

th

@

b

‚

\x017E

\x00B8