Pomoć oko zadatka

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Imam jedan zadatak, moze li pomoc??
Evo ga:
Napisati program za uneti cetvorocifren broj, izracunaj razliku sume krajnih i srednjih cifara (npr. br. 2304). Na ekranu terba da se ispise: broj 2304: (2+4)-(3+0)=3. Hvala

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Nema potrebe da odgovaraš u stare teme. Odvojio sam tvoje pitanje u posebnu temu. Da te uputim kako ovaj forum funkcioniše. Ako si mislio da ćeš dobiti rešenje na gotovs to ne ide tako. Kreni da rešavaš problem i ako naiđeš na prepreku, napiši dokle si stigao i postavi kod programa, pa će ti neko već pomoći.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

A kao hint, koristi u pascalu div i mod
div za celobrojno deljenje, mod za ostatak pri deljenju pa uz ta dva operatora "seces" cifre unazad....

Za dalje napisi gde si konkretno zapeo

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Aha...hah..dobra fora...ok evo nesto, skontao sam sustinu, ali ne ispise mi dobro, evo coda:
program cifre2; var        c1,c2,c3,c4,N,x:integer; begin        writeln('Unesite cetvorocifren broj');        read(N);        c1:=N div 1000;        c2:=N mod 100;        c3:=(N mod 1000) div 100;        c4:=(N div 10) mod 10;        x:=(c1+c2)-(c3-c4);        writeln('Broj', N, ':', '(', 'c1','+','c2',')','-','(','c3','+','c4',')','=', x); end.

Problem pri ispisu pise: (c1+c2)-(c3+c4)=3....rezyltak je ok....ali ova zagrada....

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Blizu si resenja
c2 si napisao N mod 100 a to je u ovom slucaju 04, sto je tacno jer imas 0, ali da je neki drugi broj ne bi bilo tacno, tako da to moras da ispravis.
Ideja:
Idi u nazad i uzimaj cifru po cifru. Uzmes ostatak pri deljenju sa 10(zadnja cifra) pa onda broj N pretvoris u N div 10, pa uzmes opet mod 10(predzadnja cifra) pa opet N pretvoris u N div 10... i sve tako, na kraju ces imati sve cifre , unazad gledano, i onda izracunas to sto ti treba....

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napisano: 05 Nov 2010 23:07

Evoo ga.......moze ovako..

program cifre2; var    c1,c2,c3,c4,N,x:integer; begin      writeln('Unesite cetvorocifren broj');      read(N);      c1:= N div 1000;      c2:=(N mod 1000) mod 10;      c3:=(N mod 1000) div 100;      c4:=(N div 10) mod 10;      x:=(c1+c2)-(c3+c4);      writeln('Broj ',N,':','(',c1,'+',c2,')','-','(',c3,'+',c4,')','=',x); end.

tnx...

Dopuna: 07 Nov 2010 19:59

Mozete li da mi objasnite za sta sluze opcije USES CRT i CLRSCR...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Crt je jedan od Pascalovih unita (sadrži određene funkcije, npr. ClrScr koja briše sadržaj ekrana i postavlja kursor na početak (gore, levo)).


Uses Crt; Begin   Write('test');   ReadLn;   ClrScr;   ReadLn End.


Malo detaljnije: [Link mogu videti samo ulogovani korisnici]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Aha..ok....ali kada mu kazem uses crt...stavi mi na kraju gresku deljenje sa nulom(division by zero).....evo koda:

program ime; uses crt; var a,b:integer; begin colorbackground(blue); textcolor(red); clrscr; writeln('unesi a '); read(a); b:=succ(a); writeln(b); end.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

A-ha, verovatno nije patchovan (postoji bug koji se ispoljava na procesorima bržim od 200 MHz).

Objašnjenje: [Link mogu videti samo ulogovani korisnici]


Predloženo rešenje: [Link mogu videti samo ulogovani korisnici]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ok, ali neci ni tako, mozda nisam dobro exstaktovao...jel ima nekih drugih verzija gde radi kako treba??