Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Naloga 8: 10.9.2008
Language:
Ada
Assembly
Bash
C#
C++ (gcc)
C++ (clang)
C++ (vc++)
C (gcc)
C (clang)
C (vc)
Client Side
Clojure
Common Lisp
D
Elixir
Erlang
F#
Fortran
Go
Haskell
Java
Javascript
Kotlin
Lua
MySql
Node.js
Ocaml
Octave
Objective-C
Oracle
Pascal
Perl
Php
PostgreSQL
Prolog
Python
Python 3
R
Rust
Ruby
Scala
Scheme
Sql Server
Swift
Tcl
Visual Basic
Layout:
Vertical
Horizontal
//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.
-2.3 4 0 5.1 -15.7 0.77 -6 2.1 -5.4 -1
Show compiler warnings
[
-
]
Show input
Compilation time: 0.12 sec, absolute service time: 0,22 sec
fork mode
|
history
|
discussion
Error(s):
source.pas(29,47) Fatal: Syntax error, ")" expected but ";" found