Diskuze: IntToStr

Aktivity

Lukáš Belza

Člen

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(text[i]));
hodnoty := hodnoty + y;
end;
writeln(hodnoty);
end;
break;
end;

Odpovědět

28.1.2017 16:52

Martin Dráb

Tvůrce

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

bujna.tomas

Člen

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

Martin Dráb

Tvůrce

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

Lukáš Belza

Člen

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.