Многократное выполнение программы на паскаль
Необходимо сделать возможность многократного использования программы на паскаль без её перезапуска.
Пробывал при помощи циклов, не вышло.
|
Цитата:
Цитата Паркан
Пробывал при помощи циклов, не вышло. »
|
Попробуйте модулем, процедурой или потоком.
P.S. А если серьезно, то может дадите больше информации? Заниматься телепатией после плотного обеда -- как то не то. |
Цитата:
Цитата lxa85
P.S. А если серьезно, то может дадите больше информации? Заниматься телепатией после плотного обеда -- как то не то. »
|
Програмка, которая определяет, попадает ли точка в плоскость.
Ввод: две точки. Далее проверяем, после выдаем результат и спрашиваем: хотите еще раз? Если да, то без завершения программы необходимо выполнить то же самое начиная с ввода точек. |
Паркан, самое простое -- поставить метку и сделать безусловный переход по условию. например:
Код:
getstart:
<код, где вызываются процедуры ввода точек>
readln('хотите продолжить? 1-да, 2-нет', answer);
if answer = 1 then
goto getstart
else
<делаем что то другое, перед выходом из программы>
: //if answer = 1
|
можно ещё проще until\repat
|
goto, --- persona non grata |
Tau_0, Drongo, я же сказал "самое простое", а не "самое правильное" :teeth:
Правильнее конечно не использовать goto, заменив его на repeat / until.
|
Время: 19:44.
© OSzone.net 2001-
