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

• #2500 Maneszproger csendes tag Gyuri16 #2499

  Új Válasz 2011-09-16 19:29:23 #2500

  Ú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

  

  Maneszproger

  csendes tag

  válasz Gyuri16 #2499 üzenetére

  OK. Megpróbálom.

  Nem jött össze... A forráskódból esetleg meg tudnád te oldani? A turbo Pascalon is épp hogy kiigazodtam. Sajna nem jött össze nekem.

• #2499 Gyuri16 senior tag Maneszproger #2498

  Új Válasz 2011-09-16 19:25:15 #2499

  Ú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

  

  Gyuri16

  senior tag

  válasz Maneszproger #2498 üzenetére

  freepascalbol a 64 biteset kell letolteni akkor menni fog. ekezeteket pedig szerintem vedd ki, es jo lesz.

• #2498 Maneszproger csendes tag Gyuri16 #2497

  Új Válasz 2011-09-16 19:17:26 #2498

  Ú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

  

  Maneszproger

  csendes tag

  válasz Gyuri16 #2497 üzenetére

  A free pascal elfut, de menteni nem tudok egyikkel se hogy elfusson a program... Hiába adom meg a 64-bites Win 7-nek hogy Win XP SP 2 kompatibilitási módban fusson, vagy ha DOS parancssorból nyitom is meg akkor is hibát jelez, mivel NEM KOMPATIBILIS SZEREZZE BE A 32-BITES HELYETT A 64-BITES VERZIÓT! KÉRJÜK LÉPJEN KAPCSOLATBA A PROGRAM GYÁRTÓJÁVAL!

  És ugye én írtam ezért idegesít, de nem tudom menteni, free pascalba meg FATAL hibákat ír ki az ékezetes betűk miatt és menteni se enged. Idegesítő dolog.

• #2497 Gyuri16 senior tag Maneszproger #2496

  Új Válasz 2011-09-16 19:08:31 #2497

  Ú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

  

  Gyuri16

  senior tag

  válasz Maneszproger #2496 üzenetére

  hasznalj freepascalt, az biztos megy 64 bites windowson is.

• #2496 Maneszproger csendes tag Gyuri16 #2495

  Új Válasz 2011-09-16 19:04:02 #2496

  Ú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

  

  Maneszproger

  csendes tag

  válasz Gyuri16 #2495 üzenetére

  Ja már értem, én az If részt elhagytam ott ahol már else lett írva nálad. Köszi!
  Amúgy hogy lehet menteni a TP-be hogy 64-bites windows 7-en is elfusson a progi?

• #2495 Gyuri16 senior tag Maneszproger #2494

  Új Válasz 2011-09-16 18:09:09 #2495

  Ú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

  

  Gyuri16

  senior tag

  válasz Maneszproger #2494 üzenetére

  igy gondoltam:
  [link]

  nem probaltam forditani, de kb jonak kellene lennie. az ekezetes betuk elvesztek a kodolasban, de latszik a lenyeg

• #2494 Maneszproger csendes tag Gyuri16 #2493

  Új Válasz 2011-09-16 17:56:44 #2494

  Ú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

  

  Maneszproger

  csendes tag

  válasz Gyuri16 #2493 üzenetére

  bocsi csak az előbb siettem, felraktam gyors data.hu-ra a [forráskódot]

• #2493 Gyuri16 senior tag Maneszproger #2492

  Új Válasz 2011-09-16 17:26:12 #2493

  Ú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

  

  Gyuri16

  senior tag

  válasz Maneszproger #2492 üzenetére

  akkor ott valami gubanc lesz, jonak kellene lennie, szerintem probald meg, mert gyakran kell ilyen szerkezetet hasznalni.

  amit fentebb irtal, meg mindig nem fordithato, pl hianyoznak az writeln-ban az aposztrofok.

• #2492 Maneszproger csendes tag Gyuri16 #2491

  Új Válasz 2011-09-16 17:19:13 #2492

  Ú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

  

  Maneszproger

  csendes tag

  válasz Gyuri16 #2491 üzenetére

  csak az volt azzal a verzióval a baj hogy nekem nem fordította le. Hiába írtam be úgy, nekem hibát jelzett.

• #2491 Gyuri16 senior tag Maneszproger #2489

  Új Válasz 2011-09-16 17:16:08 #2491

  Ú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

  

  Gyuri16

  senior tag

  válasz Maneszproger #2489 üzenetére

  ilyenkor jo tudni debuggolni, hogy megnezd mit csinal a program. ebben az esetben debuggolhatod "fejben" is. mit csinal a program ha muvelet = 1. ilyenkor az elso if feltetele tejesul, tehat vegrehajtodik a then ag. ezutan jon a kovetkezo if, ahol a feltetel nem teljesul ezert az else ag fut le. kovetkezo if ugyanez. a vegeredmeny az lesz, hogy egyszer lefut az a then ag amilyen muveletet megadtal, es az osszes tobbinel pedig az else ag.

  helyesen azt a szerkezetet kellene hasznalnod amit itt irtam. annak a logikaja ilyen:
  ha teljesul az elso feltetel, vegrehatodik a then ag, az else nem, ezzel vege az ifnek. ha nem teljesul a feltetel, akkor az else agba jutunk, ahol ismet egy if van, ami a masodik esetet vizsgalja. igy fokozatosan eljut a program oda, amelyik muveletet el akarod vegezni (vagy a vegso else agba, ha egyik feltetel se teljesul)

