Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2019, 22:19   #1
Alter Ego
Новичок
Джуниор
 
Регистрация: 18.12.2019
Сообщений: 5
По умолчанию Вывод в текстовый файл последовательности слов.

Здравствуйте!
Помогите с задачкой, пожалуйста.

Дана последовательность слов. В каждом из них от 3 до 10 латинских букв; между соседними словами − один пробел; за последним словом – точка. Вывести в текстовый файл все слова, преобразовав их по правилу: удалить из слова вторую букву.

Последний раз редактировалось Alter Ego; 18.12.2019 в 22:33.
Alter Ego вне форума Ответить с цитированием
Старый 18.12.2019, 22:42   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
//fpc 3.0.0

program HelloWorld;
var sLine : string;
    i: integer;
    f:text;
begin
    readln(sLine);
    //sLine := 'Hel world.';
    sLine := ' ' + sLine;
    i:=1;
    while i<=length(sLine) do
    begin
        if sline[i] = ' ' then
        begin 
            delete(sline,i+2,1);
        end;
        inc(i);
    end;
    assign(f,'out.txt');rewrite(f);
    for i:=1 to Length(sline) do
    begin
        if sLine[i] <> ' ' then write(f,sline[i])
        else writeln(f);
    end;
    close(f);
end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 18.12.2019, 23:10   #3
Alter Ego
Новичок
Джуниор
 
Регистрация: 18.12.2019
Сообщений: 5
По умолчанию

Aleksandr H.,
Спасибо!
Alter Ego вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Файловый ввод/вывод в языке С: Организовать текстовый файл f, состоящий из N строк. Организовать замену слов в файле. Анастасия_А Помощь студентам 3 28.03.2016 14:32
Вывод линии в текстовый файл Ilya_L Помощь студентам 1 24.10.2011 11:29
Текстовый файл, вывод 123456789igor Паскаль, Turbo Pascal, PascalABC.NET 6 06.06.2011 10:20
Вывод в текстовый файл Krumyura Общие вопросы C/C++ 0 29.03.2010 22:31
Текстовый файл. Подсчитать в нем количество слов, символов, абзацев. Xeon332 Помощь студентам 3 24.12.2009 01:23