Hirdetés
- Milyen Android TV boxot vegyek?
- AMD Navi Radeon™ RX 9xxx sorozat
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Samsung LCD és LED TV-k
- Internet Rádió építése (hardver), és programozása
- Sony MILC fényképezőgépcsalád
- Kormányok / autós szimulátorok topikja
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Lenovo Thinkbook, Yoga széria
- Vezetékes FEJhallgatók
Új hozzászólás Aktív témák
-
Lortech
addikt
válasz
Retekegér
#1978
üzenetére
Nyilván nem elég, de ez tényleg kérdés volt?
Pl a copy(s,i, length(keresendo_szo)); -t kell egyenlőségre vizsgálni a keresendo_szo-val i:=1-től length(s)-length(keresendo_szi)-ig.
Probléma, hogy nem fog működni, ha soronként van beolvasva a fájl, és egyszerre csak egy sort tárolunk el, ha az egyik sor végén van a keresett szó eleje, és az azt követő sor elején a vége.
Az előbb nem vettem észre: tömböket, így stringeket is Pascalban 1-től indexeljük nem 0-től. -
-
-
N!tRo
tag
válasz
Retekegér
#1909
üzenetére
Először is hozd létre a rekordokat, kérd be az adatokat majd mentsd őket fájlba.
Ezután már csak a statisztikát kell elkészíteni minden versenyzőre, majd meg kell keresni a legnagyobb ugrást elért versenyzőt, akit kiírsz a képernyőre a rajtszám alapján.
type emberek = record
nev,nemzetiseg: string;
rajtszam: integer;
end;
type eredmenyek = record
rajtszam: integer;
ugras: real;
end;
Ezután maximum kiválasztással megkeresed a legnagyobb elért ugrást, illetve az ahhoz tartozó rajtszámot. Utána megkeresed a rajtszámot a versenyzok tömbben és az ahhoz tartozó nevet kiírod.
{ főprogram }
var versenyzok: array[1..15] of emberek;
ugrasok: array[1..15] of eredmenyek;
...
Csak most mondtam, hogy 15 ember indul. De ez akármennyi lehet, neked kell tudni.
Ha elakadsz valahol írj. De ne én írjam meg.
-
N!tRo
tag
válasz
Retekegér
#1640
üzenetére
van egy tömböd, tele számokkal, legyen ez a tomb ''ay'' és az index, amivel a számokra hivatkozunk ''idx'' és ''jdx''
Kell egy segédváltozó, illetve egy ''n'' szám, ami a tömbökben szereplő számok számával egyenlő.
és a csere:
for idx:=0 to n-1 do
for jdx:=i+1 to n do
if a[idx]>a[jdx] then
begin
s:=a[idx];
a[idx]:=a[jdx];
a[jdx]:=s;
end; -
cucka
addikt
válasz
Retekegér
#1636
üzenetére
a lényeg, hogy végigiterálsz a tömbön, és összehasonlítasz 2 egymás melletti elemet. ha növekvő sorrend kell, és t[ i ]>t[ i+i ], akkor a két elemet kicseréled. a tömbön való végigiterálást addig ismétled, amíg nem történt csere.
pszeudokód
repeat
csere=false
for i=1 to n-1
if t[ i ]>t[ i+1 ] then
begin
kicserél(t[ i ],t[ i+1 ])
csere=true
end
until (csere=false)
[Szerkesztve] -
N!tRo
tag
válasz
Retekegér
#1627
üzenetére
Program Cola;
var ar, bedobva, erme: integer;
begin
ar:=200;
bedobva:=0;
WriteLn('Cola ara', ar);
repeat
WriteLn('eddig bedobva: ', bedobva);
write('bedobott új érme: ');
ReadLn(erme);
bedobva:=bedobva+erme;
if bedobva<ar then writeln('dobjon még be érmét!');
until(bedobva>=ar);
WriteLn('Visszajaro:', bedobva-ar);
end.
a repeat until-al volt a baj, nem lehet azt egymás után írni, kell közé utasítás, mégpedig azok, amelyek addig újra lefutnak amig a feltétel igaz nem lesz -
Lortech
addikt
válasz
Retekegér
#1619
üzenetére
Pedig azt sugalltam a pszeudó kódban.
Miért nem jó?
A repeat egy negatív vezérlésű hátultesztelő ciklus.
Egyszer mindenképp végrehajtódik a ciklusmag.
Az untilban a kilépési feltételt adod meg, tehát ha nem teljesül a bedobva >=ar, azaz nincs még bedobva elegendő mennyiségű pénz, akkor bent marad a ciklusban, ha teljesül a kilépési feltétel, azaz bedobva >= ar, akkor pedig kilép a ciklusból. -
-
Új hozzászólás Aktív témák
- Honor X7b 128GB, Kártyafüggetlen, 1 Év Garanciával
- Dell Latitude 5290 i5 8350U, 8-16GB RAM, SSD, jó akku, EU bill., szép állapot, számla, 6 hó gar
- BESZÁMÍTÁS! Apple MacBook Pro 16 M4 Pro 48GB RAM 4TB SSD macbook garanciával hibátlan működéssel
- HIBÁTLAN iPhone 14 Plus 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3659
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest