Помогите с задачкой для i8080

[Madziba]

Очень нужно написать простую програмку.

(x^2-y^2)/z^2

x=10; y=5; z=15.

Помогите!=)

[qip2005]

var x,y,z: integer;
    u: real;
 begin
 x:=10;
 y:=5;
 z:=15;

u:=(sqr(x)-sqr(y))/sqr(z);
 writeln('u=',u:5:9);
 readln(u);
end.

[Madziba]

Спасибо, но это не то.
Так больше похоже:

;hl = x
;bc = y
;de = z
;Result in HL
Calculate:
push de
push bc
ld bc,hl
xor hl,hl
Loop1:
add de,hl
dec bc
jr nz,Loop1
pop hl
push de
ld bc,hl
xor hl,hl
Loop2:
add de,hl
dec bc
jr nz,Loop2
pop bc
sub de,bc ;(x^2-y^2)
pop hl
push de
ld bc,hl
xor de,de
Loop3:
add de,hl
dec bc
jr nz,Loop3
pop bc ;(x^2-y^2)
xor hl,hl
Loop4:
sub bc,de
ret c
ret z
inc hl
jr Loop4

[qip2005]

Так бы и сказал что ассемблер

[Madziba]

а то что я написал правильно?