Из паскаля в ассемблер

Тема в разделе "Другие", создана пользователем Archiserafim, 18 июн 2009.

  1. Archiserafim

    Archiserafim Гость

    Доброго времени суток.
    Не могли бы вы мне помочь с кодом на ассемблере? т.к. с ним пока не очень дружу. Есть код на паскале, как он будет выглядеть на ассемблере?
    Код (Text):
    Const
    A:Array [1..22] Of Char = ('1','H','e','l','l','o','2','W','o','r','l','d','3','I','4','R','u','s','l','a','n','5');

    Var CountWord:Byte;
    I:Byte;
    LongWord:String;
    Flag:byte;
    TempWord:String;

    Begin

    CountWord:=0;
    LongWord:='';
    Flag:=0;
    TempWord:='';

    For I:=1 To 22 Do
    Begin

    If A[i] In ['0'..'9'] Then
    Begin
    If Flag = 1 Then
    Begin
    Inc(CountWord);
    If Length(TempWord) > Length(LongWord) Then LongWord:=TempWord;
    Flag:=0;
    End;
    TempWord:='';
    End

    Else

    Begin
    Flag:=1;
    TempWord:=TempWord+A[i];
    End;

    End;
    WriteLn('Count Word: ',CountWord);
    WriteLn('Long Word: ',LongWord);
    readln;
    End.
     
Загрузка...

Поделиться этой страницей