Задача на файлы

[Janetka]

RomiKon, а вы в какой программе компилировали???

[Hacker19_90]

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

RomiKon, а вы в какой программе компилировали???

Да делфи(Delphi) это я же говорил

[RomiKon]

Да блин какая разница паскаль или делфи.
Там всего то нужно убрать дерективу предпроцесора и это код на паскале.
Единственая разница между пасом и делфи это ООП

Да в блокноте открой файл Project4.dpr там весь код только удали строку {$APPTYPE CONSOLE} ато я забыл

[Hacker19_90]

вот держи, проверь! первое слово для цепочки это первое слово из файла

program Project4;
uses crt;
var
    F: Text;
    str, Temp, slovo: string;
    i, j: integer;
begin
    clrscr;
    Assign(F, 'ddd.txt');
    Reset (F);
    i:= 1;
    slovo := '';
    while not(Eof(F)) do
    begin
        Readln (F, str);
        for j := 1 to length(str) do
        begin
            if (str[j] <> ' ') then
            begin
                slovo := slovo + str[j];
            end
            else
            if i = 1 then
            begin
            Write (slovo);
            Temp := slovo;
            Inc(i);
            slovo := '';
            end
            else
              if slovo[1] =  Temp[Length(Temp)] then
               begin
               write (slovo);
               Temp := slovo;
               slovo := '';
             end;


        end;

    end;
    Close(F);
    Readkey;
end.

Файл со словами сама сделай txt лежать должен там же где и файл паскаля.
Слова должны быть через пробел; файл должен называться ddd.txt

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

Да блин какая разница паскаль или делфи.
Там всего то нужно убрать дерективу предпроцесора и это код на паскале.
Единственая разница между пасом и делфи это ООП

Да ты шутник

[DIgorevich]

Милая, проверьте пожалуйста, так ли Вам надо:
FILE1.rar

[Janetka]

Спасибо огромное, что помогаете))
Сейчас посмотрю как у меня пойдет)

[Hacker19_90]

Вот даже прикреплю что бы ты не мучилась

[Janetka]

Ураааа!!! Всё работает!!!!!!
Ещё раз большое спасибо вам всем за помощь))
Всего доброго)))

[Hacker19_90]

Кликаем на весы не забываем!

[Janetka]

Ой, опять что-то не так(( Я вот изменила набор слов в текстовом файле и у меня теперь выводит только первое слово((