Diskuze: Převod řetězce do binární soustavy

Ostatní jazyky Delphi Delphi (Pascal) Převod řetězce do binární soustavy

Avatar
dave
Neregistrovaný
Avatar
dave:

poradí někdo program na převod textového řetězce (string) do binární sooustavy.... pls;(

 
Odpovědět 8.5.2013 11:32
Avatar
David Čápka
Tým ITnetwork
Avatar
Odpovídá na dave
David Čápka:

Použij System.Text.UT­F8Encoding, má metodu GetBytes.

Nahoru Odpovědět 8.5.2013 11:41
Miluji svou práci a zdejší komunitu, baví mě se rozvíjet, děkuji každému členovi za to, že zde působí.
Avatar
Petr Nymsa
Redaktor
Avatar
Odpovídá na dave
Petr Nymsa:

Pokud chceš jenom výpis 0 a 1 použij Convert.ToStrin­g(co,2)

string binary = "";
foreach (char p in "AHOJ")
     binary += Convert.ToString(p, 2);

Pokud chceš hodnoty v bytech ze stringu

ASCIIEncoding encode=new ASCIIEncoding();
           byte[] bytes = encode.GetBytes("AHOJ");
Nahoru Odpovědět 8.5.2013 11:44
Pokrok nezastavíš, neusni a jdi s ním vpřed
Avatar
ulzzang
Člen
Avatar
ulzzang:

mam vytvořit program na převod textu (string) do binární soustavy... Ale nevím si rady.... poradí mi někdo.... ma to obsahovat: využít nejdříve desítkové soustavy a následně z desítkové soustavy převést do dvojkové.
Použit cykly. Je nutné zvolit si oddělovač jednotlivých písmen ve slově (například mezeru) a oddělovač jednotlivých slov (například podtržítko).

 
Nahoru Odpovědět 8.5.2013 12:18
Avatar
Petr Nymsa
Redaktor
Avatar
Odpovídá na ulzzang
Petr Nymsa:

Četl jsi řádky nahoře ? oddělovače proč ? K čemu ?

Nahoru Odpovědět 8.5.2013 12:21
Pokrok nezastavíš, neusni a jdi s ním vpřed
Avatar
ulzzang
Člen
Avatar
Odpovídá na ulzzang
ulzzang:

za tím jsem vytvořil jen tohle.. ale nwm jestli je to správně vůbec

program ddd;
uses Crt;
const MEZ = ' '
TEC = '.'
OTA = '?'
VYK = '!'

var X,POM,Y: integer;
VETA:string
begin
ClrScr;
writeln ('Zadej celou vetu: ');
readln (VETA);

 
Nahoru Odpovědět 8.5.2013 12:25
Avatar
ulzzang
Člen
Avatar
Odpovídá na Petr Nymsa
ulzzang:

aby to nehazelo všechny 0a1 vedle sebe , ale aby byly odděleny

 
Nahoru Odpovědět 8.5.2013 12:27
Avatar
David Čápka
Tým ITnetwork
Avatar
Odpovídá na ulzzang
David Čápka:

Co jsi napsal je Pascal, proč to píšeš do vlákna pro C#? Převod z desítkové na dvojkovou je tu obecně popsaný, tak si to přečti: http://www.itnetwork.cz/…lne-soustavy

Jak získat ascii znaky snad víš. Diskuzi přesouvám do Pascala.

Nahoru Odpovědět 8.5.2013 12:32
Miluji svou práci a zdejší komunitu, baví mě se rozvíjet, děkuji každému členovi za to, že zde působí.
Avatar
Petr Nymsa
Redaktor
Avatar
Odpovídá na ulzzang
Petr Nymsa:

No tak snad projedeš výslednou binárku a vždy za 1 nebo 0 přičteš ještě mezeru

Nahoru Odpovědět 8.5.2013 13:05
Pokrok nezastavíš, neusni a jdi s ním vpřed
Avatar
ulzzang
Člen
Avatar
ulzzang:

muže mi někdo poradit.. pořád mi to hází nějaké chyby....

program ukol6;
uses Crt;
var POM,Y:integer;
X:string;
begin
ClrScr;
writeln ('zadej vetu zakoncenou teckou: ');
readln (X);
begin
readln (X);
while X > '.' do
begin
POM:= X div (2));
Y:= X-POM*2;
writeln (Y);
X:=POM
end;
repeat until keypressed;
end;
readln ();
end.

 
Nahoru Odpovědět 8.5.2013 15:29
Avatar
David Čápka
Tým ITnetwork
Avatar
Odpovídá na ulzzang
David Čápka:

1. Zdrojáky vkládej pomocí tlačítka vložit zdrojový kód
2. Přečti si to po sobě ještě jednou, možná ti přijde divné, že tam jsou 2 stejné řádky za sebou.
3. Jak můžeš porovnávat znak většítkem?
4. Proč pojmenováváš proměnné CAPSem?
5. Máš nepárové závorky a i párová by byla zbytečná
6. Co čekáš, že udělá dělení řetězce celým číslem?
7. Nemáš absolutně žádné základy jazyka, hádám, že je to úkol a ty jsi ve škole evidentně hrál hry nebo spal, to je potom těžké.

Nahoru Odpovědět 8.5.2013 15:54
Miluji svou práci a zdejší komunitu, baví mě se rozvíjet, děkuji každému členovi za to, že zde působí.
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 11 zpráv z 11.