Показать полную графическую версию : Многократное выполнение программы на паскаль
Необходимо сделать возможность многократного использования программы на паскаль без её перезапуска.
Пробывал при помощи циклов, не вышло.
Пробывал при помощи циклов, не вышло. »
Попробуйте модулем, процедурой или потоком.
P.S. А если серьезно, то может дадите больше информации? Заниматься телепатией после плотного обеда -- как то не то.
P.S. А если серьезно, то может дадите больше информации? Заниматься телепатией после плотного обеда -- как то не то. »
Програмка, которая определяет, попадает ли точка в плоскость.
Ввод: две точки. Далее проверяем, после выдаем результат и спрашиваем: хотите еще раз? Если да, то без завершения программы необходимо выполнить то же самое начиная с ввода точек.
Паркан, самое простое -- поставить метку и сделать безусловный переход по условию. например:
getstart:
<код, где вызываются процедуры ввода точек>
readln('хотите продолжить? 1-да, 2-нет', answer);
if answer = 1 then
goto getstart
else
<делаем что то другое, перед выходом из программы>
: //if answer = 1
можно ещё проще until\repat
goto getstart »
goto, --- persona non grata
Tau_0, Drongo, я же сказал "самое простое", а не "самое правильное" :teeth:
Правильнее конечно не использовать goto, заменив его на repeat / until.
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.
Available in ZeroNet 1osznRoVratMCN3bFoFpR2pSV5c9z6sTC