Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl /* * Собирать: * gcc -include stih.h -o stih stih.c * Посмотреть вывод препроцессора: * gcc -E -include stih.h -o stih stih.c */ /* * stih.h */ #include <stdio.h> #define NACHALO int main() {\ char *out = NULL; \ char *txt = NULL; \ FILE *fp = NULL; #define KONETS return 0;} #define PROGRAMMY #define Vyvedi #define tekst #define na #define v #define ekran out = NULL #define fajl out = #define nachalo ; if (out == NULL) \ fp = stdout;\ else \ fp = fopen(out, "w"); txt = #define konets ; if (fp != NULL)\ {\ if (txt != NULL) fprintf(fp, "%s", txt);\ if (fp != stdout) fclose(fp); \ } #define teksta /* * stih.c * Тут перевел в транслит, т.к. gcc (только ли он?) не поддерживает #define РУССКИЙ * в общем, сути не меняет */ NACHALO PROGRAMMY Vyvedi tekst na ekran nachalo teksta "YA pomnyu chudnoe mgnoven'e: \n\ Peredo mnoj yavilas' ty, \n\ Kak mimoletnoe viden'e, \n\ Kak genij chistoj krasoty." konets teksta Vyvedi tekst v fajl "Stikh.txt" nachalo teksta "V tomlen'yakh grusti beznadezhnoj\n\ V trevogakh shumnoj suety,\n\ Zvuchal mne dolgo golos nezhnyj\n\ I snilis' milye cherty." konets teksta KONETS PROGRAMMY Private [?] Run code Submit