Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 15.02.2015
Сообщений: 3
1

С клавиатуры последовательно вводятся символы до первого символа "!" Подсчитать количество символов ";"

10.03.2015, 12:33. Показов 1162. Ответов 5
Метки нет (Все метки)

С клавиатуры последовательно вводятся символы до первого символа "!" Подсчитать количество символов ";"
Использовать while do для решения задачи. Помогите, пожалуйста.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2015, 12:33
Ответы с готовыми решениями:

После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами "К" и "Л"
После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами...

Выяснить, есть ли в строке символы "запятая" и "тире" , которые встречаются последовательно.
Заданная строка символов. Выяснить, есть ли в этой последовательности символы "запятая" и "тире" ,...

Подсчитать количество сдвоенных символов "сс" "нн" "лл" в введенном тексте
Подсчитать количество сдвоенных символов "сс" "нн" "лл" в веденном тексе Именно этих символов !!!!

Вычисляет количество символов "A" в одной строке, а в другой - символы "."
Есть две строки с текстом, задание в заголовке... var sa,sk,k:string; procedure...

__________________
5
221 / 219 / 218
Регистрация: 03.07.2012
Сообщений: 460
10.03.2015, 13:23 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses
  crt;
var
  c : char;
  i : byte;
begin
  clrscr;
  while c<>'!' do begin
     c := readkey;
     write(c);
     if c=';' then inc(i);
  end;
  writeln(#10,#13,'Number of symbols ";" ',i);
  readln;
end.
0
1642 / 1071 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
10.03.2015, 13:23 3
Pascal
1
2
3
4
5
6
7
8
9
Uses Crt;
...
Ch:=#0; n:=0;
While Ch<>'!' do
Begin
  Ch:=ReadKey; Write(Ch);
  If Ch=';' then Inc(n);
end;
Writeln(n);
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5720 / 3431 / 2436
Регистрация: 22.11.2013
Сообщений: 9,636
Записей в блоге: 1
10.03.2015, 16:42 4
Pascal
1
2
3
4
5
6
7
8
9
10
var
  c: Char;
  n: Integer;
begin
  repeat
    Read(c);
    if c=';' then Inc(n);
  until c='!';
  WriteLn(n);
end.
0
1642 / 1071 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
10.03.2015, 16:54 5
bormant,
Цитата Сообщение от mbram Посмотреть сообщение
Использовать while do для решения задачи.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5720 / 3431 / 2436
Регистрация: 22.11.2013
Сообщений: 9,636
Записей в блоге: 1
10.03.2015, 17:46 6
APALoff,
не заметил, виноват, исправляюсь:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  c: Char;
  n: Integer;
begin
  c:=' ';
  while c<>'!' do begin
    Read(c);
    if c=';' then Inc(n);
  end;
  WriteLn(n);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2015, 17:46

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Заменить символы "1", "2", "3" словами "один", "два", "три"
Дана строка символов. Заменить символы &quot;1&quot;, &quot;2&quot;, &quot;3&quot; словами &quot;один&quot;, &quot;два&quot;, &quot;три&quot;. Оформить в...

Подсчитать количество предложений в строке, чтобы они начинались с заглавной буквы и заканчивались"." "?" "!"
Буду очень благодарен

Подсчитать количество цифр "5", "6" и "7" (в отдельности) содержащихся в данной строке
Составить алгоритм и программу обработки введенной с клавиатуры строки с использованием стандартных...

В последовательности симаолов, вводимых с клавиатуры , подсчитать количество пар символов "*"
В последовательности симаолов, вводимых с клавиатуры , подсчитать количество пар символов &quot;*&quot;....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.