fejléc
Gyakori kérdések Belépés Új kérdés Véletlen kérdés
Keresés
Kezdőoldal » Számítástechnika » Programozás » Hogyan lehet Pascal Lazarusban...

Hogyan lehet Pascal Lazarusban ezt az algoritmust ugy irni, hogy ne név szerint hanem mi választhatjuk ki melyik alapján rendezze?

Figyelt kérdés

program adatbazis;

VAR n,j: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;

f:textfile;

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;

assign(f, 'kimenet.txt');

rewrite(f);

writeln(f,n);

for i:=1 to n do begin

writeln(f, (tomb[i].nev));

writeln(f, (tomb[i].fizetes));

writeln(f, (tomb[i].varos));

end;

close(f);

readln;

end.


2018. jan. 9. 13:02
 1/7 anonim ***** válasza:
0%
vótmá
2018. jan. 9. 14:12
Hasznos számodra ez a válasz?
 2/7 anonim ***** válasza:
Az dicséretes, hogy leszoktál az AutoIt-ről. Most már csak programozni kell(ene) megtanulnod.
2018. jan. 9. 14:42
Hasznos számodra ez a válasz?
 3/7 tabaki ***** válasza:

Úgy, hogy előtte megkérdezed. Mit t'om én, így:


var rendezes_modja : byte;

.

.

WriteLn('Rendezés módja:');

WriteLn('Név szerint: 1');

WriteLn('Város szerint: 2');

WriteLn('Fizetés szerint: 3');

ReadLn(rendezes_modja);


Rendezéskor pedig a kapott érték alapján mondjuk case of rendezes_modja segítségével választasz az

if tomb[j].nev > tomb[k].nev

vagy az

if tomb[j].varos > tomb[k].varos

vagy az

if tomb[j].fizetes > tomb[k].fizetes

feltételek közül.


OFF

Tényleg nem szerencsés ugyanazt a programot három kérdésben taglalni. Ezenkívül máskor ne a kérdésbe írd a kódot, hanem valamelyik kódmegosztó oldalra, de legrosszabb esetben is első hozzászólásként.

ON

2018. jan. 9. 16:31
Hasznos számodra ez a válasz?
 4/7 tabaki ***** válasza:
Ja, meg ezt a „Pascal Lazarust” is elengedhetnéd már... Ez egyelőre egy egyszerű Free Pascal program. Én például Geanyben pötyögtem be a magam változatát, aztán mégsem lett tőle Pascal Geany.
2018. jan. 9. 18:02
Hasznos számodra ez a válasz?
 5/7 A kérdező kommentje:
Köszönöm mindenkinek a válaszokat, mindegyiket megfogadom, pár hete kezdtem bele a programozásba úgyhogy jelenleg nem megy még annyira, de gyakorolok és jobb lesz. Még egyszer köszönöm a parasztabbik kommentelőknek és a normálisaknak is
2018. jan. 9. 21:31
 6/7 tabaki ***** válasza:

Pá! De abból baj nem lehet, ha még egy kis hamuban sült pogácsát utánad lódítok:

[link]

Ha valami nem tiszta, kérdezz, a te verziódat pedig mutasd be. Garantálom, hogy lesz még rajta csiszolgatni való. Egy dolog, ha megírod úgy, hogy neked működjön, a másik viszont, amikor az ismeretlen felhasználó elé lököd, aki köztudomásúlag egy idióta.

2018. jan. 9. 22:31
Hasznos számodra ez a válasz?
 7/7 tabaki ***** válasza:
Egyébként amit valaha a beiras eljárásodról írtam, az sztornó -- akármilyen kínos, én magam tettem működésképtelenné azzal, hogy átirkálás közben elkavartam valahogy a VARt. Bocsánat, a te cím szerinti paraméterátadásodban sincs kivetni való, szánom-bánom.
2018. jan. 10. 03:07
Hasznos számodra ez a válasz?

Kapcsolódó kérdések:

Számítástechnika főkategória kérdései »
Számítástechnika - Programozás kategória kérdései »




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

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!