Написать программу, которая находит количество знаков препинания в заданной символьной строке.

@АНАСТАСИЯ18 · Регистрация: 26.02.2010

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста написать программу , которая находит количество знаков препинания в заданной символьной строке. Чтоб структура программы была похожа на вот эту программу

Pascal

var s: string;
      i, k: integer;
      z: char;
begin
  write('Input string: ');
  readln(s);
  write('Input symbol: ');
  readln(z);
  i:=0;
  repeat
    i:=i+1;
    k:=0;
    if s[i]=' ' then
      repeat
        k:=k+1;
      until (i+k>length(s)) or (s[i+k]<>' ');
    if i+k-1=length(s)
      then delete(s,i,k)
      else if k>1 then delete(s,i,k-1);
  until (i+1>length(s));
  while pos('#',s)<>0 do
    begin
      insert(z,s,pos('#',s));
      delete(s,pos('#', s),1);
    end;
 
  writeln(s);
  readln;
end.

@yanyk1n · 17.04.2010, 16:55

АНАСТАСИЯ18, у вас тут слишком много чего лишнего для поиска количества:

Pascal

uses crt;
var st:string;
i,k:integer;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 k:=0;
 for i:=1 to length(st) do if st[i] in [',','.',':',';','!','?'] then inc(k);
 writeln(k);
 readln;
end.

Новые блоги и статьи
Как преобразовать список списков в простой список в Python bytestream 22.01.2025 При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .	Что такое GUID / UUID и как их создать bytestream 22.01.2025 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .	Как добавить пустую директорию в репозиторий Git bytestream 22.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с ситуацией, когда необходимо сохранить пустую директорию в репозитории. Данная задача может показаться простой на первый. . .	Как валидировать адрес email в JavaScript bytestream 22.01.2025 JavaScript, как основной язык веб-разработки, предоставляет разработчикам множество инструментов для реализации эффективной валидации email-адресов. От простых встроенных решений до сложных. . .	Как заменить все вхождения подстроки в JavaScript bytestream 22.01.2025 Строки в JavaScript представляют собой неизменяемые последовательности символов, что делает их обработку особенно интересной с точки зрения оптимизации и выбора правильного подхода к решению задач. . . .	Управление версиями пакетов в Node.js. В чем разница между тильдой (~) и кареткой (^) в package.json bytestream 22.01.2025 В современной разработке программного обеспечения управление версиями пакетов играет ключевую роль в обеспечении стабильности и надежности проектов. Node. js, как одна из самых популярных платформ для. . .
Аутентификация на сайте с помощью формы bytestream 21.01.2025 В современном цифровом мире безопасная аутентификация становится краеугольным камнем защиты веб-приложений и пользовательских данных. Каждый день миллионы людей используют различные онлайн-сервисы,. . .	Как получить индекс в цикле for в Python bytestream 21.01.2025 При работе с коллекциями данных в Python часто возникает необходимость не только получить доступ к элементам последовательности, но и знать их позицию в процессе итерации. Индексация в циклах. . .	Как определить адрес, из которого локальный репозиторий Git был клонирован bytestream 21.01.2025 В современной разработке программного обеспечения система контроля версий Git стала неотъемлемой частью рабочего процесса. При работе с Git разработчики часто сталкиваются с необходимостью. . .	Какая разница между операторами == и === в сравнениях в JavaScript bytestream 21.01.2025 В мире веб-разработки JavaScript занимает особое место как динамический язык программирования, предоставляющий разработчикам широкий набор инструментов для создания интерактивных веб-приложений. . . .	Из чего и как собрать свой домашний кинотеатр bt_guru 21.01.2025 Создание домашнего кинотеатра: от идеи до реализации В современном мире домашний кинотеатр стал неотъемлемой частью комфортного жилого пространства, предоставляя возможность наслаждаться. . .	Ошибки стиральных машин bt_guru 21.01.2025 Современные стиральные машины представляют собой сложные электронные устройства, оснащенные множеством датчиков и систем контроля. Они способны самостоятельно определять вес загруженного белья,. . .

	17.04.2010, 16:55

Опции темы