ASCII Art

Да се изведе голямо усмихнато лице (или нещо друго, потърсете в Google „ASCII Art“ за идеи). При натискане на клавиш картинката да изчезне или да се смени с друга (така може да се направи дори анимация).

Публикувано в 10а, 10б с етикети , . Постоянна връзка.

5 коментара по ASCII Art

  1. Евгения Георгиева каза:

    program Project1;
    begin
    WriteLn (#13#10#13#10#13#10#13#10#13#10);
    WriteLn (#9#9#9’********************************’);
    WriteLn (#9#9#9’********************************’);
    WriteLn (#9#9#9’*** ********************** ***’);
    WriteLn (#9#9#9’*** ********************** ***’);
    WriteLn (#9#9#9’** ******************** **’);
    WriteLn (#9#9#9’********************************’);
    WriteLn (#9#9#9’********************************’);
    WriteLn (#9#9#9’** ****************** **’);
    WriteLn (#9#9#9’** ****************** **’);
    WriteLn (#9#9#9’** ****************** **’);
    WriteLn (#9#9#9’********************************’);
    WriteLn (#9#9#9’********************************’);
    WriteLn (#9#9#9’*********** ***********’);
    WriteLn (#9#9#9’********************************’);
    WriteLn (#9#9#9’********************************’);
    WriteLn (#9#9#9’*** ************************ ***’);
    WriteLn (#9#9#9’**** ********************** ****’);
    WriteLn (#9#9#9’****** ****************** ******’);
    WriteLn (#9#9#9’******** *******’);
    WriteLn (#9#9#9’********************************’);
    WriteLn;
    WriteLn ( ‘Zapoznaite se s moq zashemetqvast robot. Toi se kazva Oskar i mnogo obicha da sazdava priqtelstva.’);
    ReadLn;
    End.

  2. xBlago каза:

    program project1;
    begin
    WriteLn(#13#10#13#10#13#10#13#10#13#10);
    WriteLn(#9#9#9′ ****************************’);
    WriteLn(#9#9#9′ ****************************’);
    WriteLn(#9#9#9′ ****************************’);
    WriteLn(#9#9#9′ ****************************’);
    WriteLn(#9#9#9′ ****************************’);
    WriteLn(#9#9#9′ ************ * *************’);
    WriteLn(#9#9#9′ *********** *** ************’);
    WriteLn(#9#9#9′ ********** ***** ***********’);
    WriteLn(#9#9#9′ ****************************’);
    WriteLn(#9#9#9′ ******* *********’);
    WriteLn(#9#9#9′ ******* ********** *********’);
    WriteLn(#9#9#9′ ******* ********** *********’);
    WriteLn(#9#9#9′ ******* *** *** *********’);
    WriteLn(#9#9#9′ ******* *** ** *** *********’);
    WriteLn(#9#9#9′ ******* *** ** *** *********’);
    WriteLn;
    WriteLn(#9#9#9′ Zdravey,kak si? ‘);
    ReadLn;
    end.

  3. Габи каза:
    program project1 ;
    begin
      WriteLn (#10#13#10#13#10#13#10#13#10#13);
      WriteLn (#9#9#9'          *            ');
      WriteLn (#9#9#9'         *0*          ');
      WriteLn (#9#9#9'        *0*0*         ');
      WriteLn (#9#9#9'      *0**0**0*        ');
      WriteLn (#9#9#9'     0**0***0***       ');
      WriteLn (#9#9#9'    **0*~0***0***     ');
      WriteLn (#9#9#9'   *0***0****0****    ');
      WriteLn (#9#9#9'  ***0*~~~*0*~0**** ');
      WriteLn (#9#9#9' **0***0*****0***0**  ');
      WriteLn (#9#9#9'*0***0****0*****0****  ');
      WriteLn (#9#9#9'*****0****0*****0****0* ');
      WriteLn;
      WriteLn (#9#9#9'Zapoznay se s Gabolina Elhata ');
      ReadLn;
    end.

Вашият коментар