Pascal...pytanie

[pawelblu]

Napisany przez Berion

Za odpowiedzi wszystkim dziękuję. Goto wykreślam ze słownika ;]

//nikt nie wie co jest zrąbane w rysowaniu tych tabelek? Zlitujcie się nad moją biedną duszą...

Ten kod jest straszny. Dopisz w komentarzach co mają robić poszczególne fragmenty.

Napisany przez sobrus

@pawełblu
nie mówie jak to wygląda w sprzętowej realizacji na procesorze tylko z punktu widzenia algorytmiki.

Algorytmika nie ma z tym nic wspólnego. Dziedzinami które wykluczają używanie goto są głównie: Inżynieria oprogramowania (czyli styl pisania kodu) oraz semantyka i weryfikacja (czyli sprawdzanie czy to co jest napisane działa tak jak trzeba).

[Berion]

Napisany przez pawelblu

Ten kod jest straszny. Dopisz w komentarzach co mają robić poszczególne fragmenty. [...]

To nie mój kod tylko nauczyciela

Co wg. Ciebie jest w nim takiego, cytuję: "straszne"? Co to znaczy, że kod jest ładny/uporządkowany? Czy nie jest tak, że każdy programista ma "swój własny porządek"?

[ksviper]

@Berion: mo***380;esz narysowa***263; jak dok***322;adnie ma wygl***261;da***263; ta tabela po wygenerowaniu
albo za***322;***261;cz plik tekstowy

[Berion]

Post nr. 21



Co***347; takiego tylko, tak aby nie ogranicza***322;a si***281; w wy***347;wietlaniu do bodaj***380;e 13 wierszy. W og***243;le nie rozumiem tego czemu tak robi. Powinien normalnie wy***347;wietli***263; ca***322;o***347;***263;, w***243;wczas wszystkie warto***347;ci i znaki "trafi***322;yby" w ramk***281;.

[ksviper]

ten screen widzia***322;em, chcia***322;em zobaczy***263; poprawy uk***322;ad
wg. mnie najlepiej jakby wy***347;wietla***322;o ka***380;dy znak o jedno pole wy***380;ej, tylko nie wiem co to s***261; za ***347;miecie w ostatnim wierszu

[Berion]

A przepraszam, nie zrozumia***322;em Ciebie.

O jeden wiersz nie zupe***322;nie. Podczas gdy tabela jest rysowana do 13 wierszy jest ok. Kiedy zaczynaj***261; by***263; rysowane kolejne, nadpisuj***261; stare na pocz***261;tku. Nie wiem jak to wyja***347;ni***263;. Zmniejsz liczb***281; wierszy w kodzie (na pocz***261;tku ***378;r***243;d***322;a) to chyba zczaisz o co mi chodzi ;].

Te ***347;miecie to kolejne koordynaty i kolejne znaki jak i ich warto***347;ci w ASCII, kt***243;re si***281; napa***263;ka***322;y w jednym wierszu, z racji faktu, ***380;e s***261; "wk***322;adane" od (0,0), a tabela "posz***322;a" dalej.

[ksviper]

w domu lukn***281; na to, bo w pracy nie b***281;d***281; mia***322; zbyt wiele czasu

[ksviper]

nie wiem czy o to Ci biegało, ale działa
Twój problem polegał na tym, iż zwykłe okno dosowskie ma tylko 25 wierszy i wszystkie indeksy gotoxy powyżej max wierszy były obcinane do tego maksimum
BERION.txt

edit:
nie usuwałem z kodu readkeyów aby było łatwiej testować

edit:
poprawiłem i teraz wyświetla wszystkie znaki z tablicy ASCII
BERION1.txt

[pawelblu]

Napisany przez Berion

To nie mój kod tylko nauczyciela

Ojojoj, to niedobrze.

Napisany przez Berion

Co wg. Ciebie jest w nim takiego, cytuję: "straszne"? Co to znaczy, że kod jest ładny/uporządkowany?

np:

//co to jest, ani słowa komentarza ?
znak		:='ÉË***187;ĚÎąČĘĽşÍ';

 write(znak[1]);

//dlaczego akurat ma być o jedną kolumnę mniej ?
 for i:=1 to il_kolumn-1 do
	begin
	for j:=1 to szer_kolumny do
	//wcięcia naprawdę rozjaśniają kod
	write(znak[11]);
	write(znak[2]);
	end;

