Вот. Прогу сдал сёдня, отчёт Волканов проверит, вроде к понедельнику

Открываешь паскаль, включаешь хэлп. Нагло сдираешь пример для initgraf, когда он заработает, добавляешь рисование того, что надо, рисуя коорд. сетку в цикле при помощи line () и графики lineto() все.

Странно, ни разу с ней не столкнулся во время написания первой проги
А она почему то у всех выскакивает...

Да нет, на root. До рисования графиков мне еще далеко...

Надо использовать библиотеку CRT1 и какую-то функцию из нее вмето readkey (в методичке где-тов конце написано). Или использовать хитрую вставку, использующую прерывания.
Более простого решения нет т.к. клавиши стрелок кодируются как нажатие 4х кнопок сразу.

Эх, жаль не сохранилась моя прога из первого сема, там этот вопрос решался как то так:

var key: char;
...
key:=readkey;
if key=#0 then key:=readkey; {на самом деле клавишу надо всего 1 раз нажимать}
if key=#<что-то> then... {реакция на нажатие влево}
if key=#<что-то другое> then... {нажатие вправо}

кстати, кажется этот способ я позаимствовал у Artem'а, может у него сохранилась его прога...

Во-первых, действительно наоборот, а во-вторых, код 72 также имеет буква "H", а код 80 - буква "P", так что если юзер захочет ввести эти буквы в слово, то получит результат как от нажатия кнопок "вверх" и "вниз". Просто в ваших прогах не надо было вводить буквы.

Хотя я придумал ещё один вариант решения проблемы: сделать два режима - ввода слов и редактирования.  Как вы считаете, нормально будет или лучше задействовать CRT1? :niggabotan:

не, в Паскале только два кода - нолик и свой код.

Кстати, по просьбам трудящихся! Вот мой отчёт!

УРРА! Я доделал вторую задачу! А вот по матану так ничего и не решил...

Помогите, пожалуйста, решить проблему!
Не могу запустить программу на Ассемблере: ввожу в Far "ma.bat prog1" (prog1.asm находится в директории MASM), на полсекунды появляется и сразу пропадаeт DOS-окошко. В появившемся lst-файле вижу:
 
0 Warning Errors
0 Severe  Errors

Вот, собственно, сама программа (выдаёт число нулевых элементов массива; решил сначала написать что-нибудь попроще перед тем, как писать третью зачётную программу):

include io.asm
S segment stack
dw 32 dup (?)
S ends
D segment
N equ 10
X dw N dup (?)
D ends
C segment
assume cs:C,ss:S,ds:D
Begin: mov ax,D
mov ds,ax
mov cx,N
i equ bx
mov i,0
L: inint x[i]
add i,2
Loop L
sub ax,ax
mov cx,N
mov bx,offset x
L1: cmp word ptr [bx],0
jne L2
inc ax
L2: add i,type X
Loop L1
outword ax
inint ax
finish
C ends
end Begin

Вроде всё по Бауле. Возможно, ошибка не в самой программе? Всё-таки я первый раз сел за Ассемблер.

Отредактировано DiMan (2006-04-04 21:59:12)

дальше запускай exe-шник prog1.exe