Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Национальный технический университет Украины «Киевский политехнический институт»

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Teslenko_Drobyazko_Systeme_programuvannia_Lab

.pdf

Скачиваний:

Добавлен:

17.03.2016

Размер:

1.43 Mб

Скачать

☆

<<< < Предыдущая 1 2 3 45 / 175 6 7 8 9 10 11 12 13 14 15 16 17 > Следующая >>>

наступних пунктів необхідно використовувати надані вище Рекомендації до виконання роботи та приклади.

3) За допомогою команди PD налагоджувача AFD cтворити файл testxxxx.prn.

4) У файлі testxxxx.рrn перед групою команд ПЕОМ, які сформовані транслятором на основі чергового рядка Паскаль програми testxxxx.pas,

записати цей Паскаль-рядок. Інформація про початкові адреси рядків береться із структури сегмента кодів, що у файлі testxxxx.map.

5) За інформацією з файла testxxxx.map замінити у файлі testxxxx.prn

числові адресні посилання на символічні.

Друге заняття

1)Ознайомитись з реалізацією операторів Паскаль програми командами мови Асемблера.

2)Вибрати декілька Паскаль операторов (наприклад, тіло циклу) і замінити їх у програмі testxxxx.pas асемблерною вставкою, намагаючись досягти,

якщо можливо, економії часу виконання і/або пам‘яті.

3) Переконатись у правильності функціонування модифікованої програми testxxxx.pas шляхом виведення на екран результатів та їх порівняння з результатами немодифікованої програми.

Таблиця 2-1.4

	Варіанти завдання
1.		2.
Program test001;		Program test002;
Var		Var
i,j,k: integer;		i,j,k: integer;
A:array[3..11] of integer;		A:array[2..11] of integer;
Begin		Begin
k:=1;		k:=1;
i:=3;		i:=2;
repeat		while i<=11 do
j:=i+k*2;		begin
if j>11		j:=k+i*2;
then A[i]:=j		if j>19
else		then A[i]:=j
begin		else

Продовження табл. 2-1.4

k:=k+1;	begin
A[i]:=k;	k:=k+3;
end;	A[i]:=k;
inc(i);	end;
until i>11;	inc(i);
for i:=2 to 10 do write(A[i]:4);	end;
writeln;	for i:=2 to 11 do
end.	write(A[i]:4);writeln;
	end.
3.	4.
Program test003;	Program test004;
Var	Var i,d:integer;
i,j,k: integer;	A:array [4..11] of integer;
A:array[3..11] of integer;	Begin
Begin	d:=1;
k:=1;	i:=11;
for i:=3 to 11 do	repeat
begin	d:= i mod 2;
j:=k+i*3;	if d=0 then
if j>18	A[i]:=i
then A[i]:=j	else A[i]:=-i;
else	dec(i);
begin	until i<2;
k:=k+2;	for i:=2 to 7 do
A[i]:=k;	write(A[i]:4);writeln;
end;	End.
end;
for i:=3 to 11 do
write(A[i]:4);writeln;
end.
5.	6.
Program test005;	Program test006;
Var i,d:integer;	Var
A:array [5..11] of integer;	p,k:integer;
Begin	A:array[6..13] of integer;
d:=1;	Begin
i:=5;	k:=1;
while i<=11 do	p:=6;
begin	repeat
A[i]:=i or d;	if p< 10 then
d:=d + A[i];	k:=k or p
if d>10 then A[i]:=127-i;	else k:=k and p;
inc(i);	A[p]:=k;
end;	p:=p+1;
for i:=5 to 11 do	until p>=14;
write(A[i]:4);writeln;	for p:=6 to 13 do
End.	write(A[p]:4);writeln;
	End.

		Продовження табл. 2-1.4

7.	8.
Program test007;	Program test008;
Var a1,c:integer;	Var a1,c:integer;
b:byte;	b:byte;
A:array[7..13] of integer;	A:array[8..20] of integer;
Begin	Begin
a1:=3;	A1:=2;
c:=0;	b:=20;
for b:=7 to 13 do	while b>=8 do
begin	begin
c:=c+3;	if b<15 then
if c<9 then	c:=a1*2
a1:=5*c+b+1	else c:=c-a1;
else a1:=b shl 2;	A[b]:=c;
A[b]:=a1;	A1:=a1+b;
End;	dec(b);
for b:=7 to 13 do	end;
write(A[b]:4);writeln;	for b:=8 to 20 do
End.	write(A[b]:4);writeln;
	End.
