Comments by Member 10538783

Member 10538783 28-Jan-14 15:11pm View

Oh, yes you're right, thank you very much.

Member 10538783 28-Jan-14 15:04pm View

Deleted

So, no memo ry is allocated when i write the following part of the code?
procedure DoWhatEver(S: string);
begin
val(s,int);
Write(s,' ');
for i:=Small to Big do
if (a[i]=int) then
count[i]:=count[i]+1;
end;

Member 10538783 28-Jan-14 14:26pm View

Thank you very much, it was exactly what i was looking for.

Member 10538783 28-Jan-14 11:01am View

Hi, thank you verymuch for you're help and the time you spent helping me. I corrected my question, and added the hole program i have to make. I've made all the other program, so that's why i put only this part. When you say read a string line from the file, and returned an array of numbers from that, could you explain a little bit simpler what do you mean? I know that i should have known, but i'm a begginer, and i would search on the internet, but the dadline dues really soon, and i'm finishing the other parts.
Thank you very much.

Member 10538783 27-Jan-14 15:03pm View

Yes, you're right, i'm sorry, the compiler i'm using is the Free Pascal Compiler, and i improved my question by puting more details, and by explaining what the program should do.

Member 10538783 27-Jan-14 12:57pm View

I indented my code mannualy, because the indent buttn does not do anything.

Member 10538783 27-Jan-14 12:43pm View

Yes you're right the seekeoln shouldn't be the problem, i erased it and i corrected to the code there is under my question, but it still doesnt't work, is it possibly because of StrToIntDef(n,m)?

Member 10538783 27-Jan-14 11:59am View

Thanks for indenting my code, it's really clearer now what's is written. Now, about the eoln, i tried not to use it, but the last characters of the line are put together with other nums., into the same variable. The problem is that it must be in one variable isolated. Is there sth i could do?

Member 10538783 26-Jan-14 4:57am View

Thank you for the comments.I tried to indent my code a little beat, i hope it's better now. Em, about the seekEoln, do you mean that i shouldn't put readln but read? Although i'm not sure that this is what you meant.

Member 10538783 26-Jan-14 2:17am View

Deleted

The compiler has no error mnessages, but when it comes to run there is exited with exitcode=217. Should i make a new question about the problem or shhould i improve my question, cause i don't see what is wrong.

Member 10538783 25-Jan-14 15:54pm View

O.K., thank you very much.

Member 10538783 25-Jan-14 15:44pm View

Thanks for your help,Well, i'm not exactly sure that you meant that, but has the problem have to do with that the procedure theprogram runs every time each procedure inside it i times and then the next procedure i times, and not each procedure for one time and then the next one for i times, so that's why there is a problem with space? Or that's maybe anothr problem?

Member 10538783 25-Jan-14 15:31pm View

Thanks for your help, but i tried to compile it and it still has the error message.

Member 10538783 25-Jan-14 4:40am View

Thanks for your help, i corrected the last error with the procedure, but the problem with the illegal qyalifier, espesially in procedure the num, is that it must read until the space, and the text that reads from the variable, must have in each line only two nums., that are seperated by only a space, so anything is there anything i could do?

Member 10538783 25-Jan-14 4:35am View

Deleted

Thanks for your help, i corrected the last error with the procedure, but the problem with the illegal qyalifier, espesially in procedure the num, is that it must read until the space, and the text that reads from the variable, must have in each line only two nums., that are seperated by only a space, so should i use a variant?

Member 10538783 21-Jan-14 10:12am View

I wrote it like that, so as to open the file once, only in the main program,
there it is.
Program num;

Var
f:Text;
b,g:String;
c:String[1];

Procedure thenum (a:String);
Begin
Assign(f,'textfileoffile.txt');
Reset(f);
a:='A';
while not eof(f) and (a<>' ') do
begin
Read (f,a);
End;
Writeln(a);
End;

Procedure sth ( j:String);
begin
Assign(f,'textfileoffile.txt');
Reset(f);
j:='A';
while not seekEoln and eof(f) do
begin
read(f,j);
end;
Writeln(j);
End;

begin
Assign(f,'textfileoffile.txt');
repeat
Reset(f);
until eof(f);
thenum (b);
read(f,c);
sth (g);
if eof(f)then
Close(f);
Readln;
End.

Member 10538783 21-Jan-14 9:42am View

Thanks for your help, but i tried to writ it in an another way but it still doesn't work.

Comments by Member 10538783 (Top 17 by date)