NOVINKA! E-learningové kurzy umělé inteligence. Nyní AI za nejlepší ceny. Zjisti více:
NOVINKA – Víkendový online kurz Software tester, který tě posune dál. Zjisti, jak na to!
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.