VPF::[Паскаль] - работа с текстовыми файлами

ivka

Дата 21.10.2007, 22:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 21.10.2007

Репутация: нет
Всего: нет

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

объясните как её сделать и понять... smile

если можете,присылайте инфо на майл... [email protected] smile

volvo877

Дата 21.10.2007, 23:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

Alix

Дата 22.10.2007, 11:45 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 1
Всего: 23

Код

program Project1;

procedure reverseString(var s : string);
var
  i : integer;
  c : char;
  len : integer;

begin
  len := length(s);
  for i := 1 to (len div 2) do begin
    c := s[i];
    s[i] := s[len - i + 1];
    s[len - i + 1] := c;
  end;
end;

var
  fileIn,
  fileOut : Text;
  s : string;

begin
  Assign(fileIn, 'input.txt');
  Reset(fileIn);

  Assign(fileOut, 'output.txt');
  Rewrite(fileOut);

  while not eof(fileIn) do begin
    readln(fileIn, s);
    reverseString(s);
    writeln(fileOut, s);
  end;

  close(fileIn);
  close(fileOut);
end.

вроде все верно, если что непонятно - спрашивай

M
Rodman

Используйте корректную подсветку!

Это сообщение отредактировал(а) Rodman - 22.10.2007, 12:03

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »