Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

pravod iz pascala u c++

[es] :: Pascal / Delphi / Kylix :: pravod iz pascala u c++

[ Pregleda: 3731 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mrmko

Član broj: 77652
Poruke: 13
*.dlp294.bih.net.ba.



Profil

icon pravod iz pascala u c++19.12.2005. u 23:52 - pre 200 meseci
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.
 
Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Re: pravod iz pascala u c++20.12.2005. u 11:06 - pre 200 meseci
E sorry, totalno sam zaboravio na ovo..bas sam u guzvi, neda mi se bahcat sa stringovima, pa ti evo malo izmjenjeno:
ucitas 5 brojeva u obliku:
1
2
3
4
5

i program obavi svoje..

Code:

#include <cstdlib>
#include <iostream>

using namespace std;

int main(int argc, char *argv[])
{int br[6];
 int broj[10],x,y;

for(x=1;x<=5;x++)
 {
 cin>>br[x];     
 }
 
for(x=1;x<=5;x++)
 {broj[x]=br[x];
     for(y=1;y<=5;y++)
       {
       if(broj[x]==br[y] && x!=y)
            {
            broj[y]=0;
            }
       }
 }

cout<<"Rezultat:\n";
for(x=1;x<=5;x++)
  {if(broj[x]!=0) cout<<broj[x]<<endl;}
 
 
    system("PAUSE");
    return EXIT_SUCCESS;
}


p0z
 
Odgovor na temu

mrmko

Član broj: 77652
Poruke: 13
*.dlp250.bih.net.ba.



Profil

icon Re: pravod iz pascala u c++20.12.2005. u 21:57 - pre 200 meseci
puno,puno ti hvala:)
poz
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: pravod iz pascala u c++

[ Pregleda: 3731 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.