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

Публикувано на 21 януари, сряда от Данаил

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

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

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

  1. Данаил каза:
    21 януари, сряда в 14:04

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

    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. Данаил каза:
    21 януари, сряда в 14:06

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

    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.
    • Габи каза:
      29 януари, четвъртък в 16:39 
       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. Данаил каза:
    21 януари, сряда в 14:07

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

    // демонстрация на 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 каза:
    28 януари, сряда в 14:08 
     
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 каза:
    28 януари, сряда в 14:09 
    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 каза:
    28 януари, сряда в 14:10 
     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 каза:
    29 януари, четвъртък в 16:39 
    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. Евгения Георгиева каза:
    29 януари, четвъртък в 16:40

    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 каза:
    03 февруари, вторник в 23:55 
    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.

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