0 / 0 / 0
Регистрация: 09.10.2018
Сообщений: 14
1

Транслировать заданный код с языка Pascal в исходный код ассемблер

22.12.2018, 08:37. Показов 1030. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Транслировать заданный код с языка Pascal в исходный код ассемблер
Pascal
1
2
3
4
5
6
Var a:byte; b:byte; c:word;
A:=2;b:=4;
If a>=b then 
Begin c:=a+b; a:=c*a end
Else c:=b-a;
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2018, 08:37
Ответы с готовыми решениями:

Транслировать код с Pascal
Позязьки, помогите с переводом в си небольшого кода - сам паскаль почти не знаю :( var ...

Транслировать программный код с Pascal
Помогите перевести с паскаля на c# var S,sNum: String; j,err,i,L,Num: LongInt; function...

Транслировать код Turbo Pascal на Visual Basic
Пожалуйста реализуйте. Условия на фото. Uses Graph,crt; function F(x: double): double; begin...

Транслировать код Turbo Pascal на Visual Basic
необходимо перенести это на VB помогите пожалуйста... {$N+} {$E+} Uses Graph,crt; ...

1
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
22.12.2018, 10:44 2
TheLupa, наверное программа все-таки такая?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a: byte;
  b: byte;
  c: word;
 
begin
  A := 2;
  b := 4;
  if a >= b then 
  begin
    c := a + b;
    a := c * a
  end
  Else 
    c := b - a;
  writeln(c);
end.
Добавлено через 3 минуты
fpc дал такой листинг:

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
    .file "xdd.pas"
# Begin asmlist al_begin
 
.section .text.b_DEBUGSTART_$P$PROGRAM,"x"
    .balign 4,0x90
.globl  DEBUGSTART_$P$PROGRAM
DEBUGSTART_$P$PROGRAM:
    .stabs "C:/FPC/3.0.2/Forum/",100,0,0,.Lf2
    .stabs "c:/fpc/3.0.2/forum/xdd.pas",100,0,0,.Lf2
.Lf2:
# End asmlist al_begin
# Begin asmlist al_stabs
 
.section .data.n_PROGRAM,"d"
    .balign 4
.globl  DEBUGINFO_$P$PROGRAM
DEBUGINFO_$P$PROGRAM:
# Defs - Begin unit SYSTEM has index 1
    .stabs "void:t3=3",128,0,0,0
    .stabs "BYTE:t1=@s8;r1;0;255;",128,0,0,0
    .stabs "WORD:t2=@s16;r2;0;65535;",128,0,0,0
# Defs - End unit SYSTEM has index 1
# Defs - Begin unit FPINTRES has index 2
# Defs - End unit FPINTRES has index 2
# Defs - Begin unit SYSINITPAS has index 3
# Defs - End unit SYSINITPAS has index 3
# Defs - Begin Staticsymtable
# Defs - End Staticsymtable
# Syms - Begin Staticsymtable
    .stabs "A:S1",38,0,2,U_$P$PROGRAM_$$_A
    .stabs "B:S1",38,0,3,U_$P$PROGRAM_$$_B
    .stabs "C:S2",38,0,4,U_$P$PROGRAM_$$_C
# Syms - End Staticsymtable
# End asmlist al_stabs
# Begin asmlist al_procedures
 
.section .text.n__main,"x"
    .balign 16,0x90
.globl  PASCALMAIN
PASCALMAIN:
.globl  _main
_main:
    .stabs "main:F3",36,0,1,_main
    .stabs "c:/fpc/3.0.2/forum/xdd.pas",132,0,0,.Lf1
.Lf1:
    .stabn 68,0,6,.Ll1 - _main
.Ll1:
# [xdd.pas]
# [6] begin
    pushl   %ebp
    movl    %esp,%ebp
    pushl   %ebx
    call    FPC_INITIALIZEUNITS
    .stabn 68,0,7,.Ll2 - _main
.Ll2:
# [7] A := 2;
    movb    $2,U_$P$PROGRAM_$$_A
    .stabn 68,0,8,.Ll3 - _main
.Ll3:
# [8] b := 4;
    movb    $4,U_$P$PROGRAM_$$_B
    .stabn 68,0,9,.Ll4 - _main
.Ll4:
# [9] if a >= b then
    movb    U_$P$PROGRAM_$$_A,%al
    cmpb    U_$P$PROGRAM_$$_B,%al
    jae .Lj7
    jmp .Lj8
.Lj7:
    .stabn 68,0,11,.Ll5 - _main
.Ll5:
# [11] c := a + b;
    movzbl  U_$P$PROGRAM_$$_A,%eax
    movzbl  U_$P$PROGRAM_$$_B,%ebx
    addl    %eax,%ebx
    jnb .Lj11
    call    FPC_OVERFLOW
.Lj11:
    movl    %ebx,%eax
    cmpl    $65535,%eax
    jbe .Lj12
    call    fpc_rangeerror
.Lj12:
    movw    %bx,U_$P$PROGRAM_$$_C
    .stabn 68,0,12,.Ll6 - _main
.Ll6:
# [12] a := c * a
    movzwl  U_$P$PROGRAM_$$_C,%edx
    movzbl  U_$P$PROGRAM_$$_A,%eax
    mull    %edx
    jae .Lj15
    call    FPC_OVERFLOW
.Lj15:
    movl    %eax,%ebx
    movl    %ebx,%eax
    cmpl    $255,%eax
    jbe .Lj16
    call    fpc_rangeerror
.Lj16:
    movb    %bl,%al
    movb    %al,U_$P$PROGRAM_$$_A
    jmp .Lj17
.Lj8:
    .stabn 68,0,15,.Ll7 - _main
.Ll7:
# [15] c := b - a;
    movzbl  U_$P$PROGRAM_$$_B,%ebx
    movzbl  U_$P$PROGRAM_$$_A,%eax
    subl    %eax,%ebx
    jno .Lj20
    call    FPC_OVERFLOW
.Lj20:
    movl    %ebx,%eax
    cmpl    $65535,%eax
    jbe .Lj21
    call    fpc_rangeerror
.Lj21:
    movw    %bx,U_$P$PROGRAM_$$_C
.Lj17:
    .stabn 68,0,16,.Ll8 - _main
.Ll8:
# [16] writeln(c);
    call    fpc_get_output
    movl    %eax,%ebx
    movzwl  U_$P$PROGRAM_$$_C,%ecx
    movl    %ebx,%edx
    movl    $0,%eax
    call    fpc_write_text_uint
    call    FPC_IOCHECK
    movl    %ebx,%eax
    call    fpc_writeln_end
    call    FPC_IOCHECK
    .stabn 68,0,17,.Ll9 - _main
.Ll9:
# [17] end.
    call    FPC_DO_EXIT
    popl    %ebx
    leave
    ret
    .stabn 192,0,0,0
    .stabn 224,0,0,.Lt1-_main
.Lt1:
 
.section .fpc.n_links
    .long   DEBUGINFO_$P$PROGRAM
    .long   DEBUGSTART_$P$PROGRAM
    .long   DEBUGEND_$P$PROGRAM
# End asmlist al_procedures
# Begin asmlist al_globals
 
.section .bss
# [2] a: byte;
U_$P$PROGRAM_$$_A:
    .zero 1
 
.section .bss
# [3] b: byte;
U_$P$PROGRAM_$$_B:
    .zero 1
 
.section .bss
    .balign 2
# [4] c: word;
U_$P$PROGRAM_$$_C:
    .zero 2
 
.section .data.n_INITFINAL,"d"
    .balign 4
.globl  INITFINAL
INITFINAL:
    .long   2,0
    .long   INIT$_$SYSTEM
    .long   0
    .long   INIT$_$FPINTRES
    .long   0
 
.section .data.n_FPC_THREADVARTABLES,"d"
    .balign 4
.globl  FPC_THREADVARTABLES
FPC_THREADVARTABLES:
    .long   1
    .long   THREADVARLIST_$SYSTEM
 
.section .data.n_FPC_RESOURCESTRINGTABLES,"d"
    .balign 4
.globl  FPC_RESOURCESTRINGTABLES
FPC_RESOURCESTRINGTABLES:
    .long   0
 
.section .data.n_FPC_WIDEINITTABLES,"d"
    .balign 4
.globl  FPC_WIDEINITTABLES
FPC_WIDEINITTABLES:
    .long   0
 
.section .data.n_FPC_RESSTRINITTABLES,"d"
    .balign 4
.globl  FPC_RESSTRINITTABLES
FPC_RESSTRINITTABLES:
    .long   0
 
.section .fpc.n_version
    .balign 16
    .ascii  "FPC 3.0.2 [2017/02/13] for i386 - Win32"
 
.section .data.n___heapsize,"d"
    .balign 4
.globl  __heapsize
__heapsize:
    .long   0
 
.section .data.n___fpc_valgrind,"d"
.globl  __fpc_valgrind
__fpc_valgrind:
    .byte   0
# End asmlist al_globals
# Begin asmlist al_end
 
.section .text.z_DEBUGEND_$P$PROGRAM,"x"
    .balign 4,0x90
.globl  DEBUGEND_$P$PROGRAM
DEBUGEND_$P$PROGRAM:
    .stabs "",100,0,0,.Lf3
.Lf3:
# End asmlist al_end
0
22.12.2018, 10:44
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2018, 10:44
Помогаю со студенческими работами здесь

По символьному описанию команды языка Ассемблер написать ее машинный код в шестнадцатеричном формате
По символьному описанию команды языка Ассемблер написать ее машинный код в шестнадцатеричном...

Как посмотреть исходный код программы на Turbo Pascal'e?
Вот я скачал ехе файл программ которые сделаны на турбо паскале ,как увидеть их исходный код в...

Перевести код с языка Pascal
Нужно сделать точно такую же программу (она была написана на питоне и переведена на паскаль) на...

Перевести код с языка Pascal на язык С++
var i,n,a:integer; rez:integer; begin Write('Enter digit A = ');readln(a); Write('Enter...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru