Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 17.03.2014
Сообщений: 17
1

Переписать текст в файл, удалив из него все слова, начинающиеся с той же буквы ,что и последнее слово последней строки

23.04.2014, 22:47. Просмотров 1089. Ответов 3
Метки нет (Все метки)

Здравствуйте,помогите пожалуйста решить.Работа с файлами.

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

Буду очень благодарна!Очень нужна помощь!
Заранее спасибо!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.04.2014, 22:47
Ответы с готовыми решениями:

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

Преобразовать каждое слово в строке, удалив из него все предыдущие вхождения последней буквы этого слова
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими)....

Напечатать слова, начинающиеся с той же буквы, что и первое слово
Дана строка, состоящая из слов, разделенных пробелами, и оканчивающаяся точкой. Напечатать слова,...

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

3
Модератор
60207 / 45340 / 31284
Регистрация: 18.05.2008
Сообщений: 108,920
28.04.2014, 21:06 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses crt;
const rz=[' ','.',',','-','?','!'];{символы, разделители слов, можно добавить}
var f,g:file of string;
    s,s1:string;
    n,i,k,d,mx:byte;
    cp,c:char;
begin
clrscr;
assign(f,'input.dat');
rewrite(f);{создадим исходный файл}
assign(g,'output.dat');
rewrite(g);{создадим выходной файл}
write('Сколько строк записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  writeln('Строка ',i);
  readln(s);
  write(f,s)
 end;
clrscr;
writeln('Содержание исходного файла');
seek(f,0);
while not eof(f) do
 begin
  read(f,s);
  writeln(s);
 end;
seek(f,filesize(f)-1);{встаем на последнюю строку}
read(f,s);
i:=length(s);
while s[i] in rz do i:=i-1;{пропускаем разделители в конце если есть}
while not(s[i] in rz) do i:=i-1;
cp:=s[i+1];
writeln('Последнее слово последней строки начинается на букву ',cp);
seek(f,0);{встаем в начало}
while not eof(f) do
 begin
  read(f,s);
  i:=1;
  while i<=length(s) do
  if (s[i]=cp)and ((i=1)or(s[i-1] in rz)) then{если буква=cp
   и она первая или перед ней разделитель}
   begin
    while (i<=length(s)) and not(s[i] in rz) do {пока не разделитель и не конец строки}
    delete(s,i,1);{удаляем слово по букве}
   end
  else i:=i+1;
  write(g,s);{преобразованную строку в выходной файл}
 end;
close(f);
seek(g,0);
writeln('Содержание выходного файла');
while not eof(g) do
 begin
  read(g,s);
  writeln(s)
 end;
close(g);
readln
end.
0
0 / 0 / 0
Регистрация: 17.03.2014
Сообщений: 17
28.04.2014, 21:26  [ТС] 3
почему когда я делаю проверку,у меня какие то числа,ведь должен текст измениться?
0
Модератор
60207 / 45340 / 31284
Регистрация: 18.05.2008
Сообщений: 108,920
29.04.2014, 06:24 4
Цитата Сообщение от Ksenia78 Посмотреть сообщение
когда я делаю проверку
Какую проверку? Где числа? Вы пытаетесь смотреть файл? Так это бесполезно, он типизированный и читать его можно только программой. Если бы в задании были текстовые файлы (input.txt), тогда другое дело.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2014, 06:24

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

Напечатать все слова строки, предварительно удалив из каждого слова все предыдущие вхождения последней буквы
дана последовательность слов разделенных пробелами .Напечатать все слова предварительно удалив из...

Дан текст. Удалить из него все слова начинающиеся с гласной буквы
Задача 1: Описать процедуру addright(d,k), добавляющую к целому положительному числу K справа цифру...

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

Преобразовать каждое слово в строке, удалив из него все вхождения первой буквы этого слова
Дана строка, состоящая из символов латинского алфавита, разделенных пробелами (одним или...

Вывести на экран слова начинающиеся с той же буквы, что и первое слово предложения. Напечатать строку после изъятия этих слов.
Помогите, пожалуйста с программой: Вывести на экран слова начинающиеся с той же буквы, что и...

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


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

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

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