Спасибо конечно. Как посчитать теперь примерно понял. Только вот мля я со стековой памятью не разобралсо, т.к. после вычисления надо ее отлаживать. Да и как вообще ее сделать.
Вот что я пока смог написать:
title prog.asm
stackseg segment stack
db 32 dup(?)
stackseg end s
datesg segment
msg1 db 10,13, "Введите Xn $"
msg2 db 10,13, "Введите Xk $"
msg3 db 10,13, "Введите Xd $"      'Сам не понял почему вводится Xd, т.к. дельта х должен подсчитываться Xd=Xk-Xn, но препод сказал так делается(мож он ипанулсо?)?'
viv db 10,13, "Сумма= $"
buf db 3,0,0,0,0,0
val Xn dw 0
val Xk dw 0
val Xd dw 0
val y dw 0
datesg ends
codeseg segment
main proc far
assume ds:datesg, cs:codesg, ss:stacksg
push ds
sub ax
push ax
mov ax, datesg
mov ds,ax
Больше бля сделать ничАвО нимагу. Три лекции было по ассемблеру, никуя ничему не научили, даж язык толком не знаю. Щас ещё  эту прогу надо сделать. Памагите !!

Спасибо !

Мдееее, что же делать !!            

Debug нас препод учил делать через командную строку командой -R. Сейчас ищу нормальный дебаггер.... Сегодня ещё винт взял на 120Гб, т.к. VB.NET некуда было устанавливать и sp2 на sata hdd не ставилсо =)) Теперь дрова сижу качаю - диск от матери сюда не привез =)).
Завтра пойду за книжкой по VB.NETу, а по ассемблеру я накачал лекций, чуть понимать начал.

Отредактировано SteeL.team # Asus (2006-12-19 19:34:06)

title prog.asm   ;начало программы
stacksg segment stack  ;Инициализация стековой памяти в сегменте стека
db 64 dup (?);стек типа word на 64 байта заполненный символами
stacksg ends;конец стекового сегмента
datasg segment;сегмент задания переменных
m1 db 'Vvedite X $';ввод значения Xn с клавиатуры
db 10,13,'$'10–возвращает каретку в начало строки,13 – сдвигает каретку на строку ниже
m2 db 10,13,'Vvedite X konech $' ввод значения Xk с клавиатуры, типа byte
db 10,13,'$';10–возвращает каретку в начало строки,13 – сдвигает каретку на строку ниже
m22 db 10,13,'Vvedite delta X $' ввод значения Xm с клавиатуры, тип byte
db 10,13,'$''  ;10–возвращает каретку в начало строки,13 – сдвигает каретку на строку ниже
m3 db '     X               Y $'
db 10,13,'$'''  ;10–возвращает каретку в начало строки,13 – сдвигает каретку на строку ниже
D dw ?  начальное, типа word, изначальное значение
yn dw 1  значение числителя дроби, типа word, изначальное значение
N dw ? шаг приращения, типа word, изначальное значение
y dw ? конечное, типа word, изначальное значение
t dw ? значения знаменателя дроби, типа word, изначальное значение
xd dw ?
xk dw ?
ft10 dw 1
ten dw 10
sr db 6 dup(0),'$'
srk db 10,13,'$'
srb db 10 dup (0), '$'
buf db 5,0,0,0,0,0,0,0 буфер типа byte на 5 символа
datasg ends;конец сегмента задания переменных
codesg segment;сегмент кодов
assume cs:codesg, ds:datasg, ss:stacksg Назначение сегментных регистров в сегменте кодов
main proc far Организация главной программной процедуры, far (за пределами одного сегмента)
push ds ;запись значения DS в стек
sub ax,ax ;вычитание АХ из АХ – обнуление АХ
push ax;запись значения AX в стек
mov ax,datasg;помещение datasg в регистр AX
mov ds,ax;Запись адреса префикса программного сегмента (PSP) в стек
mov ah,9; запрос на ввод xn
mov dx,offset m1 помещает значение смещения адреса Xn в регистр DX
int 21h;выполняет прерывание № 21Н программы
mov AH,0AH ввод xn, 0 – ввод с клавиатуры
mov dx,offset buf;помещает значение смещения адреса буфера в регистр DX
int 21h;выполняет прерывание № 21Н программы
call str2bin;вызов процедуры str2bin
mov d,di;помещает значение DI в xn
mov ah,9;запрос на ввод xk
mov dx,offset m2;помещает значение смещения адреса Xk в регистр DX
int 21h;выполняет прерывание № 21Н программы
mov AH,0AH;ввод xk, 0 – ввод с клавиатуры
mov dx,offset buf;помещает значение смещения адреса буфера в регистр DX
int 21h;выполняет прерывание № 21Н программы
call str2bin;вызов процедуры str2bin
mov xk,di;помещает значение регистра DI в xk
mov ah,9;запрос на ввод xm
mov dx,offset m22;помещает значение смещения адреса Xm в регистр DX
int 21h;выполняет прерывание № 21Н программы
mov AH,0AH;ввод xm, 0 – ввод с клавиатуры
mov dx,offset buf;помещает значение смещения адреса буфера в регистр DX
int 21h;выполняет прерывание № 21Н программы
call str2bin;вызов процедуры str2bin
mov xd,di;помещает значение регистра DI в xm
mov ah,9
mov dx,offset srk
int 21h выполняет прерывание № 21Н программы
mov ah,9
mov dx,offset srk
int 21h выполняет прерывание № 21Н программы
mov ah,9
mov dx,offset m3
int 21h выполняет прерывание № 21Н программы
mov ah,9
mov dx,offset srk
int 21h выполняет прерывание № 21Н программы
rach: mov AX, D;Расчёт y. Помещает в регистр AX значение 
mul D;умножает значение регистра D на xn, т.е. 
mov y,ax
mov ax,5;помещает в регистр AX число 5
mul y;умножает значение регистра, т.е.  5*xn*xn
mov y,ax;помещает значение в регистр y значение ax
mov ax,2;помещает в регистр AX число 2
sub y,ax;вычитает из значения регистра yзначение ax, т.е. 5*xn*xn - 2xn
mov ax,3;помещает в регистр AX число 3
add y,ax;прибавляет к значению регистра AX число 5, т.е. 5*xn*xn – 2xn +3
mov ax,y;помещает в регистр AX значение y
mov ax,d;помещает в регистр AX значение d
mov n,ax;помещает в регистр n  значение ax
inc n
mov ax,y;помещает в регистр AX значение y
div n;делит значение регистра
mov y,ax;помещает в регистр y значение ax
mov ah,9
mov dx,offset srk
int 21h выполняет прерывание № 21Н программы
mov ax,d;помещает в регистр ax  значение d
call bin2str;вызов процедуры bin2str
mov ah,9
mov dx,offset sr
int 21h выполняет прерывание № 21Н программы
mov ah,9
mov dx,offset srb
int 21h выполняет прерывание № 21Н программы
mov ax,y;помещает в регистр AX значение y
mul yn
mov yn,ax
call bin2str;вызов процедуры bin2str
mov ah,9
mov dx,offset sr
int 21h выполняет прерывание № 21Н программы
call bin2str;вызов процедуры bin2str
mov ax,xd;помещает в регистр AX значение xd
add d,ax ;прибавляет к значению регистра d значение ax,
mov ax,d;присваивает переменной   получившееся значение
cmp ax,xk;сравнивает значение AX( + ) c   (конечное значение)
jle rach;если AX  , то переход к метке raschet, jump if less
ret ;конец процедуры                 
bin2str proc near;процедура bin2str в пределах одного сегмента
mov si,offset sr+54   ;процедура перевода двоичного кода в код ASCII с предварительным обнулением поля
pr2: sub dx,dx ;метка,  вычитание dx из dx – обнуление dx   
mov [si],dl;помещает значение из dl в [si]
dec si;уменьшение si на 1
cmp si,offset sr;сравнивает si и поле sr, offset возвращает смещение адреса поля
ja pr2;jump if above,смотрится результат предыдущей операции, если выше, то переход к pr2
mov cx,10;помещает число 10 в регистр CX
mov si,offset sr+5
pr1: xor dx,dx ;метка, логическое исключающее ИЛИ           
div cx ;делит значение регистра AX на СХ, результат – в DL, остаток – в DH
or dl,30h;логическое сложение операндов, устанавливается 1 в тех битах операнда dl, в которых была 1 хотя бы у одного из операндов
mov [si],dl;помещает значение dl в [si]
dec si;уменьшает значение si на 1
cmp ax,0;ax сравнивается с нулём, признак сравнения записывается в регистр флагов
jne pr1;jump not equal, если ax не равен 0, то переход к метке pr1
ret ;конец процедуры, выход из неё       
bin2str endp;конец процедуры bin2str       
str2bin proc near;процедура перевода ASCII-кодов в двоичный код в пределах одного сегмента
mov ft10,1;помещает значение 1 в ft10   
xor DI,DI;логическое исключающее ИЛИ
mov cx,10;помещает значение 10 в CX
lea si,buf+1
xor bh,bh;логическое исключающее ИЛИ     
mov bl,[buf+1] ;помещает значение [buf+1] в bl
pr3: mov al,[si+bx] ;метка, помещает значение [si+bx]  в al   
and ax,0fh;логическое умножение битов операндов, устанавливается значение 1 в тех битах операнда ax, в которых у обоих операндов были 1
mul ft10;умножение значения регистра AX на ft10,результат–в AX(младшие) и DX(старшие)
add DI,ax;сложение DI и ax, результат – в DI
mov AX,ft10;помещает значение ft10 в регистр AX
mul ten ;умножение значения регистра AX на ten,результат–в AX(младшие) и DX(старшие)
mov ft10,AX;помещает значение регистра AX в ft10   
dec bx;уменьшает значение регистра BX на 1     
jnz pr3;если BX не равно 0 – переход к pr3, jump not zero
ret ;конец процедуры, выход из неё       
str2bin endp;конец процедуры str2bin
main endp;конец главной процедуры main
codesg ends;конец сегмента кода
end main;Закрытие главной процедуры main, сегмента кодов, конец программы
Вот с бодуна а хоть что-то сделал! Остался VB.NET. Да и Pascal ща посмотрю.

Отредактировано SteeL.team # Asus (2006-12-26 23:07:16)

Сейчас твою посмотрю 

В проге все правильно, вроде даже  правильно работает.А преподичка у вас дура! Если завтра скажет где у тебя ошибка была, то поделись, мне тож интересно...

А вообще у меня проблема сейчас самая жопская, по которой всех наша преподичка завалила - VB.NET

Отредактировано SteeL.team # Asus (2006-12-24 18:55:50)