[NPRG052] Programovací jazyk Perl - 27.01.2015

Odeslat odpověď

Smajlíci
:D :) :( :o :shock: :? 8) :lol: :x :P :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen:

BBCode je zapnutý
[img] je zapnutý
[flash] je vypnutý
[url] je zapnuté
Smajlíci jsou zapnutí

Přehled tématu
   

Rozšířit náhled Přehled tématu: [NPRG052] Programovací jazyk Perl - 27.01.2015

[NPRG052] Programovací jazyk Perl - 27.01.2015

od Davpe » 27. 1. 2015 22:31

Program k přečtení (snad bez chyby):

Kód: Vybrat vše

while (<>) {
  chomp;
  print /^((\d+ | \((?1)\))([+*-](?2))* )$/ ? "OK
" : "KO
";
}
Program k napsání:
Na vstupu je infixový výraz s operátory +,- a * a s celými čísly. Vyhodnoťe ho.

Výsledek za 3.

Nahoru