Pascal a C = pole znakov

char jmeno_pole[delka_pole] = {'znak1','znak2', ...};

dik toto si na google viem najst aj ja, ale pytal som sa uplne nieco ine.

nechcem, aby na 1. mieste bol znak1, na 2. mieste znak2..atd
chcem, aby na 'A' mieste bol znak1, na 'B' mieste znak2..atd

Pak teda

pole['A'] = znak1;
pole['B'] = znak2;

Místo 'A' můžeš dosadit ordinální hodnotu, což je 65, za 'B' 66 apod. Pokud to tam chceš naskládat nějak automaticky, napiš si cyklus.

hm.. to nie je dost vyhodne :(( kua, mne stale pride, ze pascal je lepsi

ok, diky za cas

char pole[] = { '+', '/' , ... };

Pri prístupe k poľu musíš upraviť index (pole[index_z_pascalu - 'A']).

Zrovna toto by som nepovažoval za argument v prospech Pascalu voči jazyku C.

Uděláš si pole, které bude od ASCII 0 do 255, takže
pole = array[0..255] of Char;
Na místa, kam chceš jiné znaky si napíšeš jiné znaky, např. na pozici znaku 'A' zapíšeš do pole '+'
Budeš přistupovat na index, který by mělo písmeno 'A' a z pole si přečteš ten jiný znak:

jiny_znak := pole[Ord('A')];

Pokud to chceš skutečně od A-Z, pak můžeš, ale budeš to používat:

var
  znak: char;
begin
  znak := 'A'
  jiny_znak := pole[Ord(znak)-Ord('A')];
end;

V podstatě na to nepotřebuješ ani pole, stačí obyčejný řetězec, na který je možné přistupovat podle indexu:

var
  s, klic, vysledek: string;
  i: Integer;
begin
  klic := '+/§í8,;´=%87654323#$%^&**();¤\][/><...';  // tohle je místo znaků klic := 'ABCDEF...'
  s := 'TOHLE CHCI ZASIFROVAT';
  vysledek := '';
  for i := 1 to Length(s) do
    vysledek := Vysledek + klic(ord(s[i])-ord('A'));
  ShowMessage(vysledek);
end;