Определить значения полей структуры по содержимому файла - Assembler

  1. Здравствуйте Pascal1 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 program type_data; Type   CH=array [1..16] of char;   T=record -------------------------------------------------- tekst:CH;       {строка 16 символов, 1й-16й байты} ShorP:shortint; {однобайтное целое со знаком, 17й байт} ShorN:shortint; {однобайтное целое со знаком, 18й байт} IntP:integer;   {двухбайтное целое со знаком, 19й-20й байты} LongN:longint;  {четырехбайтное целое со знаком, 21й-24й байты} SingP:single;   {стандартное вещественное, 25й-28й байты} SingN:single;   {стандартное вещественное, 29й-32й байты} -------------------------------------------------- RealP:real; {нестандартное вещественное, 33й-38й байты} RealN:real; {нестандартное вещественное, 39й-44й байты} PrimP:real      {Пример: PrimP=1.5 (1.1B), 45й-50й байты} --------------------------------------------------   end; Var X:T;   f:file of T;   fin:text;   fil_in,fil_out:string[12];   num_lr:char; begin   X.tekst:='Строка символов ';   X.PrimP:=1.5; for num_lr:='1' to '15' do  begin    Assign(fin,'lr3_v'+num_lr+'.txt');    Reset(fin);    read(fin,X.ShorP,X.ShorN,X.IntP,X.LongN,         X.SingP,X.SingN,X.RealP,X.RealN);    close(fin);    Assign(f,'lr3_v'+num_lr+'.dat');    Rewrite(f);    write(f,X);    close(f)  end end.В задание надо определить какая информация представлена в картинке Подскажите ,пжлс,просто надо перевести чисел в 10-тичный? я


textual

Код к задаче: «Определить значения полей структуры по содержимому файла - Assembler»

dseg:0000                 db    0 ;  
dseg:0001                 db    0 ;  
dseg:0002 aTrokaSimvolov  db 'Строка символов ',0,0 ; DATA XREF: PROGRAM+19o
dseg:0014 word_13FF4      dw 0                    ; DATA XREF: __SystemInit(void)+24r
dseg:0016                 dw 0
dseg:0018                 db 2 dup(0)
dseg:001A word_13FFA      dw 0                    ; DATA XREF: __SystemInit(void)+1Ew
dseg:001C word_13FFC      dw 0                    ; DATA XREF: __SystemInit(void)
dseg:001E word_13FFE      dw 0                    ; DATA XREF: __SystemInit(void)
dseg:0020 word_14000      dw 0                    ; DATA XREF: Halt(Word)
dseg:0022                 align 4
dseg:0024                 dw 0FFFFh  
dseg:0026                 dw    0
dseg:0028 word_14008      dw 0                    ; DATA XREF: __SystemInit(void)
dseg:002A                 align 4
dseg:002C word_1400C      dw 0                    ; DATA XREF: __SystemInit(void)
dseg:002E                 align 4
dseg:0030 word_14010      dw 0                    ; DATA XREF: __SystemInit(void)
dseg:0032                 align 4
dseg:0034 word_14014      dw 0                    ; DATA XREF: __SystemInit(void)

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.000 из 5



Похожие ответы
  1. Определить сумму первых n чисел, кратных двум, n = 15.

  1. Дан массив размерностью 10 элементов типа dw. Определить количество элементов, больших среднего арифметического.

  1. Здравствуйте, помогите написать программу на pascale с assembler вставкой. Задание такое: Переписать из массива А в массив В, те элементы массива А, индексы которых совпадают со значениями.

  1. 3. Сравните соответствующие элементы двух массивов. Посчитайте, сколько элементов с одинаковым номером будут иметь одинаковые значения.

  1. Нужна помощь по выполнению данного задания.Совсем недавно начали изучать ассемблер.Еще не совсем понимаю как там все устроено. Задание: В сегменте данных определить три области: А – 1 байт под одно число; B – по 1 байту под три числа; C – по 1 байту под шесть чисел. В программе * Обнулить область A. * В область B записать три любых числа (прямая адресация). * В первые три ячейки области C записать числа из области B в обратном порядке (адресация по базе). * В оставшиеся ячейки области С записать три любых числа. * Просмотреть сегмент данных. * В области С поменять местами 1 и 4, 2 и 5, 3 и 6 числа (адресация по базе с индексированием). В качестве буфера можно использовать или регистр BX или область А.

  1. Задано целое беззнаковое число Х<65536. Определить, есть ли в записи числа цифра, равная среднему арифметическому остальных цифр? Входное значение - число без знака длиной в слово – должно вводиться с клавиатуры. Результат работы – найденная цифра или соответствующее сообщение - необходимо вывести на экран. Обмен информацией с пользователем организовать в виде специальных сообщений, каждое из которых следует размещать в отдельной строке экрана.

  1. Ввести строку символов. Группы символов в ней, разделенные пробелом, считаются словами. Определить сколько слов содержат хотя бы одну букву "В"? Исходную строку и количество слов с буквой "В" вывести на экран.

  1. Всем привет) решите задачу *на ассемблере*, пожалуйста Определить все ли три введеных числа четны?

  1. Здравствуйте! Решал задачу "Если в однобайтовом целом числе есть непарное кол-во нулевых разрядов вывести "Y", иначе "N"" У меня все работает, НО, только с числами от 0 до 127, а работать с 128-255 не выходит, подскажите, как написать эту программу, но чтобы она работала и с числами от 128-255 МОЙ КОД: