Stránka: 2 z 3
| [ Príspevkov: 67 ] | 1, 2, 3 |
Autor | Správa |
---|
Registrovaný: 10.07.07 Prihlásený: 02.11.17 Príspevky: 1060 Témy: 0 | 0 Bydlisko: Bratislava |
p360t:
Program Sifrovanie;
Program Odzadu;
Tak som si dal tu namahu ...a ozaj spravny algoritmus.
..pre kompatibilitu ch:=ReadKey;
Inak ozaj funkcne
..ospravedlnujem sa, ..ine prispevky som necital;)
_________________ Nebo je modre, voda je mokra... |
|
Registrovaný: 02.10.08 Prihlásený: 13.11.08 Príspevky: 8 Témy: 0 | 0 |
vie mi niekto vysvetliť prikaz RESULT. na co to je a kde sa to pouziva?
|
|
Registrovaný: 30.05.06 Prihlásený: 08.10.14 Príspevky: 1756 Témy: 35 | 35 Bydlisko: BA - WESTSIDE |
V procedúrach (metódach) Delphi je to "výstupná premenná", má ten istý dátový typ ako návratová hodnota metódy v ktorej sa nachádza, pričom daná metóda vráti ako svoju návratovú hodnotu práve obsah tejto premennej.
Iné jazyky (C, Java atď) namiesto toho používajú kľúčové slovo return. Je to trochu neštandardné chovanie Delphi (a teraz neviem, či Object Pascalu všeobecne).
_________________
A. S. Tanenbaum píše: The terms LF, MF, and HF refer to low, medium, and high frequency, respectively. Clearly, when the names were assigned, nobody expected to go above 10 MHz, so the higher bands were later named the Very, Ultra, Super, Extremely, and Tremendously High Frequency bands. Beyond that there are no names, but Incredibly, Astonishingly, and Prodigiously high frequency (IHF, AHF, and PHF) would sound nice. |
|
Registrovaný: 02.10.08 Prihlásený: 13.11.08 Príspevky: 8 Témy: 0 | 0 |
ma to precitat znaky z jedneho suboru a napisat ich do druheho suboru tak aby bolo v kazdom riadku 40 znakov z povodneho - ak v povodnom bolo v riadku viac ako 40 znakov tak napise prvych 40 znakov a ak menej tak zvacsi medzery medzi slovami tak aby bolo 40 znakov v riadku. Vie s tym niekto pohnuť.
|
|
Registrovaný: 30.04.08 Prihlásený: 15.05.15 Príspevky: 884 Témy: 3 | 3 |
Najprv si zisti pocet znakov (okrem medzier) v jednom riadku, potom zisti pocet medzier a vydel (40-pocet znakov) div pocet medzier - tolko medzeri bude medzi kazdym slovom, no napr. medzi predposlednym a poslednym bude ((40-pocet znakov) div pocet medzier) + ((40-pocet znakov) mod pocet_medzier). - pokial sa pocet_medzier nerovna 0.
Cize mas vstup v riadku
Zobraziť ďalšie smajlíky
pocet znakov tam je 22 (neratam medzery). Medzery su 2.
(40-22)/2=18/2=9
a pred poslednym slovom bude 9+(pocet_nedzier==0) ? 0 : 18 % pocet_medzier;
takze vystup bude
Kód: Zobraziť ďalšie smajlíky
( '/' je celociselne delenie (v C) - div)
( '%' je delenie modulo - mod)
_________________ Empty your memory, with a free()… like a pointer! If you cast a pointer to an integer, it becomes the integer, if you cast a pointer to a struct, it becomes the struct… The pointer can crash…, and can overflow… Be a pointer my friend… |
|
Registrovaný: 30.04.08 Prihlásený: 15.05.15 Príspevky: 884 Témy: 3 | 3 |
Kód: program stvorec; var a:integer; begin write('Zadaj stranu a: '); readln(a); if (a>0) writeln('Obsah stvorca je: ', a*a) else writeln('Zadal si nezmysel - strana a musi byt vacsia ako 0.'); readln; end.
- pisane z hlavy, hadam sa neobjavi ziadna chyba...
EDIT: nemyslite si, ze sa rozpravam sam zo sebou, predtym tu bolo 5 rovnakych prispevkov, ktore obsahovali toto zadanie. ...jeden z nich tu vsak mohli nechat...
_________________ Empty your memory, with a free()… like a pointer! If you cast a pointer to an integer, it becomes the integer, if you cast a pointer to a struct, it becomes the struct… The pointer can crash…, and can overflow… Be a pointer my friend… |
|
Registrovaný: 06.02.09 Prihlásený: 26.03.10 Príspevky: 10 Témy: 2 | 2 Bydlisko: MT |
Mám ten program Dev-Pascal a chcem sa opýtať, ako môžem zastaviť program tak, aby som videl výsledok??? Presnejšie mi to nejde, keď použijem knižnicu príkazov graph. Nechám hočico vykresliť, spustiť program spustí, len rýchlo preblikne a skončí. Skúšal som aj readln; , ale to nepomáha. (jedine pri crt mi funguje readln;).
Ešte jedna subotázočka, prečo mi padá systém, keď spustím niektoré programy skomprimované v Turbo Pascal a keď ich skomprimujem pomocou Free Pascalu, tak ide všetko v poriadku??? Toto je len suotázočka, hlavne by som poprosil reagovať na tu hore vyššie.
|
|
Registrovaný: 11.01.09 Prihlásený: 19.05.24 Príspevky: 1385 Témy: 9 | 9 Bydlisko: Hrinova |
Tak ohľadom toho "preblinkutia". Ak chceš vidieť zmenu, readln ti nepôjde, pretože si v grafickom režime. Skús použiť readkey; (je definovaná v knižnici Crt).
Nie som si istý, ale nechcel si náhodou napísať skompilovať, namiesto skomprimovať? No ale dobre. Napíš presnejšie ako myslíš to "padanie" programu, lebo zatiaľ nemám šajnu, prečo ti to robí.
|
|
Registrovaný: 06.02.09 Prihlásený: 26.03.10 Príspevky: 10 Témy: 2 | 2 Bydlisko: MT |
Ďakujem za reakciu.
Vyskúšal som ,ale nepomohlo, readkey; nie je v knižnici graph, cez ktorú to robím, čiže najlepšie by bolo použiť z nej čosi, prípadne, ako dám, aby mi to čítalo príkazy z oboch knižníc, t.j. graph aj crt???
Áno, pomýlil som sa, namiesto komprimovať tam má byť kompilovať a to padanie myslím tak, že spustím program, nabehne príkazový riadok a potom sa resetne počítač a vypíše potom, že činnosť systému bola obnovená po závažnej chybe.
|
|
Registrovaný: 11.01.09 Prihlásený: 19.05.24 Príspevky: 1385 Témy: 9 | 9 Bydlisko: Hrinova |
Tak neviem, ako sa v Dev-Pascale pripojujú unity, pretože ja mám iba Turbo Pascal , no ale ak to je rovnaké tak sa každý unit oddeľuje čiarkou:
Kód: uses Graph, Crt;
Tak ak sa to takto robí aj v Dev-Pascale, tak by to malo ísť (snáď )
|
|
Registrovaný: 06.02.09 Prihlásený: 26.03.10 Príspevky: 10 Témy: 2 | 2 Bydlisko: MT |
áno, presne tak isto sa pripojujú tie uniti. Ďiki za pomoc. Len potom aj tak mi nezastane program, ale sa hneď ukončí, ale napr. v Turbo Pascali mi to išlo normálne.
|
|
Registrovaný: 11.01.09 Prihlásený: 19.05.24 Príspevky: 1385 Témy: 9 | 9 Bydlisko: Hrinova |
To preto, lebo ty musíš dať čítanie z klávesnice do slučky. Skús svoj program upraviť nejako takto:
Kód: var ch: char;
procedure Paint; begin
(* tu bude celý tvoj kód na kreslenie *)
end;
BEGIN
(* tu si daj tie inicializačné veci a tak .. *)
repeat ch:= readkey; Paint; until (ch=#27);
(* a ďalší tvoj kód ... *)
END.
Dúfam, že tam nemám chyby, lebo v Pascale som už dlho nerobil
--------------------------------------------------------------
Ak ti ani toto nepôjde, tak skús namiesto funkcie readkey použiť keypressed (Tá je asi aj lepšia, pretože "nečaká" na stlačenie klávesu - tiež je definovaná v CRT).
|
|
Registrovaný: 14.04.08 Prihlásený: 04.06.16 Príspevky: 700 Témy: 42 | 42 Bydlisko: Bratislava |
Nedal si nahodou to readln az po closegraph? Ak sa zavrie grafika skor ako das readln, tak ti obraz len tak prebleskne. Closegraph musi prebehnut az po stlaceni klavesy.
_________________ pc: MB: MSI K9N SLi (chipset nvidia nforce 570 SLi), CPU: amd athlon X2 5600+ 2.8 Ghz Windsor chladeny ac freezer 64 pro, ram:2 GB 800Mhz DDR2 A-DATA Vitesta Extreme Edition (2x1GB), grafika: Sapphire Radeon HD 3870 512MB, HDD:Hitachi deskstar SATA2 7200 rpm 500.1GB, PSU: 450W Eurocase |
|
Registrovaný: 16.02.08 Prihlásený: 08.12.10 Príspevky: 235 Témy: 13 | 13 |
@moderator: Nemozete zmenit aspon nazov ten temy nech to nie je nezmysel? dakujem
_________________ Učet je neaktívny. |
|
Registrovaný: 26.02.07 Prihlásený: 24.01.17 Príspevky: 221 Témy: 67 | 67 |
potrebujem pomoct ....je to jednoducha uloha ,ale nakolko ja sa neviem ani pohnut v pascale tak potrebujem od nekoho pomoct...diky velmy pekne...
uloha:Polovnici urobili hon na zajacov a bazantov.Na konci chceli zistit,kolko coho ulovili.Boli uz ale taki ustati,ze nerozoznali zajaca od bazanta.Jedneho z nich napadlo,ze by mohli spocitat vsetky kusy,ktore ulovili, a celkovy pocet nôh.Z toho by sa malo dat spocitat ,kolko bolo zajacov a kolko bazantov.Pretoze boli velmi ustatí,pri rataní sa mohli aj pomylit.Vypocitajte,kolko bazantov a zajacov ulovili a urobte osetrenie nezmyselne zadanych hodnôt
_________________ http://CashTasks.com/?ref=305868 |
|
Registrovaný: 11.08.07 Príspevky: 4088 Témy: 34 | 34 Bydlisko: Brno |
Ach... co si mal z matematiky? Nacitaj pocet kusov a pocet noh, pocet zajacov (z) a bazantov (b) vypocitas podla rovnic
z + b = pocetkusov
4z + 2b = pocetnoh
A osetrenie hodnot snad zvladnes... pocet kusov musi byt > 0, pocet noh musi byt delitelny 2 a tiez > 0.
Ulohy do skoly tu za teba nikto robit nebude. Uloha je na urovni 6.rocnika ZS a prepisat to do programovacieho jazyka je najmenej, nie?
|
|
Registrovaný: 26.02.07 Prihlásený: 24.01.17 Príspevky: 221 Témy: 67 | 67 |
no neviem si volako stym rady....
_________________ http://CashTasks.com/?ref=305868 |
|
Registrovaný: 11.08.07 Príspevky: 4088 Témy: 34 | 34 Bydlisko: Brno |
A co konkretne ti nejde? Daj sem svoj kod.
Celu ulohu samozrejme za teba nikto robit nebude, je to v pravidlach.
Este som zabudol k tomu overeniu - pocet kusov zveri musi byt mensi ako pocet noh, pochopitelne A ak ti vyjde pocet zajacov/bazantov zaporny, tiez bolo nieco zle zadane a uloha nema riesenie.
|
|
Registrovaný: 26.02.07 Prihlásený: 24.01.17 Príspevky: 221 Témy: 67 | 67 |
Kód: program uloha; uses crt; var i,s,h:integer; begin clrscr;
no dalej newem
_________________ http://CashTasks.com/?ref=305868 |
|
Registrovaný: 11.08.07 Príspevky: 4088 Témy: 34 | 34 Bydlisko: Brno |
To mas z toho, ze celu informatiku visis na pokeci a potom si duty jako poleno.
Tu to je teda prerobena verzia, trosku som prerobil tie podmienky: http://pastebin.sk/sk/13277/
Rataj s tym, ze toto je posledny raz, co si tu dostal riesenie celeho prikladu.
Zakerne dufam, ze budes musiet vysvetlit postup riesenia.
|
|
Registrovaný: 29.04.09 Prihlásený: 29.04.09 Príspevky: 1 Témy: 0 | 0 |
Je daná postupnosť 50 celých čísiel z intervalu (1,30). Vypíšte jednotlivé členy tejto postupnosti a zistite, koľko z nich sa rovná poslednému číslu na vstupe.
Nerozumiem tomu prosím vás poradí mi niekto odmením ho
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | 6 |
najprv ked budete chciet riesenie nejakeho prikladu, tak si pozrite odkaz Citácia: hladat a comuze nerozumies? to ze mas pole 50 celociselnych cisel? alebo tomu ze ho mas naplnit nejak tymi cislami? alebo potom ze mas si zapamatat hodnotu posledneho a potom pouzit jeden cyklus ktory prebehne cele pole a az najde to zapamatane cislo tak incrementuje cize pricita jednotku k nejakej premennej ktora bude uchovavat pocet vyskytov toho cisla?
|
|
Registrovaný: 12.05.09 Prihlásený: 17.06.12 Príspevky: 48 Témy: 20 | 20 Bydlisko: Studenec |
potrebujem helpnut...vytvorim si program v dev pascale ale po spusteni mi ho hned aj zavrie...daval som aj readln nakoniec a aj tak
sa mi zatvori....co mam zadat aby mi okno ostalo otvorene???....pleaseee matury
|
|
Registrovaný: 14.04.08 Prihlásený: 04.06.16 Príspevky: 700 Témy: 42 | 42 Bydlisko: Bratislava |
Aky unit pouzivas? crt, graph, alebo nejaky iny? Ked v dev-pascali pouzivam klasicky crt z Turbo Pascalu 7.0, vsetko ide normalne. Aj pri graphe ide vsetko viac-menej ok, len to viac preblikava a seka.
_________________ pc: MB: MSI K9N SLi (chipset nvidia nforce 570 SLi), CPU: amd athlon X2 5600+ 2.8 Ghz Windsor chladeny ac freezer 64 pro, ram:2 GB 800Mhz DDR2 A-DATA Vitesta Extreme Edition (2x1GB), grafika: Sapphire Radeon HD 3870 512MB, HDD:Hitachi deskstar SATA2 7200 rpm 500.1GB, PSU: 450W Eurocase |
|
Registrovaný: 30.04.08 Prihlásený: 15.05.15 Príspevky: 884 Témy: 3 | 3 |
Myslim, ze by nebolo na skodu poslat kod...
_________________ Empty your memory, with a free()… like a pointer! If you cast a pointer to an integer, it becomes the integer, if you cast a pointer to a struct, it becomes the struct… The pointer can crash…, and can overflow… Be a pointer my friend… |
|
Registrovaný: 12.05.09 Prihlásený: 17.06.12 Príspevky: 48 Témy: 20 | 20 Bydlisko: Studenec |
ako pomaly...je jedno aky program napisem,vzdy sa mi to okno zatvori...prejde compiler,dam run ...zada hodnoty do programu,ale ked chcem vidiet vysledok,tak po ukonceni programu sa mi to okno zavrie a neviem ako ho otvorit,zeby som si mohol skontrolovat vysledok,ze ci je spravne vypocitany...ja potrebujem vediet,ze ci mam este do programu dat este nejaky prikaz,zeby ostalo otvorene,alebo nastavit nieco v dev pascale???
|
|
Registrovaný: 17.04.08 Prihlásený: 10.05.24 Príspevky: 13261 Témy: 421 | 421 Bydlisko: Myjava |
neviem ci som ta spravne pochopil, ale na koniec pred posledny END sa dava prikaz
Kód: readln; alebo Kód: repeat until keypressed; pripadne aj Kód: wait; ale to som si neni isty
tak by malo okno ostat otvorene
_________________ PC: MSI B450 GAMING PLUS / AMD Ryzen 5 2600 / SilentiumPC Fera 3 HE1224 / ADATA XPG Spectrix D40 DDR4 2x8GB / Gainward GeForce GTX 1060 Phoenix 6GB / Adata XPG Gammix S11 M.2 SSD 480GB NVMe / Seagate BarraCuda HDD 2TB / WD Green 4TB / WD My Book Essential 3.0 2000GB / WD Elements 2000GB / ASUS BW-16D1HT / Creative Sound Blaster Audigy RX / Corsair CX450M / SilentiumPC Regnum RG4T / Dell P2719H / Microsoft Natural Ergonomic Keyboard 4000 / Logitech G102 Prodigy Gaming Mouse / Microlab SOLO9C / Microlab B77 / SONY WH-1000XM4 / Koss Porta Pro / Microsoft Windows 10 64-bit FPP PC (history): ASUS M4A785TD-V EVO / Athlon II X4 640 / Hynix 8GB (2x4GB) DDR3 1600 MHz / Sapphire HD7750 1GB Ultimate Silent Series / AMD Radeon R3 120GB / Seagate 7200.12 500GB / Samsung SH-S223L / Creative Sound Blaster X-Fi XtremeMusic / Axago PCEU-43R USB3.0 / TP-LINK TG-3269 / Corsair VS450 / 24" BenQ G2420HDBL / Gigabyte GT-U8300 NTB: Huawei MateBook D15 NTB2: Alcatel PLUS 10 LTE NTB3: MSI M670X-091SK / Transcend 2x1GB DDR2 667MHz Phone: Samsung Galaxy S9 Phone2: Samsung Galaxy S20+ Turntable: Tesla NC 470 / Ortofon OM 5E |
|
Registrovaný: 14.04.08 Prihlásený: 04.06.16 Príspevky: 700 Témy: 42 | 42 Bydlisko: Bratislava |
V Turbo pascali je taka kombinacia, ze alt+f5, aby si videl obrazovku s vysledkami. Uz parkrat sa mi stalo, ze som namiesto jedneho readln musel dat dva. Mozes tiez skusit v options->compiler options dat freepascal kompilator a zaskrtnut policko try to be tp7compatible. S tym repeat until keypressed by ti obrazovka mala ostat urcite otvorena. V starom turbo pascali(ak ho pouzivas) ti tvoj program funguje dobre? Bolo by dobre hodit kod akehokolvek programu co ti tam nesiel, ako pisal neutromind, dost to moze pomoct
_________________ pc: MB: MSI K9N SLi (chipset nvidia nforce 570 SLi), CPU: amd athlon X2 5600+ 2.8 Ghz Windsor chladeny ac freezer 64 pro, ram:2 GB 800Mhz DDR2 A-DATA Vitesta Extreme Edition (2x1GB), grafika: Sapphire Radeon HD 3870 512MB, HDD:Hitachi deskstar SATA2 7200 rpm 500.1GB, PSU: 450W Eurocase |
|
Registrovaný: 12.05.09 Prihlásený: 17.06.12 Príspevky: 48 Témy: 20 | 20 Bydlisko: Studenec | |
Registrovaný: 20.04.10 Prihlásený: 20.04.10 Príspevky: 1 Témy: 0 | 0 |
čuste, mam problem, presne rovnaky ako predo mnou prispevok lenze mne to nefunguje. zadam tento prikaz do DEV pascalu
Kód: program mojprvy; uses Graph; begin Line (0,0,100,100); end.
a ako dam run tak hned vypne to okno, proste a nic mi nepomaha, ani to co ste tu vypisovali, to readln, ani wait, nic nepomaha.......
ps. ja v tom len zacinam, tak som z toho mulo este a ako vidite zadany program nazov, je to moj prvy prikaz, tak mi pomozte, dakujem.
|
|
Stránka: 2 z 3
| [ Príspevkov: 67 ] | 1, 2, 3 |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| v Assembler, C, C++, Pascal, Java | 3 | 498 | 08.11.2015 7:02 matesko3 | | v Assembler, C, C++, Pascal, Java | 4 | 827 | 27.10.2007 16:44 audiotrack | | v Operačné systémy Unix a Linux | 4 | 490 | 07.09.2011 0:29 System Selector | | v Assembler, C, C++, Pascal, Java | 0 | 390 | 19.12.2014 13:18 Styracoz | | v Assembler, C, C++, Pascal, Java | 11 | 1131 | 02.06.2010 21:19 predcis | | v Assembler, C, C++, Pascal, Java | 0 | 624 | 31.01.2008 20:03 B.A.X.O | | v Assembler, C, C++, Pascal, Java | 16 | 883 | 02.10.2012 13:50 BX | | v Assembler, C, C++, Pascal, Java | 6 | 583 | 14.01.2018 18:30 Miso122 | | v Assembler, C, C++, Pascal, Java | 2 | 287 | 13.10.2012 22:37 XOLOO | | v Assembler, C, C++, Pascal, Java | 4 | 648 | 22.07.2009 23:15 Loko11 | | v Assembler, C, C++, Pascal, Java | 2 | 402 | 09.07.2015 18:52 reDo | | v Počítačové hry | 6 | 460 | 05.05.2013 17:21 EXIREXT | | v Assembler, C, C++, Pascal, Java | 1 | 412 | 04.05.2010 19:51 Ďuri | | v Assembler, C, C++, Pascal, Java | 0 | 510 | 02.08.2009 0:16 Loko11 | | v Assembler, C, C++, Pascal, Java | 16 | 3781 | 04.06.2009 20:49 Flexor28 | | [ Choď na stránku: 1 ... 7, 8, 9 ] v Život, životný štýl, móda, bývanie | 256 | 35105 | 30.11.2009 22:01 RRRaaadddooo |
|