FINÁLNÍ VÝPRODEJ KREDITŮ na ITnetwork je tady. Využij poslední šanci a získej až 80 % extra kreditů ZDARMA na náš interaktivní e-learning. Zjisti více:
NOVINKA: Kurz kybernetické bezpečnosti s akreditací MŠMT, nyní již od 0 Kč. Staň se žádaným profesionálem. Zjisti více:
Avatar
TomBen
Tvůrce
Avatar
TomBen:12.5.2013 18:18

Tak je tady třetí jednoduché zadání, které vám umožní procvičit
mozkové závity a trochu potrénovat na jiné, větší projekty.
Připomínám, že za tři splněné rozcvičky je nárok na odměnu.
Je zadána do výroby klíčenka s originálně raženou mincí
Gamedesigner's Star. První kusy této klíčenky získají právě úspěšní
řešitelé alespoň tří Rozcviček. Pro druhou a třetí rozcvičku je povolen
jakýkoliv programovací jazyk. Pouze musí být výsledek běžně spustitelný,
abych ho mohl ověřit.

A teď už k zadání.
Vyrobte převaděč běžných čísel ( celá přirozená desítková arabské číslice )
na ŘÍMSKÉ ČÍSLICE. Nechte si zadat ručně vstup, vypište výsledek. :-)

Příklad:
http://uloz.to/…Td/riman-exe

Editováno
Odpovědět
12.5.2013 18:18
Za posledních 200 miliónů let se nic zvláštního nestalo, akorát dinosauři vymřeli a opice se naučily programovat.
Avatar
Theodor Johnson
Tvůrce
Avatar
Odpovídá na TomBen
Theodor Johnson:12.5.2013 18:54

http://uloz.to/…dectorim-exe

zdrojáky ti pošlu do PM

 
Nahoru Odpovědět
12.5.2013 18:54
Avatar
TomBen
Tvůrce
Avatar
Odpovídá na Theodor Johnson
TomBen:12.5.2013 19:30

Vypadá to OK, ještě si projdu zdroják, když mi pošleš heslo
a už ti chybí jen jedna splněná rozcvička do odměny. :-)
Dvojka ještě není uzavřená, takže máš šanci.

Nahoru Odpovědět
12.5.2013 19:30
Za posledních 200 miliónů let se nic zvláštního nestalo, akorát dinosauři vymřeli a opice se naučily programovat.
Avatar
TomBen
Tvůrce
Avatar
TomBen:12.5.2013 19:59

Takže loapmail splněno. :-)

Nahoru Odpovědět
12.5.2013 19:59
Za posledních 200 miliónů let se nic zvláštního nestalo, akorát dinosauři vymřeli a opice se naučily programovat.
Avatar
Martin Bednář (xbedm01)
Tvůrce
Avatar
Martin Bednář (xbedm01):17.5.2013 8:50

Kdy je deadline?

Nahoru Odpovědět
17.5.2013 8:50
I bez motta se dá žít
Avatar
TomBen
Tvůrce
Avatar
Odpovídá na Martin Bednář (xbedm01)
TomBen:17.5.2013 16:39

Už jsem se to chystal uzavřít, ale můžu vydržet do neděle večera,
jestli to chceš zkusit. :-)
Akorát už jsou uzavřené ty předchozí dvě rozcvičky, takže je pozdě
na odměnu - ta byla za tři splněné.

Nahoru Odpovědět
17.5.2013 16:39
Za posledních 200 miliónů let se nic zvláštního nestalo, akorát dinosauři vymřeli a opice se naučily programovat.
Avatar
Martin Bednář (xbedm01)
Tvůrce
Avatar
Odpovídá na TomBen
Martin Bednář (xbedm01):17.5.2013 16:54

Klidně to uzavři, zjistil jsem, že na to stejně asi nemám...

Nahoru Odpovědět
17.5.2013 16:54
I bez motta se dá žít
Avatar
TomBen
Tvůrce
Avatar
Odpovídá na Martin Bednář (xbedm01)
TomBen:17.5.2013 16:59

Ok.

Nahoru Odpovědět
17.5.2013 16:59
Za posledních 200 miliónů let se nic zvláštního nestalo, akorát dinosauři vymřeli a opice se naučily programovat.
Avatar
TomBen
Tvůrce
Avatar
TomBen:17.5.2013 22:56

Rozcvička uzavřena!
Tento příklad nebyl tak složitý jak možná vypadal.
Od zadaného čísla se odečte nejvyšší možná římská číslice nižší
nebo rovna tomu číslu a její znak se přičte k výstupnímu řetězci znaků.
Postup se opakuje, dokud ze zadaného čísla něco zbývá.
U definice římských číslic je třeba zadat i párové hodnoty s nižší první.

Převodní funkce:

//usage: riman(num)

R[1]='M';   L[1]=1000;
R[2]='XM';  L[2]=990;
R[3]='CM';  L[3]=900;
R[4]='D';   L[4]=500;
R[5]='XD';  L[5]=490;
R[6]='CD';  L[6]=400;
R[7]='C';   L[7]=100;
R[8]='XC';  L[8]=90;
R[9]='L';   L[9]=50;
R[10]='XL'; L[10]=40;
R[11]='X';  L[11]=10;
R[12]='IX'; L[12]=9;
R[13]='V';  L[13]=5;
R[14]='IV'; L[14]=4;
R[15]='I';  L[15]=1;

cislo=argument0;
vystup='';
i=1;

while (cislo>0)
{
repeat (15)
{{ if ((cislo-L[i])>=0) { cislo-=L[i];  vystup+=R[i]; i=1; } else { i+=1; }  } }
}


return(vystup);

exe a zdroják
http://uloz.to/…Td/riman-exe
http://uloz.to/…PD/riman-gmk

Nahoru Odpovědět
17.5.2013 22:56
Za posledních 200 miliónů let se nic zvláštního nestalo, akorát dinosauři vymřeli a opice se naučily programovat.
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Tato diskuze byla označena moderátorem jako nekonstruktivní a myslíme si, že nemá pro veřejnost příliš vysokou hodnotu. Členy můžete samozřejmě stále oslovit soukromě a to formou zpráv nebo chatu.

Zobrazeno 9 zpráv z 9.