| | |
| Stránka: 1 z 1
| [ Príspevkov: 10 ] | |
Autor | Správa |
---|
Registrovaný: 29.10.05 Prihlásený: 16.03.10 Príspevky: 55 Témy: 18 |
Vytvorte program, ktorý si od užívateľa opakovane pýta hodnoty čísel, až kým užívateľ nezadá
hodnotu 0, pričom užívateľa informuje o poradovom čísle aktuálne zadávanej hodnoty.
Program vypíše počet zadaných kladných a počet záporných čísel. Program nebude využívať
polia
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
no neviem, ale načo je tam dobre informovať o poradí, keď ho nikde nepotrebujem? to poradie by som zo vstupu ignoroval a bral by som len tie hodnoty. Cele by to bolo v podmienke repeat bla bla until vstup=0. A riešil by som to v závislosti od zvoleného jazyka. Nemôžem použiť pole, ale napríklad v delphi by som mohol použiť listbox s visible:=false, prípadne v pascale by si ich mohol zapisovať do súboru...
//jaj, som si lepšie prečítal. To program má užívateľa informovať. Tak si urobíš premennú napríklad poradie:integer, na začiatku daš poradie:=1; a po načítaní čísla zvíšiš inc(poradie);
|
|
Registrovaný: 29.10.05 Prihlásený: 16.03.10 Príspevky: 55 Témy: 18 |
audiotrack píše: no neviem, ale načo je tam dobre informovať o poradí, keď ho nikde nepotrebujem? to poradie by som zo vstupu ignoroval a bral by som len tie hodnoty. Cele by to bolo v podmienke repeat bla bla until vstup=0. A riešil by som to v závislosti od zvoleného jazyka. Nemôžem použiť pole, ale napríklad v delphi by som mohol použiť listbox s visible:=false, prípadne v pascale by si ich mohol zapisovať do súboru...
tu nejde o to ci to poradie niekto potrebuje ale ci to viem spravit. toto je totiz priklad do skoly a je v programovacom jazyku Pascal. ale dik za pomoc:)
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
Kód: program cisla; uses CRT; var pocet,cislo,parne,neparne:integer; begin clrscr; pocet:=1; parne:=0; neparne:=0; repeat begin writeln('Zadaj ',pocet,'. cislo: '); read (cislo); if (cislo mod 2 = 0) then inc(parne) else inc(neparne); inc(pocet); end until cislo=0; write ('Pocet parnych: ',parne-1,' Pocet neparnych: ', neparne); repeat until keypressed; end.
|
|
Registrovaný: 29.10.05 Prihlásený: 16.03.10 Príspevky: 55 Témy: 18 |
velmi pekne dakujem idem to hned pozriet
|
|
Registrovaný: 29.10.05 Prihlásený: 16.03.10 Príspevky: 55 Témy: 18 |
audiotrack píše: Kód: program cisla; uses CRT; var pocet,cislo,parne,neparne:integer; begin clrscr; pocet:=1; parne:=0; neparne:=0; repeat begin writeln('Zadaj ',pocet,'. cislo: '); read (cislo); if (cislo mod 2 = 0) then inc(parne) else inc(neparne); inc(pocet); end until cislo=0; write ('Pocet parnych: ',parne-1,' Pocet neparnych: ', neparne); repeat until keypressed; end.
diky funguje super ale preco ked vypisuje parne cisla musi byt napisane parne-1 a neparne nemusia byt -1 ???
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
lebo načíta aj poslednú nulu, a tá je ako párne. My ju do výpisu nechceme zahrnúť, lebo je to iba signál na ukončenie programu, preto jedno párne odrátam
|
|
Registrovaný: 29.10.05 Prihlásený: 16.03.10 Príspevky: 55 Témy: 18 |
aha uz chapem diky
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
Kód: program cisla; uses CRT; var pocet,cislo,kladne,zaporne:integer; begin clrscr; pocet:=1; kladne:=0; zaporne:=0; repeat begin writeln('Zadaj ',pocet,'. cislo: '); read (cislo); if (cislo>0) then inc(kladne) else inc(zaporne); inc(pocet); end until cislo=0; write ('Pocet kladnych: ',kladne,' Pocet zapornych: ', zaporne); repeat until keypressed; end. som to dobre zmagoril.. mali sa vypisovať kladné a záporné, a nie párne a nepárne. Takže takto to bude.. a ty tiež, vôbec ma nanapomenieš.. nabudúce píš radšej každý údaj do nového riadku, lebo ja rýchlo prebehnem očami, napíšem a potom zbadám že som si polovicu domyslel... to bola vždy moja najväčšia chyba aj na zápočtoch.
|
|
Registrovaný: 29.10.05 Prihlásený: 16.03.10 Príspevky: 55 Témy: 18 |
kokos ja som si to vobec nevsimol ale to nevadi ani na kladne a zaporne som nevedel takze v pohode velmi ti dakujem za vsetko
|
|
| Stránka: 1 z 1
| [ Príspevkov: 10 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Ako ste vyzerali, keď ste boli malý? v Krčma | 6 | 1911 | 04.06.2008 11:26 Lub0$ | | Ako vytvorit takyto program? v Ostatné | 14 | 5680 | 28.12.2008 21:46 zmija31 | | Ako dostanem takýto efekt GIMP v Grafické programy | 4 | 427 | 20.05.2013 20:25 Credo | | GOOGLE: ako na takyto vysledok vyhladavania? v Internetový marketing, SEO, reklama | 17 | 2244 | 05.11.2009 23:36 lac | | Ako na takyto sposob "li a:hover"? v HTML, XHTML, XML, CSS | 3 | 605 | 08.04.2010 16:48 eMPiko | | Monitor9 - Ako ste dopadli ? [ Choď na stránku: 1, 2, 3 ] v Vzdelanie, štúdium, škola | 60 | 5433 | 07.06.2007 13:49 POM4R4NC | | Ako dlho ste pri pocitaci? [ Choď na stránku: 1, 2, 3, 4 ] v Krčma | 91 | 6348 | 10.02.2016 19:29 Lessik | | STALKER ako ste ho skoncili? v Počítačové hry | 14 | 1215 | 30.08.2007 23:54 salamoon | | Ako ste strávili leto 2008... [ Choď na stránku: 1, 2 ] v Dovolenka, cestovanie a turistika | 59 | 4708 | 25.10.2008 23:21 stopa27 | | ako by ste riesily toto v Operačné systémy Microsoft | 6 | 738 | 04.02.2009 20:05 shiro | | Aké debility ste ako deti vystrájali? v Voľný čas a hobby | 17 | 1203 | 14.08.2017 1:31 stiv | | Ako ste prišli k svojmu nicku [ Choď na stránku: 1, 2, 3, 4 ] v Krčma | 112 | 13478 | 10.10.2011 18:01 MTK | | Ako by ste naučili ropuchu programovať? v Perl, Python, Ruby, CGI | 3 | 1305 | 29.06.2022 15:00 medove | | ako dlho ste vydrzali ne/spat [ Choď na stránku: 1, 2, 3 ] v Krčma | 60 | 5227 | 21.07.2010 0:14 Paulooze | | t-com, dsl ako ste spokojny??? v Poskytovatelia internetu | 21 | 1933 | 24.03.2009 18:11 ScorpionSX | | Ste v niecom dost dobry a vedeli by ste to naucit inych? v Ponuka práce | 0 | 1230 | 21.11.2012 10:37 samo88 |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|