NOVINKA - Online rekvalifikační kurz Python programátor. Oblíbená a studenty ověřená rekvalifikace - nyní i online.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.
Avatar
Lukáš Belza
Člen
Avatar
Lukáš Belza:28.1.2017 16:52

Ahoj, mohl by mi prosím někdo poradit, proč nefunguje inttostr?

//Zašifrování
procedure Zasifruj;
var i : integer;
text : string;
x : integer;
hodnoty : string;
n, e, p, q : integer;
y : string;
begin
read(text);
//vygenerování klíče
p := 29;
q := 41;
e := 17;
// konec
n := p * q;
for i := 1 to length(text) do
begin

if ord(text[i]) > 99 then
begin
Y := IntToStr(ord(tex­t[i]));
hodnoty := hodnoty + y;
end;
writeln(hodnoty);
end;
break;
end;

 
Odpovědět
28.1.2017 16:52
Avatar
Martin Dráb
Tvůrce
Avatar
Odpovídá na Lukáš Belza
Martin Dráb:28.1.2017 21:42

Co znamená "nefunguje"?

Nahoru Odpovědět
28.1.2017 21:42
2 + 2 = 5 for extremely large values of 2
Avatar
bujna.tomas
Člen
Avatar
bujna.tomas:29.1.2017 21:35

Teda čudesný kód, ale nevidím tam žiadny problém.

 
Nahoru Odpovědět
29.1.2017 21:35
Avatar
Martin Dráb
Tvůrce
Avatar
Odpovídá na bujna.tomas
Martin Dráb:30.1.2017 0:41

To právě také záleží dost na obsahu proměnné text. Pokud v ní jsou jen velká písmena, případně malá písmena a, b, c, nebo čísla, tak se IntToStr ani nezavolá. Proto jsem se ptal, co znamená výraz "nefunguje" :-)

Nahoru Odpovědět
30.1.2017 0:41
2 + 2 = 5 for extremely large values of 2
Avatar
Lukáš Belza
Člen
Avatar
Lukáš Belza:7.4.2017 2:09

problem solved - v programu chybělo uses sysutils

 
Nahoru Odpovědět
7.4.2017 2:09
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 5 zpráv z 5.