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

• #2666 bucsupeti senior tag zetecR #2665

  Új Válasz 2016-11-01 09:34:58 #2666

  Ú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 zetecR #2665 üzenetére

  Szia

  C:\.........\FreePascal\FPC\bin\i386-win32\fp.exe

• #2660 bucsupeti senior tag thyeby #2657

  Új Válasz 2015-12-27 09:41:54 #2660

  Ú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 thyeby #2657 üzenetére

  Miért nem használsz Free Pascal-t ? Mindent tud amit a TP és nincsenek ilyen problémák.

• #2652 bucsupeti senior tag anorche1 #2651

  Új Válasz 2014-02-18 11:05:47 #2652

  Ú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 anorche1 #2651 üzenetére

  pontosan mire vagy kíváncsi? Alprogram = szubrutin. Ez alapján úgy értelmezem hogy az eljárásokról és a függvényekről szeretnél valamilyen leírást.
  Bármilyen Pascal könyvben olvashatsz ezekről részletesen.
  Szerintem ez megfelel neked: Programozzunk Turbo Pascal nyelven

  Ha konkrét kérdésed van, akkor írj és segítünk (segítek).

• #2648 bucsupeti senior tag kemkriszt98 #2647

  Új Válasz 2013-11-12 19:09:44 #2648

  Ú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 kemkriszt98 #2647 üzenetére

  A számokat összerakod egy sztringbe aztán végigiterálsz rajta és a megfelelő 10 hatványával megszorzod a számot. Nyilván a dolog a real értékhatárok között tud működni.

  Pl:
  szam='54321'
  length(szam) -> 5 tehát a 5-1 =4 azaz 10^4lesz a legmagasabb helyi értéked.
  végigjárod a sztringet és szorzod az aktuális karakter számértékét 10^valahányadikonnal amit összegzel egy változóban.
  Miután végigjártad az összegzett érték a szám értéke lesz.

• #2644 bucsupeti senior tag vz12 #2643

  Új Válasz 2013-11-03 08:04:28 #2644

  Ú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 vz12 #2643 üzenetére

  így van! sőt ha a.blokkban begin end; között csak egy utasítás van akkor a begin end is elhagyható.

• #2639 bucsupeti senior tag kemkriszt98 #2637

  Új Válasz 2013-11-02 20:37:35 #2639

  Ú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 kemkriszt98 #2637 üzenetére

  azért mert a c:=true végéről.hiányzik a ;

• #2636 bucsupeti senior tag Mr. Erikszon #2635

  Új Válasz 2013-11-01 22:03:27 #2636

  Ú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 Mr. Erikszon #2635 üzenetére

  nem sok.
  a turbo és a borland szinte ugyan az. a borland pascal tartalmazza a win32 programozáshoz szükséges dolgokat is. a nyelv szempontjából teljesen egyforma a TP és BP.
  A free pascal egy szabad szoftver. kompatibilis a borland rendszerekkel, de vannak eltérések. a free pascalnak van dos, win32 és linux változata is.

  tanulásra mindegyik megfelelő.

• #2631 bucsupeti senior tag Mr. Erikszon #2630

  Új Válasz 2013-10-29 08:04:34 #2631

  Ú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 Mr. Erikszon #2630 üzenetére

  Hova jársz suliba? Ez valamilyen középiskola?

• #2620 bucsupeti senior tag Mr. Erikszon #2618

  Új Válasz 2013-10-28 21:44:00 #2620

  Ú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 Mr. Erikszon #2618 üzenetére

  meg lehet csinálni egyetlen változóval is (a bekért szám).
  Ha olvashatóra akarod írni akkor 7 változót is csinálhatsz....

  Kérdés hogy mi a cél.

• #2617 bucsupeti senior tag Mr. Erikszon #2616

  Új Válasz 2013-10-28 21:33:52 #2617

  Ú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 Mr. Erikszon #2616 üzenetére

  a "most jön a gubanc" helyére kell beírni azt amit az előbb leírtam.
  

