Форматиране на извеждането

Това са примерните програми, които ви показах в часа. В библиотеката Crt има и още много други полезни функции, които не споменах. Можете да ги разгледате (заедно с примерни програми, които ги ползват) тук, а имената на цветовете, които можете да ползвате в командите за смяна на цвета на фона и текста са тук.

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

13 Responses to Форматиране на извеждането

  1. Данаил каза:

    Форматиране на извеждането:

    program project1;
    begin
      // цели числа, без подравняване
      WriteLn('Izvezdane na chisla, liavo podravneni:');
      WriteLn(123);
      WriteLn(1234);
      WriteLn(12345);
      WriteLn(123456);
      ReadLn;
    
      // цели числа, с подравняване
      WriteLn('Izvezdane na chisla, diasno podravneni:');
      WriteLn(123:6);
      WriteLn(1234:6);
      WriteLn(12345:6);
      WriteLn(123456:6);
      WriteLn(1234567:6);
      ReadLn;
    
      // реални числа, без подравняване
      WriteLn('Izvezdane na drobni chisla:');
      WriteLn(1.23);
      WriteLn(1.234);
      WriteLn(1.2345);
      WriteLn(1.23456);
      ReadLn;
    
      // реални числа, с подравняване 2 знака
      WriteLn('Izvezdane na drobni chisla do 2 znaka:');
      WriteLn(1.23:5:2);
      WriteLn(1.234:5:2);
      WriteLn(1.2345:5:2);
      WriteLn(1.23456:5:2);
      ReadLn;
    
      // реални числа, с подравняване 4 знака
      WriteLn('Izvezdane na drobni chisla do 4 znaka:');
      WriteLn(1.23:5:4);
      WriteLn(1.234:5:4);
      WriteLn(1.2345:5:4);
      WriteLn(1.23456:5:4);
      ReadLn;
    end.
  2. Данаил каза:

    Промяна на цвета на текста и фона, извеждане в прозорец:

    program proj_text_bg_color;
    uses crt;
    begin
      // демонстрация на промяна на цвета на текста
      WriteLn('Tova e s cviat i fon po podrazbirane');
      TextColor(Magenta);
      WriteLn('Tova e s cviat na teksta Magenta');
      TextColor(White);
      WriteLn('Tova e s cviat na teksta White');
    
      // демонстрация на промяна на цвета на фона
      TextBackground(Green);
      WriteLn('Tova e s cviat na fona Green');
      TextBackground(Brown);
      WriteLn('Tova e s cviat na fona Brown');
      TextBackground(Magenta);
      WriteLn('Tova e s cviat na fona Magenta');
      ReadLn;
    
      // демонстрация на изчистване на екрана + цвят
      ClrScr;
      WriteLn('Tova e sled komanda ClrScr pri ukazan cviat');
      ReadLn;
    
      // демонстрация на указване на прозорец за извеждане + цвят
      Window(10, 10, 38, 15);
      TextBackground(Blue);
      ClrScr;
      WriteLn('Tova e sled komanda Window i ClrScr pri ukazan cviat');
      ReadLn;
    end.
    
    • Габи каза:
       program gabi ;
      uses crt ;
      begin
        Window(2, 20, 68, 15);
        TextBackground(Blue);
        ClrScr;
        TextColor (Red) ;
       WriteLn ( ' Zdravey , kakvo pravish ? ' ) ;
       TextColor (Green);
       WriteLn ( '                       Prigotvqm se zashtoto sled malko shte hodya da ticham . Ami ti ') ;
       TextColor (Red) ;
       WriteLn ( ' Az syshto se prigotwqm , zashtoto shte hodya na basein . Iskash li da daydesh s men ? ') ;
       TextColor (Green) ;
       WriteLn ( '                       S golqmo udovolstvie . Koga shte minesh da me vzemesh ? ' ) ;
       TextColor (Red ) ;
       WriteLn ( ' Sled dvadeset minyti shte si gotova li ? ') ;
       TextColor (Green) ;
       WriteLn ( '                       Da shte sym gotova , blagodarya mnogo za pokanata . Shte gasq da se opravqm ' ) ;
       TextColor (Red) ;
       WriteLn ( ' Hayde ' ) ;
       ReadLn ;
          end. 
  3. Данаил каза:

    Забавяне на изпълнението и смяна на цвета на фона:

    // демонстрация на TextBackground и Delay
    program delay_and_color;
    uses
     crt;
    begin
      TextBackground(Green);
      ClrScr;
      Delay(2000);
      TextBackground(Magenta);
      ClrScr;
      Delay(2000);
      TextBackground(Blue);
      ClrScr;
      Delay(2000);
      TextBackground(Yellow);
      ClrScr;
      Delay(2000);
      TextBackground(White);
      ClrScr;
      Delay(2000);
    end.
    
  4. krisi3005 каза:
     
    program proj1;
    uses crt;
    begin
    
      gotoxy(20,10)  ;
      // демонстрация на промяна на цвета на текста
      WriteLn('The only problem with dreaming is waking up ! ');
      TextColor(Magenta);
    
      gotoxy(20,11)  ;
      TextBackground(Green);
      WriteLn('The only problem with dreaming is waking up..');
       gotoxy(20,12)  ;
      TextBackground(Brown);
      WriteLn('The only problem with dreaming is waking up..');
         gotoxy(20,13)  ;
      TextBackground(Magenta);
      WriteLn('The only problem with dreaming is waking up..');
      ReadLn;
                 gotoxy(20,14)  ;
      // демонстрация на изчистване на екрана + цвят
      ClrScr;
      WriteLn('The only problem with dreaming is waking up..');
      ReadLn;
             gotoxy(20,15)  ;
      // демонстрация на указване на прозорец за извеждане + цвят
      gotoxy(20,16)  ;
      TextBackground(Blue);
      ClrScr;
      WriteLn('The only problem with dreaming is waking up');
      ReadLn;
    end.       
    
    
  5. Simona Dimitrowa каза:
    program Project1;
    uses crt;
    begin
      Window(20, 9, 60, 15);
      TextBackground(Blue);
      ClrScr;
      WriteLn('Tova e s cviat i fon po podrazbirane');
      TextColor(Green);
      WriteLn('Az sym Nikol i se chuvstvam mnogo dobre dnes');
      TextColor(Blue);
      WriteLn('Az sym simona i sym mnogo shtastliva ot jivota');
      TextBackground(Yellow);
      WriteLn('Nikol i Simona sa nai-veselite momicheta v cqloto uchilishte');
      TextBackground(White);
      WriteLn('Nie imame kontrolno sledvashtiq chas');
      TextBackground(Magenta);
      WriteLn('Nie shte imame 6');
      ReadLn;
      ClrScr;
      WriteLn('Nie ne se pritesnqvame izobshto');
      ReadLn;
    
      WriteLn('Tova e sled komanda Window i ClrScr pri ukazan cviat');
      ReadLn;
    end.  
  6. BGTitan каза:
     program project2;
    uses crt;
    begin
    WriteLn('Izvejdane na chisla lqvo i dqsno podravneni prez interval ot 1.5sek:');
    Delay(1500);
    Textcolor(Magenta);
    WriteLn(123);
    Delay(1500);
    Textcolor(Lightblue);
    WriteLn(123:6);
    Delay(1500);
    Textcolor(Red);
    WriteLn('Sega izvejdane na drobni chisla do stotici i hilqdni prez interval ot 1.5sek:');
    Delay(1500);
    Textcolor(Red);
    WriteLn(12.354:5:3);
    Delay(1500);
    Textcolor(Blue);
    Textbackground(Yellow);
    WriteLn(16.9877:5:4);
    Delay(1500);
    Textcolor(Blue);
    WriteLn('Za da produljite natisnete Enter:');
    ReadLn;
    Delay(1500);
    TextColor(White);
    WriteLn(#13#10#13#10#13#10#13#10#13#10'Tova e kraqt!'#13#10#13#10#13#10#13#10#13#10);
    Window(15, 15, 60, 23);
    ClrScr;
    WriteLn('Dano da vie haresala programata :) ');
    ReadLn;
    end.             
    
  7. гери3 каза:
    program geri;
    uses crt;
    begin
       Window(2, 20, 68, 15);
      TextBackground(Blue);
      ClrScr;
    TextColor(Red);
    WriteLn(' Zdravei, kakvo pravish? ' );
     TextColor(Green);
    WriteLn ('               Zdravei, pravia valentinki za sveti valentin . A ti ? ' )  ;
    TextColor (Red) ;
    WriteLn (' Shte hodq na rojden den. ' );
    TextColor (Blue) ;
    WriteLn ( '             Na koi si na rojden den ' );
    TextColor (Red);
    WriteLn ( ' Na Ivan. Ot Xa klas ' ) ;
    TextColor (Green) ;
    WriteLn ( '             Priqrno prekarvane . Ne prekaliavai s alkohola . ' );
    TextColor (Red) ;
    WriteLn(' Blagodarq . Vinagi sum vnimatelen . Do skoro. ' ) ;
    Textcolor (Green) ;
    Writeln ( '             Do skoro. ' ) ;
    Readln;
     end. 
  8. Евгения Георгиева каза:

    program project1;
    uses crt;
    begin
    Window (20,2,60,24);
    Textbackground (LightRed);
    ClrScr;
    WriteLn ( ‘Zdrasti’);
    TextColor (Green);
    ReadLn;
    WriteLn ( ‘Zdravei. Kak se kazvash?’);
    TextColor (Yellow);
    ReadLn;
    WriteLn ( ‘Az se kazvam Nadq. A ti? ‘);
    TextColor (Green);
    ReadLn;
    WriteLn ( ‘Az se kazvam Petq i sam na 16 godini. ‘);
    TextColor (Yellow);
    ReadLn;
    WriteLn ( ‘Tova e strahotno. Az sam na 16 godini sashto.’);
    TextColor (Green);
    ReadLn;
    end.

  9. Veselina каза:
    program Project1;
    uses crt;
    begin
    Window(16, 3, 50, 22);
    TextBackground(Magenta);
    ClrScr;
    TextColor(Blue);
    WriteLn('Zdravei! Prigotvi li vsichko?');
    TextColor(White);
    ReadLn;
    WriteLn('Da, trugvam kum garata.');
    TextColor(Blue);
    ReadLn;
    WriteLn('Chakam te s neturpenie.');
    ReadLn;
    TextColor(White);
    WriteLn('Malko ostana.');
    ReadLn;
    TextColor(Blue);
    WriteLn('Obadi se kato pristignesh.');
    TextColor(White);
    ReadLn;
    WriteLn('Nepremenno.');
    ReadLn;
    TextColor(Blue);
    WriteLn('Do skoro.');
    ReadLn;
    TextColor(White);
    WriteLn('Do skoro. :)');
    ReadLn;
    end.

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