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: Vybrať všetko
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.Ď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.
