 | | |
 | Stránka: 1 z 1
| [ Príspevkov: 3 ] | |
| Autor | Správa |
|---|
Registrovaný: 14.12.08
Prihlásený: 07.01.21
Príspevky: 34
Témy: 12 |  Napísal noff: 16.04.2010 11:19 | |
|
Nazdar!
Mám navrhnúť vlastný kódovací systém, ktorý zakóduje podľa určitého mechanizmu ( s použitím aritmetických a logických funkcií) akýkoľvek text a zároveň aby bol schopný dekódovať správy, ktoré boli týmto systémom zakódované.
Mám napísaní takýto program:
No a keď to dám kompilovať tak mi hádže chyby:
Môžete mi niekto pomôcť?
Ďakujem! 
|
|
Registrovaný: 06.04.10
Prihlásený: 18.02.14
Príspevky: 47
Témy: 2 |
Tu je opraveny tvoj kod. Je to pre TurboPascal v7.0. Ty to mas podla tych screenov asi z freePascalu. Ten mozem skusit potom tiez. Ale takto to v TP7 funguje. Inak cestu k suborom musis zadavat celu. Cast kodu tam nemusis mat nakolko je to len inverzna funkcia, takze druhy priklad je lepsi.
Kód: Program TEST03;
uses Crt;
var
VstupnySubor,VystupnySubor: File of Char;
MenoVstupnehoSuboru,MenoVystupnehoSuboru: String;
Ch,Operacia: Char;
BEGIN
ClrScr;
WriteLn ('DEMO program na kodovanie, dekodovanie suboru');
WriteLn;
Write ('Zadaj meno vstupneho suboru: ');
ReadLn (MenoVstupnehoSuboru);
Write ('Zadaj meno vystupneho suboru: ');
Readln (MenoVystupnehoSuboru);
Write ('Zadaj pismeno ''k'' prezakodovanie, alebo pismeno ''d'' pre rozkodovanie: ');
ReadLn (Operacia);
if ((MenoVstupnehoSuboru<>'') and (MenoVystupnehoSuboru<>'')) then begin
if (Operacia='k') then begin
Assign (VstupnySubor,MenoVstupnehoSuboru);
Reset (VstupnySubor);
Assign (VystupnySubor,MenoVystupnehoSuboru);
Rewrite (VystupnySubor);
while not Eof (VstupnySubor) do begin {Kodovanie}
Read (VstupnySubor,Ch);
Ch:=Char ((Ord (Ch) xor 155));
Write (VystupnySubor,Ch);
end;
Close (VstupnySubor);
Close (VystupnySubor);
WriteLn ('Subor bo uspesne zakodovany !');
end
else begin
Assign (VstupnySubor,MenoVstupnehoSuboru);
Reset (VstupnySubor);
Assign (VystupnySubor,MenoVystupnehoSuboru);
Rewrite (VystupnySubor);
while not Eof (VstupnySubor) do begin {Dekodovanie}
Read (VstupnySubor,Ch);
Ch:=Char ((Ord (Ch) xor 155));
Write (VystupnySubor,Ch);
end;
Close (VstupnySubor);
Close (VystupnySubor);
WriteLn ('Subor bo uspesne dekodovany !');
end;
end
else WriteLn ('Musite zadat vstupny a vystupny subor');
END. Varianta c.2 Kód: Program TEST03;
uses Crt;
var
VstupnySubor,VystupnySubor: File of Char;
MenoVstupnehoSuboru,MenoVystupnehoSuboru: String;
Ch: Char;
BEGIN
ClrScr;
WriteLn ('DEMO program na kodovanie, dekodovanie suboru');
WriteLn;
Write ('Zadaj meno vstupneho suboru: ');
ReadLn (MenoVstupnehoSuboru);
Write ('Zadaj meno vystupneho suboru: ');
Readln (MenoVystupnehoSuboru);
if ((MenoVstupnehoSuboru<>'') and (MenoVystupnehoSuboru<>'')) then begin
Assign (VstupnySubor,MenoVstupnehoSuboru);
Reset (VstupnySubor);
Assign (VystupnySubor,MenoVystupnehoSuboru);
Rewrite (VystupnySubor);
while not Eof (VstupnySubor) do begin {Kodovanie}
Read (VstupnySubor,Ch);
Ch:=Char ((Ord (Ch) xor 155));
Write (VystupnySubor,Ch);
end;
Close (VstupnySubor);
Close (VystupnySubor);
WriteLn ('Subor bo uspesne zakodovany !');
end
else WriteLn ('Musite zadat vstupny a vystupny subor');
END.
|
|
Registrovaný: 14.12.08
Prihlásený: 07.01.21
Príspevky: 34
Témy: 12 | Napísal autor témy noff: 17.04.2010 9:32 | |
|
Ano pracujem vo freePascale tak skusim to v turbPascale, dikes za opravenie 
|
|
| Stránka: 1 z 1
| [ Príspevkov: 3 ] | |
Podobné témy | | Témy | Odpovede | Zobrazenia | Posledný príspevok |
|---|
 | Otázka ohľadom pascalu v Assembler, C, C++, Pascal, Java | 4 | 963 | 21.03.2014 13:36 1daemon1  | | Datum do pascalu? v Assembler, C, C++, Pascal, Java | 2 | 714 | 05.06.2007 22:27 Ivan11114 | | prepojenie pascalu a internetu... v Assembler, C, C++, Pascal, Java | 4 | 622 | 14.04.2007 11:30 neznamy |  | Narabanie pascalu s pamatou v Assembler, C, C++, Pascal, Java | 15 | 1106 | 04.11.2007 21:04 TrSek | | potrebujem nieco z pascalu prosiim v Assembler, C, C++, Pascal, Java | 13 | 932 | 04.05.2008 16:25 neutronmind | | NVIDIA nabídne ovladače navyšující výkon všech Pascalů v DX12 v Novinky | 21 | 1124 | 10.03.2017 19:05 kllr007 | | funpic.de v Redakčné systémy | 0 | 695 | 19.05.2007 21:48 AQ | | ohost.de v Webhosting a servery | 3 | 870 | 21.03.2008 10:19 mylan | | EBAY.DE v Obchody, reklamácie a právo | 0 | 6166 | 27.02.2008 20:22 andrejko99 | | RAPIDSHARE.de v Ostatné | 3 | 649 | 26.11.2008 9:51 Ivuso | | Tour de France 2012 v Šport a pohyb | 29 | 1798 | 12.09.2012 23:33 destik |  | Tour de France 2016 v Šport a pohyb | 8 | 621 | 13.07.2016 18:59 Desh99 | | www.Online-Downloaden.de v Obchody, reklamácie a právo | 10 | 1038 | 10.12.2009 21:09 ScorpionSX | | amacon.co.uk/de v Obchody, reklamácie a právo | 0 | 632 | 21.11.2009 19:40 ratchet | | Nakupovanie z DE Amazonu v Obchody, reklamácie a právo | 11 | 1422 | 23.02.2017 22:46 Webess | | asrock p5b-de zapojenie ram v Intel čipové sady | 1 | 346 | 31.07.2014 11:11 Phanteom |
| 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
|
|
