Vytvoření vlastní knihovny - Pascal – Pascal – Fórum – Programujte.com

Zdravím

Pokouším se pochopit vytváření vlastních knihoven v pascalu, ale nedaří se mi to. Chápu to takto:

Knihovna je rozdělena na dvě části. V první části Interface si nastavím název funkce, dále názvy proměnných, které bude používat zdrojový soubor a datový typ těchto proměnných.

V druhé části Iplementation je už nějaký kód, který chci řešit. Pro pochopení jsem si udělal knihovnu, která mi třeba bude počítat obsah kruhu (pomiňme jednoduchost).

Knihovna mi nyní vypadá takto:

Unit Geom; //Nazev knihovny

Interface //Verejne rozhrani

   Function Kruh_obsah (r: real): real;


Implementation

   Function Kruh_obsah(r: real): real; //Obsah kruhu
      Begin
         Kruh_obsah := (pi *( r * r )); //Samotny vypocet
      End;

End.

Nyní mám zdrojový soubor, kde chci tuto knihovnu použít:

Program Vypocty;
Uses crt, geom;

Var x, r, a, b, vysledek:Real;

Procedure ObsKr;
Begin
   WriteLn ('Vybrali jste volbu 1 - Obsah kruhu.');
   WriteLn ('Zadejte prosim polomer kruhu: ');
   ReadLn (r);
   WriteLn ('Obsah kruhu s vami zadanym polomerem je: ', vysledek);
End;

Begin
   clrscr;
   WriteLn ('Vyberte si geometricky obrazec a operaci, ktera vas zajima:');
   WriteLn ('');
   WriteLn ('1 - Obsah kruhu');

   WriteLn ('');
   WriteLn ('Zadejte prosim cislo vasi volby');
   ReadLn (x);

   If x = 1 Then ObsKr

End.

(mám tam použitu proceduru a ify. Těch voleb a procedurtam bude více, abych se naučil s tímto pracovat, ale pro znázorněí toho co mám jsem zatím smazal).

Nyní ale stojím na tom, že netuším, jak to propojit. Když spustím zdrojový soubor, tak mi to vyhodí chybovou hlášku. Když si ji nechám zobrazit co je za problém, otevře se mi moje knohovna a označí se mi řádek: 

         Kruh_obsah := (pi *( r * r )); //Samotny vypocet

Evidentně tedy někde dělám chybu. Podle skript jsem ji nenašel a jednoduše třetí den hledám  a pokouším se promazávat co se stane když...

#1 Gooo
Tipuji, že by to do uses chtělo přidat název knihovny Geom.

#2 Kit
Zkoušel jsem a i si to hned opravil, ale nepomohlo. Provázání s knihovnou funguje, protože mám otevřen pouze program, kde knihovnu volám, kompiluji, vyhodí mi to chybu, kliknu na chybu, aby mi ukázal kde je a otevře se tato knihovna s právě vyznačeným řádkem:

         Kruh_obsah := (pi *( r * r )); //Samotny vypocet

Takže v propojení to asi nebude...

#3 Gooo
Možná kdyby sis přečetl chybovou hlášku, zjistil bys, že nemáš definovánu proměnnou "pi".

#4 Kit
Máš pravdu. Je to chyba. Jenž to situaci neřeší. Já to totiž měl včera s pi, která byla deklarovaná. Já to pi ale přepsal na 3,14, pak na 3.14 a házelo stejnou chybu. 

Chybovou hláškou se neumím řídit. Píše mi to:

"23 / 26 geom.pas  Fatal: Syntax error, ) expected but , found"

Hledá to konec závorky? Já ty kódy projel a neukončenou závorku jsem nenašel. Je to bu´d nějaká hloupost, kterou prostě nevidím, nebo to chápu úplně blbě.

#5 Gooo
Říká to, že máš čárku někde, kde být nemá. Bohužel nevím, kde máš 23. řádek.

#5 Gooo
Koukám, že v programu vypisuješ nedefinovaný obsah proměnné "vysledek".

Za voláním procedury ObsKr ti chybí závorky. Co to je za název "ObsKr"? To neumíš vymyslet lepší? Třeba ObsahKruhu? Mezi voláním procedury a závorkou se nepíše mezera.

#7 Kit
Ať udělám jakoukoli změnu, tak mi to vypíše stále stejnou chybu. Řádek 23 je právě:

         Kruh_obsah := (pi *( r * r )); //Samotny vypocet

Nebylo mi jasné, co předává ten výsledek z knihovny, tak jsem použil proměnnou Vysledek. Upravil jsem tedy zdrojáky takto:

   Function Kruh_obsah (r, Vysledek: real): real;

   Function Kruh_obsah (r, Vysledek: real): real; //Obsah kruhu
      Begin
         Vysledek := 0;
         Vysledek := (3.14 * ( r * r )); //Samotny vypocet
      End;

