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

@Driiim · Регистрация: 25.01.2013

Студворк — интернет-сервис помощи студентам

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

@Luckycat · 16.06.2013, 14:47

Pascal

uses crt;
     var f:text;
         x:string;
         i:integer;
begin
clrscr;
assign(f,'C:\pos.txt'); //Èìÿ è ïóòü ê óæå ñîçäàíîìó ôàéëó
reset(f);
readln(f,x);
close(f);
erase(f);
writeln('Ôàéë ñîäåðæèò: ',x);
for i:=1 to length(x) do
    begin
        if x[i]=' ' then
           begin
               delete(x,i,length(x)-i);
           end;
    end;
assign(f,'C:\pos.txt');
rewrite(f);
writeln(f,x);
close(f);
readkey;
end.

@Driiim · 16.06.2013, 21:11 **[ТС]**

Ошибка ввода/вывода 2: Не удается найти указанный файл (Program1.pas, строка 8)
не работает

Kodzaev · 16.06.2013, 21:14

Driiim, а вы создали файл "pos.txt" на диске C? И что вообще имеется в виду под "символьным файлом", это Text или File of Char?

@Luckycat · 17.06.2013, 17:47

Сообщение от Driiim

Ошибка ввода/вывода 2: Не удается найти указанный файл (Program1.pas, строка 8)
не работает

Создай на диске C файл pos.txt и в него запиши что-нибудь с пробелом

@HoyringyTanaka · 20.04.2017, 15:22

Сообщение от Kodzaev

File of Char

А можете написать программу, где будет использоваться именно этот тип у переменной x?

Добавлено через 27 минут
У меня, просто, очень похожая задача, только нужно перед последним символом пробела удалить элементы. Буду благодарна, если поможете.

@Driiim 0 / 0 / 0 Регистрация: 25.01.2013 Сообщений: 119
		1
	Удалить все элементы файла, расположенные после первого символа пробела 16.06.2013, 11:30. Показов 1922. Ответов 5 Метки нет (Все метки) дан символьный файл,содержащий по крайней мере один символ пробела. Удалить все его элементы, расположенные после первого символа пробела,включая этот пробел. выручайте, не допускают до зачета 0

@Driiim 0 / 0 / 0 Регистрация: 25.01.2013 Сообщений: 119
	16.06.2013, 21:11 [ТС]	3
	Ошибка ввода/вывода 2: Не удается найти указанный файл (Program1.pas, строка 8) не работает 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	16.06.2013, 21:14	4
	Driiim, а вы создали файл "pos.txt" на диске C? И что вообще имеется в виду под "символьным файлом", это Text или File of Char? 1

@Luckycat 3 / 3 / 2 Регистрация: 23.03.2013 Сообщений: 22
	17.06.2013, 17:47	5
	Сообщение от Driiim Ошибка ввода/вывода 2: Не удается найти указанный файл (Program1.pas, строка 8) не работает Создай на диске C файл pos.txt и в него запиши что-нибудь с пробелом 0

@HoyringyTanaka 0 / 0 / 1 Регистрация: 19.02.2017 Сообщений: 22
	20.04.2017, 15:22	6
	Сообщение от Kodzaev File of Char А можете написать программу, где будет использоваться именно этот тип у переменной x? Добавлено через 27 минут У меня, просто, очень похожая задача, только нужно перед последним символом пробела удалить элементы. Буду благодарна, если поможете. 0

Опции темы