Lazarust tanulok jelenleg Pascal nyelven, egy adatbázis-kezelést kéne írnom, de az istenért nem tudom befejezni. Márcsak a tömbelemeket kéne kiírni de nem megy, vki tud segíteni benne?
Szia!
A program ennyire van meg:
program adatbazis;
VAR n,j,uj:integer;
TYPE Tember=record
nev:string;
varos:string;
fizetes:longint;
end;
Procedure beiras(VAR uj:Tember);
begin
write('Nev:',j,':');
readln(uj.nev);
write('varos:',j,':');
readln(uj.varos);
write('Fizetes:',j,':');
readln(uj.fizetes);
end;
VAR a,i,k:integer;
seged:Tember;
tomb:array[1..20] of Tember;
begin
write('N:');
readln(n);
For j:=1 to n do begin
beiras(tomb[j]);
end;
For j:=1 to n-1 do begin
for k:=2 to n do begin
if tomb[j].nev>tomb[k].nev then
begin
seged:=tomb[j];
tomb[j]:=tomb[k];
tomb[k]:=seged;
end;
end;
end;
readln;
end.
És ugye márcsak kiírni kéen de enm tudom, ebben tudsz segíteni?
válasza:
válasza:„ennyi böszmét”
Hm... az csak _egyetlen_ böszme volt, aki mellesleg az újra feltett kérdésednél is lelkiismeretesen szolgálatba lépett:
https://www.gyakorikerdesek.hu/szamitastechnika__programozas..
Ne foglalkozz a trollokkal. A kérdéseddel semmi gond -- kivéve, hogy nincs ám ez a program olyan közel a tisztességes befejezéshez. Meg mellékesen, nem Lazarust tanulsz pascal nyelven, hanem Free Pascalt, amelyet nyilván a Lazarusban szerkesztesz, és a fordítóját is azon keresztül hívod meg, így még egy kissé rejtve maradt előtted, mi mit csinál. Mindettől eltekintve a kódodon látszik, hogy igenis megküzdöttél vele, nemcsak a sült galambot várod. Ebbe nincs mit belekötni, bárcsak ez lenne az általános.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!