a v programu kde volám, jsem upravil:

Procedure ObsKr;
Begin
   WriteLn ('Vybrali jste volbu 1 - Obsah kruhu.');
   WriteLn ('Zadejte prosim polomer kruhu: ');
   ReadLn (r);
   Kruh_obsah (r, Vysledek);
   WriteLn ('Obsah kruhu s vami zadanym polomerem je: ', Vysledek);
End;

   If x = 1 Then
   Begin
    ObsKr;
   End

Závorky za voláním procedury? Koukám na návody a závorky nejsou uvedeny ani u procedur, ani u příkladu s If. Proč je tam dávám?

#8 Gooo
Proměnná Vysledek je přece úplně k ničemu. Ty neumíš zavolat funkci?

#9 Kit
Popravdě, učím se pascal a mám za sebou 8 hodin, takže postupuji spíš podle nějakých návodů na internetu a systémem omyl pokus :o/.

Tak já nevěděl, jak přesně volat funkci, tak jsem to ještě předělal do procedury. Druhý den, ať dělám cokoli, tak se mi pořád vypisuje jedna a tatáž chyba. Netuším už, jak ji odhalit.

Raději zde postnu celý kód, protože možná už dělám chybu v tom, že jsem to zkracoval. Napadá někoho, proč mi tenhle kód vypisuje chybu:

23 / 26 geom.pas Fatal: Syntax error, ) expected but , found

Knihovna:

Unit Geom; //Nazev knihovny

{===Promenne, ktere budou pouzivany jak v knihovne, tak v samotnem programu ===}
Interface //Verejne rozhrani
   Procedure Kruh_obsah (r: real; Var Vysledek: real); //Pro vypocet bude zadana hodnota polomeru r v realnych cislech. Vysledek bude v ralnych cislech
   Procedure Kruh_obvod (r: real; Var Vysledek: real); //Pro vypocet bude zadana hodnota polomeru r v realnych cislech. Vysledek bude v ralnych cislech
   Procedure Obdelnik_obsah (a, b: real; Var Vysledek: real); //Pro vypocet budou zadany velikosti strany a a b v realnych cislech. Vysledek bude v realnych cislech
   Procedure Obdelnik_obvod (a, b: real; Var Vysledek: real); //Pro vypocet budou zadany velikosti strany a a b v realnych cislech. Vysledek bude v realnych cislech
   Procedure Ctverec_obsah (a: real; Var Vysledek: real); //Pro vypocet bude zadana velikost strany a v realnych cislech. Vysledek bude v realnych cislech
   Procedure Ctverec_obvod (a: real; Var Vysledek: real); //Pro vypocet bude zadana velikost strany a v realnych cislech. Vysledek bude v realnych cislech

{==================== Definice samotnych operaci s promennymi =================}
Implementation
   Procedure Kruh_obsah (r: real; Var Vysledek: real); //Obsah kruhu
      Begin
         Vysledek := (3.14 * ( r * r )); //Samotny vypocet
      End;

    Procedure Kruh_obvod (r: real; Var Vysledek: real); //Obvod kruhu
      Begin
         Vysledek := (2 * 3.14 * r); //Samotny vypocet
      End;

   Procedure Obdelnik_obsah(a, b: real; Var Vysledek: real); //Obsah obdelniku
      Begin
         Vysledek := (a * b); //Samotny vypocet
      End;

   Procedure Obdelnik_obvod(a, b: real; Var Vysledek: real); //Obvod obdelniku
      Begin
         Vysledek := ((a + b) * 2); //Samotny vypocet
      End;

   Procedure Ctverec_obsah(a: real; Var Vysledek: real); //Obsah ctverce
      Begin
         Vysledek := (a * a); //Samotny vypocet
      End;

   Procedure Ctverec_obvod(a: real; Var Vysledek: real); //Obvod ctverce
      Begin
         Vysledek := (4 * a); //Samotny vypocet
      End;
End.

Zdroj:

Program Vypocty;
Uses crt, Geom;

Var r, a, b, Vysledek, x: Real;

{==== Procedura Obsah kruhu ====}
Procedure ObsKr;
Begin
   WriteLn ('Vybrali jste volbu 1 - Obsah kruhu.');
   WriteLn ('Zadejte prosim polomer kruhu: ');
   ReadLn (r);
   Kruh_obsah (r, x);
   WriteLn ('Obsah kruhu s vami zadanym polomerem je: ', x);
End;

{==== Procedura Obvod kruhu ====}
Procedure ObvKr;
Begin
   WriteLn ('Vybrali jste volbu 2 - Obvod kruhu.');
   WriteLn ('Zadejte prosim polomer kruhu: ');
   ReadLn (r);
   Kruh_obvod (r, x);
   WriteLn ('Obvod kruhu s vami zadanym polomerem je: ', x);
End;