9.	10.
Program test009;	Program test0010;
Var a,c:integer;	Var l,k:integer;
b:byte;	j:byte;
A1:array[9..20] of integer;	A:array[0..10] of integer;
Begin	Begin
a:=12;	l:=2;
b:=9;	k:=0;
repeat	for	j:=0 to 10 do
if a>b then c:=a*3-b	begin
else c:= a*2+b;	A[j]:=k;
A1[b]:=c;	if	(j<2) or (j=4) then k:=l+k
inc(b);	else k:=l-k;
until b=21;	end;
for b:=9 to 20 do	for l:=0 to 10 do
write(A1[b]:4);writeln;	write(A[l]:4);writeln;
End.	End.

11.	12.
Program test0011;	Program test0012;
Var k:integer;	Var l,k:integer;
j:byte;	j:byte;
A:array[1..11] of integer;	A:array[2..12] of integer;
Begin	Begin
k:=3; j:=1;	l:=2;	k:=64;
while j<=11 do	j:=12;
begin	repeat
if j<>7 then	if	(j mod 4)=0 then

	Продовження табл. 2-1.4
begin	k:=k div l
k:=k+j;	else k:=k+l;
end;	A[j]:=k;
A[j]:=k;	dec(j);
j:=j+1;	until j<2;
end;	for j:=2 to 12 do
for j:=1 to 11 do	write(A[j]:4);writeln;
write(A[j]:4);writeln;	End.
End.

13.	14.
Program test0013;	Program test0014;
Var p,j:integer;	Var i,d:byte;
A: array [3..13] of integer;	A:array [2..5] of integer;
Begin	Begin
for p:=3 to 13 do	d:=1;
begin	for i:=2 to 5 do
A[p]:=4*p;	begin
If A[p]<9 then A[p]:=A[p]+1;	A[i]:=d*I+1;
End;	d:= A[i]-d+1;
for p:=3 to 13 do	if d>3 then d:=3;
write(A[p]:4);writeln;	end;
End.	for i:=2 to 5 do
	write(A[i]:4);writeln;
	End.

15.	16.
Program test0015;	Program test0016;
Var j:integer;	Var i,s:integer;
A:array [5..15] of byte;	A:array [6..16] of integer;
Begin	Begin
j:=7 ;	s:=0;
A[6]:=1; A[5]:=1;	for i:=6 to 16 do
repeat	begin
A[j]:=A[j-1]+A[j-2];	A[i]:=2*i;
If A[j]>127	s:=s+A[i];
Then A[j]:=0;	if s>10 then A[i]:=s;
inc(j);	end;
until j>15;	for i:=6 to 16 do
for j:=5 to 15 do	write(A[i]:4);writeln;
write(A[j]:4);writeln;	End.
End.
17.	18.
Program test0017;	Program test0018;
Var i,s:integer;	Var i,s:integer;
A:array [7..17]of integer;	A:array [8..18] of integer;
Begin	Begin
s:=0; i:=17	s:=0;

	Продовження табл. 2-1.4
while i>=7 do	i:=8;
begin	repeat
A[i]:=2*i;	A[i]:=2*i;
s:=s+A[i];	s:=s+A[i];
if s>15 then A[i]:=s;	If s>80 then
dec(i);	A[i]:=s;
end;	inc(i);
for i:=7 to 17 do	until i>18;
write(A[i]:4);writeln;	for i:=8 to 18 do
End.	write(A[i]:4);writeln;
	End.
19.	20.
Program test0019;	Program test0020;
Var i,m:byte;	Var i,m:integer;
A:array [9..19] of byte;	A:array [10..20] of integer;
Begin	Begin
m:=1;	m:=1;
for i:=9 to 19 do	i:=10;
begin	while i<=20 do
m:=(m xor i) and 1;	begin
if m=1 then	A[i]:=3*i;
A[i]:=2*i	m:=m+A[i];
Else A[i]:=2*i+1;	if m>100 then A[i]:=2*i;
end;	inc(i);
for i:=9 to 19 do	end;
write(A[i]:4);writeln;	for i:=10 to 20 do
End.	write(A[i]:4);writeln;
	End.
21.	22.
Program test0021;	Program test0022;
Var i,m:integer;	Var i,r:integer;
A:array [13..21] of integer;	A:array [13..22] of integer;
Begin	Begin
m:=0;	r:=0;
i:=21;	for i:=13 to 22 do
repeat	begin
m:=m+i;	r:=r+i*2;
if m<50 then	if r<100 then
A[i]:=5*i	A[i]:=r
Else A[i]:=m;	Else
dec(i)	A[i]:=r and i;
until i<13;	end;
for i:=13 to 21 do	for i:=13 to 22 do
write(A[i]:4);writeln;	write(A[i]:4);writeln;
End.	End.

	Продовження табл. 2-1.4
