Program1 pas 13 ошибка времени выполнения индекс находился вне границ массива

LR16

0 / 0 / 2

Регистрация: 15.03.2015

Сообщений: 20

Метки нет (Все метки)

Здравствуйте!
Столкнулся с ошибкой:
[Ошибка времени выполнения: Индекс находится вне границ массива]

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

var f: textfile; n: longint;
    text: string; s: char;
begin
assignfile(f,'file.txt');
reset(f);
while (not eof(f)) do
  begin
    readln(f,s);
    inc(n);
    text[n] := s // ЭТУ строку подсвечивает
  end;
 n:=0;  
 while (not eof(f)) do
 begin
    inc(n);
    write(ord(text[n])+3);
  end;
  close(f);
end.

1646 / 1075 / 1081

Регистрация: 03.07.2013

Сообщений: 4,507

0 / 0 / 2

Регистрация: 15.03.2015

Сообщений: 20

APALoff

1646 / 1075 / 1081

Регистрация: 03.07.2013

Сообщений: 4,507

И не поможет, инициализировать надо тоже с умом.

Можно поставить единицу, но у Вас скорее всего всплывет потом еще одна ошибка в строке 16.
Но дело даже не в ней. Вы изначально оперируете с символами строки не заданной изначально длины.

Добавлено через 2 минуты
Т.е., Pabc.NET за Вас инициализирует переменную «text» нулевым значением, т.е. text:=»;
А Вы пытаетесь изменить символы в позициях превышающих длину строки.
Надо не изменять, а суммировать:

а надо

1

text:=text+s;

Добавлено через 1 минуту
Только учтите, что после накопления строки, Выше значение n будет превышать истинное значение на единицу.

9466 / 4792 / 3208

Регистрация: 17.08.2012

Сообщений: 15,022

0 / 0 / 2

Регистрация: 15.03.2015

Сообщений: 20

1646 / 1075 / 1081

Регистрация: 03.07.2013

Сообщений: 4,507

LR16, выше Cyborg Drone дополнил то, что я проглядел (textfile).

Добавлено через 1 минуту
Вообще да, какая то каша получается, а не код.

0 / 0 / 2

Регистрация: 15.03.2015

Сообщений: 20

Может я написал не правильно, но имелся ввиду вывод на экран..
А, точно, файл закрыт.. извините, во втором цикле должен был написать длину строки..
За остальное спасибо!

9466 / 4792 / 3208

Регистрация: 17.08.2012

Сообщений: 15,022

APALoff

1646 / 1075 / 1081

Регистрация: 03.07.2013

Сообщений: 4,507

Если это вывод на экран, то не правильно — у Вас цикл привязан к файлу.
Напишите просто

1

Writeln(text);

Добавлено через 40 секунд
А нет, не пойдёт. Сначала надо сделать кодирование.

0 / 0 / 2

Регистрация: 15.03.2015

Сообщений: 20

APALoff

1646 / 1075 / 1081

Регистрация: 03.07.2013

Сообщений: 4,507

LR16

0 / 0 / 2

Регистрация: 15.03.2015

Сообщений: 20

Да я понял, усложнил себе задачу просто..

Добавлено через 7 минут

Да, че-то тупанул с самого начала.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

var f: textfile; n, i: longint;
    text: string; s: char;
begin
  AssignFile(f,'file.txt');
  reset(f);
  while (not eof(f)) do
    begin
      readln(f,s);
      inc(n);
      text:=text+s
    end;
  close(f);
  
  for i:=1 to n-1 do text[i]:=Chr(ord(text[i])+3);
  write('RES: ',text);
end.

Опять где-то накосячил, только один символ выводит. P.S. там забыл вернуть номер символа опять в символ CHR, спасибо..

1646 / 1075 / 1081

Регистрация: 03.07.2013

Сообщений: 4,507

Тут уже можно изменить на просто n, без «-1»

Добавлено через 1 минуту
А еще Вам писали:

Думаю надо READ, без LN

Добавлено через 1 минуту
Хотя я в Pabc.NET не сильно еще знаком с обработкой файлов…

0 / 0 / 2

Регистрация: 15.03.2015

Сообщений: 20

Ого, сработало, большое Спасибо !)
————
Да, это на Цезаре тренировался, в программе кодирования по XOR ошибка, не хотел захламлять лишним кодом.

Cyborg Drone

9466 / 4792 / 3208

Регистрация: 17.08.2012

Сообщений: 15,022

