[ mrmko @ 19.12.2005. 16:39 ] @
| molio bih one koji poznaju pascal i c++,da mi prevedu ovaj kod....
program nizovi_zad;
uses crt;
var niz,s:string;
br:array [1..100] of integer;
brojac,x,y,g,broj:integer;
nul:boolean;
begin
clrscr;
readln(niz);
nul:=false;
brojac:=0;
repeat
inc(brojac);
s:=copy(niz,1,pos(' ',niz)-1);
val(s,br[brojac],g);
if br[brojac]=0 then nul:=true;
delete(niz,1,pos(' ',niz));
until pos(' ',niz)=0;
val(niz,br[brojac+1],g);
if br[brojac+1]=0 then nul:=true;
for x:=1 to brojac+1 do
begin
broj:=br[x];
for y:=1 to brojac+1 do
begin
if ((broj=br[y]) and (x<>y)) then br[y]:=0;
end;
end;
if nul=true then write('0 ');
for x:=1 to brojac+1 do
begin
if br[x]<>0 then write(br[x],' ');
end;
readln;
end.
|
[ mrmko @ 19.12.2005. 23:27 ] @
nije moguce da niko ne moze da mi uradi...:((.Ljudi hitno je...molim vas...najkasnije do sutra nevecer...
[ idb @ 20.12.2005. 08:46 ] @
Citat:
nije moguce da niko ne moze da mi uradi
Mnogi sa ovog foruma ti mogu to prevesti.
Pokazi bar malo truda ako hoces pomoc.
Za pocetak postavi svoj program izmedju code tagova da bi se lakse citao - ako hoces da ga neko pogleda.
(a prekosutra kad ti frka prodje procitaj pravilnik
http://www.elitesecurity.org/o/pravilnik/korisnici/ )
[ Goranowsky @ 20.12.2005. 14:35 ] @
Ja sam jedared koristio program "p2c" version 1.20 (Pascal to C translator) i bejah zadovoljan, mozda se resenje tvoga problema skriva u ovoj misli:)
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.