Перевернуть 2 строки длинной до 1000 символов

@Fakeoke · Регистрация: 28.07.2011

Студворк — интернет-сервис помощи студентам

вообщем смотрите задание
Скрин задания

вот мой код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
program g21;
var s,d:array[0..999] of char;
    i,a,n:integer;
    f,f2:text;
begin
assign(f,'input.txt');
reset(f);
assign(f2,'output.txt');
rewrite(f2);
n:=0;
a:=0;
while not eoln(f) do
begin
inc(n);
read(f,s[n]);
end;
readln(f);
while not eoln(f) do
begin
inc(a);
read(f,d[a]);
end;
close(f);
for i:=n downto 1 do
begin
write(f2,s[n]);
n:=n-1;
end;
writeln(f2);
for i:=a downto 1 do
begin
write(f2,d[a]);
a:=a-1;
end;
close(f2);
read;
end.

что неправильно?
у меня на паскале работает нормально
а на сайте Runtime Error

и вот справка
4)Runtime error, тест N – ваше решение «упало» на претесте N. Скорее всего, решение попыталось поделить что-то на ноль или обратиться к несуществующей части массива. Так же возможно, что ваше решение попыталось писать в файл, или выделить слишком много памяти (например, массив на 108 элементов).

как исправить?

эм...
ваше решение попыталось писать в файл

блин а зачем тогда такое задание?
и как мне его передывать?

@Limonka · 11.11.2011, 18:24

...и у тебя массив на 1000 элементов..

тупость.. если в задании об этом говорится а размер ограничен..

а что за сайт?

@Fakeoke · 11.11.2011, 18:31 **[ТС]**

ну массив то должен быть на 1000 элементов
потому что я строку из 1000 букв загоняю побуквенно в массив
и вывожу массив с последнего до первого, чтобы она перевернулась.

bacs.cs.istu.ru сайт

или можно как-то иначе решить задачу, но я не знаю как

просто если брать просто стринг , без массивов ,то там строка до 255 символов только...
мне предлагали делать через PCHAR
но я даже не шарю что это)

@Страдалецъ · 11.11.2011, 18:49

Строка это уже массив символов. Поэтому достаточно выполнить один раз ReadLn(f, s1) и мы получим за один проход всю строку. И получится тогда примерно так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Assign(f1,'input.txt'); Reset(f1);
Assign(f2,'output.txt'); Rewrite(f2);
while not Eof(f1)
do begin
    ReadLn(f1, s1);
    s2 := s1; // задаем длину новой строки равной исходной
    for i := 0 to Length(s1) - 1
    do s2[i + 1] := s1[Length(s1) - i];
    WriteLn(f2, s2)
    end;
Close(f2);
Close(f1);

@Fakeoke · 11.11.2011, 18:54 **[ТС]**

а можно полную программу?)
чтобы работала )
с var итд
а то я не знаю куда это засунуть

и как в var прописать s1\s2

Новые блоги и статьи Все статьи Все блоги /
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .

@Limonka 2 / 2 / 1 Регистрация: 04.11.2011 Сообщений: 15
	11.11.2011, 18:24
	...и у тебя массив на 1000 элементов.. тупость.. если в задании об этом говорится а размер ограничен.. а что за сайт? 0

@Fakeoke 524 / 400 / 213 Регистрация: 28.07.2011 Сообщений: 2,219
	11.11.2011, 18:31 [ТС]
	ну массив то должен быть на 1000 элементов потому что я строку из 1000 букв загоняю побуквенно в массив и вывожу массив с последнего до первого, чтобы она перевернулась. bacs.cs.istu.ru сайт или можно как-то иначе решить задачу, но я не знаю как просто если брать просто стринг , без массивов ,то там строка до 255 символов только... мне предлагали делать через PCHAR но я даже не шарю что это) 0

@Fakeoke 524 / 400 / 213 Регистрация: 28.07.2011 Сообщений: 2,219
	11.11.2011, 18:54 [ТС]
	а можно полную программу?) чтобы работала ) с var итд а то я не знаю куда это засунуть и как в var прописать s1\s2 0