|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#31
|
||||
|
||||
Спасибо за совет, но я лучше пойду поработаю немного, нервишки успокою (обед уже был, не помогло правда), а к последнему пункту прислушаюсь объязательно!
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#32
|
||||
|
||||
Код:
program HelloWorld; uses Crt; Var otvet:string; Label L1, L2; Begin writeln; writeln; writeln; writeln; writeln('Ну как, завершим программу?'); readln(otvet); if otvet='Да, завершим программу' then GoTo L1; L1: Writeln('Вы уверены? (Y/N)'); if ReadKey='y' then GoTo L2 else begin ClrScr; GoTo L1; end; L2: Writeln('Неее, выходить ещё рано!'); asm nop end; end. |
#33
|
||||
|
||||
Вот теперь пора отправлять на конкурс программ.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#34
|
||||
|
||||
Зато мы собрали команду и написали прогу!
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#35
|
||||
|
||||
Мда, собрать команду единомышленников всегда трудно, а для написания программ вдвойне.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#36
|
||||
|
||||
Теперь нужно срочно собрать команду тестеров и протестировать написанную прогу.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#37
|
||||
|
||||
Метки хороши, когда вы в состоянии их увидеть на экране. А вот когда у вас портянка кода хотя-бы в 10-страниц, метки могут запутать так, что не дай боже.
А по коду, вам не кажется, что прога несколько неверно анализирует ответ? Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 02.04.2013 в 17:56. |
#38
|
||||
|
||||
Также не забываем, что любые переходы: условные (if), циклы (while, repeat, for) по сути используют те же метки (ja, je, jb далее лень перечислять).
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#39
|
||||
|
||||
... после года исследований тестер умер от безысходности ...
Я за здоровый экстрим! Спасибо за "спасибо") |
#40
|
||||
|
||||
Что-то здесь не так, а где собсно заявленный "Hello World"? Это не тот код получился, кириллица не отображается. Вот что с доработкой получилось (и под TP и под делфи)
Код:
program HelloWorld; {$IFDEF MSWINDOWS} {$APPTYPE CONSOLE} {$ENDIF} uses {$IFDEF MSWINDOWS} Windows, SysUtils, CRT32 in 'CRT32.pas'; {$H-} {$ELSE} crt; {$ENDIF} Var otvet:string; Label L1, L2; begin Clrscr; setconsoleCp(866); Writeln('Hello World!!!'); writeln; writeln; writeln; writeln; writeln('Ну как, завершим программу?'); readln(otvet); if otvet='Да, завершим программу' then GoTo L1; L1: Writeln('Вы уверены? (Y/N)'); if ReadKey = 'y' then GoTo L2 else begin ClrScr; GoTo L1; end; L2: Writeln('Неее, выходить ещё рано!'); end. И всё равно, что-то здесь смущает... З.Ы. По теме Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#41
|
||||
|
||||
Пропустил строку.
Код:
SetConsoleOutputCP(866); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |