Snarkpit Forum Index » General Banter » Need some help with programming
Need some help with programming
1
2 next page »
Post Reply
Quote
 Re: Need some help with programming
Posted by Wild Card on Fri Dec 17th at 12:21am 2004

This is using Delphi by the way, but I still figure you guys could help out even if you dont know the language.

Ok, I have a memo box (a giant box to type in a lot of text, like a form) And I made an array from 1 to 26. Since there are only 26 characters in the alphabet.

What I need is to assign each array a character, A to Z. So [1] is A, [2] is B, [3] is C, and so on. And if there are 3 a's in the memo, then [1] will equal 3. If that makes sence to you guys.

After that, once it's got all the numbers of characters, it will sort them in assending order. So say the memo contains abbbcccccddddee

then

[1]=1
[2]=3
[3]=5
[4]=4
[5]=2

And then it would sort them in order

[1]=1
[5]=2
[2]=3
[4]=4
[3]=5

Anyone know how I might go about doing that?

Thanks

[addsig]



Quote
 Re: Need some help with programming
Posted by scary_jeff on Fri Dec 17th at 1:08am 2004

Well I don't think you can sort them like that. If something array offset 0 means 'number of As', then you can't move that somewhere else as far as I know. The other bit is easy, just set up your array of character totals 'array[26]' go through the string one character at a time, subtract #30 (or whatever the hex offset in the ascii chart for 'a' is), let this number equal say 'var1', then do array[var1]++. Obviously you would have to go through the string converting everything to either upper or lower case (whatever you choose, either add or subtract from each char the hex number that is the difference between A and a in the ascii chart), and set some other clause for if the character isn't a letter.



Quote
 Re: Need some help with programming
Posted by Wild Card on Fri Dec 17th at 1:20am 2004

thanks for the reply jeff.

I dont really care about uppercase or lowercase really. I'd convert it all to lower case.

Here is what I've goten so far. I have tryed it yet, its not finished.

Working off 2 array (and damn is it ever confusing) and a few variables.

1 array to keep score of the ammount of times a character appears, the other array for counting every character and passing them off to the first array for hit storage (see I told you it was confusing )

? quote:

var
Form1: TForm1;
text:string; //I put the memo text in this string
alpha:array [1..26]of integer; //first array for keeping hit count on characters

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.lines.Clear;
memo2.lines.clear;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Close;
end;

procedure Sort; //procedure that gets called
var
i: integer;
textlength:array [1..10000]of string; //counts the ammount of characters
begin
if (textlength[i] = #065) then //if the character is #065 (a) then it adds +1 to the first array
alpha[1]:=alpha[1]+1;
if (textlength[i] = #066) then
alpha[2]:=alpha[2]+1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
count:Integer;
begin
text:=memo1.Text; //gives the text string variable the value of the memo text
memo2.text:=(text);
for i:= 1 to count do begin
alpha[i]:=(memo1.Text[count])
end;
Sort; //calls the sort procedure
end;

end.

[EDIT] When I run the program, I get pointed to the second last end (the one in red) and am given this error: Incompatible types: 'Integer' and 'Char'

[addsig]



Quote
 Re: Need some help with programming
Posted by scary_jeff on Fri Dec 17th at 1:37am 2004

You don't want to have a different if statement for every letter. instead of what you have there, get rid of the if statement in the sort procedure. Instead (this won't work, I have no idea about delphi), create a second variable (say 'j') where you create i, then replace

if (textlength[i] = #065)
alpha[1]:=alpha[1]+1;
if (textlength[i] = #066) then
alpha[2]:=alpha[2]+1;
if (textlength[i] = #067) then
alpha[3]:=al... bla bla etc

with

j:=texlength[i]-#065
alpha[j]:=alpha[j]+1;

Probably some type mismatch or something, but that's the general idea I was thinking of. Seems a lot neater than having the same 2 lines 26 times in a row.



Quote
 Re: Need some help with programming
Posted by Wild Card on Fri Dec 17th at 1:45am 2004

How would I go about changing the ASCII character value? I havent tryed it though.

Here's what I've got. Still getting that error though

? quote:
unit Crypt_App;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Memo1: TMemo;
Button1: TButton;
BitBtn1: TBitBtn;
Memo2: TMemo;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
text:string;
alpha:array [1..26]of integer; //array de 1 ? 26 pour les lettres A-Z

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.lines.Clear;
memo2.lines.clear;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Close;
end;

procedure Sort;
var
i: integer;
textlength:array [1..10000]of string; //compte le nombre de lettres dans le memo1
begin
if (textlength[i] = #065) then //si la lettre est #065 (a) ajoute +1 au array alpha[1]
alpha[1]:=alpha[1]+1;
if (textlength[i] = #066) then //si la lettre est #066 (b) ajoute +2 au array alpha[2]
alpha[2]:=alpha[2]+1;
if (textlength[i] = #067) then
alpha[3]:=alpha[3]+1;
if (textlength[i] = #068) then
alpha[4]:=alpha[4]+1;
if (textlength[i] = #069) then
alpha[5]:=alpha[5]+1;
if (textlength[i] = #070) then
alpha[6]:=alpha[6]+1;
if (textlength[i] = #071) then
alpha[7]:=alpha[7]+1;
if (textlength[i] = #072) then
alpha[8]:=alpha[8]+1;
if (textlength[i] = #073) then
alpha[9]:=alpha[9]+1;
if (textlength[i] = #074) then
alpha[10]:=alpha[10]+1;
if (textlength[i] = #075) then
alpha[11]:=alpha[11]+1;
if (textlength[i] = #076) then
alpha[12]:=alpha[12]+1;
if (textlength[i] = #077) then
alpha[13]:=alpha[13]+1;
if (textlength[i] = #078) then
alpha[14]:=alpha[14]+1;
if (textlength[i] = #079) then
alpha[15]:=alpha[15]+1;
if (textlength[i] = #080) then
alpha[16]:=alpha[16]+1;
if (textlength[i] = #081) then
alpha[17]:=alpha[17]+1;
if (textlength[i] = #082) then
alpha[18]:=alpha[18]+1;
if (textlength[i] = #083) then
alpha[19]:=alpha[19]+1;
if (textlength[i] = #084) then
alpha[20]:=alpha[20]+1;
if (textlength[i] = #085) then
alpha[21]:=alpha[21]+1;
if (textlength[i] = #086) then
alpha[22]:=alpha[22]+1;
if (textlength[i] = #087) then
alpha[23]:=alpha[23]+1;
if (textlength[i] = #088) then
alpha[24]:=alpha[24]+1;
if (textlength[i] = #089) then
alpha[25]:=alpha[25]+1;
if (textlength[i] = #090) then
alpha[26]:=alpha[26]+1;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
count:integer;
begin
text:=memo1.Text; //met le contenu de memo1 dans la variable string text
memo2.text:=(text); //le contenu de memo2 est la variable string text
for i:= 1 to 10000 do begin
alpha[i]:=(memo1.Text[count])
end;
Sort;
end;

end.

[EDIT] narrowed down my error to this line (in red)

By the way Lep, I absolutly hate this new quotes thing you did, its so hard going back and editing it since its got a weird scrolling feature.

Thanks for the help Jeff





Quote
 Re: Need some help with programming
Posted by Foxpup on Fri Dec 17th at 2:26am 2004

I'm no good at Delphi, so I'll just mix Object Pascal and Pseudocode and hopefully you'll get the idea!
Try something like:

for character := 1 to 26
begin
if alpha[character] > 0 then //if it's a non zero number...
begin
for x := 1 to alpha[character] //...print that character that many times
print chr(character + <whatever ascii code for A - 1 is>);
next x;
end;
else begin end; end if; end; //else do nothing
next character; [addsig]



Quote
 Re: Need some help with programming
Posted by Wild Card on Fri Dec 17th at 3:02am 2004

Sorry I dont really understand that. Like character, is that a variable or an array?

And whats &gt and &lt

[addsig]



Quote
 Re: Need some help with programming
Posted by Foxpup on Fri Dec 17th at 3:10am 2004

Variable of type BYTE ie 0..255
or int, but byte uses half as much RAM

Oh, and < and > were originally arrows, but it screwed up somehow...

WHOOPS!!! for "index", read "character"... [addsig]



Quote
 Re: Need some help with programming
Posted by Crono on Sat Dec 18th at 9:32pm 2004

Jeff, prefix unless you specifically want postfix (just get used to it already!).

WC, honestly, I'd suggest using a different data structure to do this. Arrays aren't the greatest thing to work with when pertaining to individual elements (without combination of other structures).

Foxup, you don't use memory sizes in pseudo code. The entire point of pseudo code is to understand what you're doing more; you kind of defeated that .
That stuff you wrote isn't pseudo code, it's pretty close to Ada (if I remember properly) and some other scripting languages ... *cough*Maple*cough* (And Delphi apparently ).

WC, your code only checks 1 element in the entire array, since you never increment i (using the much more memory friendly method of prefix).

Just to clean up your code (and not have someone telling you how to completely solve your problem, because you don't learn that way)

you can tackle this with a loop. Especially the way you've been writing the function.

It'd be something like

var i = 1;
var j = 65

for (i = 1; i < 27; ++i)
{
if (textlength[i] = j)
{
alpha[i] := ++alpha[i];
}

++j;
}

adapt it to Delphi and it'll save you a crap load of time.

With that line you highlighted, what are you trying to do exactly. Because it looks like it'll go through you overly large 10,000 element array and assign each one to a non-valued integer (unless Delphi has a default assigning value)
If you want it to be different value and not the same you need to do something like increment 'count' (assigning a value to it wouldn't hurt either).

I suppose just try it out.

[addsig]



Quote
 Re: Need some help with programming
Posted by Wild Card on Sun Dec 19th at 3:41am 2004

I'll take your input into consideration Crono Mind you Im still fairly rusty with my programming. I've had to look at examples of codes (for the sorting) and another on the arrays to built mine. Not that the other code was really relevant, but thats how I work.

Anyways, here's what I have now:

? quote:
var
Form1: TForm1;
alpha:array [1..27]of integer; //array de 1 ? 26 pour les lettres A-Z
textlength:array [1..26]of string; //memo1 doit etre egal a 26!!!
count,rank,length:integer;
completed:boolean;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.lines.Clear;
memo2.lines.clear;
memo3.lines.clear;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Close;
end;

procedure Countchars;
begin
for count:= 1 to 26 do
begin
if (textlength[count] = #065) or (textlength[count] = #097) then
alpha[1]:=alpha[1]+1;
if (textlength[count] = #066) or (textlength[count] = #098) then
alpha[2]:=alpha[2]+1;
if (textlength[count] = #067) or (textlength[count] = #099) then
alpha[3]:=alpha[3]+1;
if (textlength[count] = #068) or (textlength[count] = #100) then
alpha[4]:=alpha[4]+1;
if (textlength[count] = #069) or (textlength[count] = #101) then
alpha[5]:=alpha[5]+1;
if (textlength[count] = #070) or (textlength[count] = #102) then
alpha[6]:=alpha[6]+1;
if (textlength[count] = #071) or (textlength[count] = #103) then
alpha[7]:=alpha[7]+1;
if (textlength[count] = #072) or (textlength[count] = #104) then
alpha[8]:=alpha[8]+1;
if (textlength[count] = #073) or (textlength[count] = #105) then
alpha[9]:=alpha[9]+1;
if (textlength[count] = #074) or (textlength[count] = #106) then
alpha[10]:=alpha[10]+1;
if (textlength[count] = #075) or (textlength[count] = #107) then
alpha[11]:=alpha[11]+1;
if (textlength[count] = #076) or (textlength[count] = #108) then
alpha[12]:=alpha[12]+1;
if (textlength[count] = #077) or (textlength[count] = #109) then
alpha[13]:=alpha[13]+1;
if (textlength[count] = #078) or (textlength[count] = #110) then
alpha[14]:=alpha[14]+1;
if (textlength[count] = #079) or (textlength[count] = #111) then
alpha[15]:=alpha[15]+1;
if (textlength[count] = #080) or (textlength[count] = #112) then
alpha[16]:=alpha[16]+1;
if (textlength[count] = #081) or (textlength[count] = #113) then
alpha[17]:=alpha[17]+1;
if (textlength[count] = #082) or (textlength[count] = #114) then
alpha[18]:=alpha[18]+1;
if (textlength[count] = #083) or (textlength[count] = #115) then
alpha[19]:=alpha[19]+1;
if (textlength[count] = #084) or (textlength[count] = #116) then
alpha[20]:=alpha[20]+1;
if (textlength[count] = #085) or (textlength[count] = #117) then
alpha[21]:=alpha[21]+1;
if (textlength[count] = #086) or (textlength[count] = #118) then
alpha[22]:=alpha[22]+1;
if (textlength[count] = #087) or (textlength[count] = #119) then
alpha[23]:=alpha[23]+1;
if (textlength[count] = #088) or (textlength[count] = #120) then
alpha[24]:=alpha[24]+1;
if (textlength[count] = #089) or (textlength[count] = #121) then
alpha[25]:=alpha[25]+1;
if (textlength[count] = #090) or (textlength[count] = #122) then
alpha[26]:=alpha[26]+1;
{Maintenant, tous les lettres son classifi?es dans l'array. Il
faut donc les trier en ordre d?croissant.}
end;
end;

procedure Sort;
var
trie:boolean;
aux,chars:integer;
begin
repeat
trie:=true;
for rank:=1 to 25 do begin
if alpha[rank] < alpha[rank+1] then
begin
aux:=alpha[rank];
alpha[rank]:=alpha[rank+1];
alpha[rank+1]:=aux;
trie:=false;
end;
end;
until trie=true;
//Is the triage really needed?

//WHAT IS WRONG WITH THE 'CASE' INSTRUCTION!?!?!
for count:= 1 to 26 do begin
case alpha[count] of
1: textlength[count]:='E'; //substitue la lettre la plus commune avec la lettre E
2: textlength[count]:='T'; //substitue la lettre la deuxieme plus commune avec la lettre T
3: textlength[count]:='I'; //et ainsi de suite
4: textlength[count]:='A';
5: textlength[count]:='O';
6: textlength[count]:='N';
7: textlength[count]:='S';
8: textlength[count]:='R';
9: textlength[count]:='H';
10: textlength[count]:='C';
11: textlength[count]:='L';
12: textlength[count]:='D';
13: textlength[count]:='P';
14: textlength[count]:='Y';
15: textlength[count]:='U';
16: textlength[count]:='M';
17: textlength[count]:='F';
18: textlength[count]:='B';
19: textlength[count]:='G';
20: textlength[count]:='W';
21: textlength[count]:='V';
22: textlength[count]:='K';
23: textlength[count]:='X';
24: textlength[count]:='Q';
25: textlength[count]:='Z';
26: textlength[count]:='J';
end;
{il faut maintenant reprendre le texte originale
et y substituer les lettres}
end;
for chars:= 1 to 26 do begin
form1.memo2.text:=(form1.memo2.Text+textlength[chars]);
end;
completed:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
completed:=false;
if form1.memo1.Text=('') then showmessage('Enter a message to run the frequency check')
else begin
alpha[1]:=0;
alpha[2]:=0;
alpha[3]:=0;
alpha[4]:=0;
alpha[5]:=0;
alpha[6]:=0;
alpha[7]:=0;
alpha[8]:=0;
alpha[9]:=0;
alpha[10]:=0;
alpha[11]:=0;
alpha[12]:=0;
alpha[13]:=0;
alpha[14]:=0;
alpha[15]:=0;
alpha[16]:=0;
alpha[17]:=0;
alpha[18]:=0;
alpha[19]:=0;
alpha[20]:=0;
alpha[21]:=0;
alpha[22]:=0;
alpha[23]:=0;
alpha[24]:=0;
alpha[25]:=0;
alpha[26]:=0;
memo2.Lines.Clear;
memo3.lines.Clear;
length:=memo1.GetTextLen;
for i:= 1 to 26 do begin
textlength[i] :=form1.memo1.Text[i];
end;
Countchars;
memo3.lines.add('string contains ' +Inttostr(length)+ ' characters');
memo3.lines.add('================================');
memo3.Lines.add('Frequency of letter A: '+Inttostr(alpha[1]));
memo3.Lines.add('Frequency of letter B: '+Inttostr(alpha[2]));
memo3.Lines.add('Frequency of letter C: '+Inttostr(alpha[3]));
memo3.Lines.add('Frequency of letter D: '+Inttostr(alpha[4]));
memo3.Lines.add('Frequency of letter E: '+Inttostr(alpha[5]));
memo3.Lines.add('Frequency of letter F: '+Inttostr(alpha[6]));
memo3.Lines.add('Frequency of letter G: '+Inttostr(alpha[7]));
memo3.Lines.add('Frequency of letter H: '+Inttostr(alpha[8]));
memo3.Lines.add('Frequency of letter I: '+Inttostr(alpha[9]));
memo3.Lines.add('Frequency of letter J: '+Inttostr(alpha[10]));
memo3.Lines.add('Frequency of letter K: '+Inttostr(alpha[11]));
memo3.Lines.add('Frequency of letter L: '+Inttostr(alpha[12]));
memo3.Lines.add('Frequency of letter M: '+Inttostr(alpha[13]));
memo3.Lines.add('Frequency of letter N: '+Inttostr(alpha[14]));
memo3.Lines.add('Frequency of letter O: '+Inttostr(alpha[15]));
memo3.Lines.add('Frequency of letter P: '+Inttostr(alpha[16]));
memo3.Lines.add('Frequency of letter Q: '+Inttostr(alpha[17]));
memo3.Lines.add('Frequency of letter R: '+Inttostr(alpha[18]));
memo3.Lines.add('Frequency of letter S: '+Inttostr(alpha[19]));
memo3.Lines.add('Frequency of letter T: '+Inttostr(alpha[20]));
memo3.Lines.add('Frequency of letter U: '+Inttostr(alpha[21]));
memo3.Lines.add('Frequency of letter V: '+Inttostr(alpha[22]));
memo3.Lines.add('Frequency of letter W: '+Inttostr(alpha[23]));
memo3.Lines.add('Frequency of letter X: '+Inttostr(alpha[24]));
memo3.Lines.add('Frequency of letter Y: '+Inttostr(alpha[25]));
memo3.Lines.add('Frequency of letter Z: '+Inttostr(alpha[26]));
Sort;
if completed=true then Showmessage('Frequency check complete');
end;
end;

end.

I know that I can capture the ammount of times each character appears in the memo box, as I have another box that displays the hits of each character (that last part of the code) But from there. Im kind of in a fix.

The alpha array has 27 values. I had it on 26 values before but it would give a random number for the letter 'Z' (I think it was 1248000 something like that) so I put it to 27 and it works fine. Although I never once use the 27th slot.

The textlength array counts the characters in the memobox. I had it assigned 10 000 values so that I wouldnt be limited to the ammount of text I could enter, however I discovered that the ammount of text has to EXACTLY match the array size. If there is too little text for the array, I get random extra characters counted that dont exist. To much text and the excess is ignored.

But yea, Im stumped on this one. Been playing around with my variables and nothing seems to help.

[addsig]



Quote
 Re: Need some help with programming
Posted by Crono on Sun Dec 19th at 5:17am 2004

Does Delphi start counting arrays at 1 instead of 0?

That extra character could be a null character or newline or something like that which is usually cut off if there isn't enough room (not a null character, obviously it needs to know where to end).

To be honest, the code your putting up is pretty foreign. Not that it's overly complex or anything, it's not complex enough for me to understand in some respects (I have this issue from time to time in maple. I'm too used to C/C++). It seems like you're having Delphi issues and not programming issues. I suggest reading up on exactly how the data types and structures you're using work.

Not to mention it appears that your program is not doing what you said you wanted it to do in your original post.

[addsig]



Quote
 Re: Need some help with programming
Posted by Wild Card on Sun Dec 19th at 8:30pm 2004

Arrays start at whatever number I start them at. So in this case, 1..27 will be 1 to 27, including.

Just looking at your piece of code:

var i = 1;
var j = 65

for (i = 1; i < 27; ++i)
{
if (textlength[i] = j)
{
alpha[i] := ++alpha[i];
}

++j;
}

I dont get why i = 1 and j = 65. Im assuming they are integer variables, but I dont know why you chose 1 and 65 values. Little confused as to what it's supposed to do.

[addsig]



Quote
 Re: Need some help with programming
Posted by scary_jeff on Sun Dec 19th at 9:10pm 2004

WC, all it does is implement what I was trying to explain before. Have another read of that.

Is this for an asignment or something? If so, didn't they give you some idea as to how you go about writing a program like this?



Quote
 Re: Need some help with programming
Posted by Crono on Sun Dec 19th at 9:28pm 2004

? quote:
WC, all it does is implement what I was trying to explain before. Have another read of that.

Is this for an asignment or something? If so, didn't they give you some idea as to how you go about writing a program like this?


Yes.

They are integers. You started repeating the values over and over and over again when a loop is far more efficient (for you).

You started counting from 1 to 26, thus the loop counter is set to 1 and it will stop looping if i is more then or equal to 27 (meaning it will only loop 26 times).
The other value is the ASCII value of the characters that you went through comparing. You started at 65 and counted to 90, you could just as easily loop that part as well incrementing with each iteration. It doesn't matter that you added new code, those parts can be incremented with a integer variable as well.

Like I said, I'm not sure what the program is doing exactly, since you just have the array written over at the end

Not to mention I would rather not lay out an answer if this is an assignment for class, as Jeff questioned.


[addsig]



Quote
 Re: Need some help with programming
Posted by Wild Card on Sun Dec 19th at 9:43pm 2004

No Jeff, this isnt an assignment. I did 2 years in high school with Delphi, and then did 1 year of Java. Now Im continuing on with Delphi on my own time, sometimes going back to my programming teacher, however he is not the best at this. Me and him had to work together on this one and we couldnt solve it. (He helped me confirm my code was working)

And internet or book help is really really limited with Delphi. And Im not as lame as to seek help on the internet. Im not like that.

Ok, exactly what the program is supposed to be doing. Ok, we all know the most basic form of encryption is to change the letter of the alphabet. Such as this for example: If I wrote HELLO and wanted to incrypt it, then perhaps I would type in VNKKW

Simple encryption like this can be broken with character frequency. Used best for long texts however. The most common letter is 'E' followed be 'T' and so on.

My program is supposed to take that encrypted text and decrypt it. The way I think of doing it is having it count all the characters in the memo (the textlength array) and then it will count the identical letters (the alpha array) Then sort that array and change the letters.

If that makes sence. And again, this isnt for a class assignment. I took Delphi programming 2 years ago.

[addsig]



Quote
 Re: Need some help with programming
Posted by Crono on Sun Dec 19th at 10:56pm 2004

Oh, dude. There are algorithms for encryption. And yes, that is very simple encryption

I'm not entirely sure why you chose Delphi over Java though. Java is by far a more powerful language.

Well, if you wanted to use arrays for this you could use a variation of pointer arithmetic and such to get a desired encoding effect. Not sure how you do that in Delphi though.

If you're creating this to have messages encoded or decoded: a MUCH easier way would be to do it by character and just use an equation on each ASCII value to encode or decode. You can keep the strings in arrays if you like. But what you're doing still doesn't make sense, it's just ridiculously inefficient.

Also, don't be discouraged, encryption of any kind isn't a really easy task, especially if the language you use isn't really made for it.


[addsig]



Quote
 Re: Need some help with programming
Posted by Wild Card on Mon Dec 20th at 12:36am 2004

I chose Delphi since it is the first language I learned (if you dont count BASIC which I self tough myself many years back) and I cannot do things as complex as this in Java. Nor do I have a Java editor at home.

I realise now that my use of arrays make the program much more complex and complicated than it auth to be. I guess at the time I had not considered the use of a loop. I will try that now.

The goal of the program at the moment is simply decryption. Perhaps later I will modify it for encryption (which would be almost identical except backwards).

Another thing I have come to realise is that if I use arrays to capture the length of the text, the length of the text and the size of the array must be identical. (IE 100 character text for a 100value array) And I cannot add an integer to the array to make it 1 (or 0 ) to integer value.

I also dont care about wether the letter is uppercase or lowercase, my program would treat them as identical. Which is why I have it set to capture both $065 and $097 for the character 'A'

I will try the loop. Although I am slightly unsure how to proceed on that one. Mind you I was stuck on the arrays too

We'll see.

[addsig]



Quote
 Re: Need some help with programming
Posted by Orpheus on Mon Dec 20th at 12:39am 2004

doesn't it bother you in the least that i do not understand a single bit of this entire thread?

have some mercy on an old fella.. at least post something i can grasp.. perhaps you know of a store that has a sale on some depends?

[addsig]



Quote
 Re: Need some help with programming
Posted by Wild Card on Mon Dec 20th at 12:47am 2004

Can I comfort you by saying I do not fully understand it all myself?

[addsig]



Quote
 Re: Need some help with programming
Posted by SaintGreg on Mon Dec 20th at 4:22am 2004

note: i didn't write this, but it fits this thread like a glove.

WRITE IN C

(sung to The Beatles "Let it Be")

When I find my code in tons of trouble,
Friends and colleagues come to me,
Speaking words of wisdom:
"Write in C."
As the deadline fast approaches,
And bugs are all that I can see,
Somewhere, someone whispers"
"Write in C."
Write in C, write in C,
Write in C, write in C.
LISP is dead and buried,
Write in C.
I used to write a lot of FORTRAN,
for science it worked flawlessly.
Try using it for graphics!
Write in C.
If you've just spent nearly 30 hours
Debugging some assembly,
Soon you will be glad to
Write in C.
Write in C, write in C,
Write In C, yeah, write in C.
Only wimps use BASIC.
Write in C.
Write in C, write in C,
Write in C, oh, write in C.
Pascal won't quite cut it.
Write in C.
Guitar Solo
Write in C, write in C,
Write in C, yeah, write in C.
Don't even mention COBOL.
Write in C.
And when the screen is fuzzy,
And the editor is bugging me.
I'm sick of ones and zeroes.
Write in C.
A thousand people people swear that T.P.
Seven is the one for me.
I hate the word PROCEDURE,
Write in C.
Write in C, write in C,
Write in C, yeah, write in C.
PL1 is 80's,
Write in C.
Write in C, write in C,
Write in C, yeah, write in C.
The government loves ADA,
Write in C.





1
2 next page »
Post Reply