![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 13.04.2011
Сообщений: 13
|
![]()
С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавиатуре точки. Посчитать количесво знаков препинания в этом тексте.
вот что получилось Program pr7; var c: char; k: integer; begin writeln (‘vvedite tekst’); readln (c); k:= 0; repeat if (c = ‘ , ‘) or (c = ‘ ! ‘) or (c = ‘ ? ‘) or (c = ‘ : ‘) or (c = ‘ ; ‘) then k:= k + 1; until с = ‘ . ‘ ; writeln (‘kolichestvo znakov prepinania = ‘ , k); readln; end. всё работает, но результата добиться никак не могу((( помогите, пожалуйста, в чем ошибки?? |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 13.04.2011
Сообщений: 13
|
![]()
не выходит....
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 08.01.2010
Сообщений: 205
|
![]() Код:
Тип char - "место" только под один символ,а не под строку. Так что перед repeat писать readln(c) и ожидать, что будет прочитана строка, неправильно, прочтется только один символ. Поэтому в repeat помещаем read(c) - посимвольное считывание, каждый символ на каждом шаге помещается в переменную с
Если помог - кликни на значок весов под аватаром.
Последний раз редактировалось malinoff; 08.05.2011 в 19:01. |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 13.04.2011
Сообщений: 13
|
![]()
блин....у меня всё равно не выходит результата...уже написала как вы сказали
|
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 08.01.2010
Сообщений: 205
|
![]() Код:
Если помог - кликни на значок весов под аватаром.
|
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 21.09.2009
Сообщений: 431
|
![]()
а что если вот так ?
Код:
|
![]() |
![]() |
![]() |
#8 | |
Пользователь
Регистрация: 13.04.2011
Сообщений: 13
|
![]() Цитата:
да, спасибо))) получилось))) |
|
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 08.01.2010
Сообщений: 205
|
![]()
Вот только сможете ли вы объяснить этот код преподавателю...
Если помог - кликни на значок весов под аватаром.
|
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 13.04.2011
Сообщений: 13
|
![]()
да попытаюсь уж как-нибудь
только я вот до сих пор не могу понять, почему не получалось сделать как я первоначально писала |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определить кол-во знаков после запятой | k1r1ch | Общие вопросы Delphi | 3 | 21.03.2023 11:18 |
Счёт кол-во знаков в числе (Pascal) | _fynjy_ | Помощь студентам | 6 | 06.12.2010 20:19 |
Как посчитать количество знаков | PARTOS | Microsoft Office Excel | 11 | 05.06.2010 22:46 |
последовательность знаков препинания | Владимир_король | Помощь студентам | 3 | 29.04.2010 10:56 |
Программа удаления знаков препинания... | hen | Общие вопросы C/C++ | 17 | 11.10.2009 16:57 |