| Код |
(* Тестовая программа 'в скобках' { Еще один тест *)
program Project1;
(*$APPTYPE CONSOLE*) (* Директива компилятора *)
//{$APPTYPE CONSOLE} // Закомментированная директива компилятора
(*{$APPTYPE CONSOLE}*) {Закомментированная директива компилятора}
procedure Test;
begin
(* комментарий {вложенный коммент} *)
{ это коммент { однотипные комменты не вкладываются }
Write({бла бла '{}'Test complete');
end;(*}*)
begin
(*bla bla) bla(*)Test;
ReadLn; (*{'(* напоследок(*'*)//;-)))} *)
(*){(*{ну} и 'чтобы } добить' :)*)
{ {{ } {сме'рть (* парс'еру \m/ {{{}
{Обрабатывать // это }// уродство } обязательно надо
{(*) т.к. вдруг { кому-то приспичит (*(*)// ' в заголовке модуля } {
символьный рисунок сделать. Вроде ASCII-ART называется {{{{{{{{{{{}
(*)P.S. тестеры тоже люди и не надо их ненавидеть }^_^{ (*)
{//} end.
|
Добавлено через 1 минуту и 44 секунды
Все работает.  |