Задачка на множества, Паскаль - Страница 2

pashasnuff · 05.05.2014, 20:36

Исправил на стринг, да АБЦ, врое работает, но вот ошибку выдает

Когда ввожу: рррр, аааа
Вот эту ошибку выдает.
Ошибка времени выполнения: Индекс находился вне границ массива.

pashasnuff · 05.05.2014, 20:38

Когда вводишь аааа, рррр
Выдает такую ошибку
Ошибка времени выполнения: Индекс находился вне границ массива.

Vladimir_S · 05.05.2014, 20:40

Цитата:

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

Когда ввожу: рррр, аааа Вот эту ошибку выдает. Ошибка времени выполнения: Индекс находился вне границ массива.

А, понятно. Исправьте диапазон массива Codes так, чтобы он начинался не с 1, а с 0 (просто замените 1 на 0).
P.S. Ну зачем же тестировать на таких примерах, где совпадений нет вовсе? Я как-то считал, что хоть одно, да найдется.

Да, и еще N задайте типом Integer.

pashasnuff · 05.05.2014, 20:46

Все равно, ошибка вылазит_(

Vladimir_S · 05.05.2014, 20:53

Всё, разобрался.
Строку
i,j,k,N:Byte;
меняем на
i,j,k,N:Integer;

pashasnuff · 05.05.2014, 20:59

Владимир, спасибо огромное а нельзя ли упростить текст программы?
конструкции repeat - until нельзя ли чем нибудь заменить? просто буквально только что начали Паскаль изучать, еще такого не проходили

Vladimir_S · 05.05.2014, 21:12

Цитата:

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

Владимир, спасибо огромное а нельзя ли упростить текст программы?
конструкции repeat - until нельзя ли чем нибудь заменить? просто буквально только что начали Паскаль изучать, еще такого не проходили

Ну нет, вот это уж пожалуйста без меня. Скажите преподавателю, что настолько увлеклись, что цикл с постусловием освоили самостоятельно.

. Правда, боюсь, не поверит...

pashasnuff · 05.05.2014, 21:21

А ну окей)
Кстати вопрос, я хочу сделать чтоб если ничего не ввел то он говорит что строка пустая и обратно идет на ввод строки, пишу я
if length(s)=0 then
writeln('пусто');
ставлю end в конце а он говорит что вместо end ожидалось ;
не разберусь в чем проблема?

poiu · 05.05.2014, 23:57

repeat
clrscr;
Writeln('Enter the string:');
readln(s);
if length(s) = 0 then writeln('Empty string!');
until length(s) <> 0;

Vladimir_S · 06.05.2014, 09:33

Цитата:

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

clrscr;

Только уж если используется эта команда, то не забыть в начале программы поставить "uses CRT;" (без кавычек, естественно). Во всяком случае, в нормальном Паскале так, а как в этом... ладно, не буду.

05.05.2014, 20:36	#11 (permalink)
pashasnuff Member Регистрация: 16.04.2014 Сообщений: 51 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Исправил на стринг, да АБЦ, врое работает, но вот ошибку выдает Когда ввожу: рррр, аааа Вот эту ошибку выдает. Ошибка времени выполнения: Индекс находился вне границ массива.

05.05.2014, 20:36
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Пожалуйста, не торопитесь решать все самостоятельно, просмотрите схожие проблемы Программа на Паскаль. Множества Множества

05.05.2014, 20:38	#12 (permalink)
pashasnuff Member Регистрация: 16.04.2014 Сообщений: 51 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Когда вводишь аааа, рррр Выдает такую ошибку Ошибка времени выполнения: Индекс находился вне границ массива.

05.05.2014, 20:46	#14 (permalink)
pashasnuff Member Регистрация: 16.04.2014 Сообщений: 51 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Все равно, ошибка вылазит_(

05.05.2014, 20:53	#15 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Всё, разобрался. Строку i,j,k,N:Byte; меняем на i,j,k,N:Integer;

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

05.05.2014, 20:59	#16 (permalink)
pashasnuff Member Регистрация: 16.04.2014 Сообщений: 51 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Владимир, спасибо огромное а нельзя ли упростить текст программы? конструкции repeat - until нельзя ли чем нибудь заменить? просто буквально только что начали Паскаль изучать, еще такого не проходили

05.05.2014, 21:21	#18 (permalink)
pashasnuff Member Регистрация: 16.04.2014 Сообщений: 51 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	А ну окей) Кстати вопрос, я хочу сделать чтоб если ничего не ввел то он говорит что строка пустая и обратно идет на ввод строки, пишу я if length(s)=0 then writeln('пусто'); ставлю end в конце а он говорит что вместо end ожидалось ; не разберусь в чем проблема?

05.05.2014, 23:57	#19 (permalink)
poiu Member Регистрация: 05.03.2014 Сообщений: 200 Сказал(а) спасибо: 2 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 834	repeat clrscr; Writeln('Enter the string:'); readln(s); if length(s) = 0 then writeln('Empty string!'); until length(s) <> 0;