• #2490 Maneszproger csendes tag Maneszproger #2489

  Új Válasz 2011-09-16 16:06:57 #2490

  Ú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

  

  Maneszproger

  csendes tag

  válasz Maneszproger #2489 üzenetére

  Még egy kicsit módosítottam rajta, és most már végre kiírja az eredményt. (Kiderült, a végén véletlen lemaradt a read szócskáról az LN végződés.

  Bár, ahol nem megfelelő a kitétel annak a helyére kiírja a hibaüzenetet, de ez elhanyagolható, ugyanis kiírja az eredményt is.

• #2489 Maneszproger csendes tag Gyuri16 #2488

  Új Válasz 2011-09-16 15:58:20 #2489

  Ú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

  

  Maneszproger

  csendes tag

  válasz Gyuri16 #2488 üzenetére

  program szamologep;
  uses crt;
  var a,b,c,d,e,f,g,h,i,j,k: integer;
  l: real;
  muvelet: integer;
  
  Begin
  clrscr;
  writeln ('Üdvözöllek! Ez egy számológép program.');
  writeln ('A program egész számokkal dolgozik, de az osztást 4 tizedesig írja ki!');
  writeln (Kérlek gépeld be, a végrehajtandó művelet kódszámát!');
  writeln ('Összeadás (1) -Kivonás (2) -Szorzás (3) -Osztás (4) ');
  readln (muvelet);
  If muvelet = 1 then
  Begin
  writeln ('Az összeadást választottad. Kérlek add meg az első összeadandót!');
  readln (a);
  writeln ('Most pedig a másik összeadandót!');
  readln (b);
  c := a + b ;
  writeln ('Az eredmény pedig: ',c,' lett!');
  End
  Else
  Begin
  writeln ('Sajnos nem megfelelően adtad meg a műveletválasztást!');
  writeln ('Kérlek indítsd újra a programot és próbáld újra!);
  End;
  If muvelet = 2 then
  Begin
  writeln ('A kivonást választottad. Kérlek add meg a kisebbítendőt!');
  readln (d);
  writeln ('Most pedig a kivonandót!');
  readln (e);
  f := d - e ;
  writeln ('Az különbség pedig: ',f,' lett!');
  End
  Else
  Begin
  writeln ('Sajnos nem megfelelően adtad meg a műveletválasztást!');
  writeln ('Kérlek indítsd újra a programot és próbáld újra!);
  End;
  If muvelet = 3 then
  Begin
  writeln ('A szorzást választottad. Kérlek add meg a szorzandót!');
  readln (g);
  writeln ('Most pedig a szorzót!');
  readln (h);
  i := g * h ;
  writeln ('Az eredmény pedig: ',i,' lett!');
  End
  Else
  Begin
  writeln ('Sajnos nem megfelelően adtad meg a műveletválasztást!');
  writeln ('Kérlek indítsd újra a programot és próbáld újra!);
  End;
  If muvelet = 4 then
  Begin
  writeln ('Az osztást választottad. Kérlek add meg az osztandót!');
  readln (j);
  writeln ('Most pedig az osztót!');
  readln (k);
  l := j / k ;
  writeln ('Az eredmény pedig: ',l:0:4,' lett!');
  End
  Else
  Begin
  writeln ('Sajnos nem megfelelően adtad meg a műveletválasztást!');
  writeln ('Kérlek indítsd újra a programot és próbáld újra!');
  End;
  
  writeln (Köszönöm hogy használtad a programot!');
  readln;
  End.

  Jelenleg így néz ki.

• #2488 Gyuri16 senior tag Maneszproger #2487

  Új Válasz 2011-09-16 15:47:13 #2488

  Ú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

  

  Gyuri16

  senior tag

  válasz Maneszproger #2487 üzenetére

  mutasd az aktualis verziot, a fenti le se fordul

• #2487 Maneszproger csendes tag Gyuri16 #2485

  Új Válasz 2011-09-16 15:41:36 #2487

  Ú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

  

  Maneszproger

  csendes tag

  válasz Gyuri16 #2485 üzenetére

  Átírtam, nem stringet kéretek be vele hanem 1; 2; 3 vagy 4 számok valamelyikét, de még mindig kidob a második változó után. Van valami másik elválasztás típus esetleg amivel könnyebben megoldható ez?

• #2486 Gyuri16 senior tag Gyuri16 #2485

  Új Válasz 2011-09-16 15:41:21 #2486

  Ú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

  

  Gyuri16

  senior tag

  válasz Gyuri16 #2485 üzenetére

  utolsohoz:
  lehet, hogy megis megy, legalabbis a freepascal hasznalja az extended ascii-t is. azt, hogy a turbo pascal is hasznalja e nem tudom. ennek ellenere is talan jobb lenne mellozni az ekezeteket, kiveve ha feltetlenul szukseges.

• #2485 Gyuri16 senior tag Maneszproger #2484

  Új Válasz 2011-09-16 15:29:39 #2485

  Ú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

  

  Gyuri16

  senior tag

  válasz Maneszproger #2484 üzenetére

  1. az else ag elotti end utan nem teszunk pontosvesszot.
  2. valami ilyesmi strukturat akarsz szerintem:

  if muvelet = 'valami' then
  begin
  { ... }
  end
  else if muvelet = 'valami2' then
  begin
  { ... }
  end
  else if muvelet = 'valami3' then
  begin
  { ... }
  end
  else
  begin
  { ha egyik feltetel se teljesult }
  end;

  igy pontosan egy ag fog lefutni minden esetben.

  3. nem kell annyi valtozo feleslegesen
  4. ne hasznalj ekezeteket, pascalban a string tipus egybajtos - ascii - karaktereket tarol, ezert ha ekezeteket olvasol be rossz vege lesz.

• #2484 Maneszproger csendes tag sh4d0w #2483

  Új Válasz 2011-09-16 15:07:49 #2484

  Ú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

  

  Maneszproger

  csendes tag

  válasz sh4d0w #2483 üzenetére

  Köszi szépen! Akkor megvan a hiba, azt hittem mindre vonatkozni fog. Ki is próbálom!
  
  Sajnos még mindig ugyan az a probléma. Megadom neki a második változót bármely műveletnél, és csak úgy kilép. Pedig a biztonság kedvéért direkt több változót adtam meg!

• #2483 sh4d0w félisten Maneszproger #2482

  Új Válasz 2011-09-16 15:02:26 #2483

  Ú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

  

  sh4d0w

  félisten

  LOGOUT blog (1)

  válasz Maneszproger #2482 üzenetére

  Az utolsó if-re tettél else-t, a többire nem.

• #2482 Maneszproger csendes tag

  Új Válasz 2011-09-16 14:58:59 #2482

  Ú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

  

  Maneszproger

  csendes tag

  No, ma délután elkezdtem írni egy négyműveletes számológépet.
  Picit hosszú, de beírom.Lefordítani lefordítja ha teszek veszőspontot az End-ek után, de be is zárja, és nem írja ki az eredményt! Akkor se ha rosszat írok be direkt.

  program szamologep;
  uses crt;
  var a,b,c,d,e,f,g,h,i,j,k: integer;
  l: real;
  muvelet: string;
  
  Begin
  clrscr;
  writeln ('Üdvözöllek! Ez egy számológép program.');
  writeln ('A program egész számokkal dolgozik, de az osztást 4 tizedesig írja ki!');
  writeln (Kérlek gépeld be, pontosan melyik műveletet akarod végrehajtatni!');
  writeln ('Összeadás-Kivonás-Szorzás-Osztás');
  readln (muvelet);
  If muvelet = 'Összeadás' then
  Begin
  writeln ('Az összeadást választottad. Kérlek add meg az első összeadandót!');
  readln (a);
  writeln ('Most pedig a másik összeadandót!');
  readln (b);
  c := a + b ;
  writeln ('Az eredmény pedig: ',c,' lett!');
  End;
  If muvelet = 'Kivonás' then
  Begin
  writeln ('A kivonást választottad. Kérlek add meg a kisebbítendőt!');
  readln (d);
  writeln ('Most pedig a kivonandót!');
  readln (e);
  f := d - e ;
  writeln ('Az különbség pedig: ',f,' lett!');
  End;
  If muvelet = 'Szorzás' then
  Begin
  writeln ('A szorzást választottad. Kérlek add meg a szorzandót!');
  readln (g);
  writeln ('Most pedig a szorzót!');
  readln (h);
  i := g * h ;
  writeln ('Az eredmény pedig: ',i,' lett!');
  End;
  If muvelet = 'Osztás' then
  Begin
  writeln ('Az osztást választottad. Kérlek add meg az osztandót!');
  readln (j);
  writeln ('Most pedig az osztót!');
  readln (k);
  l := j / k ;
  writeln ('Az eredmény pedig: ',l:0:4,' lett!');
  End;
  Else
  Begin
  writeln ('Sajnos nem megfelelően adtad meg a műveletválasztást!');
  writeln ('Kérlek indítsd újra a programot és pontosan úgy írd be a művelet');
  writeln ('megnevezését, mint ahogy ki van írva pl.: Kivonás');
  End;
  
  writeln (Köszönöm hogy használtad a programot!');
  readln;
  End.

• #2481 Maneszproger csendes tag Maneszproger #2479

  Új Válasz 2011-09-15 18:18:45 #2481

  Ú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

  

  Maneszproger

  csendes tag

  válasz Maneszproger #2479 üzenetére

  Ja bocsi a módosítgatás miatt. DE SIKERÜLT! KÖSZÖNÖM A SEGÍTSÉGET! Nem számítottam ilyen gyorsra.

• #2480 Gyuri16 senior tag Maneszproger #2479

  Új Válasz 2011-09-15 18:17:57 #2480

  Ú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

  

  Gyuri16

  senior tag

  válasz Maneszproger #2479 üzenetére

  nezd at az if-then-else szerkezet helyes szintaktikajat. ebben az esetben igy kellene hasznalni:

  if feltetel then
  begin
  { utasitasok: mi tortenjen ha a feltetel igaz }
  end
  else
  begin
  { utasitasok: mi tortenjen ha a feltetel hamis }
  end;

  a felteteled most mar jo, de a szerkezet nem.

  az eredeti programodban ez a sor jo, igy kiirja a beolvasott nevet is:
  write ('Szia ',name,'. Sajnos ezt a programot nem neked szántam! Zárd be légy szíves!')

  mod:
  most latom, modositottad a hsz-t. ha az if egyik agaban csak egy utasitas van, akkor a begin/end elhagyhato. pl igy:
  if a=b then
  write('Egyenlo');
  vagy ha kiirod akkor igy:
  if a=b then
  begin
  write('Egyenlo');
  end;

  #2481:
  olvasd at amit irtam, probald meg, aztan ha nem jo masold ide a kodot, nem tudom, most melyiket javitsam.

• #2479 Maneszproger csendes tag Gyuri16 #2478

  Új Válasz 2011-09-15 18:10:34 #2479

  Ú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

  

  Maneszproger

  csendes tag

  válasz Gyuri16 #2478 üzenetére

  Köszi, szépen, még csak 2 hete tanulok programozni, és eddig csak összeadós, szorzós kiírós progikat csináltunk órán, én már így is kicsit előrébb vagyok a csoport szintjéhez képest, mellesleg a fórum felépítése is furcsa még kicsit. Tehát akkor így kell kinéznie?
  program nyisdmeg;
  uses crt;
  
  var name: string;
  
  Begin
  write ('Kérlek gépeld be a neved!');
  readln (name);
  If name='Julia' then
  write ('Szia Julia! Szeretlek édes!')
  End;
  End.

  Vagy módosítsak valamit még? Sajnos a neten fent levő anyagot nem nagyon értem, és mire ezt tanuljuk az még egy hónap.

• #2478 Gyuri16 senior tag Maneszproger #2477

  Új Válasz 2011-09-15 17:59:01 #2478

  Ú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

  

  Gyuri16

  senior tag

  válasz Maneszproger #2477 üzenetére

  az if egy feltetelt var, te viszont egy string tipusu valtozot adsz neki. gondolom valami hasonlo akart lenni:
  if name = 'Julia' then

  ha esetleg c-s multad van, akkor megjegyeznem, hogy a pascal nem tekinti a szam tipusu valtozokat booleannak.

  tovabb, ez a sor:
  Lanyneve: write ('Szia Lanyneve! Szeretlek édes!')
  a sor elejen egy labelt definialsz, ami valoszinuleg nem volt szandekos (ha igen, akkor ajanlom felejtsd is el egy jo idore a labeleket), az nem kell oda (a kettospont elotti resz).

  legkozelebb legy szives hasznald a programkod gombot forraskod beillesztesere.

• #2477 Maneszproger csendes tag

  Új Válasz 2011-09-15 17:45:13 #2477

  Ú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

  

  Maneszproger

  csendes tag

  Sziasztok új vagyok, két hete tanulok programozni, heti két tanórában, plusz itthon valamennyit netről!
  Szerelmemnek szeretnék írni egy programot, de az elágazásokat még nem tudom kezelni.
  A programom:

  program NYISDMEG;

  uses crt;

  var name: string;

  Begin
  clrscr;
  write ('Szia! Kérlek add meg a neved!');
  readln (name);
  If (name) then
  Begin
  Lanyneve: write ('Szia Lanyneve! Szeretlek édes!')
  End
  Then
  Begin
  write ('Szia ',name,'. Sajnos ezt a programot nem neked szántam! Zárd be légy szíves!')
  End;
  End.

  Mikor lefordítanám tesztelni a 40-es hibát írja ki, és ott villog a karakterjelző ahol aláhúztam. Mi lehet a baj? (Turbo Pascal)

• #2476 andronymus tag

  Új Válasz 2011-08-21 22:39:15 #2476

  Ú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

  

  andronymus

  tag

  köszönöm nagyon

• #2475 Gyuri16 senior tag andronymus #2474

  Új Válasz 2011-08-21 17:54:48 #2475

  Ú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

  

  Gyuri16

  senior tag

  válasz andronymus #2474 üzenetére

  tud mindent ami egy iskolai orara kellhet. freepascalt meg fejlesztik, vannak benne ujdonsagok, amiket tp nem tud.

• #2474 andronymus tag Gyuri16 #2473

  Új Válasz 2011-08-21 17:36:12 #2474

  Ú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

  

  andronymus

  tag

  válasz Gyuri16 #2473 üzenetére

  ohh köszi és ez ugyan azt tudja mint a tp? ( gondolom)

• #2473 Gyuri16 senior tag andronymus #2472

  Új Válasz 2011-08-21 15:24:05 #2473

  Ú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

  

  Gyuri16

  senior tag

  válasz andronymus #2472 üzenetére

  hasznalj inkabb freepascalt

• #2472 andronymus tag

  Új Válasz 2011-08-21 14:21:55 #2472

  Ú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

  

  andronymus

  tag

  Hello!

  én is elakdtam csak nálam annyi a gond hogy nem indul el a Turbo Pascal (win 7 x64) és nem találtam sehol se rá megoldást ahol meg írták h fut x64-en az meg nem futott ( dosos emuláláson kívül nincs más lehetőség) ?
  köszi a segítséget

• #2471 bucsupeti senior tag artiny #2470

  Új Válasz 2011-07-28 21:49:12 #2471

  Ú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

  

  bucsupeti

  senior tag

  válasz artiny #2470 üzenetére

  Próbáld meg függvényekre bontani a programsorokat. Aztán egy ciklusban hívogasd a függvényeket. Ekkor ha globális változókat használsz a km-ek tárolására, akkor az értéke megmarad ahogy akarod.

  Nézz utána a függvény (procedúra) készítésnek. Ha elakadtál írj és segítek.

• #2470 artiny őstag

  Új Válasz 2011-07-14 18:43:11 #2470

  Ú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

  

  artiny

  őstag

  Hogyan kell ezt megoldani Turbo Pascalban?
  Befejezés hiányzik a programból.
  A gyakorlaton ahol vagyok ezt kell csinálnom egész nap:
  van a kamion indulási és érkezési km távja a tachométeren. Kettő különbségéből kijön a megtett táv,ezt megszorozva a fogyasztási kulccsal kijön a fogyasztás. A maradék naftából ami a kamion tartályában van ki kell vonni a fogyasztást (és ha volt tankolás akkor előtte hozzáadni)**** és így megkapjuk a maradék naftát a kamionban. Ezt kell vezetni egy lapon a cégnél.
  Ennek a megkönnyítésére gondoltam megpróbálom megszerkeszteni a progit.

  A kérdések:

  1 A programot hogyan tudom folytatni ,hogy használja fel ugyan azt a VÉGÉRTÉKET,TAKOMETER VEGERTEKET - hisz ezeket nem kéne ujbol megadni,mert ugyan az mint az elozo vegertekek és ezt beolvasni az ujabb szamolásnál kezdoértéknek.
  /itt változok értékei megmaradnak a memoriaban szoval eleg behelyetesiteni? csak nem tudom hogyan irjam le ezt programban .... eljutottam addig,hogy kiszamolom amit akarok egyszer de hogy folytatodjon a program az elozo ertekkel már nem tudom./

  Nem kell hogy tarolja valahova az adatokat a program(mivel egy kamiont nem naponta vezetik,hanem amikor kezhez kapja a papirokat,ezért van hogy 15napot egyszerre csinálok meg)...csak egyszer kiszamolom az elsot (ugy hogy en adom meg a kezdo erteket,vegerteket - azutan mar a program fogja beolvasni a vegerteket a kezdobe a következő számításba)

  2 hogyan lehet megoldani a tankolást,hogy elegánsabb legyen. Mivel csak kb 2hetente szoknak tankolni ezért ugy elohivni ha csak tankolt.
  Eddig jutottam:

  program staska;
  uses crt;
  var kezdo,tankolas,spotreba,vegertek,kulcs,tav,takezdo,takveg:real;
  begin
  clrscr;
  write('adja meg a takometer kezdoerteket: ');
  readln(takezdo);
  write('adja meg a takometer vegerteket : ');
  readln(takveg);
  tav:=takveg-takezdo;
  writeln('takvegso - takezdo : ',tav:0:0);
  
  write('adja meg a fogyasztas kiszamitasahoz a kulcsot: ');
  readln(kulcs);
  spotreba:=tav*kulcs;
  write('adja meg a tartaly maradek tartalmat : ');
  readln(kezdo);
  write('adja meg a tankolas mennyiseget : ');
  readln(tankolas);
  
  writeln('tartaly maradek erteke: ',kezdo:0:0);
  writeln('tankolas mennyisege : ',tankolas:0:0);
  writeln('fogyasztas : ',spotreba:0:2);
  vegertek:=(kezdo+tankolas)-spotreba;
  writeln('maradek nafta : ',vegertek:0:0);
  
  readln;
  end.

• #2469 artiny őstag

  Új Válasz 2011-07-05 12:22:55 #2469

  Ú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

  

  artiny

  őstag

  Készítsen számjegyes számlálot a kepernyore(amilyen a villanyorakban vagy kilometerorakban is van). A szamlalo eloszor ket szamjegyes legyen tehat 00-99ig szamlal,majd bovitse fokozatossan hat szamjegyesig!

  ez hogy kell megoldani? Csak olyankoat sikerult csinalnom...hogy elkezd szamolni 1,2,3,,,,
  eler szazon felul akokor 1 01(-----02,03...stb) es ez folytadodik nem megy tovabbb a harmadik karakternel...es eleve ugy kezd szamolni hogy 0 01 ,0 02

• #2468 artiny őstag Gyuri16 #2467

  Új Válasz 2011-06-30 07:37:01 #2468

  Ú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

  

  artiny

  őstag

  válasz Gyuri16 #2467 üzenetére

  Igen igy mar sikerult. atjavitottam a read -ket readln ra.

  Köszi

• #2467 Gyuri16 senior tag artiny #2466

  Új Válasz 2011-06-29 18:56:36 #2467

  Ú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

  

  Gyuri16

  senior tag

  válasz artiny #2466 üzenetére

  valoszinuleg a beolvasast az utolso readln elott csak read-dal vegzed, ezert az ujsor karakter ott marad, es az utolso readln ezt rogton megeszi. legjobb az lenne, ha az osszes olvasas egesz sor lenne (tehat readln), es akkor mukodne rendesen az utolso is.

  esetleg rakhatsz a vegere egy ilyet:

  repeat
  until keypressed;

  mod:
  ha turbo/free pascalt hasznalsz, akkor alt+f5 kombinacioval elohozhatod a kepernyot, hogy megnezd mit irt ki a program enelkul is

• #2466 artiny őstag

  Új Válasz 2011-06-29 14:22:06 #2466

  Ú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

  

  artiny

  őstag

  Helosztok

  Hogyan kell megoldani,hogy netűnjön el a képernyő enter után pl. van hogy beolvasok szamokat osszeadatom majd vegen kiirni az eredmenyt és amikor az utolso enter jon olyan gyorsan irja ki az eredmeny es tunik el hogy olvashatatlan.
  Az end. elé irtam readln.t de mégis? van valmi break vagy stop vagy valmi hasonlo?

• #2465 gatoth csendes tag Gyuri16 #2464

  Új Válasz 2011-06-10 14:14:20 #2465

  Ú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

  

  gatoth

  csendes tag

  válasz Gyuri16 #2464 üzenetére

  Ez működik, köszönöm szépen.

• #2464 Gyuri16 senior tag gatoth #2463

  Új Válasz 2011-06-10 13:57:09 #2464

  Ú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

  

  Gyuri16

  senior tag

  válasz gatoth #2463 üzenetére

  ez a 32 bites:
  [link]

  van az oldalon 64 bites is, de azzal nincs tapasztalatom, ha kezdo vagy inkabb ezt ajanlom

• #2463 gatoth csendes tag Gyuri16 #2462

  Új Válasz 2011-06-10 13:47:36 #2463

  Ú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

  

  gatoth

  csendes tag

  válasz Gyuri16 #2462 üzenetére

  nekem az i386 mappán belül egy ppcrossx64 alkalmazás van, de ha elindítom, akkor kidob egy szöveget egy DOS-os ablakban, alján press enterrel, ha nyomok entert, akkor újabb szöve, megint újabb, ezt 4-5x és utána enterre bezár.
  Szóval ezek szerint rosszat szedtem le.
  Tudnál dobni egy linket, amiről működőképeset tudok leszedni?

• #2462 Gyuri16 senior tag gatoth #2461

  Új Válasz 2011-06-10 13:25:07 #2462

  Ú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

  

  Gyuri16

  senior tag

  válasz gatoth #2461 üzenetére

  nalam a freepascal igy indul:
  C:\FPC\2.4.0\bin\i386-win32\fp.exe

• #2461 gatoth csendes tag

  Új Válasz 2011-06-10 13:18:32 #2461

  Ú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

  

  gatoth

  csendes tag

  Sziasztok!
  Én már rögtön az elején elakadtam, mert x64-es windowsom van, és vmiért nem szeretik egymást, pedig direkt olyat töltöttem le, ami elvileg erre jó, és felraktam a DOSbox 0.74-et is, mert valahol azt írták, így működni fog, de nem. Ez van a Turbo Pascal 7.0-val.
  Próbálkoztam a Free Pascal 2.2.4-el is, fel is raktam, de ott meg nem jövök rá, hogy mivel indítom el, mert szinte csak szövegfájlokat találok.
  Valaki tudna segíteni, hogy hogy indítsam el a FP-t, vagy miért nem működik a TP, az pls írjon.
  Köszönöm előre is.

• #2460 dany27 őstag dany27 #2459

  Új Válasz 2011-05-10 18:31:31 #2460

  Ú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

  

  dany27

  őstag

  válasz dany27 #2459 üzenetére

  Var
  S : String;
  error : Integer;
  R : Real;
  
  Begin
  S := '-0.563';
  Val(S, R, error);
  If error > 0 then
  Write('Error in conversion.')
  Else
  Write(R);
  End.

  Már meg van!

• #2459 dany27 őstag

  Új Válasz 2011-05-10 18:04:50 #2459

  Ú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

  

  dany27

  őstag

  hi

  Hogy tudok egy stringben tárolt tört számot real-é varázsolni??
  Nem saját magamat szopatom hanem ilyen hülye a feladat, tört számokat viszek be * végjelig.
  Nem is lenne a gond a stringel csak utánna még rendeznem is kell őket, az meg ugye stringel necces lesz....
  Más nyelven megtudnám írni(típus konverzióval) csak most kimondottan pascal kell!

  Előre is köszi!

• #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.

• #2457 Gyuri16 senior tag vz12 #2456

  Új Válasz 2011-04-27 23:32:39 #2457

  Ú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

  

  Gyuri16

  senior tag

  válasz vz12 #2456 üzenetére

  nem ertek egyet, ket dolog miatt:

  1, ebben a konkret esetben: a programnak beadsz ket szamot, pl 100, 50. erre az mit csinal? hibauzenetet dob, miszerint kicsi az intervallum. a felhasznalo nem erti mi a baj, hisz az intervallum nagyobb mint a megengedett minimum. a program egyreszt helytelen hibauzenetet ad, masreszt arra tamaszkodik, hogy egy feltetel, ami eredetileg mast hivatott tesztelni ezt is lefedi. ezen kivul feleslegesen hivod meg a random fuggvenyt rossz parameterrel.
  aztan ott vannak a kellemetlen helyzetek, amit a te megoldasod okoz:
  faradt vagyok mar ezeket kutatni.. de ha pl a c integer lesz a,b pedig word akkor elo lehet idezni ilyet:
  a:=maxint*2; // nagy szam
  b:=100;
  c:=b-a; // = 102
  es itt baj van, mert a program 102 elembol fog valasztani ahelyett hogy maxint*2-100 elembol valasztana. es hibat se dob
  (ha pedig mindharom integer lesz, akkor negativ szamokat is kezelni kell, ami kicsit megint bonyolitana a dolgot, pl mit kell csinalni ha a=100 es b=-maxint)

  2, altalanosan (ez a fontosabb resz): a bemenetben amit a felhasznalotol kapsz nem lehet bizni. ha ket szamot ker a programod, ahol az elso a kisebb biztos lehetsz benne, hogy valaki kiprobalja mit csinal ha forditva adod meg. probalom a jo szokasokat terjeszteni: bemenetet mindig ellenorizni kell (lehetoleg minel hamarabb) es nem a kodban kutatni, hogy esetleg ez jo lesz igy is, mert van ott valahol egy if. a c valtozo jelentese, hogy hany szambol akarsz veletlenszeruen valasztani, itt nincs ertelme negativ szamnak, ezert nem szabad megengedni, hogy ilyen erteket felvegyen. ilyenekre hosszabb programoknal szokas irni teszteket a kodba, segitenek hibakat keresni.

• #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.

• #2455 Gyuri16 senior tag vz12 #2454

  Új Válasz 2011-04-27 21:55:53 #2455

  Ú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

  

  Gyuri16

  senior tag

  válasz vz12 #2454 üzenetére

  az se jo, akkor meg negativ szammal hivnad meg a randomot..

• #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 ...

• #2453 Gyuri16 senior tag vz12 #2452

  Új Válasz 2011-04-27 21:26:04 #2453

  Ú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

  

  Gyuri16

  senior tag

  válasz vz12 #2452 üzenetére

  a felhasznalo nem tud meg semmit utolag, csak azt latja, hogy fura szamokat kap. egy if-et odarakni az elejere nem egy nagy dolog..

  probald meg ezt:

  var a,b,c:word;
  begin
  a:=5;
  b:=3;
  c:=b-a;
  writeln(c);
  end.

• #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.

• #2451 Vferi159 csendes tag Gyuri16 #2449

  Új Válasz 2011-04-27 21:10:07 #2451

  Ú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

  

  Vferi159

  csendes tag

  válasz Gyuri16 #2449 üzenetére

  nagyon szépen köszönöm a segítséget
  majd megmondom, hogy először a kisebb számot kell megadni.

• #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;

  

• #2449 Gyuri16 senior tag Vferi159 #2448

  Új Válasz 2011-04-27 21:03:56 #2449

  Ú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

  

  Gyuri16

  senior tag

  válasz Vferi159 #2448 üzenetére

  igen, a random(c) a <0, b-a) intervallumbol ad egy szamot, ha ehhez hozzaadsz a-t akkor az <a, b) intervallumot kapod. a program elejen meg jo lenne ellenorizni, hogy a<=b es ha nem akkor felcserelni oket

• #2448 Vferi159 csendes tag Gyuri16 #2446

  Új Válasz 2011-04-27 20:56:45 #2448

  Ú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

  

  Vferi159

  csendes tag

  válasz Gyuri16 #2446 üzenetére

  Bocs, de nem tudom hogy kell szerkeszteni az előzőt...
  Gyuri, akkor "random(c)+a"-t kellene?

• #2447 Vferi159 csendes tag Gyuri16 #2446

  Új Válasz 2011-04-27 20:15:44 #2447

  Ú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

  

  Vferi159

  csendes tag

  válasz Gyuri16 #2446 üzenetére

  na ehhez nem értek.
  ha "x:=random(b)+a"...akkor az eredmény a <a, b+a) intervallumbol lesz?
  nem értem hogy lehetne <a,b) intervallumból. A matekhoz totál kapufa vagyok

• #2446 Gyuri16 senior tag Vferi159 #2445

  Új Válasz 2011-04-27 19:48:28 #2446

  Ú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

  

  Gyuri16

  senior tag

  válasz Vferi159 #2445 üzenetére

  x:=random(b)-a;

  a random(b) egy "veletlen" szamot ad <0,b) intervallumbol. ebbol kovonsz a-t, tehat az eredmeny a <-a, b-a) intervallumbol lesz. gondold at milyen szamokat akarsz tole, es aszerint ird at.

• #2445 Vferi159 csendes tag

  Új Válasz 2011-04-27 19:29:25 #2445

  Ú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

  

  Vferi159

  csendes tag

  Na ja. Ez a TP hiba volt, töltöttem le másikat.
  megírtam a programot:
  
  a program fut, viszont a véletlen számot nem az "a" és "b" közti intervallumból választja ki, hanem csak úgy kiír egyet. mostmár tényleg nem vágom, mi a hiba.

• #2444 Lortech addikt Vferi159 #2441

  Új Válasz 2011-04-27 19:20:59 #2444

  Ú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

  

  Lortech

  addikt

  válasz Vferi159 #2441 üzenetére

  Szemmelveréssel nem tudom megállapítani, mi dobhatja ezt. Esetleg debuggold meg és keresd vissza, melyik sornál dobja ezt.

• #2443 Gyuri16 senior tag Vferi159 #2441

  Új Válasz 2011-04-27 19:20:03 #2443

  Ú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

  

  Gyuri16

  senior tag

  válasz Vferi159 #2441 üzenetére

  probalj meg egy minimalis programot a crt unittal, hogy lefordul-e. csinaltal mar akarmit azon a gepen pascalban ami mukodott, vagy ez az elso program?

• #2442 cucka addikt Vferi159 #2441

  Új Válasz 2011-04-27 19:10:22 #2442

  Ú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

  

  cucka

  addikt

  válasz Vferi159 #2441 üzenetére

  .

• #2441 Vferi159 csendes tag Lortech #2440

  Új Válasz 2011-04-27 19:03:13 #2441

  Ú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

  

  Vferi159

  csendes tag

  válasz Lortech #2440 üzenetére

  Igen közben ere rájöttem, de most meg ez van:
  
  ilyet még nem láttam...

• #2440 Lortech addikt Vferi159 #2438

  Új Válasz 2011-04-27 18:58:28 #2440

  Ú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

  

  Lortech

  addikt

  válasz Vferi159 #2438 üzenetére

  b változód legyen word típusú, random ilyet vár paraméterként, nem realt.
  c>19 helyett pedig c >=20, vagy pedig egész számokkal dolgozz csak.

• #2439 Vferi159 csendes tag Dave-11 #2435

  Új Válasz 2011-04-27 18:37:19 #2439

  Ú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

  

  Vferi159

  csendes tag

  válasz Dave-11 #2435 üzenetére

  Asszem a begin után: "repeat", és az utolsó writeln után: "until keypressed".

• #2438 Vferi159 csendes tag

  Új Válasz 2011-04-27 18:14:33 #2438

  Ú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

  

  Vferi159

  csendes tag

  Sziasztok!
  Szükségem lenne a segítségetekre. Egy egyszerü programról van szó, de mégsem akar sikerülni.
  A program bekér 2 számot, majd a 2 szám közti intervallumból véletlenszerüen kiir egyet. Fontos, hogy a 2 szám közti inttervallum min. 20 legyen.
  http://kephost.hu/kep/2011/04/turbo_jpg.JPG eddig ezt próbáltam összehozni, de a képen látható hibát írja ki ("x:=ramdom(b)+a sorban a (b)-vel van problémája). Reménykedek benne, hogy valaki tud segíteni, előre is köszönom...

• #2437 Sweet Lou 6 addikt kmisi99 #2436

  Új Válasz 2011-04-15 20:49:47 #2437

  Ú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

  

  Sweet Lou 6

  addikt

  válasz kmisi99 #2436 üzenetére

  nézd meg ezt

• #2436 kmisi99 addikt

  Új Válasz 2011-04-10 20:02:41 #2436

  Ú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

  

  kmisi99

  addikt

  Igaz kicsit off de azért van köze a témához
  Középiskolában pascalt tanulok de nem nagyon megy nagyon nem vágom! Ilyeneket veszünk hogy dinamikus tárkezelés meg hasonlók! Hogy tudnák jobban belerázódni? Talán kezdjem előröl a tanulást az alapoktól? Tudnátok valami jó oktatós oldalt adni?

• #2435 Dave-11 tag

  Új Válasz 2011-04-10 14:23:25 #2435

  Ú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

  

  Dave-11

  tag

  Sziasztok! A következőt szeretném megvalósítani:
  Lenne egy progrgam, ami bekéri a nevedet. Miután megadtat, kiír egy üdvözlő üzenetet, és alá ezt írja: "Nyomj Entert a program bezáráshoz, vagy Spacet az újabb név megadásához". Ennyit meg tudok csinálni belőle:

  program nev;
  uses crt;
  var
  nev:string;
  begin
  writeln('Kérlek add meg a nevedet!');
  write('Neved: '); readln(nev);
  writeln();
  writeln('Üdv, ',nev);
  writeln();
  writeln('Nyomj Entert a program bezáráshoz, vagy Spacet az újabb név megadásához');
  [és ide jönne az a rész amit nem tudok]
  end.

  Tehát hogy lehet megoldani, hogy egy billentyű lenyomásával kilépjen, vagy újrainduljon a program? A segítségeket előre is köszönöm

• #2434 csarab csendes tag

  Új Válasz 2011-04-10 10:26:19 #2434

  Ú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

  

  csarab

  csendes tag

  Hello! Házit kéne írnom, de nem sikerült eddig megoldanom a problémát, remélem segítetek!
  A feladatom: Készítsen programot, amely a számsorozatokat a Cauchy-féle konvergencia kritérium alapján vizsgál. Tetszőleges sorozatról lehet szó. Én az 5*n/n a sqrt(1+1/(n*n)) és a (1+1/n)+n.t választottam, az elsőnek 5 a másodiknak 1 a harmadiknak az e szám a határértéke. Idáig jutottam, ami sajnos hibás:
  var a,b:real; d,k,n:integer;
  begin
  a:=5*n/n;
  b:=sqrt(1+1/(n*n));
  d:=5;
  k:=1;

  writeln('Kerem a hanyadosfuggvenyt:',a);
  writeln('A hanyadosfuggveny hatarerteke:',d);
  writeln('Kerem a gyokfuggvenyt:',b);
  writeln('A gyokfuggveny hatarerteke:',k);
  readln;
  end;

  function cauchy(a,b:real;d,k,n:integer;z:longint;var m:integer):integer;
  begin;
  z:=0,001
  if a-d<z then do
  write n:=m
  writeln(m);
  end;
  readln;
  end.
  Vmilyen függvényt, meg eljárást , fájlkezelést is kéne írnom. Nagyon örülnék, ha vki tudna segíteni, köszi!

• #2433 lecsokolbasz csendes tag

  Új Válasz 2011-04-03 16:18:12 #2433

  Ú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

  

  lecsokolbasz

  csendes tag

  Üdv mindenkinek!
  A következő program megírásában kérném a segítségeteket.
  Pascal-ban.
  Esetleg nincs meg valakinek, szívesen venném!!!!
  Köszi előre is!

  A bemenet első sorában található egy egész szám, n.
  Ezután következik tetszőlegesen sok, de maximum kétszáz darab, int vagy double típusú szám. Írjuk őket növekvő nagyság szerint rendezve a kimenetre n tizedesjegy pontossággal.

  pl.:
  Bemenet:
  4
  10
  10.5
  6.8
  11.2275

  Kimenet:
  4.000
  6.008
  10.000
  10.005
  11.227

• #2431 klambi addikt

  Új Válasz 2011-03-29 09:09:16 #2431

  Ú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

  

  klambi

  addikt

  kaptunk egy feladatot, csak egy algoritmust kéne rá csinálni...
  van egy bolt, ismerjük 30 napi bevételét és 30 napi kiadását. döntsük el, hogy van e olyan nap, ha van, akkor melyik nap, amikor veszteséges volt az üzlet.
  bevétel: tömb (1..30:egész)
  kiadás: tömb (1..30:egész)

  pascalban 100éve nem csináltam semmit, tud valaki segíteni?!

• #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 ...

• #2429 bedohazi aktív tag vz12 #2428

  Új Válasz 2011-03-26 12:14:15 #2429

  Ú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

  

  bedohazi

  aktív tag

  válasz vz12 #2428 üzenetére

  Megneztem a szineket de lehet rossuzl latom de feher hattert nem lehet rakni csak szurket, amit be is raktam de ha irni kezdtem akkor kekult el ahogy irtam
  Ha te netan tudod hogy hogy lehet fehe hatterek rakni akkor oszd meg velem is

• #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 ...

• #2427 bedohazi aktív tag vz12 #2426

  Új Válasz 2011-03-25 14:19:28 #2427

  Ú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

  

  bedohazi

  aktív tag

  válasz vz12 #2426 üzenetére

  igen fent elirtam...megprobalom de nem nagy eselyt latok...
  Meg par ehhez nem kapcsolodo kerdes:
  - Mit csinaljak hogy pascalban gepeleskor azonnal jelenjenek meg a beirt betuk akarmilyen gyorsan irok, mert nagyon sokszor akad, szaggat, kesobb jelenik meg a betu mint amikor lenyomtam a billentyut?

  - Valahogy be lehet-e allitani hogy pascalban a hatetr ne kek legyen es sarga betukkel irjak, hanem feher hatter es fekete betuk, mert a szememnek sokkal jobb volna, sokkal atlathatobb?

• #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.

• #2425 bedohazi aktív tag vz12 #2424

  Új Válasz 2011-03-24 17:42:54 #2425

  Ú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

  

  bedohazi

  aktív tag

  válasz vz12 #2424 üzenetére

  Sajnalom, de ezt igy nem nagyon ertem...

  Es az elsore is szivesen latnek egy megoldast, mert biztos nem azt irnatok ami nekem megvan

• #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.

• #2423 bedohazi aktív tag

  Új Válasz 2011-03-24 16:08:16 #2423

  Ú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

  

  bedohazi

  aktív tag

  Udv,
  Van egy n*n -es 2 dimenzios tomb, amit 1 tol n*n ig kell feltolteni szamokkal.
  Ket algoritmusra lennek kivancsi: egyik amelyik balfelso sarokbol indulva a melleketloval parhuzamosan tolti fel a matrixot, es egy amelyik balfelso sarokbol indulva a foatloval parhuzamosan tolti fel a matrixot.

  Az elsore van egy megoldasom, de kivancsi lennek ti hogyan oldanatok ezt meg, a masodikra viszont nincs.
  Itt egy kep hogy mire is gondolok:
  

  Elore is koszonom.

• #2422 badogdoboz csendes tag dany27 #2421

  Új Válasz 2011-03-15 22:16:04 #2422

  Ú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

  

  badogdoboz

  csendes tag

  válasz dany27 #2421 üzenetére

  Ha fizikailag is törölni akarod, akkor sajna újra kell írni az állományt és a törölni kívánt rekordot át kell ugranod.

• #2421 dany27 őstag

  Új Válasz 2011-02-20 17:28:22 #2421

  Ú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

  

  dany27

  őstag

  hali!

  Egy olyan kérdésem lenne hogy mi a legegyszerűbb módja annak hogy típusos állomány x-edik elemét töröljem ? Van rá vmi függvény vagy kézzel kell megírnom az egészet??

  Előre is köszi!

• #2420 heihachi addikt Gyuri16 #2419

  Új Válasz 2011-02-12 13:12:48 #2420

  Ú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

  

  heihachi

  addikt

  válasz Gyuri16 #2419 üzenetére

  Szép

• #2419 Gyuri16 senior tag heihachi #2418

  Új Válasz 2011-02-12 11:55:18 #2419

  Ú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

  

  Gyuri16

  senior tag

  válasz heihachi #2418 üzenetére

  var
  n: integer;
  
  begin
  writeln('Az elso hany paros szam osszeget szeretned tudni?');
  readln(n);
  writeln('Az elso ',n,' paros szam osszege: ', n*(n+1));
  readln;
  end.

  

  nekem nem szokasom rogton mukodo kodot adni, jobban szeretem ravezetni a kerdezot a megoldasra

• #2418 heihachi addikt Ultimate #2410

  Új Válasz 2011-02-12 10:48:01 #2418

  Ú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

  

  heihachi

  addikt

  válasz Ultimate #2410 üzenetére

  program otvenparos;
  uses crt;
  var
  i : integer;
  o : integer;
  begin
  clrscr;
  o := 0;
  for i := 1 to 50 do o:= o+2*i;
  writeln('Az elso otven paros szam osszege: ', o);
  end.

• #2417 RedSign tag Gyuri16 #2416

  Új Válasz 2011-02-12 10:47:55 #2417

  Ú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

  

  RedSign

  tag

  válasz Gyuri16 #2416 üzenetére

  Lehet, hogy máshogy jár az agyunk...

• #2416 Gyuri16 senior tag RedSign #2415

  Új Válasz 2011-02-12 10:43:37 #2416

  Ú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

  

  Gyuri16

  senior tag

  válasz RedSign #2415 üzenetére

  ok, mar ertem mire kellett kulon i es j. ugy is mukodhet, csak szerintem bonyolultabb.

• #2415 RedSign tag Gyuri16 #2414

  Új Válasz 2011-02-12 10:31:57 #2415

  Ú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

  

  RedSign

  tag

  válasz Gyuri16 #2414 üzenetére

  ha gondolod bemasolhatod a veglegest es megnezem, mert RedSign megoldasa nem tul jo.. (egyreszt le se fordulna, ha lefordulna vegtelen ciklus lenne. azon kivul nem az elso otven szamot nezi, hanem csak otvenig a parosakat)

  Már közel 15 éve nem programoztam TP-ban, tehát esélyes hogy le sem fordul vagy végtelen ciklusba fut... ...szerintem az első 50-et néz, csak éppen kimaradt a while-ból egy i := i+1; ...

• #2414 Gyuri16 senior tag Ultimate #2412

  Új Válasz 2011-02-12 10:15:05 #2414

  Ú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

  

  Gyuri16

  senior tag

  válasz Ultimate #2412 üzenetére

  ha gondolod bemasolhatod a veglegest es megnezem, mert RedSign megoldasa nem tul jo.. (egyreszt le se fordulna, ha lefordulna vegtelen ciklus lenne. azon kivul nem az elso otven szamot nezi, hanem csak otvenig a parosakat)

  en inkabb ilyen ciklust hasznalnek:

  for i:=1 to 50 do
  begin
  szam:=2*i;
  // itt szamolod az osszeget
  end;

  igy nem kell szurni a feleslegeseket, raadasul egyertelmubb, hogy pont 50 szamot general. mas megoldas egy while ciklus, ahol a ciklusvaltozot mindig kettovel noveled, igy is megsporolod az ifet.

  masik dolog, hogy illik inicializalni a valtozoidat, konkretan az osszeg valtozoban nem tudod mi van az elejen, jo lenne nullazni az elejen

• #2413 RedSign tag Ultimate #2412

  Új Válasz 2011-02-12 08:31:46 #2413

  Ú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

  

  RedSign

  tag

  válasz Ultimate #2412 üzenetére

  Nincs mit, szuper... ;-)

• #2412 Ultimate csendes tag RedSign #2411

  Új Válasz 2011-02-12 08:17:03 #2412

  Ú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

  

  Ultimate

  csendes tag

  válasz RedSign #2411 üzenetére

  Köszönöm!
  Nem teljesen jó, de elvezetett a megoldáshoz!

• #2411 RedSign tag Ultimate #2410

  Új Válasz 2011-02-12 07:09:01 #2411

  Ú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

  

  RedSign

  tag

  válasz Ultimate #2410 üzenetére

  Régen volt már a TP, de szerintem valami hasonló (tesztelve nincsen, ha hibás valaki javítsa, köszönöm!):

  program paros;
  uses crt;
  var i,j,osszeg: integer;
  begin
  clrscr;
  writeln('Az első 50 páros szám:');
  i=1;
  j=1;
  while i<50 do
  begin
  if j mos 2=0 then osszeg:=osszeg+j;
  j:=j+1;
  end;
  gotoxy(1,7);
  writeln('Összegük:');
  writeln(osszeg);
  readln;
  end;
  end.

• #2410 Ultimate csendes tag

  Új Válasz 2011-02-11 17:05:43 #2410

  Ú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

  

  Ultimate

  csendes tag

  Tudna segíteni valaki egy egyszerű for ciklusus programban?
  Az a feladat, hogy ki kell írni az első 50 páros szám összegét.

  program paros;
  uses crt;
  var i,osszeg: integer;
  begin
  clrscr;
  writeln('Az első 50 páros szám:');
  for i:=1 to 10 do
  if i mos 2=0 then
  write(i,' ');
  begin
  ...
  ...
  gotoxy(1,7);
  writeln('Összegük:');
  writeln(osszeg);
  readln;
  end;
  end.

  Megcsinálná valaki, hogy jó legyen?

• #2409 bedohazi aktív tag Gyuri16 #2408

  Új Válasz 2010-12-06 21:22:00 #2409

  Ú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

  

  bedohazi

  aktív tag

  válasz Gyuri16 #2408 üzenetére

  ezer koszonet

• #2408 Gyuri16 senior tag bedohazi #2406

  Új Válasz 2010-12-06 20:12:13 #2408

  Ú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

  

  Gyuri16

  senior tag

  válasz bedohazi #2406 üzenetére

  1. if c in ['a'..'z'] then valtozo1:=true;
  kellenek oda az aposztrofok, kulonben hibat jelez.
  ezt egyszerubben le lehet irni igy is (elozo esetben ha a feltetel nem teljesul a valtozo1 erteke az marad ami elotte volt, ami nem mindig jo):
  valtozo1 := c in ['a'..'z'];
  a kerdes itt csak a kifejezes volt, tehat a valasz ez:
  c in ['a'..'z']

  2. pascal tud stringeket osszehasonlitani a klasszikus =,<,>,<=,>=, <> operatorokkal, ezek tobbnyire olyan eredmenyt adnak, mint amire az ember szamit. tehat ha s1 es s2 string, akkor lehet ilyen ifet irni:
  if s1>s2 then
  { s1 lexikografikusan nagyobb mint s2 }
  else
  { s2 a nagyobb vagy a ketto egyenlo }

  ebben mar csak a kiiratas hianyzik, remelem az mar megy

  #2407: nincs yahoom, mas van, de most nincs idom privatban ezzel foglalkozni. ide szivesen irok valaszt amikor epp raerek.

• #2407 bedohazi aktív tag

  Új Válasz 2010-12-06 19:00:32 #2407

  Ú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

  

  bedohazi

  aktív tag

  gyuri16, egy yahoo id-t kaphatok?

• #2406 bedohazi aktív tag

  Új Válasz 2010-12-06 18:59:16 #2406

  Ú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

  

  bedohazi

  aktív tag

  Valaki megoldana ezeket, vagy elmagyarazna? Koszonom
  1. Irjatok egy pasacal kifelyezest, amely akkor es csak akkor true ha a char tipusu c valtozo an angol ABC egy kisbetujet tartalmazza?
  Igy jo:? if c in [a..z] then valtozo1:=true:?

  2. Az s1 es s2 valtozok karaktertalc tipusuak. ird meg azt az utasitassorozatot, amely a ket karakterlancot abc-sorrendbe(lexikografikus novekvo sorrendbe) egy szokozzel elvalasztva a kepernyore irja. Pl ha s1 a mama karakterlac, s2 a macara, akkro a kepernyore a macara mama-t irja ki.

• #2405 bedohazi aktív tag

  Új Válasz 2010-12-01 18:52:36 #2405

  Ú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

  

  bedohazi

  aktív tag

  na koszi a valaszokat, kiprobalom, s majd irok hogy mi a helyzet

• #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.

• #2403 Gyuri16 senior tag bedohazi #2400

  Új Válasz 2010-12-01 11:02:37 #2403

  Ú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

  

  Gyuri16

  senior tag

  válasz bedohazi #2400 üzenetére

  nem talalja a GRAPH.TPU-t, akkor a directoriesban hozza kell adnod a unitshoz azt a konyvtarat, ahol ez a fajl van. ahogy vz12 irta, az osszes .tpu fajlt meg kell tudnia talalnia a pascalnak, ezert keresd meg oket (siman windows explorerrel, vagy akarmivel), es add hozza a konyvtarakat (vesszovel elvalasztva). ha az iskolaban a bgi konyvtar is ott volt a unitsban add hozza te is - nem lesz baj, ha tobb konyvtar van ott, ez csak annyit tesz, hogy azokban keresi a unitokat.
  exe & tpu dirnek szerintem egy sajat (uj) konyvtarat adj meg, mert ide fogja forditani a te programjaid

  #2401: nem tudom mi az, csak a google dobta. viszont ha a szolgaltatod rakta fel, akkor lehet kell a halozatba bejelentkezeshez, oket kerdezd meg.

• #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.

• #2401 bedohazi aktív tag Gyuri16 #2398

  Új Válasz 2010-11-30 20:15:13 #2401

  Ú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

  

  bedohazi

  aktív tag

  válasz Gyuri16 #2398 üzenetére

  Elolvastam amit linkeltel, es erdekesnek is tartom... mert amiota bekottek az uj netet es a munaksemberek el is inditottak a gepen, miutan ezt azt 'klikkelgettek"(habar tudom mit mert mar raktam ujra a netet de nem errol van szo...), azota a Cntrol Panelben van egy ilyen nevezetu ikon :"CSNW" aza client service for netware. HA raklikkelek kettot akkor azt dobja ki, hogy The service has not been started. Ez meg nem is baj de amiota ez megjelent, azota gepindulaskor elojon az az ablak, ahol a gep nevet kell megadni es a jelszavat, de nalam a jelszo mezo ures es nemis kell semmit beirjak, csak okezzak. Ez abban rossz hogy a gep "magatol" nem indul bem, s ha ki akarom kapcsolni , start menunel shut downro megyek, akkor ott is elojon az az ablak ahol egy lenyilo fullel ujbol ki kelll kivalasztani a a shud downt, mig eddig a starbol a shutdownra menve elszurkult a kepernyo es csak a kozespso shud down ikonra kellet klikkelni. Ugy gondolom hogy ez a ket ablak indulaskor es kikapcsolaskor a CSNW muve, s at megoldottam valahogy, hogy indulaskor ne kelljen okezni(de amugy is elojon az ablak, csak el is tinik oke nelkul), de a kikapcsolaskor mar nem tudtam eltuntetni, ezt a CSNW-t sehol se tudtam torulni, s nem is tudom mit jelent s ezert a pascal miatt meg egyenlore nem torulom le a linkben leirtak szerint, nehogy valami legyen a nettel vagy valamivel.
  Akkor megmondanad, hogy a csnw mi is az es lehet-e torulni?

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