@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.
  • Вопрос задан
  • 35 просмотров
Пригласить эксперта
Ответы на вопрос 1
Zoominger
@Zoominger
System Engineer
Код пипец, глаза кровят.
Отформатируйте штоль.

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

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

Войти через центр авторизации
Похожие вопросы