Problem Z Pascalem

[matku]

Mam jeden problem. Program ktory dziala na 100% na Turbo Pascalu nie chce dzialac w KDevelop. Najpierw pobralem pakiet fpc, a pozniej KDevelop. Program sie poprawnie kompiluje ale gdy klikam na Execute Program to pojawia sie okienko ale nic w nim nie ma. Zadnych bledow kompilacji nie bylo. W prostych programach nie ma najmniejszych problemow. Ponizej umieszcze niedialajacy program :

PROGRAM liczznaki;

USES Crt;

 

VAR plik: file of char;

dir:string;

znak:char;

ilosc:longint;

BEGIN

Writeln('podaj nazwe pliku');

readln(dir);

ASSIGN(plik,dir);

RESET(plik);

WHILE not (eof(plik)) DO

BEGIN

read(plik,znak);

IF (ord(znak)=10) or (ord(znak)=32) or (ord(znak)=13)

then inc(ilosc,1);

end;

Program dzialal w szkole na zajeciach ale nie dziala niestety tutaj

 

Ps. Jestem "zielonym" uzytkownikiem Linuksa wiec prosze o wyrozumialosc.

 

[Gość _PaT]

1) Czy podajesz prawidłową ścieżkę do pliku?

2) Czy masz uprawnienia do odczytu tego pliku?

[@perl]

PROGRAM liczznaki;

USES Crt;

 

VAR plik: file of char;

    dir:string;

    znak:char;

    ilosc:longint;

BEGIN

Writeln('podaj nazwe pliku');

readln(dir);

ASSIGN(plik,dir);

RESET(plik);

    WHILE not (eof(plik)) DO

      BEGIN

      read(plik,znak);

      IF (ord(znak)=10) or (ord(znak)=32) or (ord(znak)=13)

      then inc(ilosc,1);

      end;

Program dzialal w szkole na zajeciach ale nie dziala niestety tutaj

po pierwsze program ktory podales, nie ma prawa sie kompilowac, zawiera bledy krytyczne, po drugie nie produkuje zadnego outputu, wiec na ekranie nie otrzymujesz wyniku,

 

oto poprawiony program:

var    plik    : file of char;
       dir     : string;
       znak    : char;
       ilosc   : longint;

begin
 write('Podaj nazwę pliku: ');
 readln(dir);
 assign(plik,dir);
 reset(plik);
 ilosc:=0;
 while not (eof(plik)) do
   begin
     read(plik,znak);
     if (ord(znak)=10) or (ord(znak)=32) or (ord(znak)=13) then inc(ilosc,1);
   end;
 writeln('Ilosc znakow w pliku "',dir,'" : ',ilosc);
end.

on sie kompiluje bez problemu za pomoca fpc,

 

stworz sobie w edytorze plik test.txt i recznie wpisz kilka linii, nastepnie zapisz i uzyj w powyzszym programie, mi dziala bardzo dobrze

 

PS. no to mialem malutka powtorke z TurboPascala - tak a propos matury

[matku]

Dzięki. Mam teraz inny problem. Jak dodać biblioteki takie jak crt lub graph do KDevelop aby program poprawnie dzialał ?

 

Ps. wczoraj byłem ździebko zmeczony - podzczas wklejania programu wcięło parę linijek(3 lub 4) i głównym problemem było tak naprawdę to uses crt. Ne byłó mi to tak w sumie potrzebne ale muszę wiedzieć jak dodać to do programu bo szykuje się mały projekcik podsumywujący kawałek semestru. A nie chciałbym pisać tego na windzie(troche sę już przyzwyczaiłem do (_linuxa_ → Linuksa) ORT )

[@perl]

polecam przeczytac jakis kurs, np. ten:

http://www.komputery-internet.net/turbo/

jest bardzo dobry

[matku]

Wiedziałem już wcześniej jak się dodaje moduły do programów bo trochę już programowałem w windowsie na Turbo i Free Pascalu(ten drugi głównie do trybu graficzengo). Mam problem tylo z KDevelop. Najprawdopodobniej program ten nie ma domyślnej ścieżki do modułów dodatkowych w związku z tym po dodaniu modułu np.crt i użyciu procedury clrscr program nie wyświetla się tzn. po uruchomieniu mam puste okienko i nic poza tym. Więc mam pytanie:

-Gdzie podać ścieżkę w programie KDevelop do tych modułów ?

 

Ps. A tak w sumie i tak chciałbym podziękować za ten kursik bo widzę że może mi (i nie tylko) wiele pomóc