Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Solved
A question about 'Words'
Posted on 1998-10-28
Hi,
I'm wondering if someone could give me an example of how I can divide a memory word containing the binary representation of an integer into fields of four bits and have each field represent a queue element.Also, how would I decompose an integer into an array of 4 bit integers using MOD and DIV? My text has absolutely no information regarding this and it's becoming frustrating.
I'm barely starting learning this so any help would be appreciated.
Best regards,
Pyramid
I'm wondering if someone could give me an example of how I can divide a memory word containing the binary representation of an integer into fields of four bits and have each field represent a queue element.Also, how would I decompose an integer into an array of 4 bit integers using MOD and DIV? My text has absolutely no information regarding this and it's becoming frustrating.
I'm barely starting learning this so any help would be appreciated.
Best regards,
Pyramid
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
2
- +1
5 Comments
How is the word stored? As an actual word or as a string of 0s and 1s?
Do you want everything to be represented in binary (0s and 1s) using strings?
Do you want everything to be represented in binary (0s and 1s) using strings?
Assuming by word you mean an unsigned 16 bit integer then you do it like this (in pascal - assuming array element 0 is in the most significant four bits of the word):
function GetArrayItemFromWord(Array
begin
GetArrayItemFromWord := (ArrayWord AND ($F000 SHR (Index - 1) * 4)) SHR (Index - 1) * 4;
end;
or using DIV and MOD
function GetArrayItemFromWord(Array
begin
GetArrayItemFromWord := (ArrayWord DIV ($1000 SHR (Index - 1) * 4)) MOD $10;
end;
I leave the remaining exercise of applying this technique to represent a queue to your homework (hint each field will most likely be used as an index (1 to 15)).
Cheers,
Raymond.
function GetArrayItemFromWord(Array
begin
GetArrayItemFromWord := (ArrayWord AND ($F000 SHR (Index - 1) * 4)) SHR (Index - 1) * 4;
end;
or using DIV and MOD
function GetArrayItemFromWord(Array
begin
GetArrayItemFromWord := (ArrayWord DIV ($1000 SHR (Index - 1) * 4)) MOD $10;
end;
I leave the remaining exercise of applying this technique to represent a queue to your homework (hint each field will most likely be used as an index (1 to 15)).
Cheers,
Raymond.
Oops - Some corrections...
Proposed Answer
From: rwilson
Date: Wednesday, October 28 1998 - 05:20PM PST
Assuming by word you mean an unsigned 16 bit integer then you do it like this (in pascal - assuming array element 0
is in the most significant four bits of the word):
function GetArrayItemFromWord(Array
begin
GetArrayItemFromWord := (ArrayWord AND ($F000 SHR (Index * 4))) SHR (Index * 4);
end;
or using DIV and MOD
function GetArrayItemFromWord(Array
begin
GetArrayItemFromWord := (ArrayWord DIV ($1000 SHR (Index * 4))) MOD $10;
end;
Raymond.
Proposed Answer
From: rwilson
Date: Wednesday, October 28 1998 - 05:20PM PST
Assuming by word you mean an unsigned 16 bit integer then you do it like this (in pascal - assuming array element 0
is in the most significant four bits of the word):
function GetArrayItemFromWord(Array
begin
GetArrayItemFromWord := (ArrayWord AND ($F000 SHR (Index * 4))) SHR (Index * 4);
end;
or using DIV and MOD
function GetArrayItemFromWord(Array
begin
GetArrayItemFromWord := (ArrayWord DIV ($1000 SHR (Index * 4))) MOD $10;
end;
Raymond.
I think you need to get that integer divided into four groups of 4 bits each. I believe this is the simples way:
Var
g1, g2, g3, g4: integer; ('byte' or 'shortint' can serve)
n: integer;
Begin
n:=x <-- 'x' is the integer you wanna divide
g1:=n and 15; n:=n shr 4;
g2:=n and 15; n:=n shr 4;
g3:=n and 15; n:=n shr 4;
g4:=n and 15;
The operation of "and"-ing leaves the lower 4 bits of "n", putting them at g1. After that, "n" is shifted to right 4 places, getting rid of the older bits, and putting the following 4 bits at rightmost position. Once again, g2 takes those bits; and the same for g3 and g4.
Var
g1, g2, g3, g4: integer; ('byte' or 'shortint' can serve)
n: integer;
Begin
n:=x <-- 'x' is the integer you wanna divide
g1:=n and 15; n:=n shr 4;
g2:=n and 15; n:=n shr 4;
g3:=n and 15; n:=n shr 4;
g4:=n and 15;
The operation of "and"-ing leaves the lower 4 bits of "n", putting them at g1. After that, "n" is shifted to right 4 places, getting rid of the older bits, and putting the following 4 bits at rightmost position. Once again, g2 takes those bits; and the same for g3 and g4.
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
One of the most important things in an application is the query performance. This article intends to give you good tips to improve the performance of your queries.
With so many activities to perform, Exchange administrators are always busy in organizations. If everything, including Exchange Servers, Outlook clients, and Office 365 accounts work without any issues, they can sit and relax. But unfortunately, it…
In this video you will find out how to export Office 365 mailboxes using the built in eDiscovery tool. Bear in mind that although this method might be useful in some cases, using PST files as Office 365 backup is troublesome in a long run (more on t…
In this video, Percona Solution Engineer Dimitri Vanoverbeke discusses why you want to use at least three nodes in a database cluster.
To discuss how Percona Consulting can help with your design and architecture needs for your database and infras…
Suggested Courses
Course of the Month15 days, 8 hours left to enroll
647 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.