الغورينم مجنني

موضوع: الغورينم مجنني الجمعة مارس 25, 2011 9:10 am

EX:01
un des anciens systémes de cryptogrzphie; consiste à décaler les lettres d'un message pour le rendre illisible .ainsi les A deviennent des B
les B deviennent des C
.............

Exemple
BONJOUR--------- CPMKPVS

- Ecrivez un algorithme qui demande une phrase à l' utilisateur et la code selon ce principe
- programmes cet algorithme en langage pascal

ممكن مساعدة في هذا التمرين

مضى وقت طويل على طرحك للموضوع، الخوارزمية والبرنامج موجودين عندي إن أردت أكتبها في الرد

program Decal;
uses crt;
var S1,S2: string[20];
c,d: char;
i: integer;
Begin
writeln('*******************************************************');
writeln('*DECALGE CRYPTO BY_Hadiya1 * X *');
writeln('*******************************************************');
gotoxy(0,4);
write('Entrez votre phrase ici (ne depasse pas 80 caracteres: ');
readln(S1);
S2:='';
for i:=1 to length(S1) do
Begin
c:=S1[i];
d:=Succ(c);
S2:=S2+d;
End;

writeln('Votre phrases resultante: ',S2);
readln;
end.

آسف جدا على التأخير وإليك الخوارزمية التي طلبتها وهي كيما يقولو شغالة، اشتغلت عندي على Dev-Pas ومجربة شكرا،

وفقك الله ورعاك يا أختاه.
السلام عليكم.

إن استعصت عليك أمور فاستفسري سأشرح لك، مفهوم