@Anthony_1998

Как сделать, чтобы программа работала без copy, т.е. без процедур и функций в pascal abc.net?

Здравствуйте. Нужна помощь с задачей. Дан текст. Удалить все слова, которые начинаются на одну и ту же букву.
Как сделать, чтобы программа работала без copy, т.е. без процедур и функций в pascal abc?
Вот исходный код:
Program p1;
const
C = [' ', ',', '.'];
var
s,max_word: string;
i,k, prev: integer;
step: boolean;
begin
Write('Введите строку s=');
Read(s);
s:=s + ' ';
prev:=0;
for step:=false to true do
for i:=1 to length(s) do
begin
if s[i] in C then
begin
if i-prev>1 then
begin
if not step then 
begin
if i - prev - 1 > length(max_word) then
max_word := copy(s, prev + 1, i - prev - 1);
end
else 
if s[i - 1] = max_word[length(max_word)] then
write(copy(s, prev + 1, i - prev - 1), ' ');
end;
prev := i;
end;
end;
writeln;
end.
  • Вопрос задан
  • 30 просмотров
Пригласить эксперта
Ответы на вопрос 1
Zoominger
@Zoominger
Сись админ
Код пипец, глаза кровят.
Отформатируйте штоль.

По теме - строка - это массив символов. Массив.
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
Insigne Волгоград
от 50 000 до 100 000 руб.
Индекс.СРО Ростов-на-Дону
от 45 000 до 70 000 руб.
16 июн. 2019, в 19:42
500 руб./за проект
16 июн. 2019, в 18:38
5000 руб./за проект
16 июн. 2019, в 17:14
5000 руб./за проект