Работа со слогами Опции

[Sanek111]

Помогите пожалуйста с решеним одной задачки. Маюсь уже неделю, ищу материалы по данной теме, нигде нет. Нужна мне очень. ПОМОГИТЕ ПЛИЗЗЗ!!!

Вот Задание
а) Определить порядковые номера, считая от начала текста, определенных слогов, которые задаются в исходных данных;

б) сформировать новый текст, в котором каждый такой слог заключен в кавычки.
Заранее спасибо.

Сообщение разделено из темы "Строки"

[klem4]

Охх что-то я не врубился в задание ... мне оно видится вот так :

uses crt;
const slogs : array[1..5] of string = ('ma','lal','abc','tata','lol');
var s,news:string;
    i,j,count:integer;

Begin
   clrscr;
   readln(s);
   i:=1;count:=0;
   news:='';
   while i<=length(s) do
    begin
       for j:=1 to 5 do
        if copy(s,i,length(slogs[j]))=slogs[j] then
         begin
            inc(count);
            writeln(count,'). ',slogs[j]);
            news:=news+concat('"',slogs[j],'"');
         end;
         inc(i);
    end;

    writeln(news);
    readln;
end.

Сообщение отредактировано: klem4 - 30.04.2005 15:59

[Sanek111]

:p2: Прости наверно я не полностью написал условие. Вот пояснение

Существует текстовый файл с расширением .txt, состоящий из строк произвольной длины. Строки разделяются одним символом или несколькими, называемыми разделителями. Разделители разные для всего текста. Текст заканчивается точкой. Необходимо видимо сначала сделать обращение к файлу а потом работать с ним(так препод сказал). Все изменения сохраняются в новом файле с расширением .txt но имя уже другое(опять препод сказал). Слоги водятся с клавы. Помоги пожалуйсто. Бальшо-о-о-о-е-е-е тебе СПАСИБО-О-О-О!

[volvo]

Я не понял, ты в одном месте постишь одно, а в другом - другое? Это что, задания на весь поток? Или только на группу?

Вот задание:
Задан текст, состоящий из строк произвольной длины. Строки разделяются одним символом или несколькими, называемыми разделителями. Разделители одинаковы для всего текста. Текст заканчивается комбинацией двух специальных символов, отличных от разделителя.
Выполнить над текстом последовательность действий, указанную в задании:

а) Определить порядковые номера, считая от начала текста, определенных слогов, которые задаются в исходных данных;

б) сформировать новый текст, в котором каждый такой слог заключен в кавычки.

Ссылку дать, или сам догадаешься, откуда это?

[Sanek111]

Понятия не имею где ты это нашел! Видимо просто у нас подобные задания, вот и все. Извини, что не нашел это сообщение раньше.
Ну помогите решить эту задачу. Я думаю вам это сделать не сложно. Пожалуйсто!!!

[klem4]

Ну так что ? тебе осталось только организовать работу со строками в файле а не с ПРОСТО строкой как у меня, и массив слогов ввести самому а не как у меня в константах. Помойму я нашел все отличия ??

[Guest]

Спасибо тебе огромное. Я все понял. :thanks:

[Sanek111]

:no: А я НЕ-Е-Е-Т. Просто я вообще ни бум-бум в Pascal'e. Можешь написать уже исправленную. И еще помоги пожалуйсто с вводам и выводом в файл. ПЛИЗЗЗЗЗЗЗЗ!!!!!!!!!!!!!! :p2:

[volvo]

Раздвоение личности? С одного и того же IP постишь 2 совершенно разных сообщения? В следующий раз тема просто окажется в мусорке...