Mi a probléma és hogy kezdjem el?

A pascal kis és nagybetűre érzéketlen.

A kérdező kódja viszont nagyon meredek.

program hullamvasut;

uses Crt;

var x, y: byte;

begin

GotoXY(2, 22);

Write('------');

GotoXY(12, 22);

Write('/');

GotoXY(13, 21);

Write('/');

GotoXY(14, 20);

Write('/');

GotoXY(15, 19);

Write('/');

GotoXY(16, 18);

Write('/');

GotoXY(17, 17);

Write('/');

GotoXY(18, 16);

Write('/');

GotoXY(19, 15);

Write('/');

GotoXY(20, 14);

Write('/');

GotoXY(21, 13);

Write('/');

GotoXY(22, 12);

Write('______');

GotoXY(35, 13);

Write(chr(92));

GotoXY(36, 14);

Write(Chr(92));

GotoXY(37, 15);

Write(Chr(92));

GotoXY(38, 16);

Write(Chr(92));

GotoXY(39, 17);

Write(Chr(92));

GotoXY(39, 17);

Write('______');

GotoXY(45, 17);

Write('/');

GotoXY(46, 16);

Write('/');

GotoXY(47, 15);

Write('/');

GotoXY(48, 14);

Write('/');

GotoXY(49, 13);

Write('/');

GotoXY(49, 13);

Write('______');

GotoXY(60, 14);

Write(Chr(92));

GotoXY(61, 15);

Write(Chr(92));

GotoXY(62, 16);

Write(Chr(92));

GotoXY(63, 17);

Write(Chr(92));

GotoXY(62, 17);

Write('______');

GotoXY(2, 22);

Write(Chr(223));

for x := 1 to 80 do

begin

case x of

1..8: y := 23;

9: y := 22;

10: y := 21;

11: y := 20;

12: y := 19;

13: y := 18;

14: y := 17;

15: y := 16;

end;

GotoXY(x, y);

Write('j');

end;

ReadLn;

end.

Itt a kimeneted, talán ez segít:

[link]

A fő probléma az, amit #5 (meg a hibaüzenet is) írt, hogy a

gotoxy(x,y);

write('j');

sorokat a CASE utasítás feltételeként akarod lenyeletni a fordítóval, de mivel ez értelmetlen, nem is tudja lefordítani. Ezen túl viszont egészen riasztó a kódod. Lehet, hogy eljárásokról még nem tanultatok, de tömbökről sem, amelyben adatokat lehetne tárolni? Ha már egyszer ismered a FOR ciklust, ismered a CASE-t: A pálya tulajdonképpen három dolgot csinál: emelve, süllyedve vagy változatlan magasságban halad előre. Az ezt intéző egy-két utasítás mehetne a CASE ágaiba, ahol a ciklusban beolvasott adatok alapján döntené el a program, mit csináljon. Az embertelen mennyiségű gépelés helyett letudnád az egészet néhány sorban, ráadásul ugyanezekhez a pályaadatokhoz igazodhatnál a vonattal.

Így belegondolva, ez egy kifejezetten jó kis játékos feladat, csak nem ész nélkül kell nekiesni. Még dolgozz rajta.

Akkor szerintem tegnap este fél tíztől lett volna érdemes bemutatnod, hogy mit csináltál, és vajon lehet-e még csiszolgatni rajta, de nem számít, nyilván olyasmi lett, mint az enyém:

program hullamvasut;

uses crt;

const

lepes = 100;

vonatHossz = 7;

var

x, y, v :byte;

vonat : string[vonatHossz + 1] = #32#116#97#98#97#107#105#32;

vy : array[0..vonatHossz] of byte;

palyaAdat: string[80] = '---------//////////-------'#92#92#92#92#92+

'------////////------'#92#92#92#92'---------'#92#92#92#92#92#92#92#92+

'--------';

begin

CursorOff;

y := 22;

for x := 1 to Length(palyaAdat) do

begin

      case palyaAdat[x] of

      #92: Inc(y);

      '/': Dec(y);

      else

            begin

                  if palyaAdat[x - 1] = '/' then Dec(y)

                  else if palyaAdat[x - 1] = #92 then Inc(y);

            end;

end;

GotoXY(x,y); Write(palyaAdat[x]);

end;

y := 21; GotoXY(1,y); Write(vonat);

Delay(2000);

for x := 1 to Length(palyaAdat) - vonatHossz do

      begin

            case palyaAdat[x] of

            #92: Inc(y);

            '/': Dec(y);

            else

                  begin

                        if palyaAdat[x - 1] = '/' then Dec(y)

                        else if palyaAdat[x - 1] = #92 then Inc(y);

                  end;

            end;

            vy[0] := y; GotoXY(x, vy[0]); Write(vonat[1]);

            for v := 1 to vonatHossz do

                  begin

                        vy[v] := vy[v-1];

                        case palyaAdat[x + v] of

                        #92: Inc(vy[v]);

                        '/': Dec(vy[v]);

                        else

                              begin

                                    if palyaAdat[x +v - 1] = '/' then Dec(vy[v])

                                    else if palyaAdat[x + v - 1] = #92 then Inc(vy[v]);

                              end;

                        end;

                        GotoXY(x + v, vy[v]); Write(vonat[v + 1]);

                  end;

            Delay(lepes);

      end;

ReadLn;

CursorOn;

end.