0 / 0 / 0
Регистрация: 16.03.2014
Сообщений: 22
|
|
1 | |
В чем ошибка программы?25.03.2014, 16:13. Показов 540. Ответов 4
Метки нет (Все метки)
В чем ошибка программы, помогите исправить. Наверно в основной программе я неправильно обращаюсь к процедуре, посмотрите пожалуйста
Код
unit op; interface var s: string; implementation end. Код
unit obrabotki; interface uses op; implementation function per(p: string): integer; var i: integer; begin per := 1; for i := 1 to length(p) div 2 do if p[i] <> p[length(p) - i + 1] then begin per := 0; break end end; procedure kol(p: string): integer; var i, k: integer; begin s := s + ' '; k := 0; while length(s) > 0 do begin while (length(s) > 0) and (s[1] in [' ', ',', '.', '?', '!', '''', '"', ':', ';']) do delete(s, 1, 1); for i := 1 to length(s) do if s[i] in [' ', ',', '.', '?', '!', '''', '"', ':', ';'] then begin k := k + pal(copy(s, 1, i - 1)); delete(s, 1, i); break end; end. Код
program pro2; uses op,obrabotki; begin per(p); writeln('Введите строку:'); readln(s); kol(k); writeln('Перевертышей: ', k); end.
0
|
25.03.2014, 16:13 | |
Ответы с готовыми решениями:
4
В чем ошибка программы? В чем ошибка программы? Пожалуйста посмотри в чем ошибка данной программы... Не выводится результат работы программы решения числового ребуса, в чём ошибка? |
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
|||||||||||
25.03.2014, 17:34 | 2 | ||||||||||
Здесь
Дошел до
0
|
0 / 0 / 0
Регистрация: 16.03.2014
Сообщений: 22
|
|
25.03.2014, 17:36 [ТС] | 3 |
Puporev, Ошибся, pal нужно заменить на per. Обращается к function per(p: string): integer;
0
|
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
||||||||||||||||
25.03.2014, 17:45 | 4 | |||||||||||||||
Синтаксические ошибки исправил, но программа не работает как должна, нужно вам разбираться в коде.
0
|
0 / 0 / 0
Регистрация: 16.03.2014
Сообщений: 22
|
|
25.03.2014, 17:55 [ТС] | 5 |
Может в модулях наврал, не могу разобраться
0
|
25.03.2014, 17:55 | |
25.03.2014, 17:55 | |
Помогаю со студенческими работами здесь
5
В чем ошибка? При запуске программы открывается консоль и сразу ошибка о завершении программы В чем ошибка программы :) В чем ошибка программы? В чем ошибка программы Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |