Вывести на экран 3 буквы КСВ

@Karpuha · Регистрация: 06.04.2015

Author24 — интернет-сервис помощи студентам

Постановка задачи:
С использованием встроенного ассемблера языка Borland Pascal в графическом видеорежиме 320x200 256 цветов, при обращении напрямую к видеопамяти, вывести изображение – первую букву фамилии, имени и отчества учащегося. Высота символов должна быть не менее 2/3 высоты экрана, толщина начертания символов 20–40 пикселей. Зафиксировать изображение на экране до нажатия любой клавиши. По завершении работы программа должна восстанавливать видеорежим (установить тот режим, который был до запуска программы).

Буквы: КСВ
Может у кого завалялось что нить подобное. очень надо

Charles Kludge · 06.04.2015, 17:06

https://www.cyberforum.ru/post2795380.html
И никаких Трупо-Паскакалей.

@Karpuha · 06.04.2015, 19:15 **[ТС]**

это была первая лаба дк как сделать эту

@alexcoder · 07.04.2015, 10:16

Завалялось

Assembler

var
mode:char;
begin
asm
 mov ah,$0f
 int $10
 mov mode,al
 mov ax,$13
 int $10
 
 mov ax,$a000
 mov es,ax
 mov di,10*320+10
 mov dx,180
 mov cx,30
 call @block
 mov di,85*320+40
 mov dx,30
 mov cx,30
 call @block
 mov di,10*320+70
 mov dx,180
 mov cx,30
 call @block
 
 
 mov di,55*320+115
 mov dx,135
 mov cx,30
 call @block
 mov di,85*320+145
 mov dx,30
 mov cx,30
 call @block
 mov di,55*320+175
 mov dx,135
 mov cx,30
 call @block
 mov di,10*320+160
 mov dx,45
 mov cx,1
 @2:
 call @line
 add cx,2
 add di,320-1
 dec dx
 jnz @2
 
 
 mov di,10*320+220
 mov dx,180
 mov cx,30
 call @block
 mov di,10*320+250
 mov dx,30
 mov cx,60
 call @block
 mov di,85*320+250
 mov dx,30
 mov cx,60
 call @block
 mov di,40*320+280
 mov dx,45
 mov cx,30
 call @block
 
 
 
 xor ah,ah
 int $16
 mov ah,0
 mov al,mode
 int $13
 jmp @ex
 
@block:
@1:
 call @line
 add di,320
 dec dx
 jnz @1
ret
 
@line:
 push di
 push cx
 mov al,15
 rep stosb
 pop cx
 pop di
 ret
 @ex:
 end;
 end.

Только предвижу новую тему. "Помогите переделать под мои буквы")))

@Mikl___ · 07.04.2015, 10:43

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

Только предвижу новую тему. "Помогите переделать под мои буквы")))

alexcoder,
"Все уже украдено до нас..." (© "Операция «Ы» и другие приключения Шурика")
смотрим здесь Рисование в Assembler

@NoNaMe · 09.04.2015, 09:44

Сообщение от Charles Kludge

И никаких Трупо-Паскакалей.

Графика "толсто" под CGA написана, под рукой машинка была побаловался)))

@bydychiy_progra · 15.12.2021, 23:53

извиняюсь

, можете подсказать , что я должен изменить , что бы выводились мои инициалы - БЕА?
много сайтов прочекал, но так и не нашел русские буквы под ассэмблер ((

@qbfan · 16.12.2021, 12:15

Assembler

; извиняюсь  , можете подсказать , что я должен изменить ,
; что бы выводились мои инициалы - БЕА?
; много сайтов прочекал, но так и не нашел русские буквы под ассэмблер
    .model small
    .code
    org 100h
start:  jmp beg
scrwid=320 ; ширина экрана в точках
wid=24 ; ширина картинки
ht=7   ; высота картинки
; картинка
txt db "*******.*******..*****.."
    db "**......**......**...**."
    db "**......**......**...**."
    db "******..******..*******."
    db "**...**.**......**...**."
    db "**...**.**......**...**."
    db "******..*******.**...**."
beg:    push cs
    pop  ds
    mov ax,0A000h ; ES=сегмент видеопамяти граф режима
    mov es,ax
    mov ax,13h ; установка граф режима (320*200*256 цветов)
    int 10h
    mov di,scrwid*56+16 ; адрес верхего левого угла картинки
    mov si,offset txt ; адрес источника еартинки
    mov cx,ht ; высота в строках
m0: push cx
    mov cx,12 ; высота блока
m1: push cx
    push di
    push si
    mov  cx,wid ; ширина в символах
m2: push cx
    lodsb ; считать символ
    cmp al,"*" ; это "*" ?
    mov al,0 ; черный цвет
    jnz cont
    mov al,15 ; белый цвет
cont:   mov cx,12  ; ширина блока
    rep stosb ; нарисовать линию блока
    pop cx
    loop m2
    pop si
    pop di
    add di,scrwid ; следующая линия экрана
    pop cx
    loop m1
    pop cx
    add si,wid ; следующая линия блоков
    loop m0
    mov ah,0 ; картинка нарисована - ожидание нажатия на клавишу
    int 16h
    mov ax,3 ; текстовый режим
    int 10h
    mov ax,4C00h ; выход в Dos
    int 21h
    end start

@bydychiy_progra · 16.12.2021, 14:14

@alex
Ну что я могу сказать... ничего не работает вообще

@Mikl___ · 16.12.2021, 14:49

bydychiy_progra,
Можно было и экзе- или сом-файл прикрепить...

@bydychiy_progra · 16.12.2021, 15:08

Assembler

var
mode:char;
begin
asm
 mov ah,$0f
 int $10
 mov mode,al
 mov ax,$13
 int $10
 
 mov ax,$a000
 mov es,ax
 mov di,10*320+10
 mov dx,180
 mov cx,30
 call @block
 mov di,85*320+40
 mov dx,30
 mov cx,30
 call @block
 mov di,10*320+70
 mov dx,180
 mov cx,30
 call @block
 
 
 mov di,55*320+115
 mov dx,135
 mov cx,30
 call @block
 mov di,85*320+145
 mov dx,30
 mov cx,30
 call @block
 mov di,55*320+175
 mov dx,135
 mov cx,30
 call @block
 mov di,10*320+160
 mov dx,45
 mov cx,1
 @2:
 call @line
 add cx,2
 add di,320-1
 dec dx
 jnz @2
 
 
 mov di,10*320+220
 mov dx,180
 mov cx,30
 call @block
 mov di,10*320+250
 mov dx,30
 mov cx,60
 call @block
 mov di,85*320+250
 mov dx,30
 mov cx,60
 call @block
 mov di,40*320+280
 mov dx,45
 mov cx,30
 call @block
 
 
 
 xor ah,ah
 int $16
 mov ah,0
 mov al,mode
 int $13
 jmp @ex
 
@block:
@1:
 call @line
 add di,320
 dec dx
 jnz @1
ret
 
@line:
 push di
 push cx
 mov al,15
 rep stosb
 pop cx
 pop di
 ret
 @ex:
 end;
 end.

@Mikl___ · 16.12.2021, 15:46

bydychiy_progra,
это ассемблерная вставка, а где полный текст программы? А еще лучше прикрепленный ехе-файл

@bydychiy_progra · 16.12.2021, 16:39

это и есть полный текст программы. Файлы не могу прикрепить - " некорректный файл"

@qbfan · 16.12.2021, 17:46

Pascal

var
mode:char;
begin
asm
    jmp @beg
; картинка
@txt:   db "*******.*******..*****.."
    db "**......**......**...**."
    db "**......**......**...**."
    db "******..******..*******."
    db "**...**.**......**...**."
    db "**...**.**......**...**."
    db "******..*******.**...**."
@beg:   PUSH DS
    PUSH ES
    mov ah,$0f { сохранить текущий видеорежим в mode }
    int $10
    mov mode,al
    mov ax,$13 { установить видео 320*200*256 }
    int $10
    PUSH CS { DS=сегмент кода }
    POP  DS
    MOV AX,$0A000  { ES=сегмент видео }
    MOV ES,AX
    mov di,320*36+16 { адрес верхнего левого угла картинки }
    lea si,@txt { адрес источника картинки }
    mov cx,7 { высота в строках }
@m0:    push cx
    mov cx,18 { высота блока }
@m1:    push cx
    push di
    push si
    mov  cx,24 { ширина в символах}
@m2:    push cx
    lodsb { считать символ }
    cmp al,"*" { это "*" ? }
    mov al,0 { черный цвет }
    jnz @cont
    mov al,15 { белый цвет }
@cont:  mov cx,12  { ширина блока }
    rep stosb { нарисовать линию блока }
    pop cx
    loop @m2
    pop si
    pop di
    add di,320 { следующая линия экрана }
    pop cx
    loop @m1
    pop cx
    add si,24 { следующая линия блоков }
    loop @m0
 xor ah,ah
 int $16
 mov ah,0
    POP ES { восстанавливаем DS ES }
    POP DS
 mov al,mode { восстанавливаем видеорежим }
 int $10
 end; { end asm }
 end.

@bydychiy_progra · 16.12.2021, 17:50

@qbfan
Теперь всё заработало,шикарно!!! Благодарю вас,добрый человек

@Karpuha 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 3
		1
	Вывести на экран 3 буквы КСВ 06.04.2015, 16:14. Показов 2989. Ответов 14 Метки нет (Все метки) Постановка задачи: С использованием встроенного ассемблера языка Borland Pascal в графическом видеорежиме 320x200 256 цветов, при обращении напрямую к видеопамяти, вывести изображение – первую букву фамилии, имени и отчества учащегося. Высота символов должна быть не менее 2/3 высоты экрана, толщина начертания символов 20–40 пикселей. Зафиксировать изображение на экране до нажатия любой клавиши. По завершении работы программа должна восстанавливать видеорежим (установить тот режим, который был до запуска программы). Буквы: КСВ Может у кого завалялось что нить подобное. очень надо 0

Charles Kludge Клюг 7674 / 3189 / 382 Регистрация: 03.05.2011 Сообщений: 8,380
	06.04.2015, 17:06	2
	https://www.cyberforum.ru/post2795380.html И никаких Трупо-Паскакалей. 1

@Karpuha 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 3
	06.04.2015, 19:15 [ТС]	3
	это была первая лаба дк как сделать эту 0

@Mikl___ Ушел с форума 16279 / 7604 / 1065 Регистрация: 11.11.2010 Сообщений: 13,617
	07.04.2015, 10:43	5
	Сообщение от alexcoder Только предвижу новую тему. "Помогите переделать под мои буквы"))) alexcoder, "Все уже украдено до нас..." (© "Операция «Ы» и другие приключения Шурика") смотрим здесь Рисование в Assembler 0

