Височината на втория и третия

4 Responses to Височината на втория и третия

1. Svetli каза:

   14 декември, сряда в 12:01

   program Project1;
   var
     i,j,swap,N:integer;
     a:array[1..10] of Integer;
   
   procedure Visochina(i,j,swap:integer);
   begin
     N:=10;
     Writeln('Vavedete visochinite na 10 choveka');
     for i:= 1 to N do begin
       Readln(a[i]);
     end;
   end;
   
   procedure Sortirane(i,j,swap:integer);
   begin
     N:=10;
     for i:= 1 to N do
         for j:= 1 to N-1 do begin
           if a[j] > a[j+1] then begin
             swap:=a[j];
             a[j]:=a[j+1];
             a[j+1]:=swap;
           end;
         end;
   
     Writeln('Visochinite na vtoriq i tretiq sa: ');
     Writeln(a[2],' ',a[3]);
   
   end;
   begin
     Visochina(i,j,swap);
     Writeln;
     Sortirane(i,j,swap);
     Readln;
   end.
   

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

     14 декември, сряда в 13:37

     Като смисъл кодът е верен, но като структуриране – не. Прочети си пак уроците за параметри на функции и за видове променливи (глобални и локални). Ако не откриеш какво може да се подобри, обади ми се за да го обсъдим.

     Влезте, за да отговорите
2. Боряна каза:

   14 декември, сряда в 12:11

   program Project1;
   var
     a: array[1..10] of integer;
     i, j, swap: integer;
   begin
     //въвеждане на данни в масив
     WriteLn('Za vseki ot desette uchenici vavedete visochinata v cm.');
     for i:=1 to 10 do begin
       Write('Uchenik nomer ', i, ': ');
       ReadLn(a[i]);
     end;
   
     //подреждане на данни в масива
     for i:=1 to 10 do
       for j:=1 to 10-i do begin
         if a[j]<a[j+1] then begin
           swap:=a[j];
           a[j]:=a[j+1];
           a[j+1]:=swap;
         end;
       end;
     // и сега просто за да накараме потребителя да се чувства специален:
     WriteLn('Natisnete Enter, za da podredite uchenicite po visochina.');
     ReadLn;
   
     //извеждане на данни от масива
     WriteLn;
     WriteLn('Uchenicite sa podredeni!');
     WriteLn('Vtoriat po visochina e visok ', a[2], 'cm, a tretia - ', a[3], 'cm.');
     ReadLn;
   end.
   

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

     14 декември, сряда в 13:32

     Хаха, „за да накараме потребителя да се чувства специален“ :-D Много добре!

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