Problém s ukončováním – Pascal – Fórum – Programujte.com

Předem se omlouvám jestli tady už něco na toto téma bylo.

Program Vypis;   

uses crt;   

   begin   

      textcolor(white);   

      clrscr;   

      readkey;   

   end.  



Procedure press;   

begin   

  textcolor(red+blink);   

  writeln("Bla bla bla bla bla - no proste neco");   

  textcolor(white);   

  readkey;   

end.  

Máš to špatně. Na kód za end. se překladač nikdy nedostane. Pascal tedy vidí jenom:

Program Vypis;   

uses crt;   

   begin   

      textcolor(white);   

      clrscr;   

      readkey;   

   end. 

OK. A jak mám tedy spustit další část? Zkoušel jsem end. odmazat, ale to nejde. Zkoušel jsem to dát i pod stejné begin-end, ale to je také špatně..

To co řekl Laaca je správně, chtěl bych jenom dodat, že správný kód potom je

Program Vypis;   



uses crt; 



Procedure press;  

begin   

  textcolor(red+blink);   

  writeln("Bla bla bla bla bla - no proste neco");   

  textcolor(white);   

  readkey;   

end;    



Begin   

      textcolor(white);

      press;   

      clrscr;   

      readkey;   

end.  

Begin   

   textcolor(white);   

   clrscr;   

   readkey;   

end.

Procedure press;   



Begin   

  textcolor(red+blink);   

  writeln("Bla bla bla bla bla - no proste neco");   

  textcolor(white);   

  readkey;   

end;

Ale mám tu jiný problém. Nějak blbnou uvozovku. Komiplátor je považuje za ilegální charakter :) Jsou použity jen u textu.

To Minatory : Jasně. Uvozovky do Pascalu nepatří. Tady se píší apostrofy (zkratka je alt+39).

Jo... Teď to jde. Ale tak prosím opravte ty chyby, které jsou nadělány v tomto článku: http://programujte.com/index.php?akce=clanek&cl=2007021903-programovani-v-praxi-1-dil - tedy tečku u end na konci programu a ne stedník a apostrofy místo uvozovek. Dík...

Mám tady další problém. Napíše mi to, že program exited with exitcode = 2

Program Vypis;



uses crt;

var jmeno:text;

procedure press;

begin

        textcolor(red+blink);

        writeln('prostenejakytext');

        textcolor(white);

        readkey;

end;

procedure soubor;

Begin

        assign(jmeno,'text.txt');

        append(jmeno);

end;



procedure ulozit;

begin

        soubor;

        close(jmeno);

end;



Begin

        clrscr;

        textcolor(white);

        press;

        clrscr;

        writeln('Jmenuji se Štěpán Pazderka');

        writeln('Je mi ',17,' mému otci je ',45,' společně je nám ',45+17);

        writeln('Pro ukončení programu stiskněte ENTER');

        ulozit;

        readkey;

end.

Nevím, jestli se náhodou Append nepoužívá jenom na již existující soubory (pokud text.txt ještě neexistuje, radši použij Rewrite).

Ještě bych měl pár připomínek:
- Procedura Soubor soubor otevře. Procedura Ulozit ho tedy jenom otevře a zavře (předpokládám, že tam ještě doplníš nějaký příkaz pro uložení něčeho do toho souboru). Každopádně je zbytečné to dělit do dvou procedur - zhoršuje to přehlednost.
- Máš tam zbytečně mockrát textcolor(white).
- writeln('Pro ukončení programu stiskněte ENTER'); - proč? Readkey přečte cokoli, ne jenom enter. Jestli chceš čekat na enter a nic jiného, tak použij Readln;.

Jo dík. Dneska jsem začal. Vlastně se snažím cokoliv pochopit z těch článků s příklady :) O souboru vím jen to, že bych chtěl, aby se vytvořit TXT soubor a do něj něco zapsalo. Nezná na to někdo nějakou funkci?

Jo, používá se Write(soubor). Ale jestli chceš pracovat se souborama, pořádně si to pročti, je toho víc, co bys' měl vědět, než se pustíš do operací s nimi.

A nemáš nějaký odkaz? :)

http://mircosoft.ic.cz/texty/ZAKLADY.TXT
Hledej kapitolu 2 - datové typy, na jejím konci je typ soubor a popis skoro všeho, co se soubory jde.

Já bych ti především doporučil studovat pořádné tutoriály a ne takové braky (viz. tvůj první příspěvek)

Přihřeju si vlastní polívčičku:
vyčerpávající, srozumitelný, dobře napsaný a hlavně můj :-) návod na práci se soubory v pascalu je tady:
http://www.int21h.ic.cz/?id=85

urcite si prostuduj tohle http://pascal.webz.cz/ z toho jsem se naucil vse co je potreba zakladem vedet o pascalu. Je to dost dobre napsane ja se to z toho bez problemu naucil kdyz mi bylo 14.