Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Naloga 8: 10.9.2008
//fpc 2.6.2 program Polja;//KJE JE NAPAKA const n=3; 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 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.
run
|
edit
|
history
|
help
0
111
Zad 4
Huong11a2@
Opdracht_2
qqqq3
homework
SINHNHIPHAN
test28
uuu
Compteur