• #2615 bucsupeti senior tag Mr. Erikszon #2613

  Új Válasz 2013-10-28 21:26:08 #2615

  Ú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 Mr. Erikszon #2613 üzenetére

  A megoldás:
  tezres=szam egészosztás 10000
  ezres=(szam-tezres) egészosztás 1000)
  szazas=(szam-tezres-ezres) egészosztás 100
  tizes=(szam-tezres-ezres-szazas) egészosztás 10
  egyes=szam-tezres-ezres-szazas
  új szám=tezres*1000+ezres*100+tizes*10+egyes

  Ezt kell átírni pascal-ba. Gondolom az azért nem okoz problémát....

  Egy kis segítség:
  div : egészosztás művelet. Használata itt van leírva.

• #2614 bucsupeti senior tag Mr. Erikszon #2613

  Új Válasz 2013-10-28 21:06:22 #2614

  Ú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 Mr. Erikszon #2613 üzenetére

  bemásolnád ide hogy meddig jutottál?

• #2611 bucsupeti senior tag Mr. Erikszon #2610

  Új Válasz 2013-10-28 19:41:57 #2611

  Ú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 Mr. Erikszon #2610 üzenetére

  én meg tudnám oldani, de attól nem fog jobban menni neked az infó. inkább segítenék neked.
  meddig jutottál el a problémában? le tudnád írni magyarul hogy hogyan oldanád meg a feladatot?

• #2505 bucsupeti senior tag bucsupeti #2504

  Új Válasz 2011-10-04 12:06:20 #2505

  Ú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 bucsupeti #2504 üzenetére

  Program karakterszamolo;
  
  uses crt;
  
  var
  c: char;
  csillag: integer;
  szokoz: integer;
  kerdojel: integer;
  db: integer;
  
  begin
  csillag:=0;
  kerdojel:=0;
  szokoz:=0;
  db:=0;
  
  writeln('Karakterek olvasása = jelig');
  
  repeat
  c:=readkey;
  write(c);
  db:=db+1;
  if c='*' then csillag:=csillag+1;
  if c=' ' then szokoz:=szokoz+1;
  if c='?' then kerdojel:=kerdojel+1;
  until c = '=';
  
  writeln('Csillagok száma: ',csillag);
  writeln('Szóközök száma: ', szokoz);
  writeln('Kérdőjelek száma: ', kerdojel);
  writeln('Összes leütött karakter: ',db);
  
  end.

• #2504 bucsupeti senior tag SpeederX #2503

  Új Válasz 2011-10-03 22:21:16 #2504

  Ú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 SpeederX #2503 üzenetére

  Szia!

  Íme a megoldás:

  változók:
  név: C, típus:karakter, funkció: beolvasott karakter tárolása, jelleg: munkaváltozó
  név: csillag, típus: egész, funkció: csillagok száma, jelleg: munka/kimeneti
  név: szokoz, típus: egész, funkció: szóközök száma, jelleg: munka/kimeneti
  név: kerdojel, típus: egész, funkció: kérdőjelek száma, jelleg: munka/kimeneti
  név: db, típus: egész, funkció: bevitt karakterek száma, jelleg: munka/kimeneti

  algoritmus:
  csillag=0
  kerdojel=0
  szokoz=0
  db=0
  KI:"Karakterek olvasása =-ig"
  
  ISMÉTELD
  be: C
  db=db+1
  HA C=="*" AKKOR csillag=csillag+1
  HA C==" " AKKOR szokoz=szokoz+1
  HA C=="?" AKKOR kerdojel=kerdojel+1
  AMÍG C == "="
  
  KI: "Csillagok száma: ", csillag
  KI: "Szóközök száma: ", szokoz
  KI: "Kérdőjelek száma: ", kerdojel

  Remélem a Pascalra történő átírás nem okoz problémát.

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

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