Текстовый файл. Вывести строки, содержащие одинаковые слова

@Marishka1789 · Регистрация: 18.06.2011

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

Вывести на экран и в текстовый файл строки данного текстового файла, содержащие одинаковые слова. Если таких строк нет, предусмотрите в программе вывод соответствующего сообщения
Решите на паскале абс срочно задачу пожалуйста...

@Krot-buterbrod · 07.05.2012, 22:08

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var adr1,adr2,st,s: string;
    f1,f2: text;
    a: array [1..100] of string;
    i,j,k,t: integer;
    b: boolean;
begin
     write('Input: '); readln(adr1);
     write('Output: '); readln(adr2);
     assign(f1,adr1); assign(f2,adr2);
     reset(f1); rewrite(f2);
     repeat
           k:=1;
           readln(f1,st); s:=st; st:=st+' '; b:=false;
           repeat
                 i:=pos(' ',st);
                 a[k]:=copy(st,1,i);
                 delete(st,1,i);
                 inc(k);
           until st='';
           for i:=1 to k-1 do begin
               for j:=i+1 to k do
                   if a[i]=a[j] then begin
                      writeln(f2,s); writeln(s); b:=true; inc(t); break;
                   end;
               if b=true then break;
           end;
     until eof(f1);
     if t=0 then writeln('No simular strings');
     close(f1); close(f2);
end.

Новые блоги и статьи Все статьи Все блоги /
Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .	Система статов в Unity GameUnited 20.04.2025 Статы — фундаментальный элемент игрового дизайна, который определяет характеристики персонажей, предметов и других объектов в игровом мире. Будь то показатель силы в RPG, скорость передвижения в. . .	Статические свойства и методы в TypeScript run.dev 20.04.2025 TypeScript прочно занял своё место в системе современной веб-разработки. Этот строго типизированный язык программирования не просто расширяет возможности JavaScript — он делает разработку более. . .	Batch Transform и Batch Gizmo Drawing API в Unity GameUnited 20.04.2025 В мире разработки игр и приложений на Unity производительность всегда была критическим фактором успеха. Создатели игр постоянно балансируют между визуальной привлекательностью и плавностью работы. . .	Звук в Unity: Рандомизация с Audio Random Container GameUnited 20.04.2025 В современных играх звуковое оформление часто становится элементом, который либо полностью погружает игрока в виртуальный мир, либо разрушает атмосферу за считанные минуты. Представьте: вы исследуете. . .
Максимальная производительность C#: Советы, тестирование и заключение stackOverflow 20.04.2025 Погружение в мир микрооптимизаций C# открывает перед разработчиком целый арсенал мощных техник. Но как определить, где и когда их применять? Ответ начинается с точных измерений и профилирования. . . .	Максимальная производительность C#: Предсказание ветвлений stackOverflow 20.04.2025 Третий ключевой аспект низкоуровневой оптимизации — предсказание ветвлений. Эта тема менее известна среди разработчиков, но её влияние на производительность может быть колоссальным. Чтобы понять. . .	Максимальная производительность C#: Векторизация (SIMD) stackOverflow 20.04.2025 Помимо работы с кэшем, другим ключевым аспектом низкоуровневой оптимизации является векторизация вычислений. SIMD (Single Instruction, Multiple Data) позволяет обрабатывать несколько элементов данных. . .	Максимальная производительность C#: Процессорный кэш stackOverflow 20.04.2025 Знакомство с внутренним устройством процессорного кэша — ключевой шаг в написании по-настоящему быстрого кода на C#. Этот слой архитектуры компьютера часто ускользает от внимания разработчиков, но. . .	Максимальная производительность C#: Введение в микрооптимизации stackOverflow 20.04.2025 В мире разработки на C# многие привыкли полагаться на . NET Runtime, который "магическим образом" сам оптимизирует код. И часто это работает - современные JIT-компиляторы творят чудеса. Но когда речь. . .

@Marishka1789 2 / 2 / 0 Регистрация: 18.06.2011 Сообщений: 48

	Текстовый файл. Вывести строки, содержащие одинаковые слова 07.05.2012, 19:53. Показов 2649. Ответов 1 Метки нет (Все метки) Вывести на экран и в текстовый файл строки данного текстового файла, содержащие одинаковые слова. Если таких строк нет, предусмотрите в программе вывод соответствующего сообщения Решите на паскале абс срочно задачу пожалуйста... 0

Опции темы

Текстовый файл. Вывести строки, содержащие одинаковые слова

Решение