Перемешать предложения, и вывести результат в другой текстовый файл - Pascal ABC

Формулировка задачи:

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

Код к задаче: «Перемешать предложения, и вывести результат в другой текстовый файл - Pascal ABC»

textual
uses
  crt;
 
const
  N = 1000;
 
var
  f: text;
  t, a: string;
  i, j, k, l, c: integer;
  p: array[1..N] of string;
 
begin
  l := 0;
  k := 1;
  j := 0;
  assign(f, 'input.txt');
  reset(f);
  repeat
    readln(f, a);
    t := t + a;
  until eof(f);
  close(f);
  for i := 1 to length(t) do
  begin
    l := l + 1;
    if t[i] = '.' then begin c := c + 1;j := j + 1;p[j] := copy(t, k, l);l := 0;k := i + 1; end;
  end;
  assign(f, 'output.txt');
  rewrite(f);
  for i := 1 to j do
  begin
    c := random(j) + 1;
    write(f, p[c]);
  end;
  close(f);
end.

6   голосов, оценка 4.667 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы