prerobenie JS do delphi (7 riadkov)

Ahojte.

Mohol by som prosím niekoho požiadať, aby mi prerobil tento ActionScript do jazyka Delphi?
ActionScript je postavený na jazyku JavaScript, takže sa to podobá. Jedná sa o reverziu čísla pomocou while.

1.) napíšem číslo 123456
2.) cyklus while mi to číslo spracuje
3.) vyhodí otočené číslo 654321

naprogramoval som to iba v ActionScripte, ale delphi neviem.

Kód: Vybrať všetko

var vstupnaHodnota:Number = 123456;
var prevod:String = vstupnaHodnota.toString();
var vystup:String = "";
var i:Number = 1;
while (i<=prevod.length) {
    vystup += prevod.charAt(prevod.length-i);
    i++;
}
//
trace(vystup);//výpis konečnej hodnoty v prostredí flash

Ďakujem Vám.

konzolovo alebo win32?

Ejha, si ma dostal teraz. To netuším. Potrebujem aby ten kód fungoval v Delphi 6 so základným nastavením, ja ten dephi 6 nemám, tak neviem aké je to nastavenie. Ak je problém urobiť obe verzie, tak si vyberám win32.

win32:

Kód: Vybrať všetko

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var vstupnaHodnota,i:integer;
    prevod,vystup:string;
begin
  vstupnaHodnota := 12345;
  prevod := intToStr(vstupnaHodnota);
  vystup := '';
  i := 0;
  while (i<=length(prevod)) do begin
    vystup := vystup + prevod[length(prevod)-i];
    inc(i);
  end;
  showMessage(vystup);
end;

end.

console:

Kód: Vybrať všetko

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var vstupnaHodnota,i:integer;
    prevod,vystup:string;
begin
  vstupnaHodnota := 12345;
  prevod := intToStr(vstupnaHodnota);
  vystup := '';
  i := 0;
  while (i<=length(prevod)) do begin
    vystup := vystup + prevod[length(prevod)-i];
    inc(i);
  end;
  write(vystup);
  readln;
end.

ak ti treba exéčka, tak povedz

Keď núkaš

, tak by to už asi nemal byť pre teba problém to skompilovať. Aspoň budem vidieť, ako to v oboch verziách vyzerá. Ďakujem ti a prepáč, že som založil lamácku tému.

Vstup je needitovateľný, ak ti treba že si vstup môžeš zadať sám tak to musí počkať do zajtra, teraz idem spať lebo o siedmej nevstanem

//a pri tej win aplikácii je mnoho možností ako to zobraziť, ja som to dal do showmessage, ale môže sa to vypísať na form, do title.. takže to sa tiež rozhodni ako chceš

Nie, zatiaľ nepotrebujem. ďakujem za ochotu. Je to pre jednu kamošku, ktorá chodí na gympel a zatiaľ sa učili iba procedúry, a ten debil im dal na úlohu toto, keď ešte ani nevedia pracovať s cyklami. Ak to bude ona potrebovať, tak ak môžem napíšem.

//EDIT
No, takže by som si to predstavoval asi takto

Obe tie flash aplikácie sú funkčné.

Mmartin

winapi

//autoeditácia príspevku (30.11.10, 15:10)
Audio, tvoj algoritmus ma jedinu chybicku, a to vo while nema byt <= ale <, popripadne si mal od length(vstup) odratat este 1, kedze pole sa zacina 0 a length vracia realny pocet znakov, teda o jeden viac ako je v poli. Ale to ty iste vies

Tu mas este konzolove, pridam ti aj kod

Kód: Vybrať všetko

program weroro;
uses
        crt,sysutils;
var
        i:integer;
        vstup:string;
        vystup:string;
begin
        while true do begin
                ClrScr;
                 write('Zadaj vstup: ');
                 readln(vstup);
                 vystup:='';
                 i:=0;
                 while(i<length(vstup)) do begin
                        vystup:= vystup + vstup[length(vstup)-i];
                        inc(i);
                 end;
                 writeln(vystup);
                 repeat delay(500) until keypressed;
       end;

end.

prerobenie JS do delphi (7 riadkov)

prerobenie JS do delphi (7 riadkov)

Re: prerobenie JS do delphi (7 riadkov)

Re: prerobenie JS do delphi (7 riadkov)

Re: prerobenie JS do delphi (7 riadkov)

Re: prerobenie JS do delphi (7 riadkov)

Re: prerobenie JS do delphi (7 riadkov)

Re: prerobenie JS do delphi (7 riadkov)

Re: prerobenie JS do delphi (7 riadkov)