|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.05.2008, 17:56 | #1 |
Пользователь
Регистрация: 06.05.2008
Сообщений: 22
|
Помогите исправить ошибку в задаче
Помогите, пожалуйста.
1. Дан список слов. Подсчитать кол-во верных равенств среди S1=S(n), S2=S(n-1), где Si-элемент списка. Type TLisp=^TNode; TNode=record pred:TLisp; info:string; next:TLisp; end; Var p,h,q:TLisp; s:string; k:integer; begin writeln('vvedi s'); readln(s); new(p); p^.info:=s; p^.pred:=nil; p^.next:=nil; readln(s); while s<>'' do begin new(q); q^.info:=s; q^.pred:=p; q^.next:=nil; p:=q; readln(s); end; k:=0; p^.pred:=p^.info; p^.next:=q^.pred; while p<>q do begin if (p^.pred=q^.next) and (p^.next=q^.pred) then k:=k+1; end; writeln(k); end. |
17.05.2008, 18:19 | #2 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Код:
|
18.05.2008, 00:27 | #3 |
Пользователь
Регистрация: 06.05.2008
Сообщений: 22
|
Спасибо огромное за помощь!
|
19.05.2008, 20:55 | #4 |
Пользователь
Регистрация: 06.05.2008
Сообщений: 22
|
А можно ещё один вопросик, вот тут if (p^.info {S(n)} = p^.pred^.info {S(n-1)}) {!} если S(n)=S(n-1), а мне надо S1=S(n). как это написать?
|
19.05.2008, 21:02 | #5 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
В смысле сравнить с первым элементом ?
if (p^.info {S(n)} = head^.info {S(1)}) |
19.05.2008, 21:08 | #6 |
Пользователь
Регистрация: 06.05.2008
Сообщений: 22
|
Мне надо Подсчитать кол-во верных равенств среди S1=S(n), S2=S(n-1).
Паскаль считает, только вот это S(n)=S(n-1). например, 1 qw 2 as 3 zx 4 as 5 qw Должно 1=5, 2=3. И вывести должно ответ 2 |
19.05.2008, 21:11 | #7 |
Пользователь
Регистрация: 06.05.2008
Сообщений: 22
|
да, с первым надо ,а ещё со вторым сравнить n-1, а с третьим сравнить n-2 и т.д.
|
19.05.2008, 21:18 | #8 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Тогда нужно два цикла:
Код:
|
19.05.2008, 21:47 | #9 |
Пользователь
Регистрация: 06.05.2008
Сообщений: 22
|
Спасибо большое за помощь. вот ещё только он выводит именно равные слова, а кол-во их не выводит, пишет 0. а мне надо именно кол-во их.
|
19.05.2008, 22:16 | #10 |
Пользователь
Регистрация: 06.05.2008
Сообщений: 22
|
Спасибо ещё раз большое уже все показывает и работает
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите исправить ошибку в задаче | Vladislav_87 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 04.07.2008 12:27 |
Помогите исправить косяк в задаче на динамические переменные списки | Taisja | Помощь студентам | 2 | 31.05.2008 21:49 |
Помогите дописать и исправить ошибку в задаче | Vladislav_87 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 30.05.2008 00:14 |
Пожалуйста срочно помочь мне исправить ошибку в задаче | Vladislav_87 | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 20.05.2008 20:46 |
Помогите исправить ошибку | Булат | Общие вопросы Delphi | 3 | 25.04.2008 10:01 |