23.	24.
Program test0023;	Program test0024;
Var i,r:integer;	Var i,r:integer;
A:array [13..23] of integer;	A:array [14..24] of integer;
Begin	Begin
r:=100;	r:=0; i:=15;
i:=23;	A[14]:=4;
while i>=13 do	repeat
begin	A[i]:=A[i-1]+r;
A[i]:=2*i;	r:=r or i;
r:=r-A[i];	if r>21 then
if r<0 then	A[i]:=r;
A[i]:=-A[i]+1;	inc(i);
dec(i);	until i>24;
end;	for i:=14 to 24 do
for i:=13 to 23 do	write(A[i]:4);writeln;
write(A[i]:4);writeln;	End.
End.
25.	26.
Program test0025;	Program test0026;
Var j:integer;	Var
A:array [4..14] of integer;	p,i:integer;
Begin	A:array[16..26] of byte;
j:=5;	Begin
A[4]:=0;	p:=16;
while j<=14 do	i:=0;
begin	while p<26 do
if A[j-1]<5 then	begin
A[j]:=A[j-1]+j;	if p>=20 then
inc(j);	i:=i or p
end;	else i:=i and p;
for j:=4 to 14 do	p:=p+1;
write(A[j]:4);writeln;	A[p]:=i;
end.	end;
	for i:=5 to 10 do
	write(A[i]:4);writeln;
	End.
27.	28.
Program test0027;	Program test0028;
Var	Var
p,i:integer;	i,j:integer;
A:array[2..7] of word;	A:array[2..8] of integer;
Begin	Begin
p:=6;	i:=2;
for i:=7 downto 2 do	j:=3;
begin	repeat
if i<6 then	if j<5 then
p:=p+1	i:=i+2*j

	Продовження табл. 2-1.4
else p:=p-1;	else i:= i+j;
A[i]:=p;	A[j]:=i;
end;	j:=j+1;
for i:=2 to 7 do	until j>8;
write(A[i]:4);writeln;	for i:=2 to 8 do
End.	write(A[i]:4);writeln;
	End.
29.	30.
Program test0029;	Program test0030;
Var	Var
i,j:integer;	i,k:integer;
A:array[2..10] of integer;	A:array[1..9] of word;
Begin	Begin
i:=0;	k:=0;
j:=2;	for i:=1 to 9 do
while i<=20 do	begin
begin	k:=k+i;
i:=i+2;	if k<9 then
j:=j+1;	A[i]:=i
if i<17 then	else A[i]:=k;
A[j]:=i	end;
else A[j]:=3;	for l:=1 to 9 do
end;	write(A[i]:4);writeln;
for i:=2 to 10 do	End.
write(A[i]:4);writeln;
End.

2-1.5. Контрольні запитання

1.Що відображає мовою Асемблера ідентифікатор змінної мови Паскаль?

2.Як реалізуються мовою Асемблера оператори присвоєння?

3.Як реалізуються мовою Асемблера оператори if...then ?

4.Як реалізуються мовою Асемблера оператори for?

5.Як реалізуються мовою Асемблера оператори while?

6.Як реалізуються мовою Асемблера оператори repeat..until?

7.Які вимоги ставлять до асемблерних вставок у програмах мовою Паскаль?

ЛАБОРАТОРНА РОБОТА №2-2

Реалізація основних програмних конструктів мовою Асемблера. Використання асемблерних вставок у програмах мовою С++

Мета роботи – вивчення методів реалізації мовою Асемблера основних виконавчих операторів мови С++, ознайомлення з методикою включення текстів програм мовою Асемблера в програми мовою С++.

2-2.1. Зміст роботи

Робота виконується на двох заняттях. На першому занятті на основі програми мовою C++ студенти створюють файл, що містить результати трансляції кожного C++ оператора на мову Асемблера, вивчають методи реалізації на Асемблері найуживаніших операторів мови С++. На другому занятті оформлюють у програмі мовою C++ асемблерну вставку, що оптимізує, якщо можливо, C++ програму за обсягом і/або швидкодією.

2-2.2. Теоретичні відомості

Основні відомості щодо подання даних в ЕОМ та елементарних операцій над ними, операндів машинних команд та способів їх адресації викладені у теоретичних відомостях Лабораторної роботи №2-1.

2-2.3. Рекомендації до виконання роботи

Знання мови С++ може допомогти у вивченні мови Асемблера. Знаючи оператори мови С++, а також маючи результати трансляції С++ операторів на мову Асемблера, не важко зрозуміти, ЯКИМИ САМЕ машинними командами реалізуються окремі С++ оператори.

Для цього, по-перше, потрібно створити файл, у якому після кожного С++ оператора містились би машинні інструкції – результати трансляції С++ оператора на мову Асемблера. На відміну, зокрема, від інтегрованого

середовища ТурбоПаскаль, середовище розробки Microsoft Visual Studio (компілятор С++) має режим генерації такого файлу. Розглянемо процес його створення на прикладі нескладної програми мовою С++.

Приклад програми test2011.cpp

/1/	#include <stdio.h>
/2/	int vec[10];
/3/	int s;
/4/	int main(){
/5/	int i;
/6/	s=0;
/7/	for(i=0;i<10;i++){
/8/	vec[i]=2*i;
/9/	s+=vec[i];
/10/	if(s>10)
/11/	vec[i]=s;
/12/ }
/13/
/14/	for(i=0;i<10;i++)
/15/ printf("%d ",vec[i]);
/16/ printf("\n");
/17/	return 0;
/18/	}

І почнемо зі створенння проекту С++ програми.

Створення проекту у середовищі Visual Studio

Для створення нового проекту необхідно у головному вікні Visual Studio

вибрати та перейти на меню File -> New ->Project, далі вибрати Win32 Console Application, а в полі Name ввести назву проекту, наприклад, test2011. Після натискання ОК з‘являється нове вікно, в якому треба перейти на вкладку

Application Settings і відмітити галочкою поле Empty project, після чого натиснути кнопку Finish. Новий проект буде створений.

Далі необхідно додати наш файл test2011.cpp до проекту. Для цього потрібно перейти в Solution Explorer і зробити правий клік на вкладці Source Files. У випадаючому меню вибрати Add->New Item…, далі – С++ File (.cpp) і

у полі Name ввести назву файлу test2011.cpp . Натиснувши кнопку Add, додамо файл до проекту.

Запустимо програму на виконання (Ctrl + F5). Отримаємо в консолі наступний результат виконання нашої програми:

0 2 4 12 20 30 42 56 72 90

Результат нам далі знадобиться для перевірки коректності роботи програми з асемблерною вставкою

Створення файлу з результатами трансляції програми

Для створення файла лістингу, що містить асемблерний, машинний та оригінальний код С++ програми (файлу з асемблерним кодом) необхідно перейти на вкладку Solution Explorer і клікнути правою клавішею миші на назві проекту. У випадаючому списку перейти на пункт Properties. З‘явиться віконце, в якому треба вибрати випадаючий список С/С++ і перейти на пункт

Output Files. Праворуч вибрати пункт Assembler Output і з випадаючого списку – опцію Assembly, Machine Code and Source (/FAcs), а потім – натиснути кнопку ОК.

Далі запустимо програму на виконання (Ctrl + F5). Відкривши папку проекту, перейдемо в папку, назва якої співпадає з назвою проекту, а після цього – в папку Debug. У разі, якщо компіляція та запуск програми були виконані успішно, в даній папці буде створений файл <name>.cod , де <name> –

ім‘я *.cpp файлу, котрий містить код С++ програми.

За замовчуванням, файли проектів зберігаються в папці

C:\Users\<user_name>\Documents\Visual Studio 2008\Projects

де <user_name> – імя облікового запису користувача в системі.

Тоді шуканий файл буде знаходитись в наступній папці: C:\Users\<user_name>\Documents\VisualStudio2008\Projects\test2011\test2011\ Debug\test2011.cod

Відкривши файл test2011.cod будь-яким текстовим редактором,

наприклад, Nodepad, можемо прочитати асемблерний код. Для нашого прикладу С++ програми він буде мати наведений нижче вигляд:

<<< < Предыдущая 1 2 3 45 / 175 6 7 8 9 10 11 12 13 14 15 16 17 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
12.05.2015241.12 Кб5tem__1__2__3(______) ru.pdf
#
12.05.2015401.92 Кб7tem__1__2__3(начало) ru.doc
#
13.11.2019546.3 Кб143Tenses.doc
#
16.09.2019523.26 Кб11termicheskaya_obrabotka_22.doc
#
17.03.2016610.3 Кб25Terminologichny_slovnik_spisok_literaturi1.doc
#
17.03.20161.43 Mб56Teslenko_Drobyazko_Systeme_programuvannia_Lab.pdf
#
12.05.201521.26 Кб490Test Plan.docx
#
17.03.20162.26 Mб31test0.pdf
#
25.11.2019391.68 Кб2TESTI_NA_KKR_zagalny.doc
#
19.09.2019313.86 Кб4test_EXAM_4Kypc_doc_Peredelannyy.doc
#
10.09.2019195.07 Кб2test_pravo.doc

/1/	#include <stdio.h>
/2/	int vec[10];
/3/	int s;
/4/	int main(){
/5/	int i;
/6/	s=0;
/7/	for(i=0;i<10;i++){
/8/	vec[i]=2*i;
/9/	s+=vec[i];
/10/	if(s>10)
/11/	vec[i]=s;
/12/ }
/13/
/14/	for(i=0;i<10;i++)
/15/ printf("%d ",vec[i]);
/16/ printf("\n");
/17/	return 0;
/18/	}