Posun znaku – Pascal – Fórum – Programujte.com

Mam taky dotaz, mam v premennej typu char nacitany urcity znak a akym sposobom mam zadat programu aby znak posunul o napr. 3 znaky dalej? Mam urobit program ktory mi zadane slovo zasifruje tak ze kazde pismenko posune o zadany pocet znakov.

To pista:
Na to budeš asi potrebovať 2 funkcie: ORD(char) ktorá ti vracia ascii hodnotu znaku a CHAR(int) ktorá zase vypisuje znak prislúchajúci int-u. Prebehneš vetu cyklom, načítaš znaky, pripočítaš posun a vypíšeš.

To Nosko:diki ale ja som fakt zaciatocnik nemozes pls. dat nejaky priklad ako to pouzit?

To Nosko:diki ale ja som fakt zaciatocnik nemozes pls. dat nejaky priklad ako to pouzit?

No v pascale som už nerobil nejaký ten rôčik, ale nejak takto snáď

String veta;

int i,p,posun;



Readln("Zadaj vetu",veta);

Readln("O kolko posunut?",posun);



for(i=0; i<veta.length; i++)

 begin

    p=ORD(veta[i]);

    p+=posun;

    write(CHAR(p));

 end;

To Nosko: No tak takhle určitě ne. To cos napsal by mohlo možná fungovalo ale prvně by takovej jazyk musel existovat. Jelikož tvůj kód kombinuje c a pascal (možná i něco dalšího). Nic ve zlým. Bohužel i já sem už spíš navykl na c a c++ ale zkusím naspat něco méně inovativního.

uses crt;

var retezec:array[1..120] of char;

      posun, i:integer;



begin

i := 1;

write('Zadej text: ');

repeat

read(retezec[i]);

inc(i);

until (ord(retezec[i]) = {ordinální číslo enteru})or(i = 120);

writeln;

write('Zadej posun: ');

readln(posun);

for i := 1 to 120 do

retezec[i] := char(ord(retezec[i]) + posun);

end.

Hej, pozerám práve na ten môj "pseudo jayzk" :)) , to už je tak, 4 roky pascal na gymnáziu, potom na výške 1/2 roka C a ďaľší 1/2 roka java :p

To Matrix17:diki a prosim co mam dat namiesto toho znak?

To pista: Je toho sem si nevšim ord(retezec[i]). Promiň toho sem si nějka nešim. Hned to opravím. Ještě by se to dalo vylepšit, že těch 120 by se dala jako konstanta a tím bys mohl ten řetězec zkrátit nebo prodloužit bez složitých změn zdrojáku.
PS: Možná by to šlo řešit i jinak ale tohle je první co mě napadlo.

toto sa mu nejako nepaci i:=inc(i); pise to: Error: Incompatible types: got "VOID" expected "LONGINT"

To pista:ma tam byt miesto toho len inc(i);

Jak sem psal je to z hlavy. Už sem opravil i tuhle chybu.

program sifrovani;

const posun=3;

var retezec:string;

    i:byte;

BEGIN

write('Zadej retezec: ');

readln(retezec);

for i:=1 to length(retezec) do retezec[i]:=chr(ord(retezec[i])+posun);

writeln('Vysledek je: ',retezec);

readln; {program skonci po stisknuti enteru}

END.

for i:=1 to length(retezec) do inc(retezec[i],posun);

A kdybys to "inc(retezec[i], posun)" přepsal do assembleru, tak by ses vyhnul možnosti přetečení ordinální hodnoty pro ASCII kódy > 252 (pro posun=3)
Tedy:

const posun = 3;

var s:string;

    i:integer;

begin

s:='ahoj';

writeln(s);

for i:=1 to Length(s) do

    asm

    lea si,s

    add si,i

    mov ax,posun

    add ds:[si],al

    end;

writeln(s);

readln;

end.