К числу А (тип Integer) введенному с клавиатуры прибавить число 100 - Turbo Pascal

Формулировка задачи:

К числу А (тип Integer) введенному с клавиатуры прибавить число 100.

                    Листинг программы
                
 
                        
                          
                    
var a:integer;
begin
write('Введите а (значения от -32768 до 32768):');
readln(a);
asm
mov ax,a
add ax,100
mov a,ax
end;
writeln('A=',a);
end.

Решение задачи: «К числу А (тип Integer) введенному с клавиатуры прибавить число 100»

Листинг программы

var a: Integer;
begin
  Write('A: '); ReadLn(a);
  asm
    mov ax,100
    add a,ax
  end;
  WriteLn('A= ',a);
end.

Объяснение кода листинга программы

Переменная a объявлена типа Integer.
Выводится сообщение A: для приглашения пользователя ввести число.
Считывается число с клавиатуры и значение переменной a присваивается этому числу.
В ассемблерной вставке asm происходит следующее:
- mov ax,100 перемещает в регистр ax значение 100.
- add a,ax складывает значение переменной a с значением регистра ax (100).
Выводится сообщение A= для отображения результата.
Программа завершается.

Оцени полезность:

13 голосов , оценка 4.077 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы