Forum » Programiranje » Programček
Programček
tadej123321 ::
Pozdravljeni! Imam težavo, ki pa jo ne znam rešiti. Programski jezik v katerem delam je Pascal.
Rad bi naredil program, ki te vpraša po cifri, ta pa jo nato razbije na posamezne cifre. Se pravi, če vpišemo cifro 321, bo program izpisal cifre 3,2 in 1. Zaenkrat sem nekaj že naredil, vendar ne vem, kje se skriva težava, tako da prosim za pomoč.
Rad bi naredil program, ki te vpraša po cifri, ta pa jo nato razbije na posamezne cifre. Se pravi, če vpišemo cifro 321, bo program izpisal cifre 3,2 in 1. Zaenkrat sem nekaj že naredil, vendar ne vem, kje se skriva težava, tako da prosim za pomoč.
program izpiscifre; var desetice,n, cifra: integer; begin n:=10; writeln('Zapisi cifro, ki zelis da ti jo razbijem: '); readln(cifra); writeln('Tvoja cifra: ', cifra); while desetice>0 do begin desetice:=cifra mod n; writeln(desetice); n:=n*1; readln end; readln; end.
WarpedGone ::
1. n:=n*1;
2. po metodi, ki si se je lotil, boš moral tudi že izpisane cifre rezat stran od vhodnega podatka
Mam drug predlog:
- vhodno cifro pretvori v string
- izpisuj posamezne črke stringa
2. po metodi, ki si se je lotil, boš moral tudi že izpisane cifre rezat stran od vhodnega podatka
Mam drug predlog:
- vhodno cifro pretvori v string
- izpisuj posamezne črke stringa
Zbogom in hvala za vse ribe
Zgodovina sprememb…
- spremenilo: WarpedGone ()
tadej123321 ::
Ok, nekej maš prou; bom naredu en popravek, ja. Sam glede stringa pa nebi, zatko, ker še nismo tega jemali in nočem prehitevati; raj znam neki bolš, kot pa se nek silim. Tko de če ma še kdo kšno idejo, kako zadevco spravt v pogon kr plis povejte!
HellRaiseR ::
Nekako takole bi šlo:
program izpisicifre; var cifra : integer; begin writeln('Vpisi cifro'); readln(cifra); while cifra>0 do begin writeln(cifra mod 10); cifra:=cifra div 10; end end.
Zgodovina sprememb…
- spremenil: HellRaiseR ()
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | Programiranje 1-FRIOddelek: Šola | 1866 (1306) | black ice |
» | Java[naloga]Oddelek: Šola | 881 (688) | Bizkit45 |
» | Algoritmi - diagrami potekaOddelek: Šola | 2189 (1890) | lebdim |
» | [Delphi] Pomoč pri reševanju naloge ! Nujno :/Oddelek: Programiranje | 1770 (1360) | Suly |
» | [Turbo pascal] Max Min tezaveOddelek: Programiranje | 1130 (1003) | luli |