@NoNaMe Модератор 1762 / 671 / 141 Регистрация: 10.06.2009 Сообщений: 2,604
	09.04.2015, 09:44	6
	Сообщение от Charles Kludge И никаких Трупо-Паскакалей. Графика "толсто" под CGA написана, под рукой машинка была побаловался))) 0

@bydychiy_progra 0 / 0 / 0 Регистрация: 08.06.2020 Сообщений: 36
	15.12.2021, 23:53	7
	извиняюсь , можете подсказать , что я должен изменить , что бы выводились мои инициалы - БЕА? много сайтов прочекал, но так и не нашел русские буквы под ассэмблер (( 0

@bydychiy_progra 0 / 0 / 0 Регистрация: 08.06.2020 Сообщений: 36
	16.12.2021, 14:14	9
	@alex Ну что я могу сказать... ничего не работает вообще 0

@Mikl___ Ушел с форума 16279 / 7604 / 1065 Регистрация: 11.11.2010 Сообщений: 13,617
	16.12.2021, 14:49	10
	bydychiy_progra, Можно было и экзе- или сом-файл прикрепить... Миниатюры 0

@Mikl___ Ушел с форума 16279 / 7604 / 1065 Регистрация: 11.11.2010 Сообщений: 13,617
	16.12.2021, 15:46	12
	bydychiy_progra, это ассемблерная вставка, а где полный текст программы? А еще лучше прикрепленный ехе-файл 0

@bydychiy_progra 0 / 0 / 0 Регистрация: 08.06.2020 Сообщений: 36
	16.12.2021, 16:39	13
	это и есть полный текст программы. Файлы не могу прикрепить - " некорректный файл" 0

	16.12.2021, 17:50

Вывести на экран 3 буквы КСВ

Решение