| | |
| Stránka: 1 z 1
| [ Príspevkov: 6 ] | |
Autor | Správa |
---|
Registrovaný: 13.05.07 Prihlásený: 21.01.08 Príspevky: 5 Témy: 2 |
Vytvorte program na kódovanie textu posunutím o jeden znak vpravo (Zz -> Aa) a dekódovanie textu posunutím o jeden znak vľavo (Aa -> Zz). Ľubovoľný text sa zadá z klávesnice.
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
bože, šak to je jednoduché.. dúfam že nie si aj ty z tej istej školy ako asi polovica tohto fora a nepotrebuješ to do zajtra, lebo sa mi nechce... ale je to tak na 20 riadkov a dosť
|
|
Registrovaný: 13.05.07 Prihlásený: 21.01.08 Príspevky: 5 Témy: 2 | Napísal autor témy Peto670: 13.05.2007 21:26 | |
|
Potrebujem to sice do zajtra, keby sa ti chcelo mohol by si pomoct bol by som vdacny, tento program mam spraveny ale nie celkom odladeny jeden znak, teda Z mi robí problemy nevypisuje A ale zatvorku.
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
tak to sem hoď a ja ti to upravím, nechce sa mi to celé písať. Stačí tam dať podmienku, že ak (ord(vstup[I])>90) or (ord(vstup[I])>122) tak od nového odráta 65 alebo 97
|
|
Registrovaný: 13.05.07 Prihlásený: 21.01.08 Príspevky: 5 Témy: 2 | Napísal autor témy Peto670: 13.05.2007 21:59 | |
|
Program sifra;
Var veta: string;
K: integer;
Function sifruj (veta:string):string;
Var sif_veta:string;
I, posun: integer;
Z: char;
Begin
Sif_veta:=’’;
For i:=1 to length(veta) do
Begin
Posun:=ord(veta[I])+k;
If posun> 90 then z:=chr(posun-26) else z:chr(posun);
Sif_veta:=sif_veta+z;
End;
Function desifruj(veta:string):string;
Var desif_veta: string;
I, posun:integer;
Z:char;
Begin
Desif_veta:=’’;
For i:=1 to length(veta) do
Begin
Posun:=ord(veta[I])-k;
If posun<65 then z:=chr (posun+26) else z:=chr(posun);
Desif_veta:=desif_veta+ z
End;
Begin
Radln (veta);
Writeln (‘ zasif veta: ‘, sifruj(veta));
Writeln (‘ desif veta: ‘, desifruj(veta));
End.
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
1) zdrojáky dávaj do code, lebo je to inak neprehladné
2) mal si tam dost preklepov, chýbal ti end a plno chýb tam bolo..
Kód: program sifra;
Var veta: string; Function sifruj (veta:string):string; Var sif_veta:string; I, posun: integer; Z: char; Begin Sif_veta:=''; For i:=1 to length(veta) do Begin Posun:=ord(veta[I])+1; If (posun=91) or (posun=122) then z:=chr(posun+26) else z:=chr(posun); Sif_veta:=sif_veta+z; End; sifruj:=sif_veta; end;
Function desifruj(veta:string):string; Var desif_veta: string; I, posun:integer; Z:char; Begin Desif_veta:=''; For i:=1 to length(veta) do Begin Posun:=ord(veta[I])-1; If (posun=91) or (posun=122) then z:=chr(posun-26) else z:=chr(posun); Desif_veta:=desif_veta+ z; End; desifruj:=desif_veta; end;
Begin write('Veta: '); Readln (veta); Writeln (' zasif veta: ', sifruj(veta)); Writeln (' desif veta: ', desifruj(sifruj(veta))); End.
všimne si posledný riadok: Writeln (' desif veta: ', desifruj(sifruj(veta)));
ty musíš dešifrovať zašifrovanú vetu, inak to nemá význam. Aj keby máš funkciu šifruj zle, tak desifruj ti vypíše vždy do isté lebo tam posielaš pôvodný reťazec a nie ten zašifrovaný. (dalo by sa to spraviť aj inak, efektívnejšie ale keď si si vybral túto cestu..) A tiež si v každej funkcii zabudol vrátiť výsledný reťazec. iba si ho tam pospájal a nepredal si ho na vypísanie v tele funkcii.
|
|
| Stránka: 1 z 1
| [ Príspevkov: 6 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Program v PASCAL-e v Assembler, C, C++, Pascal, Java | 9 | 1400 | 01.06.2006 14:34 D.I.Y. | | Program v PASCAL-e v Assembler, C, C++, Pascal, Java | 2 | 1403 | 19.06.2006 14:52 ertin | | PASCAL funkcia, prosim pomoztie mi v Assembler, C, C++, Pascal, Java | 11 | 488 | 05.05.2010 14:07 coldak | | pascal pomoc v Assembler, C, C++, Pascal, Java | 0 | 923 | 12.06.2007 13:07 gorky22 | | pascal pomoc v Assembler, C, C++, Pascal, Java | 7 | 689 | 31.08.2009 14:04 juho | | Pascal pomoc v Assembler, C, C++, Pascal, Java | 2 | 842 | 14.12.2008 11:11 noff | | pomoc pascal pole [ Choď na stránku: 1, 2 ] v Assembler, C, C++, Pascal, Java | 31 | 3501 | 31.01.2009 11:24 neutronmind | | Pascal pomoc so zdrojakom v Assembler, C, C++, Pascal, Java | 5 | 667 | 16.12.2008 10:24 noff | | Pascal podmienka ak lezi v poli... pomoc v Assembler, C, C++, Pascal, Java | 2 | 379 | 11.12.2011 13:42 Blackhair | | pomoc pomoc prosim nefunguje internet v Ovládače | 7 | 1141 | 09.09.2017 20:37 Smith Wesson | | prosím pomôžte mi s e-mailom v Webhosting a servery | 5 | 698 | 16.12.2008 7:48 stenley | | Nove PC okolo 1400 E, prosim poradte. v PC zostavy | 18 | 1308 | 30.04.2011 2:10 uni.corn | | PC + Monitor max. 600,-e ( poradte, prosim ) v PC zostavy | 10 | 775 | 15.02.2011 22:33 dushan | | Creative E-MU 0202 USB - Pomôžte prosím!!! v Zvuk | 0 | 270 | 10.02.2013 15:45 gilberty23 | | NAVIGACIA okolo 200 E - Prosim o radu v Notebooky a netbooky | 0 | 266 | 25.05.2010 12:52 Matou | | Prosim Prosim POMOC [ Choď na stránku: 1, 2 ] v Antivíry a antispywary | 43 | 1655 | 16.12.2013 19:55 Mandy |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|