Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
1 / 1 / 0
Регистрация: 04.01.2012
Сообщений: 27
1

Будте добры помогите оч над)Создать и заполнить текстовой файл f. Получить файл g, образованный из файла f с исключением всех слов, встречающихся

26.04.2012, 15:26. Просмотров 796. Ответов 3
Метки нет (Все метки)

Создать и заполнить текстовой файл f. Получить файл g, образованный из файла f с исключением всех слов, встречающихся больше одного раза, в исходном файле.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2012, 15:26
Ответы с готовыми решениями:

Получить файл g, образованный из файла f с исключением всех слов, встречающихся больше одного раза
Создать и заполнить текстовой файл f. Получить файл g, образованный из файла f с исключением всех...

Текстовый файл. Получить новый файл, образованный исключением всех слов, встречающихся больше одного раза в исходном файле
Текстовый файл. Создать и заполнить текстовой файл f. Получить файл g, образованный из файла f с...

Дан файл f компоненты которого являются символами получить файл g образованный из файла f с исключением повто
Помогите пожалуйста не могу написать прогу в паскале: дан файл f компоненты которого являются...

Дан файл f, компоненты которого являются целыми числами. Получить файл g, образованный из файла f исключением повторных
Дан файл f, компоненты которого являются целыми числами. Получить файл g, образованный из файла f...

__________________
3
1294 / 466 / 151
Регистрация: 24.08.2011
Сообщений: 2,249
26.04.2012, 15:29 2
Есть ограничение по количеству слов?
0
1 / 1 / 0
Регистрация: 04.01.2012
Сообщений: 27
26.04.2012, 21:20  [ТС] 3
Добавлено через 5 часов 14 минут
Подкиньте алгоритм плс)
0
1294 / 466 / 151
Регистрация: 24.08.2011
Сообщений: 2,249
27.04.2012, 14:33 4
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
37
38
39
40
41
42
43
44
uses crt;
 
var f,f1,g: text;
    nameF,nameG: string;
    wd1,wd2: string;
    k: integer;
 
procedure readWord(var f: text; var wd: string);
var ch: char;
begin wd:='';
repeat
read(f,ch);
wd:=wd + ch;
until (ch = ' ') or (eoln(f));
if ch = ' ' then delete(wd,length(wd),1);
if eoln(f) then readln(f);
end;
 
 
begin clrscr;
write('Imea faila F: '); readln(nameF);
write('Imea faila G: '); readln(nameG);
assign(f,nameF); reset(f);
assign(g,nameG); rewrite(g);
assign(f1,nameF);
 
while not eof(f) do
 begin
 readWord(f,wd1);
 if wd1 = '' then continue;
 reset(f1);
 k:=0;
 while not eof(f1) do
  begin
  readWord(f1,wd2);
  if wd1 = wd2 then inc(k);
  if k = 2 then break;
  end;
 if k < 2 then write(g,wd1,' ');
 end;
 
close(f); close(f1); close(g);
writeln('Dannye byli zapisani v ',nameG);
readkey; end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2012, 14:33

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

Создать и заполнить текстовый файл f получить файл g образованнный из файла f c исключением повторных вхождений одного и того же слова
Создать и заполнить текстовый файл f получить файл g образованнный из файла f c исключением...

Дан файл f, компоненты которого являются целыми числами. Получить файл g, образованный из файла f исключением повторных вхождений одного и того же чис
Помогите пожалуйста, у меня что-то не очень получается разобратся. Задание: Дан файл f, компоненты...

Получить файл g, образованный из файла f исключением повторных вхождений одного и того же числа
Напишите пожалуйста программу. С клавиатуры вводятся натуральное число n и вещественное число x....

Получить файл g, образованный из файла f исключением повторных вхождений одного и того же числа
Дан файл f, компоненты которого являются целыми числами. Получить файл g, образованный из файла f...


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

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

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