Programovanie v jazyku Dev Pascal

Roberbo · Napísal **Roberbo**: 18.10.2008 4:31

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

fmfiain · Napísal **fmfiain**: 24.10.2008 12:52

vie mi niekto vysvetliť prikaz RESULT. na co to je a kde sa to pouziva?

p360t · Napísal **p360t**: 24.10.2008 14:15

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

fmfiain · Napísal **fmfiain**: 06.11.2008 20:40

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

neutronmind · Napísal **neutronmind**: 06.11.2008 21:11

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)

neutronmind · Napísal **neutronmind**: 18.01.2009 16:33

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

tommy_tw · Napísal **tommy_tw**: 06.02.2009 18:55

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.

Fico · Napísal **Fico**: 06.02.2009 19:34

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

tommy_tw · Napísal **tommy_tw**: 06.02.2009 19:43

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

Fico · Napísal **Fico**: 06.02.2009 19:51

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áď :lol:

)

tommy_tw · Napísal **tommy_tw**: 06.02.2009 20:19

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

Fico · Napísal **Fico**: 06.02.2009 20:40

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

raf · Napísal **raf**: 07.02.2009 23:06

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.

ado21 · Napísal **ado21**: 08.02.2009 18:17

@moderator: Nemozete zmenit aspon nazov ten temy nech to nie je nezmysel? dakujem

Eris14 · Napísal **Eris14**: 26.04.2009 21:00

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

Ďuri · Napísal **Ďuri**: 26.04.2009 21:06

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

Eris14 · Napísal **Eris14**: 26.04.2009 21:21

no neviem si volako stym rady....

Ďuri · Napísal **Ďuri**: 26.04.2009 21:26

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

A ak ti vyjde pocet zajacov/bazantov zaporny, tiez bolo nieco zle zadane a uloha nema riesenie.

Eris14 · Napísal **Eris14**: 26.04.2009 21:40

Kód:

program uloha;
uses crt;
var i,s,h:integer;
begin
 clrscr;

no dalej newem

Ďuri · Napísal **Ďuri**: 26.04.2009 21:45

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.

FilipD · Napísal **FilipD**: 29.04.2009 17:46

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

juho · Napísal **juho**: 29.04.2009 18:37

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?

ondrej0071 · Napísal **ondrej0071**: 12.05.2009 10:51

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

raf · Napísal **raf**: 12.05.2009 12:09

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.

neutronmind · Napísal **neutronmind**: 12.05.2009 17:40

Myslim, ze by nebolo na skodu poslat kod...

ondrej0071 · Napísal **ondrej0071**: 12.05.2009 19:22

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

ac.milan · Napísal **ac.milan**: 12.05.2009 19:26

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

raf · Napísal **raf**: 12.05.2009 21:14

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

ondrej0071 · Napísal **ondrej0071**: 13.05.2009 21:17

diki...uz mi to ide...

Paul93 · Napísal **Paul93**: 20.04.2010 17:34

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

Programovanie v jazyku Dev Pascal

Podobné témy