{==== Procedura Obsah obdelniku ====}
Procedure ObsOb;
Begin
   WriteLn ('Vybrali jste volbu 3 - Obsah obdelniku.');
   WriteLn ('Zadejte prosim delku strany a: ');
   ReadLn (a);
   WriteLn ('Zadejte prosim delku strany b: ');
   ReadLn (b);
   Obdelnik_obsah (a, b, x);
   WriteLn ('Obsah obdelniku s vami zadanymi stranami: ', x);
End;

{==== Procedura Obvod obdelniku ====}
Procedure ObvOb;
Begin
   WriteLn ('Vybrali jste volbu 4 - Obvod obdelniku.');
   WriteLn ('Zadejte prosim delku strany a: ');
   ReadLn (a);
   WriteLn ('Zadejte prosim delku strany b: ');
   ReadLn (b);
   Obdelnik_obvod (a, b, x);
   WriteLn ('Obvod obdelniku s vami zadanymi stranami: ', x);
End;

{==== Procedura Obsah ctverce ====}
Procedure ObsC;
Begin
   WriteLn ('Vybrali jste volbu 5 - Obsah cverce.');
   WriteLn ('Zadejte prosim delku strany a: ');
   ReadLn (a);
   Ctverec_obsah (a, x);
   WriteLn ('Obsah ctverce s vami zadanou stranou: ', x);
End;

{==== Procedura Obvod ctverce ====}
Procedure ObvC;
Begin
   WriteLn ('Vybrali jste volbu 6 - Obvod ctverce.');
   WriteLn ('Zadejte prosim delku strany a: ');
   ReadLn (a);
   Ctverec_obvod (a, x);
   WriteLn ('Obvod ctverce s vami zadanou stranou: ', x);
End;


Begin
   clrscr;
   WriteLn ('Vyberte si geometricky obrazec a operaci, ktera vas zajima:');
   WriteLn ('');
   WriteLn ('1 - Obsah kruhu');
   WriteLn ('2 - Obvod kruhu');
   WriteLn ('3 - Obsah obdelnika');
   WriteLn ('4 - Obvod obdelniku');
   WriteLn ('5 - Obsah ctverce');
   WriteLn ('6 - Obvod ctverce');
   WriteLn ('');
   WriteLn ('Zadejte prosim cislo vasi volby');
   ReadLn (x);

   If x = 1 Then ObsKr
   Else If x = 2 Then ObvKr
   Else If x = 3 Then ObsOb
   Else If x = 4 Then ObvOb
   Else If x = 5 Then ObsC
   Else If x = 6 Then ObvC;

   Writeln ('');
   Writeln ('Program ukoncete stisknutim klavesy Enter');
   ReadLn ();
End.

#11 Gooo
To je divné. Kvůli tobě jsem si nainstaloval Pascal, abych zjistil, že program jde normálně přeložit a zdá se, že i funguje.

#12 Kit
V tom případě už nevím :o/. Zkouším to ve Free Pascal a v Dev-Pas. Oba mi vyhodí chybu na stejném místě. Problém by neměl být ani v tom, že bych se odkazoval na nějakou jinou knihovnu, protože jsem to včera dělal na jiném počítači a tam mi to vyhazovalo stejnou chybu. Asi mám problém v systému nějak.

Omlouvám se tedy, že jsem řešil a děkuji za rady

#13 Gooo
Tohle fórum je určeno k řešení problémů, nemáš se zač omlouvat.

Stává se, že tazatel při přetahování zdrojáku do fóra nevědomky chybu opraví. Zkus si ty zdrojáky z fóra zkopírovat k sobě a znovu přeložit.

Tak jsem se včera naštval a zabalil to. Vypl PC a dnes jsem to zapl a aniž bych cokoli změnil, vážně to funguje. Takže asi nějaká záhada, ale na ty já jsem u sebe zvyklý, že to co všude funguje, u mě ne. Děkuji za rady. Cíl, že chci nějak pochopit funkci knihovny to snad díky tomu hledání chyby, byl snad tak nějak splněn :o).

#15 Gooo
Možná v nějaké cache visela původní verze, kde jsi měl 3,14 místo 3.14

Když to vezmu podle úvodního příspěvku: jednotku Geom máte v pořádku, jenom je pak špatně použitá. Má to být takhle:

Procedure ObsKr;
Begin
   WriteLn ('Vybrali jste volbu 1 - Obsah kruhu.');
   WriteLn ('Zadejte prosim polomer kruhu: ');
   ReadLn (r);
   WriteLn ('Obsah kruhu s vami zadanym polomerem je: ', kruh_obsah(r));
End;

Procedura se volá jako příkaz, funkce jako výraz - tedy něco, co ve výsledku dá nějakou hodnotu. Třeba zrovna to Pi - to je standardní předdefinovaná funkce, co vrací hodnotu čísla pí (definovat se už nikde nemusí, je přímo v základní jednotce System, kterou automaticky používá každý program).