Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
janja - naloga 2 - 11.7.2013
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 // naloga 2 - 11.7.2013 program naloga2; uses SysUtils; // knjiznica, ki vsebuje metodo IntToStr - metoda spremeni stevilo v niz const dolzina = 5; // tako se definira constanta type poljeInt= array[1..dolzina] of Integer; // tako se definira array polje - v tem primeru polje integerjev // deklaracija variabel var i,st: integer; polje: poljeInt; // tu potem deklariamo polje in polje2 polje2: poljeInt; begin i := 0; // na začetku inicializiramo variablo i da ni null - damo na 0 // tako dolgo berem i, dokler ni 5 vnosov (dolzina je constanta 5) while (i < dolzina) do begin readln(st); // berem vnose polje[i] := st; // priredim stevilo lokaciji i na polju npr. polje[0] = 1, polje[1] = 2 itd. // povečam i za 1 Inc(i); // funkcija Inc - increment poveča i za 1 end; // izpišemo polje 1 in hkrati kreiramo polje2 write('POLJE1: '); // vzamem funkcijo write, da ne gre v drugo vrstico i := 0; while (i < dolzina) do // while zanka isto kot zgoraj - iteracija od 0 do 4 - 5 iteracij begin write(IntToStr(polje[i])+' '); // izpisem polje - v iteraciji polje[0], polje[1], polje[2] ... if (i = 0) then polje2[i] := polje[i] // pri iteraciji 1 (i=0), nastavim polje2[0] na polje[0] else polje2[i] := polje[i]+polje2[i-1]; // pri vsaki naslednji iteraciji , nastavim tako polje2[1] = polje[1] + polje2[0] // potem polje2[2] = polje[2] + polje2[1] itd. Inc(i); end; // izpisemo polje 2 -- isto kot prej za polje 1 writeln(); write('POLJE2: '); i := 0; while (i < dolzina) do begin write(IntToStr(polje2[i])+' '); Inc(i); end; end.
1 2 3 4 5
Show compiler warnings
[
-
]
Show input
Compilation time: 0.12 sec, absolute running time: 0.04 sec, cpu time: 0 sec, memory peak: 3 Mb, absolute service time: 0,25 sec
fork mode
|
history
|
discussion
POLJE1: 1 2 3 4 5 POLJE2: 1 3 6 10 15