Ну не знаю… Во-первых, как правило, шифр Цезаря строится на ограниченном и закольцованном множестве символов, у Вас же — на всех символах. Как Вы думаете, каков будет результат преобразования для трёх последних символов кодовой таблицы? Правильно, весьма ошибочный. Скорее всего, программа вылетит с оговоркой, что нельзя привести какой-нибудь word или integer к типу char. Тем не менее, если из Вашей программы повытряхнуть всё лишнее, то будет так:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

var f: textfile;
    i: integer;
    text: string;
begin
  AssignFile(f, 'file.txt');
  reset(f);
  while not eof(f) do
    begin
      readln(f, text);
      for i := 1 to length(text) do text[i] := chr(ord(text[i]) + 3);
      writeln(text)
    end;
  close(f);
  readln
end.

LR16

0 / 0 / 2

Регистрация: 15.03.2015

Сообщений: 20

БОЛЬШОЕ СПАСИБО ВАМ )
Я ошибочно выразился, делал другую программу, там произошла затычка над которой ломал голову 2 часа.
Решил обратится к Вам, но чтобы не захламлять форум, сделал другую прогу(покороче) с той-же ошибкой.
———
Какраз теперь доделал основную.
2 процедуры, функция + основной код. Вот основа программы, функция:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

function cry_xor(text,key:string):string;
var ln,lnk,i:longint; longkey, res: string;
    tx: char;
begin
ln := Length(text);
lnk := Length(key);
  
  For i := 0 to ln div lnk do
    longkey := longkey + key;
  
  For i := 1 to ln-2 do
    begin
      // XOR algorithm
      tx := chr((ord(text[i]) xor ord(longkey[i])));
      res := res + tx
    end;
    cryptxor := res
end;

===============
Ещё раз Спасибо Вам за помощь, когда буду программировать получше(да и теперь стараюсь), буду также помогать начинающим програмам на форуме. Пока-что сам фигею с задач в темах.

Выдаёт ошибку:
Program1.pas(12) : Ошибка времени выполнения: Входная строка имела неверный формат.
Код:

program massbouble;
var
f:text;
buf:array [0..20] of integer;
i,j,z,temp:integer;
begin
 assign(f,'input.txt');
  reset(F);
  i:=0;
  while (not eof(f)) do
begin 
  read(f,buf[i]);
  i:=i+1
end;
for j:=0 to i-1 do
for z:=0 to i-j-1 do 
  begin
   if buf[z]<buf[z-1]
   then
   begin
   temp:=buf[z];
   buf[z]:=buf[z-1];
   buf[z-1]:=temp;
end;
close(F);
end;
assign (f,'output.txt');
 rewrite (F);
  for j:=0 to i-1 do
  write (f,buf[j]);
  close (F);
end.

Отредактировал: looks12, — 21.6.2014, 19:32

Цитата(Revelation @ 21.6.2014, 20:33)

Содержимое input.txt ?

20 19 18 1 5 2 4 3 6 8 7 9 17 15 16 10 12 11 13 14

Теперь
Program1.pas(18) : Ошибка времени выполнения: Индекс находился вне границ массива.

А где крутые хацкеры или дудосеры?

Отредактировал: looks12, — 21.6.2014, 20:08

Поблагодарили 2 раз

Цитата(Predat0r @ 21.6.2014, 21:09)

На cyberforum’e

Оффтоп:
Predator,
Хах. Так ты же вроде хвастался, что Pascal учит логике и все такое.
А почему не выучил то?

Цитата(Esecman @ 21.6.2014, 21:19)

Хах. Так ты же вроде хвастался, что Pascal учит логике и все такое.

Как я мог такое сказать, если паскаль говн%?

Отредактировал: Predat0r, — 21.6.2014, 21:12

Поблагодарили 4 раз

как бэ символы, которые читаются имеют формат CHAR, а не Integer
индекс вне границ массива — естественно, ибо читается каждый символ:

(20) = 2символа + пробел =3
(19) = 2 +пробел = 3
и т.д..
зы. Еще у тебя «close» в цикле весит, отсюда еще одна ошибка

короче ошибок уйма

Отредактировал: nsgenn, — 22.6.2014, 5:28

Цитата(nsgenn @ 22.6.2014, 6:17)

Спасибо, но уже нашёл и исправил ошибки.
Да паскаль не радость на задача была поставлена и её надо было решить.

Отредактировал: looks12, — 22.6.2014, 8:11

Цитата(looks12 @ 22.6.2014, 10:10)

Да паскаль не радость на задача была поставлена и её надо было решить.

Вы еще с асмом не знакомились. Попривыкали к халявному алфавиту ))

Отредактировал: nsgenn, — 22.6.2014, 8:45

Цитата(nsgenn @ 22.6.2014, 9:44)

Вы еще с асмом не знакомились. Попривыкали к халявному алфавиту ))

В KOI-то века знакомился с данным господином.