Witam, od razu zaznaczam, że dopiero rozpoczynam przygodę z programowaniem. Mój problem polega na braku pomysłu jak użyć funkcji w programie, przewertowałem google, ale żaden z podanych przykładów na różnych forach nie przydaje się w moim przypadku. Oto kod:
program szyfr;
uses crt;
var znak:char;
c:integer;
function Cezar(z:char; d:integer):char;
var c:integer;
begin
if z in ['A'..'Z'] then
begin
c:=ord(z) +d;
if c>90 then c:=c-26;
if c<65 then c:=c+26;
Cezar:=char(c);
end
else Cezar :=z
end;
//begin
write('podaj cos: ');
readln(znak);
write(Cezar(znak));
readln;
end.
end;//
Część pisana kursywą/między slashami jest częścią napisaną przeze mnie. Reszta w ramach ćwiczeń ściągnięta z netu. Problem polega na braku wiedzy JAK wykorzystać tą funkcję aby wpisany znak był kodowany w ten najprostszy z możliwych szyfrów. Zmianę z char na string rozumiem w razie jakbym później chciał zamiast znaków kodować słowa.
Pozdrawiam
srss