Zdravím.. Potřebuji pomoct s programem na převod řetězce do morzeovky od nějakého zdatného programátora (lazarus/pascal).Nalezl jsem na webu tenhle krásný krátky program na převod žetězce do morzeovky.Jenomže jsi s aktuálními zkušenostmi nedokážu pobrat co je co.. Ten zvláštně udělaný string a věci okolo Tak a Upcase trochunechápu... Jestli by to nebylo možné že by mi někdo jen krátce řekl co přesně co dělá... (přesněji povysvětlit ty řádky za kterými je červený čtverec.)- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Program projekt_HorakMaska; // Název programu.const // Konstanta (definující počet).Tab: array[A..] of string[6] = ( // Proměná pro čísla.X._,\_...,\_._.,\_..,.,.._.,\__.,..., // Znaky (Morzeovy)...,.___,\_._,._..,\__,._,\___,.__.,-.-, // Znaky (Morzeovy).._.,...,\_,.._,..._,.-,-..-,-.-,-..); // Znyka (Morzeovy).var // Zapsání proměných. S: string; // S do řetězce.XI: byte; // Zapsáni celočíselně.X begin // Začátek programu.write (adej retezec: ); // Zapsání řetězce (Uživatelem).readln(S); // Načtení řetězce S.writeln ( ); writeln ( ); // Úprava vzhledu pro přehlednost.for i:= 1 to length(S) do // Postupné načtení jednotlivých znaků. (For> end Xcase S[I] of // XA..,a..z: write(Tab[Upcase(S[I])],|); //X : write(|); // Zapsání mezer jako čáru. end; // Konec pod programu. (for> end writeln ( ); writeln ( ); writeln ( ); // Úprava vzhledu pro přehlednost.writeln (Pro ukonceni prekladace stiskni ENTER.); // Informace o ukončení (Pro uživatele).readln; // Načtení a ukončení programu.end. // Úplný konec programu.
Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz.
Používáním poradny vyjadřujete souhlas s personifikovanou reklamou, která pomáhá financovat tento server, děkujeme.