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

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


textual

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

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



Похожие ответы
  1. Дано n кол-во слов. Нужно перемешать их наугад без повторений и вывести. Если возможно в 3 столбика

  1. 1. Написать программу, которая считывает текст из файла и выводит на экран только предложения, состоящие из заданного количества слов.Добавлено через 5 часов 50 минут Людцы добрые, помогитеееее=)

  1. 2. Введите с клавиатуры фразу, например «Мама мыла раму, а Маша ела кашу». Поменяйте местами части предложения, стоящие до запятой и после союза «а». Например: «Маша ела кашу, а мама мыла раму». Задайте исходной и полученной фразе разный цвет текста.

  1. Необходимо перемешать массив так, чтобы одинаковые числа в нём не стояли рядом. А если это не возможно вывести "0". А да с начала вводится кол-во элементов массива, а потом сами элементы. Вот, что у меня получилось. Но работает криво...

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

  1. Здравствуйте. Я только первый год учусь на программиста и не совсем ещё разбираюсь. Помогите пожалуйста решить задачку и если не сложно с объяснением. Вот задача "Ввести два предложения и найти такую (максимально большую) часть первого предложения, которая входит во второе предложение." ,

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