|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
А давайте соберем команду и напишем прогу?
А давайте соберем команду и напишем прогу?
Писать будем примитивнейший Hello World на паскале (можно и раздуть под манер современных бизнец-технологий), с каждого по строчке кода. Начну: Код:
program HelloWorld; З.Ы. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#2
|
||||
|
||||
уточнить бы: с GUI или консольное?
Пишу программы за еду. __________________ |
#3
|
||||
|
||||
Borland Pascal
Вообще для дос — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#4
|
||||
|
||||
Код:
uses Crt; с 1 апреля!) Пишу программы за еду. __________________ |
#5
|
||||
|
||||
Прошу прощения
Код:
begin Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#6
|
||||
|
||||
Код:
writeln; writeln; writeln; writeln; writeln(' Hello, World!'); Я за здоровый экстрим! Спасибо за "спасибо") Последний раз редактировалось Mrak, 01.04.2013 в 10:11. |
#7
|
||||
|
||||
А вот здеся вилка вроде наблюдается - по задумке сабжевой осталось конец с точкой поставить и всё, или раздуем, вопрос: только чем?
З.Ы. Вот отцы-основатели молодцы, топикстартнулись, поржали и свалили З.Ы.З.Ы. ,kby, что дальше-то делать - продолжать или точку ставить, а? З.Ы.З.Ы.P.S. Увж.ТС, пробывал запустить ваш коллективный код, но он к сожалению, не работает, компилятору чегойто не хватает. Илиможетчёделаюнетак? Заранее спасибо. Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 01.04.2013 в 11:55. |
#8
|
||||
|
||||
Код:
ReadLn('Ну как, звершим программу?'); Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#9
|
||||
|
||||
Код:
var otvet: string; Код:
readln(otvet); — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось M.A.D.M.A.N., 01.04.2013 в 12:46. |
#10
|
||||
|
||||
Код:
1: if otvet = 'Да, завершим программу' then GOTO 1; Я за здоровый экстрим! Спасибо за "спасибо") Последний раз редактировалось Mrak, 01.04.2013 в 14:12. |
#11
|
||||
|
||||
Пусть метка будет называться L1, L2
Код:
var ... label L1, L2; Код:
L1: Begin Writeln('Вы уверены? (Y/N)'); if readkey='y' then GOTO L2; End; |
#12
|
||||
|
||||
Код:
begin L1: WriteLn('Вы уверены? (Y/N)'); if ReadKey = 'y' then GoTo L2 else begin ClrScr; GoTo L1; end; L2: WriteLn('Неее, выходить ещё рано!'); end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#13
|
||||
|
||||
Код:
asm jmp $ ; Happy End! The Cake Is A Lie. |
#14
|
||||
|
||||
Код:
nop — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#15
|
||||
|
||||
Код:
lea eax, [eax + ebx * 2] _____ Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |