Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 02.11.2014
Сообщений: 5
1

Переписать текст в файл output.txt, заменив, где возможно, слова их синонимами

07.12.2014, 22:35. Просмотров 1169. Ответов 1
Метки нет (Все метки)

Файл input.txt содержит несколько строк текста. Слова в тексте могут разделяться пробелами и знаками препинания. Переписать текст в файл output.txt, заменив, где возможно, слова их синонимами. Список синонимов находится в файле sinonim.dat в виде:
слово1 синонимслова1
слово2 синонимслова2
.......................
словоN синонимсловаN
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2014, 22:35
Ответы с готовыми решениями:

Переписать текст в файл output.dat , удалив из текста слова, содержащие более двух различных гласных букв
Помогите решить пожалуйста) Файл Input.dat содержит несколько строк текста. Слова в тексте...

Переписать данные файла input.txt в файл output.txt, отсортировать их в алфавитном порядке по фамилии
Народ меня тут 11 задач мне нужно их подробно прокомментировать какая строчка что делает(пример...

В файле input.txt содержатся сведения о группе студентов. переписать данные файла в файл output.txt, отсортировав их по возрастанию
Добрый вечер!!! Я - новичок по работе с С++, помогите, пожалуйста, написать программу на этом...

Переписать данные файла input.txt в файл output.txt, отсортировав их по убыванию суммы оценок методом вставки (сумму оце
Переписать данные файла input.txt в файл output.txt, отсортировав их по убыванию суммы оценок...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5598 / 3329 / 2407
Регистрация: 22.11.2013
Сообщений: 9,385
08.12.2014, 11:11 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
const
  Delims=[#0..#127]-['0'..'9','A'..'Z','a'..'z'];
var
  fs: Text;
 
function Synonym(s: String): String;
var p: String;
begin
  Synonym:=s; s:=s+' '; Reset(fs); 
  while not EOF(fs) do begin
    ReadLn(fs,p);
    if Pos(s,p)=1 then begin
      Synonym:=Copy(p,Length(s)+1,255); Break;
    end;
  end;
end;
 
var
  s, d, w: String;
  i: Integer;
begin
  Assign(fs,'sinonim.dat');
  Assign(input,'input.txt'); Assign(output,'output.txt');
  Reset(fs); Reset(input); Rewrite(output);
  while not EOF do begin
    ReadLn(s); s:=s+' '; d:=''; w:='';
    for i:=1 to Length(s) do begin
      if s[i] in Delims then begin
        if w>'' then d:=d+Synonym(w);
        d:=d+s[i]; w:='';
      end else w:=w+s[i];
    end;
    WriteLn(Copy(d,1,Length(d)-1));
  end;
  Close(fs); Close(input); Close(output);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2014, 11:11

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

Переписать текст из файла в новый файл, заменив прописные буквы заглавными в словах, где есть одинаковые буквы
Здравствуйте ! Файл input.dat содержит несколько строк текста. Слова в тексте могут разделяться...

Исправить программу, чтоб считывала текст из файла Input.txt и выводит в файл Output.txt
Даны координаты центра и радиус R окружности, координаты точки. Найти точки пересечения касательных...

Считать текст из файла Input.txt и вывести в файл Output.txt все предложения в обратном порядке
написать программу, которая считывает текст из файла Input.txt и выводит в файл Output.txt все...

Переписать данные файла input.txt в файл output.txt, отсортировав их по убыванию суммы оценок методом "пузырька"
(сумму оценко вывести в файл output.txt для каждого студента)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.