Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
2 / 2 / 1
Регистрация: 11.12.2010
Сообщений: 58
1

Удалить все элементы файла, расположенные после последнего символа пробела, включая сам пробел

04.07.2011, 13:49. Просмотров 1217. Ответов 1
Метки нет (Все метки)

Дан символьный файл содержащий хотя бы один пробел.Удалить все его элементы расположенные после последнего символа пробела включая сам пробел.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.07.2011, 13:49
Ответы с готовыми решениями:

Удалить все элементы файла, расположенные после первого символа пробела
дан символьный файл,содержащий по крайней мере один символ пробела. Удалить все его элементы,...

Удалить все элементы файла, расположенные перед последним пробелом, включая пробел
Дано текстовый файл, содержащий по крайней мере один символ пробела. Удалить все его элементы,...

Работа с файлами. Дан символьный файл. Удалить все его элементы, расположенные после первого символа пробела
Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы,...

Удалить все элементы файла, расположенные перед первым символом пробела, включая и сам этот пробел
Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы,...

1
Модератор
61571 / 46101 / 31821
Регистрация: 18.05.2008
Сообщений: 111,119
04.07.2011, 14:00 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
uses crt;
var f:file of char;
    c:char;
    i,k:integer;
begin
assign(f,'symbol');
rewrite(f);
write('Сколько символов записать в файл k=');
read(k);
writeln('Введите в файл ',k,' символов, в том числе пробел:');
for i:=1 to k do
 begin
  read(c);
  write(f,c);
 end;
reset(f);
clrscr;
writeln('Исходный файл:');
k:=-1;
for i:=0 to filesize(f)-1 do
 begin
  read(f,c);
  write(c);
  if c=' ' then k:=i;
 end;
writeln;
if k=-1 then
 begin
  writeln('Вы забыли ввести пробел, работа программы завершена');
  close(f);
 end
else
 begin
  seek(f,k);
  truncate(f);
  writeln('Удаление символов после последнего пробела, включая его:');
  seek(f,0);
  while not eof(f) do
   begin
    read(f,c);
    write(c);
   end;
  close(f);
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.07.2011, 14:00

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

Удалить все элементы массива, расположенные перед последним символом пробела
Помогите срочно составить задачки:1) дан символьный файл, содержащий по крайней мере один символ...

Удалить из массива все положительные элементы, расположенные до последнего отрицательного элемента
Прошу Вашей помощи. Задача: удалить из массива все положительные элементы, расположенные до...

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

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


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

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

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