Napisany przez Berion

Czy nie jest tak, że każdy programista ma "swój własny porządek"?

No nie. Są pewne konwencje i dobre zwyczaje.

Żeby to wyglądało ładnie, to raczej widziałbym to tak:

w programie głównym iterujesz po znakach (jakimś forem lub whilem z licznikiem) i wywołujesz funkcje drukuj(licznik, znak), która to wylicza sobie z licznika (najlepiej inną funkcją) odpowiednie miejsce, ustawia się tam i drukuje ramkę ze znakiem.

[Berion]

//co to jest, ani s***322;owa komentarza ?

Fakt. S***261; to specjalne znaki - te od tabelki (jej kraw***281;dzie itd. itd.) To tak zamiast chr(), ***380;eby by***322;o czytelniej (czytelniej pod FPC/TP, tam s***261; ***322;adnie wy***347;wietlane). Drugi pow***243;d to taki, aby mo***380;na by***322;o sobie wybra***263; znak, b***261;d***378; ci***261;g znak***243;w "z kolejki". Np write(znak[1]) czyli b***281;dzie to znak: "***201;".

Ja tego kodu nie pisa***322;em. Nie wiem czy tak jest dobrze, niedobrze, dlaczego i czy mo***380;na zrobi***263; lepiej. Dopiero zaczynam zabaw***281; z pascalem (z programowaniem w og***243;le).

No nie. S***261; pewne konwencje i dobre zwyczaje.

ok

***379;eby to wygl***261;da***322;o ***322;adnie, to raczej widzia***322;bym to tak:

I tak chyba jest? Tyle, ***380;e z if-em.

poprawi***322;em i teraz wy***347;wietla wszystkie znaki z tablicy ASCII

Dzi***281;kuj***281; i przepraszam za k***322;opot. Nie wspomnia***322;em: potrzebuje tej tabelki na zaliczenie semestru. Mam to wys***322;a***263; do soboty. Osobi***347;cie pisz***281; inny, sw***243;j program - to tak gwoli ***347;cis***322;o***347;ci czemu zajmuje si***281; rysowaniem tabelek w dobie GUI***243;w wszelakich.

Mam nadziej***281;, ***380;e mi zalicz***261;.

Mam kolejne proste pytanie:

//zapis do pliku

	assign(cnf,'.\SYSTEM.CNF');
	rewrite(cnf);
	writeln(cnf,'BOOT = cdrom0:\',psx_nazwa,'.EXE');
	writeln(cnf,'TCB = ',psx_tcb);
	writeln(cnf,'EVENT = ',psx_event);
		if psx_stack='1' then writeln(cnf,'STACK = 801FFFF0')
				 else writeln(cnf,'STACK = 801FFF00');
	close(cnf);

Pytanie brzmi jak to przerobi***263;, aby program potem odczytywa***322; ca***322;***261; zawarto***347;***263; tego pliku, a nast***281;pnie j***261; wy***347;wietla***322;? Od pierwszego, a***380; po ostatni znak (zwyk***322;e ASCII).

Oczywi***347;cie to fragment kodu i wszystkie zmienne psx_co***347;tam wprowadza u***380;ytkownik.

a tak to przyk***322;adowo wygl***261;da po zapisaniu:

BOOT = cdrom:\NAZWA.EXE;1
TCB = 4
EVENT = 10
STACK = 801FFFF0

Odczyt dotychczas robi***322;em poprzez odczyt ze zmiennych, ale to "chyba" nie najlepsze rozwi***261;zanie

[ksviper]

w domu mam chyba przyk***322;ad, jak znajd***281; to wy***347;l***281;

edit:
nie wy***347;l***281;, bo tutaj masz wszystko co potrzeba

[Berion]

Wróciłem :}

Dobrzy ludzie, oświeci mnie ktoś, czemu program nie wykonuje:

gotoxy(32,4); readln(psx_nazwa);

76 linijka. Cały wieczór rwę włosy z głowy

[ksviper]

jak napiszesz ten kod tak jak si***281; zaleca, to wtedy lukn***281;, teraz to ja w nim nic nie widz***281;
to nie jest trudne
naucz si***281; naciska***263; enter - po jakiego takie d***322;ugie linie ?

popraw to lukn***281;

[Berion]

Uprościłem nieco.

Wydawało mi się, że jest ok.

[ksviper]

czy to kolega miał na myśli:
KAWALEK.txt