Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Naloga 8: 10.9.2008
//fpc 2.6.2 program Polja;???????????????????? 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
Huong11a2@
Triangle.pas
JOZIANE NEVES DE SOUZA 600630041
342
считалочка02
2
practica 8 ejercicio 1
2
Алгоритм умножения двухзначного числа на 11
1