Программа сравнивает строки ищет одинаковые слова

@iparafin · Регистрация: 15.12.2010

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

Помогите пожалуйста) Программа сравнивает строки ищет одинаковые слова (по идее

)

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
31
32
33
34
35
36
37
38
39
40
41
42
43
var
st1,st1_orig:string;
st2,st2_orig:string;
buf1,buf2:string[100];
prob_1,prob_2:byte;
end_i,i: 1..200;
begin
writeln('1 stroka');
readln(st1_orig);
writeln ('2 stroka');
readln(st2_orig);
end_i:=Length(st1_orig);
for I:=1 to end_i do
begin
if (st1_orig[i]=' ') or (st1_orig[i]=',') then delete(st1_orig,i,1);
end;
end_i:=Length(st2_orig);
for i:=1 to end_i do
begin
if (st2_orig[i]=' ') or (st2_orig[i]=',') then delete (st2_orig,i,1);
end;
st1:=st1_orig;
st2:=st2_orig;
st2:=st2+ ' ';
st1:=st1+ ' ';
writeln ('povtori');
repeat prob_1:=pos('',st1);prob_2:=pos(' ',st2);
       buf1:=copy(st1,1,prob_1);
       buf2:=copy(st2,1,prob_2);
       if buf1 = buf2  then
       write(buf1) else delete(st2,1,prob_2); break;
 
       until (st2=' ') or (buf2=' ');
 
       st2:=st2_orig+' ';
       repeat
       delete (st1,1,prob_1) ;
                                            ОШИБКА В ЭТОМ БЛОКЕ , НО КАК ЕЁ ИСПРАВИТЬ?!
       until st1=' ';
 
       write ('.');
 
       end.

Добавлено через 2 часа 6 минут
Немного переделал, так вроде правильнее.. ПОМОГИТЕ КТО-нибудь ау..ау.

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
uses crt;
var
st1,st1_orig:string;
st2,st2_orig:string;
buf1,buf2:string[100];
prob_1,prob_2:byte;
end_i,i: 1..200;
begin
clrscr;
writeln('1 stroka');
readln(st1_orig);
writeln ('2 stroka');
readln(st2_orig);
end_i:=Length(st1_orig);
for i:=1 to end_i do
begin
if (st1_orig[i]=' ') or (st1_orig[i]=',') then delete (st1_orig,i,1);
end;
end_i:=Length(st2_orig);
for i:=1 to end_i do
begin
if (st2_orig[i]=' ') or (st2_orig[i]=',') then delete (st2_orig,i,1);
end;
st1:=st1_orig;
st2:=st2_orig;
st2:=st2+ ' ';
st1:=st1+ ' ';
writeln ('povtori');
repeat
repeat

ЗДЕСЬ НАЧИНАЕТСЯ ЗАЦИКЛИВАНИЕ.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
 prob_1:=pos(' ',st1);prob_2:=pos(' ',st2);
       buf1:=copy(st1,1,prob_1);
       buf2:=copy(st2,1,prob_2);
       if buf1 = buf2 then
       write(buf1) else delete(st2,1,prob_2);break;
 
       until(st2=' ') or (buf2=' ');
       st2:=st2_orig+' ';
       delete (st1,1,prob_1);
       until st1=' ';
       write ('.');
       end.

@use · 20.12.2010, 10:01

iparafin, у тебя там ошибок целый воз..
Например, зачем ты делаешь вот это:

Pascal
1
2
3
4
5
end_i:=Length(st1_orig);
for i:=1 to end_i do
begin
if (st1_orig[i]=' ') or (st1_orig[i]=',') then delete (st1_orig,i,1);
end;

- ? Это ты типа убираешь все разделители? (это, вообще-то, неверно) Но зачем? Как ты потом будешь бить на слова?
Дальше у тебя еще ошибки - как логические, так и опечатки. Но я не вижу смысла их исправлять. Поясни свой алгоритм..

P.S.
сегодня я кому-то уже решал такую задачу..

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .