Pomoć oko zadatka

1

Pomoć oko zadatka

offline
  • Pridružio: 05 Nov 2010
  • Poruke: 10
  • Gde živiš: Ruma

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



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • bocke  Male
  • Moderator foruma
  • Glavni moderator Linux foruma
  • Veliki Pingvin
  • Guru
  • Pridružio: 16 Dec 2005
  • Poruke: 12247
  • Gde živiš: Južni pol

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.



offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

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

offline
  • Pridružio: 05 Nov 2010
  • Poruke: 10
  • Gde živiš: Ruma

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....

offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

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....

offline
  • Pridružio: 05 Nov 2010
  • Poruke: 10
  • Gde živiš: Ruma

Napisano: 05 Nov 2010 23:07

Evoo ga...Very Happy....moze ovako..Very Happy

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...Very Happy

Dopuna: 07 Nov 2010 19:59

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

offline
  • dr_Bora  Male
  • Anti Malware Fighter
    Rank 2
  • Pridružio: 24 Jul 2007
  • Poruke: 12279
  • Gde živiš: Höganäs, SE

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: http://pascalprogramming.byethost15.com/lesson3.php

offline
  • Pridružio: 05 Nov 2010
  • Poruke: 10
  • Gde živiš: Ruma

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.

offline
  • dr_Bora  Male
  • Anti Malware Fighter
    Rank 2
  • Pridružio: 24 Jul 2007
  • Poruke: 12279
  • Gde živiš: Höganäs, SE

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

Objašnjenje: http://www.merlyn.demon.co.uk/pas-r200.htm


Predloženo rešenje: http://www.pedt.demon.co.uk/crt/

offline
  • Pridružio: 05 Nov 2010
  • Poruke: 10
  • Gde živiš: Ruma

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

Ko je trenutno na forumu
 

Ukupno su 646 korisnika na forumu :: 31 registrovanih, 2 sakrivenih i 613 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., AMCXXL, Arhiv, arsa, Bane san, braja11, Dicus, doom83, dozorni, dragon986, Faki-Valjevo, Filodendron, HDMI, ivance95, Jezekijel, Koca Popovic, KUZMAR, MB120mm, Milan Kosić, miljannis, miodrag3, nefas, nikolad, pein, Pippi Langstrumpf, S-lash, sakota79, StefanNBG90, vathra, Vojo Ostoic, yrraf