Forum CDRinfo.pl - Pascal...pytanie

Strona 4 z 5

Pokaż 100 postów z tej dyskusji na jednej stronie

Forum CDRinfo.pl (https://forum.cdrinfo.pl/)

- Komputery - oprogramowanie i sprzęt (https://forum.cdrinfo.pl/f113/)

- - Pascal...pytanie (https://forum.cdrinfo.pl/f113/pascal-pytanie-43359/)

Berion

06.12.2007 11:46

Dzi***281;kuj***281; - dzia***322;a :)

Nie rozumiem tylko jaki ma (mia***322;o) zwi***261;zek read(powrot1); z pomijaniem pierwszej linijki z wprowadzaniem zmiennej w procedurze psx_cnf. W ***380;yciu sam bym tego nie wymy***347;li***322;.

Chyba si***281; do tego nie nadaj***281;, skoro wysypuj***281; si***281; na tak prostych rzeczach. :|

ksviper

06.12.2007 11:49

te***380; nie mog***322;em tego zrozumie***263;, ale jak co***347; nie wiem to pr***243;buj***281; inn***261; drog***261;
np. nie wiem jak napisa***263; ku(***243;)ra - pisz***281; kokoszka :D

sobrus

06.12.2007 11:51

ka***380;dy si***281; wysypuje na g***322;upich rzeczach tak to ju***380; jest. to sie nazywa do***347;wiadczenie.
ja kiedy***347; si***281; 2 dni gania***322;em z b***322;***281;dem kt***243;rego nie by***322;o. Debugowa***322;em, bada***322;em itd i w ko***324;cu zg***322;upia***322;em bo wysz***322;o ***380;e program po prostu gubi wska***378;niki (gubi***322; dane przechowywane w zmiennych).
Przejrza***322;em program na wylot i nie znalaz***322;em nic co by mog***322;o je nadpisywa***263;. ***379;adnych wyciek***243;w pami***281;ci ***380;adnych b***322;***281;d***243;w. Program by***322; idealny a sie wysypywa***322;.

W ko***324;cu skompilowa***322;em go na uczelni na innej wersji GCC i poszed***322;. Dzia***322;a***322; idealnie. Co za baran da***322; jakiego***347; zabugowanego GCC w najnowszym wtedy stabilnym Mandrake to nie wiem.
A pytania w stylu "czemu to *(@#&*( mi sie nie kompiluje/dzia***322;a" to chyba ka***380;dy programista wykrzycza***322; setki razy...

Berion

06.12.2007 22:12

Ilość załączników: 1

Cytat:

Napisany przez ksviper (Post 866906)

[...] nie wyślę, bo tutaj masz wszystko co potrzeba [...]

THX. Działa z tym, że mam dwa pytania z tym związane:

Kod:

var

cnf:text;



margines:='  ';



assign(cnf,'.\SYSTEM.CNF');

        reset(cnf);

        while not eof(cnf) do

                begin

                readln(cnf,margines);

                writeln(margines);

                end;

close(cnf);

Chciałbym, aby wyświetlany tekst był w odległości dwóch spacji od lewej krawędzi okna. Niestety po wpisaniu "margines" przed "cnf" w readln, kompilator się na to nie zgadza (can't read or write variables of this type), a gotoxy nie pomaga.

Drugi problem to taka Hiroshima po powrocie do menu głównego:

ksviper

06.12.2007 22:16

poka***380; pe***322;ny kod, tylko sformatowany wg odg***243;rnie przyj***281;tych regu***322; :)

poza tym, to co ja tu widz***281; to:
czytanie z pliku po linijce, ka***380;da linijka zapisywana jest do 'margines' a potem wy***347;wietlana i tak do usranej ***347;mierci czyli ko***324;ca pliku

Berion

06.12.2007 22:26

Kod jest taki sam jak poprzednio. Powy***380;szy wynalazek (czyli od assign) napisa***322;em na ko***324;cu "procedure psx_cnf".

ksviper

06.12.2007 22:29

bo pierwszy parametr w readln to jest uchwyt do pliku, drugi zmienna to ta do kt***243;rej wczytujemy dane z pliku
wi***281;c jak zmienisz kolejno***347;***263; to kompilator krzyczy ***380;e ***378;le, nie ten typ zmiennej

proponuj***281; przez writeln (...) wstawi***263; odpowiednie gotoxy lub napisa***263; tak writeln(' ',margines);

Berion

06.12.2007 22:43

Racja, o tym nie pomy***347;la***322;em ehhh.

Co do drugiego pytania: da si***281; co***347; z tym zrobi***263;? Mo***380;e jest jaki***347; "clear memory" lub co***347; w tym stylu? Pomy***347;la***322;em, ***380;e clear screenem to usun***281; :szczerb:. Wydaje mi si***281;, ***380;e to problem zwi***261;zany z niezamkni***281;ciem pliku, ale przecie***380; jest close(cnf);

ksviper

06.12.2007 22:47

no chyba najszybciej wyczy***347;ci***263; clrscr
daj pe***322;ny kod, wszystko co napisa***322;e***347; to lukn***281; jak pracuje i co robi

Berion

06.12.2007 23:18

Ilość załączników: 1

Ale***380; prosz***281; uprzejmie.

Wersja zubo***380;ona, ale b***322;***261;d ten wyst***281;puje nadal.

ksviper

06.12.2007 23:48

sprawd***378; co si***281; dzieje ze zmienn***261; margines :) - to jest rozwi***261;zanie, linia 104 :)

Berion

07.12.2007 00:18

Aaaaaa no racja, przecie***380; przypisa***322;em j***261; do cnf-a. Tak to jest jak si***281; ma p*k w kodzie :czar: My***347;la***322;em, ***380;e sobie u***380;yje jej "przy okazji" i po powrocie do pocz***261;tku nie b***281;dzie "u***380;ywana". Ehhh...

THX po raz kolejny!.

Patrix

29.03.2008 15:12

mam pytanie, do tej pory w ten sposob nic nie deklarowalem wiec bylo z glowy ale mam taka deklaracje:

Kod:

const

 n = 5;



type

 zakres = 1..n;



var

 tab:array[zakres] of longint=(1, 2, 3, 4, 5);

i pokazuje mi byk syntax...

wiec pytanie jak z automatu zapelnic tablice w pascalu ?

sobrus

29.03.2008 15:58

o ile pamietam nie da sie zrobic w pascalu czegos takiego (wypisywanie elementow podczas deklaracji)

Patrix

29.03.2008 16:01

no to kozacko bo mi zadali zapelnic tablice kolejno 20k, 40k, 80k i 160k elementow aby przetestowac w sekundach algorytm sortowania babelkowego :szczerb:

musze wygenerowac jakos inaczej te zapelnianie, zastrzele sie !

PS
na lycosie mnie juz chyba zbanowali za uzywanie funkcji rand do generowania tego badzewia :D

Wszystkie czasy w strefie CET. Aktualna godzina: 16:21.

Strona 4 z 5

Pokaż 100 postów z tej dyskusji na jednej stronie