Gdzie jest błąd?

Question

Program powinien pisać linijkę 10 iksów od prawej do lewej, to co się dzieje wcześniej jest nieistotne, to takie testy.

 

 

uses crt;
VAR

a,b,c,h: byte;

BEGIN
b:=25;
c:=1  ;
h:=5;
clrscr;
    gotoxy(b,5);
        write('s');

        
        write(wherex);
        readkey;
        clrscr;
        for a:=1 to 10 do
        begin
        
        gotoxy(wherex  - 2,h);
        write('x');
        
        
        end;
        
        
        
    readkey;
END.

Answer 1

Pozbądź się Goto tego się nie używa.

Comments

Po pierwsze, jeśli usunę to co mam wpisać zamiast tego?

Po drugie - chciałbym tego użyć, nie wiem tylko gdzie jest błąd, wyskakuje error 201.

---

Zakoduj sobie, nie używa się tego i koniec.

skoro ma to być coś takiego xxxxxxxxxxxxxx to po prostu pętla do 10 i write('x')

---

Tak, ale ma się to napisać od prawej do lewej, dlatego cofam kursor o 2 miesca w lewo i uzywam do tego gotoxa, a muszę go użyć bo mam takie zadanie domowe, wiem, że to durne, ale cóż...

---

To z tym goto ci nie pomogę, bo nie pamiętam jak to ustrojstwo działało nawet już. (Miałęm to 2 lata temu) w każdym razie nie używa się tego nigdzie.

 

Można to zrobic w inny sposób.  Zaczynasz od pewnego miejsca które sobie wyznaczasz spacjami i cofasz się aż do ilości Iksów jakie masz w lewą stronę zmniejszając za każdym razem licznik pętli.

---

Mógłbyś opisać to kodem? Jak mam się inaczej cofnąć?

Answer 2

`gotoxy(wherex - 2, h)` w każdym przejściu pętli ustawia kursor dokładnie w tym samym miejscu bo `wherex-2` zawsze ma tą samą wartość.

Powinieneś tam użyć raczej `wherex-a` lub `wherex-2-a` bo w każdym przejściu pętli `a` będzie miało inną wartość a zatem i `wherex-a` będzie przyjmować inną wartość.

--

ps. na forum jest specjalny przycisk do wstawianai kodu przez co jest kolorowany i bardziej czytelny. Oprócz tego warto zadbać aby kod był dobrze sformatowany (odpowiednie wcięcia, bez zbędnych pustych linii, itp.) bo to też nam pomaga zrozumieć jego działanie.

Comments

To nie jest problem, bo po pierwsze nie sprawiłoby to errora, tylko podmieniło znak i 10 razy x napisał by się w tym samym miejscu, a po drugie nawet taki kod powoduje błąd:

uses crt;
VAR

a,b,c,d,h: byte;


BEGIN
b:=25;
c:=1  ;
h:=5;
clrscr;
	
		d:= wherex - 2;
		write(d);
		
		
		
		
	readkey;
END.

 

---

Po pierwsze w swoim opisie nic nie napisałeś o errorze i to jest twój pierwszy błąd :)

Po drugie jak dostajesz błąd to go przytaczaj na forum bo z samej treści (bez zaglądania do kodu) można czasami powiedzieć w czym jest problem.

W nowym kodzie używasz zmiennej `wherex`. A gdzie ją zadeklarowałeś ???

---

wherex to nie zmienna, a procedura, która zwraca pierwszą współrzędną, na które znajduje się kursor. Tak więc nie jest to problem.

---

Ok, problem rozwiązany, pomógł mi kolega. To przez clscr, zerowało mi rzędną do 1, i dlatego wherex -  2 dawało wartość " - 1 ", która z kolei nie mieści się w zakresie byte.

---

To wciąż zostają dwie drogi
1. przeczytać komunikat z errorem bo może coś tam jest ciekawego.
2. usuwać kolejne linie aż zadziała to wtedy będzie dokładnie wiadomo, w której jest problem a wtedy będzie się można zająć analizą tej linii.

---

error 201 oznacza wyjście poza zakres, w tym wypadku zakres możliwości zmiennej typu byte

---

Oraz wiadomo gdzie był error, po to wcześniej te wszystkie readkey;

W ten sposób każde polecenie trzeba zatwierdzić enterem, więc wiadomo, że problem był w przypisaniu do zmiennej d.