banjalukaforum.com

Dobrodošli na banjalukaforum.com
Danas je 17 Okt 2018, 04:09

Sva vremena su u UTC [ DST ]




Započni novu temu Odgovori na temu  [ 25 Posta ]  Idi na stranicu Prethodni  1, 2
Autoru Poruka
PostPoslato: 21 Apr 2010, 18:23 
OffLine
Početnik
Početnik

Pridružio se: 21 Apr 2010, 08:39
Postovi: 12
MuskoBre je napisao:
Moraces se malo potruditi. Nepisano pravilo na forumima je da se ne trazi da ti neko uradi cijeli zadatak. Uradis koliko znas, malo se potrudis, i onda ti neko pomogne sa ostatkom.


a znam jarane ali sad mi gori pod nogama, oce prof da me obori i dao mi zadatak sa kantonalnog za zadacu i ak ne uradim oboriti ce me a zavrsna :(


Vrh
 Profil  
 
PostPoslato: 21 Apr 2010, 18:32 
OffLine
Urednik
Urednik
Korisnikov avatar

Pridružio se: 16 Jul 2004, 12:09
Postovi: 10215
A ti vjerujes da ce biti dovoljno da samo predas zadatak? A pojma nemas, postavi li ti najobicnije pitanje u vezi zadatka?

_________________
Viva Elena, Viva Nicolae!


Vrh
 Profil  
 
PostPoslato: 21 Apr 2010, 18:41 
OffLine
Početnik
Početnik

Pridružio se: 21 Apr 2010, 08:39
Postovi: 12
haha nece vjeruj mi zato sto nemam vise casova samo da mu odnesem zadatak naknadno, i ak bude radio pisati ce mi 2 jer me vec oborio pos nemamo vise casova, gori mi pod nogama :S


Vrh
 Profil  
 
PostPoslato: 21 Apr 2010, 18:42 
OffLine
Početnik
Početnik

Pridružio se: 21 Apr 2010, 08:39
Postovi: 12
MuskoBre je napisao:
A ti vjerujes da ce biti dovoljno da samo predas zadatak? A pojma nemas, postavi li ti najobicnije pitanje u vezi zadatka?

haha nece vjeruj mi zato sto nemam vise casova samo da mu odnesem zadatak naknadno, i ak bude radio pisati ce mi 2 jer me vec oborio pos nemamo vise casova, gori mi pod nogama :S


Vrh
 Profil  
 
PostPoslato: 21 Apr 2010, 22:25 
OffLine
Početnik
Početnik
Korisnikov avatar

Pridružio se: 20 Feb 2008, 17:08
Postovi: 67
Koliko sam ja skontao tebe,jeste to da program radi sve dok zbir kvadrata cifara ne postane jednocifren?
I da se svaki broj upisuje u datoteku,dok ne postane jednocifren?

Evo ti koda,ali dzaba ako ne kontaš šta pišem.Jebiga,bolje nauči da znaš,nego da imaš ocjenu...

Kod u Pascal-u,ne znam da li radiš u njemu,ali svejedno.
Kod:
program smorensaskolom;
function zb(n:string):longint;
  var
  i,sum,x,a:longint;
  begin
   sum:=0;
    for i:=1 to length(n) do {sad izvlacim svaki broj i kvadriram ga}
     begin
     val(n[i],x,a); {ovo ti sluzi da pretvori odredjeni znak u broj}
     sum:=sum+x*x; {znaci pretvara znak iz stringa n,u broj x}
     end;
     zb:=sum;      {eto cuvas zbirove u promjenjivoj sum i kasnije samo dodijelis tu vrijednost ovoj funkciji}
       end;
var
ulaz,izlaz:text;
l,i,x,br:longint;
s:string;
begin
  assign(ulaz,'broj.in');   {assign ti sluzi da se povezes sa datotekom}
  assign(izlaz,'broj.out');     
  reset(ulaz); {reset otvara datoteku}
  rewrite (izlaz); {kako da ti kazem...naznacujes da ces pisati u ovoj datoteKi}
   read(ulaz,x);    {znaci ocitavas varijablu x iz datoteke ulaz}
  str(x,s); {str ti sluzi da pretvoris broj u string}
  l:=length(s);
  br:=zb(s);
    while l>1 do             {radis sve dok ti ne dodje jednocifren broj}
    begin
    writeln (izlaz,br);
   str(br,s);
   l:=length(s);
   br:=zb(s);
   end;
    close(ulaz);                  {close zatvara datoteke}
   close(izlaz);
   end.
   


Edit:

Jebiga,sad viđoh da radiš u C-u.Ajd' ljudi uradite mu... :)


Vrh
 Profil  
 
Prikaži postove u poslednjih:  Poređaj po  
Započni novu temu Odgovori na temu  [ 25 Posta ]  Idi na stranicu Prethodni  1, 2

Sva vremena su u UTC [ DST ]


Ko je OnLine

Korisnici koji su trenutno na forumu: Nema registrovanih korisnika i 2 gostiju


Ne možete postavljati nove teme u ovom forumu
Ne možete odgovarati na teme u ovom forumu
Ne možete monjati vaše postove u ovom forumu
Ne možete brisati vaše postove u ovom forumu
Ne možete slati prikačene fajlove u ovom forumu

Pronađi:
Idi na:  
Powered by phpBB® Forum Software © phpBB Group
Hosting BitLab
Prevod - www.CyberCom.rs