Hogyan néz ki ez a program Pascal nyelven?

Szia.

Gondolom itt is az adatszerkezet, illetve a sikeres beolvasás az alapfeltétele a dolognak (A pdf-ben az 1.Feladat). Aztán a többi már csak egy kis gondolkodás és egy pár IF és FOR ciklus kérdése.

A feladat első részét leprogramoztam itt van :

Program nezoter;

Uses crt ;

Var Fogl : array [1..15,1..20] of char ;

betu : char ;

Kate : array [1..15,1..20] of byte ;

Szam : byte ;

SzFile : Textfile ;

Hiba : integer ;

I,J : byte ;

Begin

clrscr ;

writeln ('3. Feladat : foglaltsag.txt beolvasasa');

assign (SzFile,'c:\FPC\2.6.4\Pas\foglaltsag.txt');

{$I-}

reset (Szfile);

{$I+}

Hiba:=Ioresult ;

if Hiba=0 then begin

For I:=1 to 15 do begin

For J:=1 to 22 do begin

read (SzFile,betu);

if J<=20 then Fogl[I,J]:=Betu;

end ;

end ;

close (Szfile);

end ;

writeln ('3. Feladat : kategoria.txt beolvasasa');

assign (SzFile,'c:\FPC\2.6.4\Pas\kategoria.txt');

{$I-}

reset (Szfile);

{$I+}

Hiba:=Ioresult ;

if Hiba=0 then begin

For I:=1 to 15 do begin

For J:=1 to 22 do begin

read (SzFile,betu);

if J<=20 then begin

Kate[I,J]:=ord (Betu)-48;

end ;

end ;

end ;

close (Szfile);

end ;

{Kiiras ellenorzes celjabol }

For I:=1 to 15 do begin

For J:=1 to 20 do begin

write (Fogl[I,J],Kate[I,J]);

end ;

writeln ;

end ;

readln ;

End.

A többit majd más megoldja.

Üdv.

Te nem kérdést tettél fel, hanem kib#sztál ide egy feladatot, hogy valaki oldja meg, de rögtön, mert te kíváncsi vagy, hogy hogy néz ki.

Hát szarjál sünt, hülyegyerek.

Szia.

De csak azért mert nincs optimalizálva, meg van benne egy kis hibakezelés.

Ha nagyon egyszerüen akarjuk, hibakezelés nélkül akkor valami ilyesmit kapsz :

Program nezoter;

Uses crt ;

Var Fogl : array [1..15,1..20] of char ;

betu1 : char ;

betu2 : char ;

Kate : array [1..15,1..20] of byte ;

SzFile1 : Textfile ;

SzFile2 : Textfile ;

I,J : byte ;

Begin

clrscr ;

writeln ('3. Feladat 1 rész : beolvasasa');

assign (SzFile1,'c:\FPC\2.6.4\Pas\foglaltsag.txt');

reset (Szfile1);

assign (SzFile2,'c:\FPC\2.6.4\Pas\kategoria.txt');

reset (Szfile2);

For I:=1 to 15 do begin

For J:=1 to 22 do begin

read (SzFile1,betu1);

read (SzFile2,betu2);

if J<=20 then begin

Fogl[I,J]:=Betu;

Kate[I,J]:=ord (Betu2)-48;

end ;

end ;

end ;

close (Szfile1);

close (Szfile2);

end.

Üdv.