Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Текстовые файлы
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Yakup Yakup вне форума
Member
 
Сообщений: 16
Сказал(а) спасибо: 4
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 16.11.2017
Exclamation Текстовые файлы - 28.11.2017, 17:00

Pascal Код:
var
  f: text;

procedure readFile(f: text);
var
  str: string;
begin
  reset(f);
  while not eof(f) do
  begin
    readln(f, str);
    writeln(str);
  end;
  close(f);
end;

procedure Pum(f: text);
var
  f1: text;
  str: string;
  i, j: integer;
begin
  reset(f);
  assign(f1, 'G2.txt');
  rewrite(f1);
  i := 0;
  while not eof(f) do
  begin
    inc(i);
    readln(f, str);
    if i mod 2 = 0 then
      for j := length(str) downto 1 do
      begin
        write(f1, str[j]);
        write(str[j])
      end
     else
    begin
      writeln(f1, ' ');  
      writeln;
    end;
  end;
  close(f);
  close(f1);
  reset(f);
  rewrite(f);
  erase(f);
  while not eof(f1) do
  begin
    readln(f1, str);
    writeln(f, str);
  end;
  close(f1);
  close(f);
end;

begin
  assign(f, 'G.txt');
  readFile(f);
  writeln;
  Pum(f);
end.
моя программа считывает из файла G.txt строки и удаляет нечетные строки, а четные записывает задом наперед(переворачивает). мне нужно чтобы программа удаляла нечетные СЛОВА, а четные СЛОВА записывала наоборот. только пожалуйста, по моему примеру, там нужно что-то поменять в процедурах. что именно я не понял
Ответить с цитированием
  (#2 (permalink)) Старый
deckard deckard вне форума
Member
 
Сообщений: 79
Сказал(а) спасибо: 0
Поблагодарили 5 раз(а) в 5 сообщениях
Регистрация: 04.03.2008
По умолчанию 29.11.2017, 15:57

Pascal Код:
var a:string;b:string;c:string;slovo:string;

function myLen(s:string):integer;
begin
myLen:=ord(s[0]);
end;

function mymid(s:string;b:integer;L:integer):string;
var i:integer;buf:string[255];
begin
buf:='';
for i:=b to b+L-1 do begin
if i<=myLen(s) then buf:=buf+s[i];
end;
mymid:=buf;
end;

function isspace(z:char):boolean;
begin isspace:=(z<=chr(32)) end;

function issymbol(z:char):boolean;
begin issymbol:=(z>chr(32)) end;

{vhod stroka a, vyhod stroka c}
procedure conv;
var flag:integer;i:integer;
begin
flag:=1;
{obramlyaem stroku probelami}
b:=chr(32)+a+chr(32);
c:='';
for i:=2 to myLen(b) do begin
{esli nachalo slova}
if isspace(b[i-1]) and issymbol(b[i]) then begin flag:=1-flag;slovo:='';end;
{esli konec slova}
if issymbol(b[i-1]) and isspace(b[i]) then c:=c+slovo;
{esli vnutri slova}
if (flag=1) and issymbol(b[i]) then slovo:=b[i]+slovo;
{esli probely}
if isspace(b[i]) then c:=c+b[i];
end;{for}
{usranyaem obramlyaushie probely}
c:=mymid(c,2,mylen(c)-2);
end;

begin
a:='test1 test2 test3 test4 test5';
conv;
writeln(c);
readln;
end.
Ответить с цитированием
Пользователь сказал cпасибо:
Yakup (29.11.2017)
  (#3 (permalink)) Старый
Yakup Yakup вне форума
Member
 
Сообщений: 16
Сказал(а) спасибо: 4
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 16.11.2017
По умолчанию 29.11.2017, 22:15

огромное вам спасибо!!!
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти нужные слова и записать их в другой файл(текстовые файлы)на С. Anjelica С/С++ 0 16.12.2016 10:55
Текстовые файлы (не то что учиться - даже писать самостоятельно не умею) Casillas1 Задания за деньги 2 29.05.2013 19:23
Паскаль АВС текстовые файлы Verun4ik Pascal 0 26.04.2012 20:38
ФАЙЛЫ (текстовые файлы) dianochka Pascal 0 25.04.2011 23:31
Текстовые файлы и потоки ввода и вывода John_Klakson Вопросы начинающих программистов 3 19.10.2010 20:58
Сохранение информации в текстовые файлы Ya_Nika C++ Builder 4 17.03.2008 13:26
Текстовые файлы в Delphi где их найти в интернете Sasyk Delphi 18 09.01.2008 18:28
Текстовые файлы в Soni Ericsson K610I va68dim Программы и софт 6 26.07.2007 20:12
Текстовые файлы как получить все строки imported_MC Pascal 3 20.04.2005 22:16
Текстовые файлы: Создание и добавление записей Gold_Dreamer Delphi 17 18.02.2005 21:33
Текстовые интерфейсы в Dos half Assembler 6 04.08.2004 14:23



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов