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

@анна2 · Регистрация: 03.04.2011

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

нужна программа в паскале помогите пожалуйста!!!
Программа, только её нужно доделать, она записывает последнее слово в файл "test.txt" в корневом каталоге паскаля, а нужно чтобы записывала все слова, но у последнего убирала ПРЕДпоследнюю букву.

Pascal

var
st, tmp : string;
i : integer;
f : text;
a : byte;
begin
st := 'nol odin dwa tri chetiri piat shest sem vosem deviat.';
writeln('Dana posledovatelnost svov:');
writeln(st);
 
assign(f, 'test.txt');
rewrite(f);
 
while length(st) > 0 do begin
a := pos(' ',st);
if a = 0 then a := pos('.',st);
tmp := copy(st, 1, a-1);
delete(st, 1, a)
end;
writeln(f,tmp);
close(f);
writeln('obrabotano i zapisano v fail!');
readln;
end.

@daslex · 14.12.2011, 23:40

Если тебе как-то поможет, могу предложить другой код
(правда сделано в консоли делфи, но там разница от паскаля маленькая)

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

Pascal

         program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var St,St1:String;
    F:TextFile;
 
     procedure SaveToFile;
     Begin
          AssignFile(F,'MyFile.txt');
          Append(F);
            writeln(F,St1);
          CloseFile(F);
     end;
 
     procedure GetSlovo;
     Begin
         St1:=Copy(St,1,pos(' ',St));;
         if length(St1)>1 then Delete(St1,length(St1)-2,1);
         St:=Copy(St,pos(' ',St)+1,length(St)-pos(' ',St)+1);
    end;
 
 
begin
AssignFile(F,'MyFile.txt');Rewrite(F);CloseFile(F); {сразу создаем пустой файл}
 
   St:='12109 1 12333 42123 1';
   St1:=St;
   repeat
   GetSlovo;
   SaveToFile;
   until pos(' ',St)=0;
 
           if length(St)>1 then Delete(St,length(St)-2,1);
           AssignFile(F,'MyFile.txt');
           Append(F);
               writeln(F,St);
           CloseFile(F);  ;
end.

Строка = 12109 1 12333 42123 1
============
результат записи в файл
1219
1
1233
4213
1
============
я так понял тебе такое надо

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

@анна2 · 15.12.2011, 00:01 **[ТС]**

здесь убирает у первой предпоследнюю..а мне надо у последнего слова

@daslex · 15.12.2011, 00:36

здесь убирает у первой предпоследнюю..а мне надо у последнего слова

Здесь он убирает у каждого из всех, а не у первого.
Просто последний символ = 1 буква и сделано, чтоб одну не удалял.

Чтоб только у последнего убирать можно сразу после присваивания в своём коде S:=nnnn nnn nnn.
написать Delete(S,length(St)-1,1);
Отделять слова и записывать в файл. это даже проще

Берешь пишешь так

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var St,St1:String;
      F:TextFile;
      i,N:Integer;
 
 
    procedure SaveInFile;
    Begin
       St1:=Copy(St,1,pos(' ',St));
       AssignFile(F,'MyFile.txt');
       Append(F);
         writeln(F,St1);
       CloseFile(F);
       Delete(St,1,pos(' ',St));
    end;
 
begin
i:=0;N:=0;
  AssignFile(F,'MyFile.txt');
  Rewrite(F);
  CloseFile(F);
  St:='Odin dwa tri chetire piat';
 
   repeat
   SaveInFile;
   until pos(' ',St)=0;
 
   if length(st)>0 then Delete(St,length(St)-1,1);
   AssignFile(F,'MyFile.txt');
   Append(F);
    writeln(F,St);
   CloseFile(F);
end.

St:='Odin dwa tri chetire piat';
=============
В Файл
Odin
dwa
tri
chetire
pit

@анна2 · 16.12.2011, 16:55 **[ТС]**

а помогите чтобы удалялась в каждом лове последняя буква?

@daslex · 16.12.2011, 19:02

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

@анна2 0 / 0 / 0 Регистрация: 03.04.2011 Сообщений: 20
	15.12.2011, 00:01 [ТС]	3
	здесь убирает у первой предпоследнюю..а мне надо у последнего слова 0

@анна2 0 / 0 / 0 Регистрация: 03.04.2011 Сообщений: 20
	16.12.2011, 16:55 [ТС]	5
	а помогите чтобы удалялась в каждом лове последняя буква? 0

@daslex 1373 / 596 / 199 Регистрация: 02.08.2011 Сообщений: 2,882
	16.12.2011, 19:02	6
	Поиграйте пока немного с первым кодом. Там обработка каждого слова. Только позицию поменять поиграете, может усвоите что-нибудь 0