Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Pascal, integer to string

Zdravím,

prosimvás, jde nějak přiřadit proměnné typu string číselnou hodnotu typu integer?

napr.
var a,d: string;
b, c: integer
begin
read (a);
read (b);
a[0]:= a+b;
a[1]:= a-b;
d:= a[0] + a[1];
writeln (d);
end.

Takto to fungovat nebude (string:=integer).
Děkuji.

Předmět Autor Datum
Omlouvám se, napsal jsem to špatně. Oprava: var a,d: string; b, c: integer begin read (b); read (c)…
ATI16 21.09.2011 16:22
ATI16
Pořád špatně. Oprava2: var a,d: string; b, c: integer begin read (b); read (c); a[0]:= c+b; a[1]:=…
ATI16 21.09.2011 16:23
ATI16
A můžu se zeptat, proč jsou proměnné A a D definovány jako string? Má to nějaký hlubší význam? (např…
touchwood 21.09.2011 16:23
touchwood
Spíš řekni čeho chceš dosáhnout, to se bude radit líp. Mimochodem ti to nebude fungovat asi vůbec, p…
JoDiK 21.09.2011 16:23
JoDiK
Program Prevodz; Program. který bude převádět celá, kladná čísla z desítkové soustavy na dvojkovou…
ATI16 21.09.2011 16:25
ATI16
Aha, tak to na to jdeš celkem složitě - u dvojkové soustavy jsou jen nuly a jedničky, tak neřeš přev…
JoDiK 21.09.2011 16:28
JoDiK
Nenapadá mně jak to provést.
ATI16 21.09.2011 16:29
ATI16
Přece takto (nezapomeň, že to vlastně zjišťuješ od konce): if cele mod 2 =1 then vysledek:='1'+vysle…
JoDiK 21.09.2011 16:32
JoDiK
Děkuju. poslední
ATI16 21.09.2011 16:36
ATI16
Obecně pro převod mezi string a integer jsou konverzní funkce VAL a STR (najdi si v nápovědě)...
JoDiK 21.09.2011 16:26
JoDiK
Mohl by si mi to připsat do toho programu prosimtě?
ATI16 21.09.2011 16:28
ATI16
viz o pár řádků výš...
JoDiK 21.09.2011 16:35
JoDiK

A můžu se zeptat, proč jsou proměnné A a D definovány jako string? Má to nějaký hlubší význam? (např. zkouška z programování)

edit: a ani podruhé ses netrefil. A musí být definováno jako pole.

Program Prevodz;

Program. který bude převádět celá, kladná čísla z desítkové soustavy na dvojkovou soustavu.
Tohle jsem zatím napsal, ale zasekl jsem se na těch datových typech.

var i, a, cele: integer;
vysledek: string;

begin
writeln('Zadej celé kladné číslo v desítkové soustavě,' );
writeln('které bude převedeno do dvojkové soustavy');
readln (cele);

i:=0;
vysledek:='';

while (cele <> 0) do
begin
vysledek[i]:= (cele mod 2);
cele:= cele div 2;
i:=i+1;
vysledek:= vysledek + vysledek[i];
end;
writeln (vysledek);
readln();
end.

Zpět do poradny Odpovědět na původní otázku Nahoru