1. Уважаемые участники и гости, 19 октября codeby будет работать в режиме "Только чтение". Регистрация новых участников будет закрыта. 20 октября портал продолжит работу в прежнем режиме.

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

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

  1. Archiserafim

    Archiserafim Гость

    Репутация:
    0
    Доброго времени суток.
    Не могли бы вы мне помочь с кодом на ассемблере? т.к. с ним пока не очень дружу. Есть код на паскале, как он будет выглядеть на ассемблере?
    Код:
    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.
     
Загрузка...

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