 | | |
 | Stránka: 1 z 1
| [ Príspevkov: 7 ] | |
| Autor | Správa |
|---|
Registrovaný: 13.05.10
Prihlásený: 15.05.10
Príspevky: 4
Témy: 1 |  Napísal joyko: 13.05.2010 9:32 | |
|
Zdravím páni,
potreboval by som pomôcť s prekladačom do šifrovanej reči "papepipopu" t.j. napríklad zo slova dobre to spraví dopodrepe.
Takže princíp je ten, že program rozloží slovo na hlásky po tom nájde v slove písmeno a,e,i,o,u a ku každému priradí pa,pe,pi,po,pu. Keby napíšem len if príkazy pod seba tak mi to robí pre každé slovo samostatné takže by som ich tam mal 5x jedno a v každom len pa alebo pe atď... treba to nejak spraviť cez príkaz "case" aby to našlo dokopy a vypísalo len jedno slovo celé už v preklade. Dostal som sa len po case a tam som sa zasekol neviem čo ďalej. Tak ak by som Vás mohol poprosiť o pomoc a niekto keby nad tím porozmýšľal bol by som Vám moc vďačný 
Tu je časť toho programu:
Kód: program prekladac;
uses crt;
var slovo,po_hlaskach:string;
i,dlzka:integer;
vyraz:string;
begin
clrscr;
writeln ('Zadaj slovo');
readln(slovo);
dlzka:=length(slovo);
po_hlaskach:='';
(*
for i:=1 to dlzka do
begin
po_hlaskach:=po_hlaskach+copy(slovo,i,1);
if copy(slovo,i,1)='o' then po_hlaskach:=po_hlaskach+'po';
end;
*)
case vyraz of
'a': for i:= 1 to dlzka do
begin
po_hlaskach:=po_hlaskach+copy(slovo,i,1);
if copy(slovo,i,1)='a' then po_hlaskach:=po_hlaskach+'pa';
end;
'e': for i:= 1 to dlzka do
begin
po_hlaskach:=po_hlaskach+copy(slovo,i,1);
if copy(slovo,i,1)='e' then po_hlaskach:=po_hlaskach+'pe';
end;
'i': for i:=1 to dlzka do
begin
po_hlaskach:=po_hlaskach+copy(slovo,i,1);
if copy(slovo,i,1)='i' then po_hlaskach:=po_hlaskach+'pi';
end;
'o': for i:=1 to dlzka do
begin
po_hlaskach:=po_hlaskach+copy(slovo,i,1);
if copy(slovo,i,1)='o' then po_hlaskach:=po_hlaskach+'po';
end;
'u': for i:=1 to dlzka do
begin
po_hlaskach:=po_hlaskach+copy(slovo,i,1);
if copy(slovo,i,1)='u' then po_hlaskach:=po_hlaskach+'pu';
end;
end;
writeln(po_hlaskach);
readln
end.
To čo je v komentári je len pre jedno písmeno...tak to treba spraviť ako som písal vyššie pre všetky a neviem stým pohnúť.
Ďakujem za skorú pomoc 
P.S.: Potreboval by som to minimálne do konca budúceho týždňa.
Ak by niekto nerozumel tomu čo som napísal o čo tam ide a chcel by pomôcť kľudne ss alebo tu v topicu napíšte.
Dúfam, že tento topic nie je v rozpore s pravidlami
|
|
Registrovaný: 13.05.10
Prihlásený: 15.05.10
Príspevky: 4
Témy: 1 | Napísal autor témy joyko: 14.05.2010 9:22 | |
|
70 prezretí a nikto mi nevie pomôcť? 
|
|
Registrovaný: 29.10.08
Prihlásený: 30.07.12
Príspevky: 933
Témy: 2 | Napísal coldak: 14.05.2010 9:56 | |
|
si robis prdel ? ides kanonom na vrabca ?
Kód: po_hlaskach:= StringReplace(slovo,'a','apa',[rfReplaceAll,rfIgnoreCase]);
po_hlaskach:= StringReplace(po_hlaskach,'e','epe',[rfReplaceAll,rfIgnoreCase]);
po_hlaskach:= StringReplace(po_hlaskach,'i','ipi',[rfReplaceAll,rfIgnoreCase]);
po_hlaskach:= StringReplace(po_hlaskach,'o','opo',[rfReplaceAll,rfIgnoreCase]);
po_hlaskach:= StringReplace(po_hlaskach,'u','upu',[rfReplaceAll,rfIgnoreCase]);
|
|
Registrovaný: 29.10.08
Prihlásený: 30.07.12
Príspevky: 933
Témy: 2 | Napísal coldak: 14.05.2010 10:13 | |
|
ak predsa len chces pouzit kanon tak aspon mensej raze
Kód: program prekladac;
uses crt;
var slovo,po_hlaskach:string;
i,dlzka:integer;
vyraz:string;
P : Pchar;
begin
clrscr;
writeln ('Zadaj slovo');
readln(slovo);
dlzka:=length(slovo);
po_hlaskach:='';
p := pchar(slovo);
for I := 0 to dlzka - 1 do begin
po_hlaskach := po_hlaskach + P[i];
case P[i] of
'a','e','i','o','u' : po_hlaskach := po_hlaskach +'p'+P[i];
end;
end;
writeln(po_hlaskach);
readln
end.
|
|
Registrovaný: 13.05.10
Prihlásený: 15.05.10
Príspevky: 4
Témy: 1 | Napísal autor témy joyko: 14.05.2010 11:00 | |
|
tak ďakujem Vám moc pekne
no určite je viac možností a dá sa to aj bez case-u len profesor povedal, že to máme spraviť cez case tak som sa zasekol... ešte raz dík teda
|
|
Registrovaný: 29.10.08
Prihlásený: 30.07.12
Príspevky: 933
Témy: 2 | Napísal coldak: 14.05.2010 11:10 | |
|
no ved v druhom priklade mas case
|
|
Registrovaný: 13.05.10
Prihlásený: 15.05.10
Príspevky: 4
Témy: 1 | Napísal autor témy joyko: 14.05.2010 11:13 | |
|
coldak píše: no ved v druhom priklade mas case viem však preto som veľmi ďakoval 
|
|
| Stránka: 1 z 1
| [ Príspevkov: 7 ] | |
Podobné témy | | Témy | Odpovede | Zobrazenia | Posledný príspevok |
|---|
 | Free Pascal a Turbo Pascal v Assembler, C, C++, Pascal, Java | 0 | 385 | 19.12.2014 13:18 Styracoz  | | Prekladač v Ostatné programy | 0 | 456 | 12.01.2012 14:19 patrikos68 |  | Prekladac Nickov [ Choď na stránku: 1 ... 5, 6, 7 ] v Krčma | 196 | 11442 | 10.04.2012 9:29 Commodor | | Prekladac reci v Ostatné | 1 | 796 | 26.08.2009 18:47 PietroLM | | Elektronický prekladač v Dovolenka, cestovanie a turistika | 1 | 941 | 10.02.2022 14:30 liqua1 | | Chrome + prekladac v Sieťové a internetové programy | 2 | 574 | 01.07.2011 12:57 capricorn7 |  | Vlastný prekladač v PHP, ASP | 6 | 392 | 23.12.2012 21:22 shaggy | | Prekladač do Opery ? v Sieťové a internetové programy | 2 | 840 | 21.03.2007 16:03 Whistler | | prekladac www stranok v Sieťové a internetové programy | 1 | 569 | 31.10.2009 18:52 majky358 | | Microsoft spustil online prekladač v Novinky | 2 | 993 | 10.09.2007 15:56 Poki | | Prekladac ako plugin do browsera v Ostatné programy | 4 | 544 | 20.03.2010 22:36 mathias | | Prekladac na C++ pre Linux v Assembler, C, C++, Pascal, Java | 5 | 673 | 10.06.2009 19:24 Flexor28 | | poradte prekladač a program na sťahovanie v Sieťové a internetové programy | 0 | 310 | 26.12.2010 11:36 milosb | | Ako aktivovať integrovaný prekladač v Chrome v Sieťové a internetové programy | 2 | 406 | 14.10.2019 20:59 Mike_99 | | pascal v Assembler, C, C++, Pascal, Java | 11 | 1289 | 07.04.2007 16:50 programator | | pascal v Assembler, C, C++, Pascal, Java | 2 | 1106 | 09.03.2007 14:08 misolax |
| 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
|
|
