|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.12.2006, 11:32 | #1 |
Регистрация: 11.12.2006
Сообщений: 5
|
Нужна помощь с задачей...никак не могу разобраться(
итак, все по порядку..задача на Паскале, я на 2 курсе, так что там ничего сложного наверное нет, просто я не мог найти свою ошибку(
Условие: в заданной строке символов, где между группами символов стоят пробелы, найти количество групп. Вот мой текст: program ira; var a:string; n,i,k:integer; c:char; begin writeln('vvedi stroku'); readln(a); k:=0; n:=length(a); for i:=1 to n do begin c:=copy(a,i,1); \\здесь ставит ошибку 26:Type mismatch Что это и как исправить? if c:=' ' then k:=k+1; end; writeln(k); readln; end. подскажите пожалуйста, что не так... только сильно не ругайте за мою бестолковость))) я все решила, кроме этой... |
11.12.2006, 13:45 | #2 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,597
|
var a:string;
n,i,k:integer; c:string; Больше, по-моему ошибок нет. |
11.12.2006, 17:47 | #3 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Задача кстати решена не очень хорошо:
1) если я введу строку 'Привет___люди' (за место прочерка три пробела подряд), то результат будет 3!, но групп-то всего 2. 2) если ввести ' hello ' - результат будет 2, а на самом деле 1 3) если ввести 'hello' - результат 0, а на самом деле 1 P.S.: это не ошибка, это недочёт. |
11.12.2006, 21:38 | #4 | |
Регистрация: 11.12.2006
Сообщений: 5
|
Спасибо, видимо в этом и было дело...
Цитата:
|
|
13.12.2006, 14:02 | #5 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
Всё таки если даже строка не пустая и не начинается с пробела, то надо "к" изначально приравнивать не 0, а 1, иначе строка из одного слова будет определяться как 0 групп символов
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Cписки.Помогить плз.Никак разобраться не могу...:( | Digital | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 17.05.2008 10:48 |
Паскаль. Не могу найти ошибку. Нужна помощь! | Nexx | Помощь студентам | 10 | 06.12.2007 19:12 |