Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2010, 00:21   #1
ser_b
 
Регистрация: 27.05.2010
Сообщений: 4
По умолчанию Треугольник Паскаля. Assembler

Требуется реализовать модуль, который записывает в файл первые пять строчек треугольника Паскаля.
Файл должен вызываться и подключаться в виде макросов.
2ое я вроде собрал, но как воткнуть туда треугольник Паскаля, ума не приложу, матчасть тоже не особо помогла.
Может я сам алгоритм не догоняю, вот код работы с файлами, прошу помощи
Код:
.386
.model SMALL
.stack 100h

dataModule SEGMENT use16
EnKlaw db 10,13,'Нажмите любую клавишу...','$'
Tempath db 10,13,'Введите путь к файлу: ','$'
N dd ?;
OutGoodWrite db 10,13,'Файл успешно обработан!','$'
dataModule ends

PUBLIC ProcessFile
code SEGMENT use16 'code'
assume CS:code,ds:dataModule

;=================ОТКРЫТИЕ ФАЙЛА=================
OpenFile macro
mov ax,3D02h ;открытие файла для записи и чтения
int 21h
endm

;=================ЗАКРЫТИЕ ФАЙЛА=================
CloseFile macro
mov ah,3Eh
int 21h
endm

;============ОПРЕДЕЛЯЕТ ДЛИНУ СТРОКИ============
LengthStr macro
cld ;сканируем от начала к концу
mov cx,0FFFFh ;сканируем максимальное число байт
xor al,al ;пока не найдем ноль
repne scasb ;сканируем...
neg cx
add cx,0FFFEH ;фактически 0FFFFE-CX
endm

;=================ЗАПИСЬ В ФАЙЛ==================
WriteFileStr proc
mov dx,di
LengthStr ;определяем длину строки
mov ah,40h
int 21h
ret
WriteFileStr endp

;=================ПРОЦЕДУРА=====================
START:

ProcessFile proc

OpenFile
jc ErrorOpen


ErrorOpen:
mov ax,1
ret

ProcessFile endp
end start
ser_b вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Pascal] Расчитать треугольник паскаля Рамик Помощь студентам 4 29.09.2020 08:40
Паскаль.Треугольник Паскаля.Нужна подсказка. NEMO1991 Помощь студентам 5 14.06.2009 15:54
Задача про треугольник Паскаля. Mangust Помощь студентам 9 02.03.2009 23:59
Треугольник Паскаля в Turbo Pascale 7.0 Rusl92 Паскаль, Turbo Pascal, PascalABC.NET 12 23.04.2008 13:56