Помогите сделать лабораторную работу.

[ckasa4396]

Целой переменной h присвоить третью с конца цифру в записи положительного
целого числа k.
* Определить, может ли окружность радиуса R пройти прямоугольное отверстие со
сторонами a, b.
* Рассчитайте 𝑦 = 𝑛(𝑛 + 1)/2 , где n – произвольное целое число, вводимое из
клавиатуры;
* Рассчитайте
𝑧1 = cos 𝛼 + sin 𝛼 + 𝑐𝑜𝑠 3𝛼 + sin 𝛼
𝑧2 = 2√2 cos 𝛼 ∙ sin(
𝜋
4
+ 2&#120572
* Выполнить задание 5 (страница 20) согласно варианту по таблице 1.

[macomics]

Сообщение от ckasa4396

Целой переменной h присвоить третью с конца цифру в записи положительного
целого числа k.

format ELF
entry $
mov eax, 3
xor ebx, ebx
lea ecx, [number_buffer]
mov edx, number_buffer.Length
int 128 ; Вызов функции ввода из консоли
test eax, eax
js error_input ; Функция ввода вернула код ошибки
mov ebx, ecx
mov ecx, eax
@@:
mov dl, [ebx + ecx - 1]
sub dl, '0'
cmp dl, 10
sbb dl, dl
loopnz @b ; Петля проверки ввода (ввели число)
test dl, dl
jnz error_input ; Введено не число
lea edx, [h]
mov cl, [ebx + eax - 3]
mov [edx], ecx ; Присвоили переменной h
mov eax, 1
xor ebx, ebx
int 128
segment readable writeable
h rd ?
number_buffer rb 64
number_buffer.Length = $ - number_buffer

Сообщение от ckasa4396

* Определить, может ли окружность радиуса R пройти прямоугольное отверстие со сторонами a, b.

format ELF
entry $
call @f
mov eax, 1
xor ebx, ebx
int 128
@@:
mov eax, [a]
mov edx, [R]
cmp eax, [b]
cmovg eax, [b]
add edx, edx
cmp eax, edx
mov eax, 4
mov ebx, 1
jc @f
lea ecx, [otvet0]
mov edx, otvet0.Length
int 128
retn

otvet0 db 'Окружность проходит через отверстие'
otvet0.Length = $ - otvet0

@@:
lea eсx, [otvet1]
mov edx, otvet1.Length
int 128
retn

otvet1 db 'Окружность не проходит через отверстие'
otvet1.Length = $ - otvet1

segment readable writeable
a dd 10
b dd 20
R dd 25

Сообщение от ckasa4396

* Рассчитайте �� = ��(�� + 1)/2 , где n – произвольное целое число, вводимое из клавиатуры;

format ELF
entry $
mov eax, [n]
imul eax
add eax, [n]
adc edx, 0
shrd eax, edx, 1
shr edx, 1
mov dword [y + 0], eax
mov dword [y + 4], edx
mov eax, 1
xor ebx, ebx
int 128

n dd 512

segment readable writeable
y rq ?

Сообщение от ckasa4396

* Рассчитайте
��1 = cos �� + sin �� + ������ 3�� + sin ��
��2 = 2√2 cos �� ∙ sin(
��
4
+ 2��)

format ELF
entry $
fld [��]
fld st0
fadd st0, st0
fadd st0, st1
fcos
fxch st1
fsincos
faddp st2, st0
fadd st0, st0
faddp st1, st0
fstp [z1]
mov eax, 1
xor ebx, ebx
int 128

�� dd 0.05

segment readable writeable
z1 rd 1

; формула не читается

Сообщение от ckasa4396

* Выполнить задание 5 (страница 20) согласно варианту по таблице 1.

Задание 5. Учебник математики за 2 класс: Выучить таблицу умножения до 10 - невозможно выполнить команду "забыть таблицу умножения".

[digitalis]

А оно ему надо - на ассемблере ?

[macomics]

Раз язык не указал, тогда выбор языка за мной. Не такие уж и длинные программы получились на ассемблере.

[digitalis]

По опыту знаю: асм изучают только на IT-специальностях, а всякие там машиностроители или мукомольные довольствуются Дельфи или С несплюснутыми - "оно мне и не надо вроде, но пусть будет" .