PDA

Показать полную графическую версию : Многократное выполнение программы на паскаль


Паркан
24-03-2013, 15:06
Необходимо сделать возможность многократного использования программы на паскаль без её перезапуска.
Пробывал при помощи циклов, не вышло.

lxa85
24-03-2013, 15:42
Пробывал при помощи циклов, не вышло. »
Попробуйте модулем, процедурой или потоком.

P.S. А если серьезно, то может дадите больше информации? Заниматься телепатией после плотного обеда -- как то не то.

Паркан
24-03-2013, 16:05
P.S. А если серьезно, то может дадите больше информации? Заниматься телепатией после плотного обеда -- как то не то. »
Програмка, которая определяет, попадает ли точка в плоскость.
Ввод: две точки. Далее проверяем, после выдаем результат и спрашиваем: хотите еще раз? Если да, то без завершения программы необходимо выполнить то же самое начиная с ввода точек.

lxa85
24-03-2013, 16:51
Паркан, самое простое -- поставить метку и сделать безусловный переход по условию. например:
getstart:
<код, где вызываются процедуры ввода точек>

readln('хотите продолжить? 1-да, 2-нет', answer);
if answer = 1 then
goto getstart
else
<делаем что то другое, перед выходом из программы>
: //if answer = 1

Drongo
24-03-2013, 19:55
можно ещё проще until\repat

Tau_0
25-03-2013, 01:04
goto getstart »
goto, --- persona non grata

lxa85
25-03-2013, 08:53
Tau_0, Drongo, я же сказал "самое простое", а не "самое правильное" :teeth:
Правильнее конечно не использовать goto, заменив его на repeat / until.




© OSzone.net 2001-2012