Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 10 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 29.10.05
Prihlásený: 16.03.10
Príspevky: 55
Témy: 18
Príspevok NapísalOffline : 14.01.2007 12:45

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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 14.01.2007 12:51

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);


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 29.10.05
Prihlásený: 16.03.10
Príspevky: 55
Témy: 18
Príspevok Napísal autor témyOffline : 14.01.2007 12:55

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:)


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 14.01.2007 13:07

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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 29.10.05
Prihlásený: 16.03.10
Príspevky: 55
Témy: 18
Príspevok Napísal autor témyOffline : 14.01.2007 13:34

velmi pekne dakujem idem to hned pozriet :D


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 29.10.05
Prihlásený: 16.03.10
Príspevky: 55
Témy: 18
Príspevok Napísal autor témyOffline : 14.01.2007 14: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 ???


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 14.01.2007 14:22

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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 29.10.05
Prihlásený: 16.03.10
Príspevky: 55
Témy: 18
Príspevok Napísal autor témyOffline : 14.01.2007 14:31

aha uz chapem diky ;)


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 14.01.2007 17:11

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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 29.10.05
Prihlásený: 16.03.10
Príspevky: 55
Témy: 18
Príspevok Napísal autor témyOffline : 14.01.2007 18:33

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 :)


Odpovedať na tému [ Príspevkov: 10 ] 


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. Ako ste vyzerali, keď ste boli malý?

v Krčma

6

1911

04.06.2008 11:26

Lub0$ Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Ako vytvorit takyto program?

v Ostatné

14

5680

28.12.2008 21:46

zmija31 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Ako dostanem takýto efekt GIMP

v Grafické programy

4

427

20.05.2013 20:25

Credo Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. GOOGLE: ako na takyto vysledok vyhladavania?

v Internetový marketing, SEO, reklama

17

2244

05.11.2009 23:36

lac Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Ako na takyto sposob "li a:hover"?

v HTML, XHTML, XML, CSS

3

605

08.04.2010 16:48

eMPiko Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Monitor9 - Ako ste dopadli ?

[ Choď na stránku:Choď na stránku: 1, 2, 3 ]

v Vzdelanie, štúdium, škola

60

5433

07.06.2007 13:49

POM4R4NC Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Ako dlho ste pri pocitaci?

[ Choď na stránku:Choď na stránku: 1, 2, 3, 4 ]

v Krčma

91

6348

10.02.2016 19:29

Lessik Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. STALKER ako ste ho skoncili?

v Počítačové hry

14

1215

30.08.2007 23:54

salamoon Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Ako ste strávili leto 2008...

[ Choď na stránku:Choď na stránku: 1, 2 ]

v Dovolenka, cestovanie a turistika

59

4708

25.10.2008 23:21

stopa27 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. ako by ste riesily toto

v Operačné systémy Microsoft

6

738

04.02.2009 20:05

shiro Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Aké debility ste ako deti vystrájali?

v Voľný čas a hobby

17

1203

14.08.2017 1:31

stiv Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Ako ste prišli k svojmu nicku

[ Choď na stránku:Choď na stránku: 1, 2, 3, 4 ]

v Krčma

112

13478

10.10.2011 18:01

MTK Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Ako by ste naučili ropuchu programovať?

v Perl, Python, Ruby, CGI

3

1305

29.06.2022 15:00

medove Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. ako dlho ste vydrzali ne/spat

[ Choď na stránku:Choď na stránku: 1, 2, 3 ]

v Krčma

60

5227

21.07.2010 0:14

Paulooze Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. t-com, dsl ako ste spokojny???

v Poskytovatelia internetu

21

1933

24.03.2009 18:11

ScorpionSX Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Ste v niecom dost dobry a vedeli by ste to naucit inych?

v Ponuka práce

0

1230

21.11.2012 10:37

samo88 Zobrazenie posledných príspevkov


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

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra