Új hozzászólás Aktív témák

• #2649 vz12 tag kemkriszt98 #2647

  Új Válasz 2013-11-13 21:48:40 #2649

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz kemkriszt98 #2647 üzenetére

  Az eredeti feltétel így szólt:
  > ha van két szám pl egy és kettő

  Kissé pongyola (hiányos) a feltétel amit közöltél, de próbáltam irányt mutatni.
  Csak pozitív egyjegyű egész számod lehet?
  Mi van, ha negatív számod is van?
  Mi van, ha többjegyű számod is van?
  Mi van, ha NEM egész számod van?
  A komplex számokat hagyjuk is ...

  Mert akkor értelmetlen a feladat.

  Módszer javaslat (az előző módszer kiterjesztése), feltételezve hogy minden számod pozitív egyjegyű egész szám: (bocsi, a "sallangokat" elhagytam)

  eredmeny:=0;
  repeat
  readln(x);
  if (x>=1) and (x<=9) then eredmeny:=eredmeny*10 + x;
  until (x<1) or (x>9);
  if eredmeny>0 then writeln(eredmeny);

  Az eredmeny legyen longint típusú, de annak is van felső határa ...

• #2646 vz12 tag kemkriszt98 #2645

  Új Válasz 2013-11-12 12:42:40 #2646

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz kemkriszt98 #2645 üzenetére

  Pl.: A*10 + B

• #2643 vz12 tag kemkriszt98 #2640

  Új Válasz 2013-11-02 23:14:18 #2643

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz kemkriszt98 #2640 üzenetére

  Ha a begin ... end blokkban csupán 1 db utasítás van, akkor a pontosvessző elhagyható (de ki is lehet tenni), ez a helyzet a "másik if"-nél. Ha 2 vagy több utasítás van a blokkban, akkor azokat pontosvesszővel kell elválasztani, esetleg az utolsó utasítás után (az "end" előtt) szintén elhagyható.

  Nálad ez most nincs, de megemlítem, hogy "else"-ek előtt tilos a pontosvessző, mert ugye azzal vége is lenne az "if"-nek, és az "else"-et új utasításnak tekintené, de olyan nincs.

• #2596 vz12 tag #36268800 #2595

  Új Válasz 2013-04-19 09:09:40 #2596

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz #36268800 #2595 üzenetére

  Igen, eltolás.
  Csak Te tudhatod, hogy neked milyen tartományból kell véletlen szám, ennek az alapját megteremti a random függvény, a többi rád van bízva. Persze lehetne 2 paraméteres random is (kezdőérték + záróérték), de nincs, akinek kell, majd ír magának.

• #2594 vz12 tag #36268800 #2593

  Új Válasz 2013-04-19 08:58:59 #2594

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz #36268800 #2593 üzenetére

  Hali!

  Pontosan mi a gond? Mert a leírás pontos és érthető.
  Alapvetően a random függvényt kell használni véletlen számok előállítására a megadott módon, de ha kipróbálod, hogy pl. 3 db véletlen számot kiíratsz, akárhányszor indítod a programot, mindig ugyanazt a 3 számot fogod látni, és ez a legtöbb program esetén nem szerencsés (de pl. teszteléskor jó lehet).
  Hogy "mindig" másik 3 számot írjon ki a program, ahhoz a program elején (az első random meghívása előtt) egyszer meghívandó a randomize UTASÍTÁS (ez nem függvény, nem ad vissza semmilyen értéket, csak inicializálja a véletlen számok előállításának kiinduló pontját, ugyanis emlékeim szerint a véletlen számok előállításában szerepet játszik az előzőekben előállított véletlen szám). A randomize persze többször is végrehajtható a programban, de gyakorlati tapasztalatok alapján felesleges.
  Ezek egyébként "csak" ún. pszeudó véletlen számok, algoritmus állítja elő, sok idő után ismétlődnek.

• #2538 vz12 tag vz12 #2536

  Új Válasz 2012-02-01 08:53:17 #2538

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz vz12 #2536 üzenetére

  Pontosítok:
  > Az első 50 db páros szám összege: 50*51 = 2450

  Az első 50 db páros szám összege helyesen: 50*51 = 2550

  És így meg is van a #2530-ban keresett 100 eltérés.
  Egyébként a 2450-et is innen vettem, kicsit lusta voltam már éjfél után ...

• #2536 vz12 tag haromegesz14 #2534

  Új Válasz 2012-02-01 00:15:56 #2536

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz haromegesz14 #2534 üzenetére

  A matematika a programozó barátja.

  Az első 50 db páros szám összege: 50*51 = 2450.
  Az első 100 db páros szám összege: 100*101 = 10100.
  ...
  Az első N db páros szám összege: N*(N+1).

  Aki nem hiszi, járjon utána.
  A "dolog" alapját ma már talán általános iskolában is tanítják ..., egyszerű dologról van szó.

  Ez a feladat ilyen módon jó példa arra hogy olykor-olykor egy kis elméleti tudással egyszerűbb, rövidebb, hatékonyabb, de persze mégis teljes értékű megoldást lehet produkálni. Konkrétan ebben a feladatban (100-ig) emberi léptékű időben nem nyerünk túl sokat, de szemléletben talán mégis. Ilyen kis feladatokon jól meg lehet tanulni a hatékonyság alapjait, ami később a nagyobb feladatoknál már emberi léptékben mérve is meg fog látszódni (térülni).

• #2458 vz12 tag Gyuri16 #2457

  Új Válasz 2011-04-28 00:03:07 #2458

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz Gyuri16 #2457 üzenetére

  Jó, zárjuk le ezt.
  Van igazságod neked is, de nekem is.
  Úgy látom hogy mind2 "eredeti" kód még több sebből "vérzik", ezt jó látod. Azzal hogy jószándékúan próbáltam/tunk javítani egy kicsit a kódo(ko)n azzal még természetesen minden nem oldódik meg ..., mindent meg kellene oldani (a teljes "rendszert"). Az is probléma hogy amit felvetsz az lehet hogy egyik kódra igaz a másikra nem, és lehet hogy én a másikból indultam ki.
  Egyébként egyetértek azzal hogy a bemenetet mindig ellenőrizni kell, sőt megtoldom azzal hogy az ilyen feladatokban az input paramétereket célszerű korlátok közé szorítani, pl. 2 jegyű számok, 3 jegyű számok, vagy ilyesmi.

  Részemről vége, peace.

• #2456 vz12 tag Gyuri16 #2455

  Új Válasz 2011-04-27 22:25:51 #2456

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz Gyuri16 #2455 üzenetére

  De az jó.
  Nem akarok nagyon tovább vitatkozni ezen, de ezeket a kódrészleteket azért nézd majd meg:
  Egyrészt: until c>20
  Másrészt: if c>19

  Persze lehetne rugózni még ezeken is, de azt a problémát amin vitatkozunk azt megoldaná integer esetben. Pont ezek a vizsgálatok zárják ki a negatív eset lehetőségét. Viszont word típus esetén ugye nem tud negatív lenni, hanem akkor hülyeség van.

• #2454 vz12 tag Gyuri16 #2453

  Új Válasz 2011-04-27 21:47:34 #2454

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz Gyuri16 #2453 üzenetére

  Ja, igazad van, a word típus most nem szerencsés valóban.
  Integer jobb lenne ...

• #2452 vz12 tag Gyuri16 #2449

  Új Válasz 2011-04-27 21:11:18 #2452

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz Gyuri16 #2449 üzenetére

  Biztos hogy b>a, tehát nem kell felcserélni őket.
  Azért mert c=b-a és c pozitív egész szám.
  Bár az igaz hogy azt a felhasználó utólag tudja meg hogy előbb a kisebb számot kell megadnia.

• #2450 vz12 tag Vferi159 #2447

  Új Válasz 2011-04-27 21:04:09 #2450

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz Vferi159 #2447 üzenetére

  x:=a+RANDOM(b-a); vagy
  x:=a+RANDOM(c);

  Ekkor x az [a, b-1] zárt intervallum egy egész értékű eleme lesz.

  Ha x felveheti a b értékét is, tehát az [a, b] egy egész értékű elemét szeretnéd, akkor:

  x:=a+RANDOM(b-a)+1; vagy
  x:=a+RANDOM(c)+1;

  

• #2430 vz12 tag bedohazi #2429

  Új Válasz 2011-03-26 16:54:58 #2430

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz bedohazi #2429 üzenetére

  Jobban megnézve tényleg szürke, de majdnem fehér ...
  Igazi fehér háttér úgy tűnik hogy nincs, csak az ott lévő 8 szín.
  Betűszín viszont lehet igazi fehér is, mert ott 16 lehetőség van.

  Az "elkékülés" szerintem azért volt mert a Syntax elemek háttérszínét is át kell állítani (mindegyiket) ugyanolyanra mint a Normal text háttérszíne, nekem utána jó volt. Az eredeti sárga betűszín is csak ideiglenes, miután felismeri hogy a szintaxis melyik részéhez tartozik a beírt szöveg máris átszínezi a Syntax beállításoknak megfelelően. Ha annak a háttere kék maradt akkor persze elkékül.
  Szerintem.
  De ezt mintha már javasoltam volna ...

• #2428 vz12 tag bedohazi #2427

  Új Válasz 2011-03-26 00:47:31 #2428

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz bedohazi #2427 üzenetére

  Az első kérdésre nem nagyon tudok mit mondani, talán ki kellene kapcsolni vírusírtót, stb., illetve lehet hogy nem elég gyors a géped. Egy ötletem még van, a Vezérlőpultban a Billentyűzetnél lehet sebességet állítani, ha lehet akkor gyorsíts ott is.

  A második kérdéshez: Én még sosem állítgattam, nekem tetszik így.
  De azért megnéztem.
  Ha TP7-ről beszélünk akkor Options / Environment / Colors -nál lehet mindenféle színeket állítani. Ha a hátteret megváltoztatod akkor az Editor / Normal text és Selected text -et illetve a Syntax összes elemét mindenféleképpen át kell állítani, a többit ízlés szerint, de ésszel. Ha tetszik az új színkavalkád és a legközelebbi belépéskor is ezeket akarod látni, akkor az Options / Save -nél ne felejtsd el elmenteni ...

  Esetleg használd a kedvenc (normál TEXT alapú) szövegszerkesztődet, és csak a fordítás, futtatás idejére lépj be a TP-be.
  Arra figyelni kellene hogy a szövegszerkesztő DOS-os karakter kódkészlettel dolgozzon ..., talán 437-es kódlap ...

• #2426 vz12 tag bedohazi #2425

  Új Válasz 2011-03-24 23:35:57 #2426

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz bedohazi #2425 üzenetére

  Egy megjegyzés az elején: a 2. megoldásod a jobb felső sarokból indul, nem pedig a bal felsőből ahogyan írtad.

  Akkor egy kicsit bővebben:
  Én valahogy úgy csinálnám hogy menne egy FOR ciklus 1 és n*n között, és minden lépésben megkeresném a ciklus aktuális értékének helyét (sor, oszlop) a mátrixban. Ennyi.

  A probléma nyilván a hely megkeresése, ami az 1. esetben (x1, y1), a 2. esetben (x2, y2). Minden koordináta csupán a ciklusváltozó értékétől függ, de x1 és y1 egy kicsit máshogyan mint x2 és y2 (képleteket kellene keresni). Azt írtad hogy az elsőre megvan a megoldásod, tehát (x1, y1) ismert, én csak megadtam hogy ebből hogyan lehet kiszámolni a 2. esetben (x2, y2) -t.

  Látszik a tengelyes tükröződés, tehát a számok mindkét esetben ugyanabban a sorban vannak de a másik oldalon, a közepéhez képest ugyanannyi távolságra. Ezt írtam le matematikailag.
  A konkrét program megírását már az érdeklődő olvasóra bízom.

• #2424 vz12 tag bedohazi #2423

  Új Válasz 2011-03-24 16:18:19 #2424

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz bedohazi #2423 üzenetére

  No, ha az elsőre van megoldásod akkor egy kis módosítással a másodikra is van.
  Legyen x1 az aktuális sor, y1 pedig az aktuális oszlop az első megoldásod szerint. Keressük a mindenkori x2 és y2 értékeit.

  Ekkor:
  x2 = x1
  y2 = n+1 - y1

  Szerintem.

• #2404 vz12 tag vz12 #2402

  Új Válasz 2010-12-01 12:08:59 #2404

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz vz12 #2402 üzenetére

  > a CRT-hez hasonlóan nem kell őket "uses"-ni

  Ööö, izé ..., kell "uses"-ni akkor is, csak a "Unit directories"-ba nem kell beletenni, mert akkor már nem "külső" unit hanem "belső", már a TP indulásakor bekerült a memóriába, nem kell keresgélni a megadott helye(ke)n.
  Bocsi, gyorsan írtam.

• #2402 vz12 tag bedohazi #2400

  Új Válasz 2010-12-01 08:53:20 #2402

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz bedohazi #2400 üzenetére

  Pedig szerintem csak ott az Options/Directories beállításnál lesz a probléma.
  Az "EXE & TPU directory" az most nem számít, az nem a felhasznált hanem a majd lefordítandó EXE-k és TPU-k célkönyvtára.
  Csak este tudom majd megnézni, de emlékeim szerint több alkönyvtárban is vannak felhasználandó TPU kiterjesztésű fájlok (egyedül a CRT nincs TPU-ban), ezeket pontosvesszővel elválasztva mind fel kell sorolni a "Unit directories"-nál, majd mentés "alapértelmezettként" (talán TURBO.TP fájlba), egy ki- és belépés és működni kell. Szóköz persze ne legyen könyvtárnévben sem + fájlnévben sem. Kis/nagybetű nem számít, ez még DOS volt.
  Semmi extra trükk nincs benne, anno én is pakolgattam ide-oda, mindig működött, a fenti beállításokon kívül semmi más nem kellett hozzá.

  Ja, esetleg a TPUMOVER progival bele lehet pakolgatni a külső TPU-kat a "belső" függvénykönyvtárba (talán TURBO.TPL), úgy a CRT-hez hasonlóan nem kell őket "uses"-ni, viszont a lefordított EXE-k méretét minden esetben növeli.

• #2399 vz12 tag bedohazi #2397

  Új Válasz 2010-11-30 18:22:22 #2399

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vz12

  tag

  válasz bedohazi #2397 üzenetére

  Csak tipp, de a DOS-os programok nem hiszem hogy szeretik a szóközt a könyvtárak neveiben, meg mindenféle PATH-ban.

Új hozzászólás Aktív témák