Арифметическое переполнение паскаль

[Alexmur07]

pass: string;
B: array[1..11,1..4] of integer;
matrix, best_s: Text;

function neg_ctn(n:byte):byte;
var
y,cnt:byte;
begin
cnt:=0;
for y:=1 to 4 do
if B[n,y]<0 then Inc(cnt);
neg_ctn:=cnt;
end;

begin
clrscr;
Assign(matrix,'File.txt');
Assign(best_s,'File.txt');
Rewrite(matrix);
Rewrite(best_s);
N:=0;

repeat
write('Enter password:');
readln(pass);
Val(Copy(pass,length(pass)-1,1),N, code);
if code <> 0 then writeln('Incorrect password');
until code=0;
N:=N+2;
writeln('Password accepted');
writeln('--------------------');

Randomize;
for y:=1 to N do
begin;
for z:=1 to 4 do
begin;
B[y,z]:=Random(129)-64;
write(B[y,z]:4);
end;
writeln;
writeln(matrix);
end;
Writeln('-----------------------');

best_val:=0;
best_str:=0;
for y:=1 to N do
if neg_ctn(y)>best_val then
begin
best_val:=neg_ctn(y);
best_str:=y;
end;
if N>0 then
begin
writeln('Best string');
for y:=1 to 4 do
begin
write(B[best_str,y]:4);
write(best_s,B[best_str,y]:4);
end;
end;

Close(matrix);
Close(best_s);
readln;
end.

если у меня программа паскаль глючит, то можете скрин решения скинуть ??? а то в школе требуют... а я им не могу предоставить... т.к.к всё вроде правильно ... выдаёт ошибку орифметическое переполнение

[Vanta11a]

А что она вообще делает то?

Где именно переполнение?

[Stilet]

И никто не сможет.
Программа не дописана.

Assign(matrix,'File.txt');
Assign(best_s,'File.txt');

Не ль зя открывать файл дважды.
Короче говоря максимум что из нее можно выжать это:

var
  pass: string;
B: array[1..11,1..4] of integer;
matrix, best_s: Text;
n,y,z,best_val,
best_str:integer;

function neg_ctn(n:byte):byte;
var
y,cnt:byte;
begin
cnt:=0;
for y:=1 to 4 do
if B[n,y]<0 then Inc(cnt);
neg_ctn:=cnt;
end;
begin
Assignfile(matrix,'File.txt');
Assignfile(best_s,'File2.txt');
Rewrite(matrix);
Rewrite(best_s);
N:=0;



Randomize;
for y:=1 to N do
begin;
for z:=1 to 4 do
begin;
B[y,z]:=Random(129)-64;
write(B[y,z]:4);
end;
writeln;
writeln(matrix);
end;
Writeln('-----------------------');

best_val:=0;
best_str:=0;
for y:=1 to N do
if neg_ctn(y)>best_val then
begin
best_val:=neg_ctn(y);
best_str:=y;
end;
if N>0 then
begin
writeln('Best string');
for y:=1 to 4 do
begin
write(B[best_str,y]:4);
write(best_s,B[best_str,y]:4);
end;
end;

Close(matrix);
Close(best_s);
readln;
end;

Результат на экране:

-----------------------

[Serge_Bliznykov]

Stilet, +1

Assign(matrix,'File.txt');
Assign(best_s,'File.txt');
Rewrite(matrix);
Rewrite(best_s);

я вообще не понял этого "прикола"!!
Если нужно получить два разных текстовых файла, то нужно дать файлам РАЗНЫЕ имена (как это и сделал Виталий в своём примере).
Если файл один, то и переменная, через которую в этот файл нужно писать должна быть одна...
Весьма и весьма странный код.
Думаю, что Виталий угадал с исправлением!!

[Alexmur07]

всёравно идёт арифметическое переполнение

[Alexmur07]

Сформировать двумерный массив B размером N x 4 (N – количество строк, равное предпоследней цифре пароля +2; 4 – количество столбцов) с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Вычислить и вывести на экран и в файл строку матрицы B, содержащую максимальное количество отрицательных элементов (оформить вычисление количества отрицательных элементов в виде функции). - это задание проверьте что тут не так с рандомом ?

[Alexmur07]

а всё нашёл ошибку...

B[y,z]:=Random(129)-64;

B[y,z]:=-64+Random(129);

- так надо
а до текстового файлика вы зря докапались... там всё правильно ничего менять не надо.

[Vanta11a]

А зачем Вам ";" после begin`a? Может он не на переполнение ругается, а?

[Serge_Bliznykov]

Сообщение от Alexmur07

а до текстового файлика вы зря докапались... там всё правильно ничего менять не надо.

глупости говорить изволите.
Удалите переменную matrix и всё, что с этой переменной связано. Напрочь!

Может он не на переполнение ругается, а?

да нет, скорее всего именно на переполнение.
Есть такая беда в старых компиляторах Паскаля с использованием Random и вычитанием. Компилятор по первому параметру выражения определяет тип, и отводит для Random целочисленный БЕЗЗНАКОВЫЙ тип, а тут неожиданно минус, число становится меньше нуля и возникает переполнение...
Переставить местами операнды это самый простой способ решения проблемы.
(а можно и так поступить, конечно:

.....
for z:=1 to 4 do
begin;
  B[y,z]:=Random(129);
  B[y,z]:=B[y,z]-64;
  write(B[y,z]:4);
end;
....

но переставить операторы местами явно проще (и эффективней).