Menu Cezar

Mógłby ktoś zrobić Funkcję Menu do Cezara oraz procedure do wywołania jej ??

Ja niestety nie mogę...

kubcio1906 napisał(a)

Mógłby ktoś zrobić Funkcję Menu do Cezara oraz procedure do wywołania jej ??

A może napiszesz coś więcej...? O.o

Proszę:

Function MenuDoCezara: Boolean;
Begin
 Result := False;
End;

Procedure WywolajFunkcjeMenuDoCezara;
Begin
 MenuDoCezara;
End;

Zgodnie z zadaniem - funkcja MenuDoCezara - jest; procedura wywołująca ją - jest.

begin
writeln('###########################################');
writeln('# #');
writeln('# Instrukcja: #');
writeln('# #');
writeln('# 1.Podaj Nazwe pliku Zrodlowego #');
writeln('# 2.Podaj klucz do kodowania cezara #');
writeln('# 3.Podaj nazwe pliku do jakiego #');
writeln('# chcesz zapisac zakodowany tekst #');
writeln('# #');
writeln('###########################################');
writeln('Wybieram');
readln;
writeln('Podaj Nazwe pliku Zrodlowego: ');
readln(plikzrodlo);
list:=TStringList.create;
list:= LoadFromFile(plikZrodlo);
writeln(' ====== Zawartosc Pliku ======= ');
Print(list);

writeln('###########################################');
writeln('# #');
writeln('# Instrukcja: #');
writeln('# #');
writeln('# 1.Podaj Nazwe pliku Zrodlowego #');
writeln('# 2.Podaj klucz do kodowania cezara #');
writeln('# 3.Podaj nazwe pliku do jakiego #');
writeln('# chcesz zapisac zakodowany tekst #');
writeln('# #');
writeln('###########################################');
writeln('Wybieram');
readln;
writeln('Podaj klucz do kodowania cezara: ');
readln(klucz);
Zakodowany:=TstringList.Create;
Zakodowany:=Cezar(list,klucz);
writeln(' ====== Zawartosc Pliku Zakodowanego ======= ');
Print(zakodowany);

writeln('###########################################');

writeln('# #');
writeln('# Instrukcja: #');
writeln('# #');
writeln('# 1.Podaj Nazwe pliku Zrodlowego #');
writeln('# 2.Podaj klucz do kodowania cezara #');
writeln('# 3.Podaj nazwe pliku do jakiego #');
writeln('# chcesz zapisac zakodowany tekst #');
writeln('# #');
writeln('###########################################');
writeln('Wybieram');
readln;
writeln('Podaj nazwe pliku do jakiego chcesz zapisac zakodowany
tekst: ');
readln(plikzakodowany);
SaveTofile(plikZakodowany,Zakodowany);
writeln('Zapisano do pliku.....');
writeln('Dziekuje...');
readln;

end.

tak mam zrobione i chce funkcje menu zrobic ale nie umiem :(
zaraz podesle caly program

kubcio1906 napisał(a)

tak mam zrobione i chce funkcje menu zrobic ale nie umiem

Podpowiem: użyj pętli repeat .. until do zrobienia menu;

kubcio1906 napisał(a)

zaraz podesle caly program

Biorąc pod uwagę to, co przedstawiłeś w poście wyżej lepiej już nic nie podsyłaj i zabierz się do pisania...