Различни начини на извеждане на песен

2 Responses to Различни начини на извеждане на песен

1. Боряна каза:

   15 февруари, сряда в 17:43

   program Project1;
   type
     time=record
       min: integer;
       sec: integer;
     end;
   
   type
     pesen=record
       z: string;
       i: string;
       vreme: time;
     end;
   
   var
     A: array[1..100] of pesen;
     N, j, izbor, g: integer;
   
   procedure Pechat1;
   begin
     for j:=1 to N do
       with A[j] do
         WriteLn(i, ' - ', z, ' (', vreme.min, '.', vreme.sec, ')');
   end;
   
   procedure Pechat2;
   begin
     for j:=1 to N do
       with A[j] do
         WriteLn('"', z, ' by ', i, ' - ', vreme.min, '.', vreme.sec);
   end;
   
   procedure Pechat3;
   begin
     for j:=1 to N do
       with A[j] do
         WriteLn(z, ' (', i, ') - ', vreme.min, '.', vreme.sec);
   end;
   
   begin
     Write('S kolko pesni iskate da rabotim? Vavedete tuk: ');
     ReadLn(N);
   
     for j:=1 to N do begin
       with A[j] do begin
         Write('Ime na pesenta: ');
         ReadLn(z);
         Write('Ime na izpalnitelia: ');
         Read(i);
       end;
       with A[j].vreme do begin
         Write('Prodaljitelnost (min i sec, razdeleni s pauza): ');
         ReadLn(min, sec);
       end;
       WriteLn;
     end;
   
     WriteLn('Sega izberete nachin na predstaviane. Variantite sa:');
     WriteLn('1. Izpalnitel - Pesen (vreme)');
     WriteLn('2. "Pesen" by Izpalnitel - vreme');
     WriteLn('3. Pesen (Izpalnitel) - vreme');
     Write('Vavedete vashia izbor tuk: ');
     ReadLn(izbor);
     WriteLn;
     case izbor of
     1: Pechat1;
     2: Pechat2;
     3: Pechat3;
     else for g:=1 to 1000 do WriteLn('ERROR!');
     end;
   
     WriteLn;
     WriteLn('Dano ste dovolni!');
     ReadLn;
   end.
   

   Влезте, за да отговорите
   • Данаил каза:

     15 март, сряда в 12:03

     Охо, и с вложени записи! Много добре! :-)

     Влезте, за да отговорите