Форум программистов, компьютерный форум, киберфорум
Assembler для начинающих
Войти
Регистрация
Восстановить пароль
 
-10 / 0 / 0
Регистрация: 06.10.2019
Сообщений: 3
1
TASM

Определить, является ли введённая строка симметричной

26.10.2019, 09:15. Показов 265. Ответов 2
Метки нет (Все метки)

Окей, спасибо, с 3 символами я разобрался более-менее, а если необходимо определить является ли слово перевертышем?
Прикинул на паскале решение

Pascal
1
2
3
4
5
6
7
8
9
10
var s1,s2:string;
    i:integer;
begin
    readln(s1); s2:='';
    for i:=length(s1) downto 1 do begin
       s2:=s2+s1[i];
    end;
    if s1=s2 then writeln('Перевертыш')
             else  writeln('Hе перевертыш');
end.
А как это на ассемблере представить?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2019, 09:15
Ответы с готовыми решениями:

Определить,является ли введенная строка правильной записью целочисленного шестнадцатеричного числа без знака
Определить, является ли введенная строка правильной записью целочисленного шестнадцатеричного числа...

Определите, является ли введенная строка правильной записью целого шестнадцатеричного числа без знака
Определите, является ли введенная строка правильной записью целого шестнадцатеричного числа без...

Является ли введенная с консоли строка симметричной
Программа определяет, является ли введенная с консоли строка симметричной. Например, строка «казак»...

Строка: Определить, является ли строка симметричной, а может она - палиндром...
Пожалуйста

2
3182 / 1755 / 471
Регистрация: 28.02.2015
Сообщений: 3,569
26.10.2019, 10:55 2
Цитата Сообщение от ale_y Посмотреть сообщение
Прикинул на паскале решение
решение так себе:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  s:string;
  i,j:integer;
begin
  readln(s);
  i:=1;
  j:=length(s);
  while s[i]=s[j] do
    begin
      inc(i);
      dec(j);
    end;
  if j<=i then write('OHO')else write('NOT');
end.
практически тоже будет и на асме.
0
Модератор
Эксперт по электронике
7537 / 3723 / 1459
Регистрация: 01.02.2015
Сообщений: 11,571
Записей в блоге: 2
27.10.2019, 20:30 3
Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
.model tiny
 
.code
 
        org     100h
main    proc
 
        ;программа
        mov     ah,     09h
        lea     dx,     [asPrompt]
        int     21h
        mov     ah,     0Ah
        lea     dx,     [kbdBuf]
        int     21h
        mov     ah,     09h
        lea     dx,     [asCrLf]
        int     21h
 
        lea     si,     [kbdBuf.String]
        mov     di,     si
        xor     cx,     cx
        mov     cl,     [kbdBuf.StrLen]
        jcxz    @@EmptyString
 
        add     di,     cx
        dec     di
        xor     ah,     ah
        @@repeat:
                mov     al,     [si]
                xor     al,     [di]
                or      ah,     al
                inc     si
                dec     di
                cmp     si,     di
        jb      @@repeat
 
        xor     bx,     bx
        cmp     ah,     1
        adc     bx,     bx
        add     bx,     bx
        mov     dx,     Solution[bx]
        mov     ah,     09h
        int     21h
        jmp     @@Exit
 
@@EmptyString:
        mov     ah,     09h
        lea     dx,     [asEmptyString]
        int     21h
@@Exit:
        ;завершение программы
        int     20h
main    endp
 
        ;Данные
        _MAXLEN_        =       80
        asCrLf          db      0Dh, 0Ah, '$'
        asPrompt        db      'Enter a string: ', '$'
        asYes           db      'Yes', '$'
        asNo            db      'No', '$'
        asEmptyString   db      'Empty string', '$'
        Solution        dw      asNo, asYes
        KBD     struc
                MaxLen  db      _MAXLEN_
                StrLen  db      ?
                String  db      (_MAXLEN_+1) dup(?)
        KBD     ends
        kbdBuf          KBD     <>
 
end     main
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.10.2019, 20:30

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Определить,является ли строка симметричной
Определить для строки a&amp; является ли она симметричной, т.е. читается одинаково слева направо и...

Определить, является ли введенная строка палиндромом
Помогите пожалуйста решить задачу! _________________________________ Составьте программу,...

Определить,является ли введённая строка числом
определить,является ли введённая строка числом.Если является,то каким:целым или...

Определить, является ли введенная строка полиндромом
Определить, является ли введенная строка полиндромом (слово, читающееся одинаково слева направо и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.