naloga 3 za janjo, Pascal

naloga 3 za janjo

//fpc 2.6.2

program Polja;//KJE JE NAPAKA

uses SysUtils; //knjiznica za FloatToStr

const n=10;

var Polje1: array[1..n] of real;
    Polje2: array[1..n] of real;
    i: integer;
   
begin
    for i:= 1 to n do
    begin 
        //writeln('Vpiši število: ');
        readln(Polje1[i]);         
    end;
    
    for i:= 1 to n do 
    begin
         if(Polje1[i] >= 0 ) then
         begin
              Polje2[i]:= Polje1[i] * 3 + sqrt(Polje1[i]);//kvadratni koren
         end;
         
         if(Polje1[i] < 0 ) then
         begin
              Polje2[i]:= trunc(sqr(Polje1[i]));//na kvadrat   <--- napaka -- imela si: trunc(sqr(Polje1[i]); popraviš na trunc(sqr(Polje1[i]));
         end;
    end;
    
    write('polje1: ');
    for i:= 1 to n do
    begin
        //write(Polje1[i],' ');   //<-- za lepši izpis daj  raje tako:
        write(FloatToStr(Polje1[i]),' ');
    end;
    
    Writeln();
    write('polje2: ');
    
    for i:= 1 to n do
    begin
        //write(Polje2[i],' ');                                        //<-- za lepši izpis daj  raje tako:
        write(FloatToStr(Polje2[i]),' ');
    end;
    
end.


run \| edit \| history \| help	0