Pomoc – Pascal – Fórum – Programujte.com

potřeboval bych pomoct.....na vstupu 2 jednociferna cisla, vystup dvojciferne slozene z vstupnich jednocifernych..za odpovědi děkuji.

procedure nieco(x,y:integer);

var s:string;

begin

	s:=IntToStr(x)+IntToStr(y);

	return s;

end;

To sir_arthur : V pascale su procedury tohto typu, na prevod na string je tu procedura Str a na prevedenie na cielsnu hodnotu je tu procedura val

To zeberdee :
nieco taketo....

program cisla;

uses crt;

var a, b, x, y : integer;

    aa, bb, xx : string;

begin

     clrscr;

     write('Zadajte cislo 1 : ');

     readln(a);

     write('Zadajte cislo 2 :  ');

     readln(b);

     str(a,aa);

     str(b,bb);

     xx:=aa+bb;

     val(xx,x,y);

     writeln('V Y S T U P = ',x);

     readln;

end.

:) no super. takze to funguje? snad som teda pomohol.

Proč to dělat jednoduše, když to jde udělat složitě, co?

Šmarjá noho, první číslo prostě vynásob deseti a přičti k tomu to druhé.

mm zaujimave riesenie:) ides na to logicky ako vidim:)

ale teraz ma tak napadlo, ze to tvoje riesenie nie je uplne idealne. nepocita s tym, ze to druhe cislo moze byt 2 a viac ciferne...

Zadání znělo jasně. Nebyl čas lámat si hlavu, kdo je kdo. Chceš říct, soudruhu?... No, dvě dávky.

Zadání znělo jasně: "na vstupu 2 jednociferna cisla, vystup dvojciferne slozene z vstupnich jednocifernych..za odpovědi děkuji."

Druhé číslo tedy 2 a více ciferné být nemůže.

aaaha:) no tak potom sory, nabuduce si precitam zadanie cele:)

Tak ma napadlo prečo jednoducho prvé nevynásobíte desiatimi a k tomu nepripočítate druhé??? Je to jednoduchšie a asi aj rýchlejšie ako konvertovanie na string

Nazdar potřeboval bych pomoct mám delphi 7 a chtěl jsem si podle vašeho návodu na tomto serveru udělat vlastní prohlížeč ale nemám tam tolik palet jak je nakresleno palety začínají od strandart a končí active x co mám dělat potřeboval jsem tam dát komponenta. webbrowser ale nemám ho tam co mám dělat ?
PS.jinak toho delphi7 sem stahoval na officiálních stránkách.
Prosím pomoc:poraďte.

To jozo0025 :
takhle sem to napsal ja a funguje to i pro vice cifer
uses crt;
var x,c:longint; (*x-vysledni cislo, c-cifra*)
begin
writeln('vysledek zobrazite zadanim cisla <0 a >9
repeat
write('Cifra: '); readln(c);
case c of
0..9: x:=c+x*10
else break;
end;
until false;
writeln('vysledek: ',x);
readkey;
end.