janja - popravek, Pascal

Language: Editor: Layout:

//fpc 2.6.2

program Polje;//naloga 9 KJE JE NAPAKA

const n=5;

type
    poljeInt = array[1..n] of integer;

var Polje1, Polje2: poljeInt;
    i: integer;
    
    square: Extended;
    tmp: Integer;

begin
    for i:= 1 to n do
    begin
         //writeln('Vpiši ',i, ' . število: ');
         readln(Polje1[i]);
    end;
    
    for i:= 1 to n do
    begin
         if(Polje1[i] MOD 2 = 0) then
         begin
            Polje2[i]:= Polje1[i] Div 2;  // imela si Polje1.. prav tako se deli z Div in ne z "/"
         end
         else
         begin
            // writeln(Polje1[i]);
             square := Sqrt(Abs(Polje1[i])); //vzameš abs
             tmp := Round(square);  // round ti extended tip spremeni v smallint -- sem ti dal po korakih da je bolj vidno
             tmp := tmp;
             
             Polje2[i]:= tmp;   
         end;
    end;
    
      write('polje1: ');
    for i:= 1 to n do
    begin
        write(Polje1[i],' ');   
    end;
    
    Writeln();
    write('polje2: ');
    
    for i:= 1 to n do
    begin
        write(Polje2[i],' ');                                        
       
    end;

end.

//Napišite program, ki bo preko tipkovnice prebral 5 celih števil in jih vpisal v polje1.
//Tvorite polje2 celih števil na naslednji način:
//- če je neki element polja POLJE1 sodo število, potem v polje2 vpišete polovico tega elementa polja POLJE1.
//- če je neki element polja POLJE1 liho število, potem v POLJE2 vpišete zaokrožen kvadratni koren absolutne vrednosti tega elementa.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.14 sec, cpu time: 0 sec, memory peak: 3 Mb, absolute service time: 0,36 sec