program v delphi

miska.myska

Ahojte, potrebovala by som pomoc s jednym programom v delphi. Mojou ulohou je , ze mam zadat slovo a to slovo mi prekonvertuje do morseovky a to tak ze vypise znaky medzi kazdym by mala byt medzera a este aby vypisalo aj slabiky teda napr
priklad vstupu : sos
priklad vystupu : ... --- ...
a este vypise ze, ti-ti-ti tá-tá-tá ti-ti-ti

Prosim vedeli by ste pomoct?

neutronmind

Ved len porovnavaj znaky zadaneho retazca pomocou case a vypisuj ekvivalentne znacky v morzeovke, ako tu http://www.hojko.com/mozreovka-v-c-projekt-t107583.html

miska.myska

lenze tam je to v programe c a nie delphi , viem ze mam pouzit case ale neviem presne ako , som to skusala ale nejak mi to nevypisovalo

napíš (alebo ešte lepšie uploadni) čo máš, a opravíme. Posledné dni som z týcho "urobte mi úlohu"-like ludí dosť zlenivel

a nechce sa mi prepisovať celá morzeovka

miska.myska

Kód: Vybrať všetko

procedure TForm1.Button1Click(Sender: TObject);
var vstup:string;
begin
 vstup:=Edit1.text;
 case vstup of
 'a':Edit2.text:='.- ' + Edit3.text:='ti-tá';
 'b':Edit2.text:='-... '+ Edit3.text:='tá-ti-ti-ti ';
 'c':Edit2.text:='-.-. '+ Edit3.text:='tá-ti-tá-ti ';
 'd':Edit2.text:='-.. '+ Edit3.text:='tá-ti-ti ';
 'e':Edit2.text:='. '+ Edit3.text:='ti ';
 'f':Edit2.text:='..-. '+ Edit3.text:='ti-ti-tá-ti ';
 'g':Edit2.text:='--. '+ Edit3.text:='tá-tá-ti ';
 'h':Edit2.text:='.... '+ Edit3.text:='ti-ti-ti-ti ';
 'i':Edit2.text:='.. '+ Edit3.text:='ti-ti ';
 'j':Edit2.text:='.--- '+ Edit3.text:='ti-tá-tá-tá ';
 'k':Edit2.text:='-.- '+ Edit3.text:='tá-ti-tá ';
 'l':Edit2.text:='.-.. '+ Edit3.text:='ti-tá-ti-ti ';
 'm':Edit2.text:='-- '+ Edit3.text:='tá-tá ';
 'n':Edit2.text:='-. '+ Edit3.text:='tá-ti ';
 'o':Edit2.text:='--- '+ Edit3.text:='tá-tá-tá ';
 'p':Edit2.text:='.--. '+ Edit3.text:='ti-tá-tá-ti ';
 'q':Edit2.text:='--.- '+ Edit3.text:='tá-tá-ti-tá ';
 'r':Edit2.text:='.-. '+ Edit3.text:='ti-tá-ti ';
 's':Edit2.text:='... '+ Edit3.text:='ti-ti-ti ';
 't':Edit2.text:='- '+ Edit3.text:='tá ';
 'u':Edit2.text:='..- '+ Edit3.text:='ti-ti-tá ';
 'v':Edit2.text:='...- '+ Edit3.text:='ti-ti-ti-tá ';
 'w':Edit2.text:='.-- '+ Edit3.text:='ti-tá-tá ';
 'x':Edit2.text:='-..- '+ Edit3.text:='tá-ti-ti-tá ';
 'y':Edit2.text:='-.-- '+ Edit3.text:='tá-ti-tá-tá ';
 'z':Edit2.text:='--.. '+ Edit3.text:='tá-tá-ti-ti ';



 end;

end;

end.

nooo vidíš aká si šikovná

skoro, až na toto:

Kód: Vybrať všetko

'a':Edit2.text:='.- ' + Edit3.text:='ti-tá';

čo je dosť velká kravina. Musíš to dať na dva príkazy

Kód: Vybrať všetko

'a': begin
   Edit2.text:=Edit2.text+'.- ';
   Edit3.text:=Edit3.text+'ti-tá';
end;

ďalej na začiatku budeš musieť edit2 aj edit3 zmazať, inak sa ti pri druhom pokuse bude nabalovať na predchádzajúci, a celé to bude musieť byť v cykle aby sa to robilo pre každé písmeno. Deklaruješ si i:integer; a potom to bude nejak takto:

for i:=1 to length(vstup) do ....

čiže nejak takto (ostatné písmena si dorob analogicky):

Kód: Vybrať všetko

procedure TForm1.Button1Click(Sender: TObject);
var vstup:string;
      i:integer;
begin
 vstup:=Edit1.text;
 edit3.clear;
 edit2.clear;
 for i:=1 to length(vstup) do begin
   case vstup[i] of
      'a': begin
           Edit2.text:=Edit2.text+'.- ';
           Edit3.text:=Edit3.text+'ti-tá'; 
           end;
   end;
 end;
end;

neskúšal som to, ale malo by to ísť. Ak nie, tak napíš

miska.myska

no nejde to nejak vypisuje nejaku chybu

case vstup

miska.myska

funguje

dakujem ti velmi pekne , dam ti ti ten zeleny puntik ako prejav vdaky