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

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

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