Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Вычислить среднее арифметическое значение тех элементов одномерного массива,которые попадают в интервал от -2 до 10. https://www.cyberforum.ru/ pascal/ thread118167.html
всем! Пожалуйста помогите решить задачу.Очень надо!ГОС! Вычислить среднее арифметическое значение тех элементов одномерного массива,которые попадают в интервал от -2 до 10.Отсортировать по возрастанию?ЕСТЬ КОД 1 задания плиз. 2 вопрос не могу написать Кто может напишите плиз код program z; var kol,i:integer; b:array of integer; sr:real; begin sr:=0;kol:=0; randomize; for i:=1 to...
Pascal Объединить два файла в файл F3 так, чтобы сначала шла компонента из F1, потом из F2
Помогите если можете с программой :wall: Сформировать два файла целых чисел одинаковой длины F1 и F2 . Затем необходимо слить их в файл F3 таким образом, чтобы сначала шла компонента из F1 , потом из F2 и т. д. В файле F3 поменять местами минимальную и предпоследние компоненты. Файлы вывести до и после преобразования. Заранее спасибо вам
Pascal Нужно переделать программку из "записей" в "варианты записей" Помогите пожалуйста..сделать по теме "варианты записи" 1)Багаж пассажира характеризуеться колличеством вещей и общим весом вещей.Дан список о багаже 10 пасажиров.Определить имееться ли пасажир багаж которого состоит из 1 вещей весом менее 30 кг. Я сделал вот вроде,но по теме записи а надо по теме варианты записи.Помогите плиз uses crt; var bag:array of record ves: byte; kvo:... https://www.cyberforum.ru/ pascal/ thread118148.html Pascal найти максимальный элемент среди трехзначных чисел 1. вводится 16 чисел. найти максимальный элемент среди трехзначных чисел и среднее арифметическое четных. 2. вводится текст. конец ввода F6. Найти количество заглавных букв. https://www.cyberforum.ru/ pascal/ thread118136.html
Pascal Что это за ошибка после первого writeln
uses crt, Graph var graphdriver, graphmode: integer; graphpath:string; errorcode:integer begin graphdriver:=detect initgraph (graphdriver,graphmode, ' '); errorcode:=graphresult; if errorcode<> grok then begin
Pascal изобразить на экране график функции https://www.cyberforum.ru/ pascal/ thread118133.html
Привет, помогите пожалуйста изобразить график функции, у меня с грфикой в Pascal очень туго:-( Построить координатные оси и выполнить соответствующие надписи на них. y=x(x-3)(x+1); x принадлежит отрезку a;b
Pascal Найти ошибку в программе Попытался переделать по своему програмку вращения кубика по разным осям, предложенной Vincent - ом в этой теме. https://www.cyberforum.ru/pascal/thread56317.html Но в итоге получилась какая то белиберда. Может кто нибудь подскажет где моя ошибка. Горизонтальные линии отражаются и перемещаются, и мне кажется тоже с ошибками. program G_1; uses CRT,Graph; var A:array of real; R:array ... https://www.cyberforum.ru/ pascal/ thread118114.html Сформировать два множества, первое из которых содержит все простые числа из данного множества, а второе все составные Pascal
Имеется множество, содержащее натуральные числа из некоторого диапазона. Сформировать два множества, первое из которых содержит все простые числа из данного множества, а второе все составные.
Pascal Разреженная вещественная матрица https://www.cyberforum.ru/ pascal/ thread118093.html
Разреженная вещественная матрица записана по строкам в текстовом файле. Компонента файла - это запись, содержащая ненулевой элемент матрицы: два индекса и значение элемента. В первой компоненте вместо индексов записаны размеры матрицы (количество строк и столбцов). Сформировать типизораванный файл, в первой строке которого записать размеры матрицы, а в остальных - все ее элементы, как нулевые,...
Pascal Какие рыбы есть в озере, но нет ни у одного из рыбаков https://www.cyberforum.ru/ pascal/ thread118091.html
пожалуйста ромогите мне решать эту программу. В озере водиться несколькщ видов рыб. три рыбака поймали рыб, представляющих некоторые из имеющихся видов. Определить: -акаие виды рыб есть у каждого рыбка -какие рыбы есть в озере, но нет ни у одного из рыбаков Добавлено через 46 минут разные
Pascal Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше
Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше.(сумма цифр - функция). Напишите прогу или если есть такая то укажите ссылку!!!
Pascal Программма с матрицей, Паскаль/Делфи https://www.cyberforum.ru/ pascal/ thread118071.html
Сижу на зачете. Короче, препод задал такое задание: Зашифровать например свое имя с помощью матрицы в паскале. Ну в моем случае имя зашифровывается по типу: " "(пробел) - "0", "А" - "1", "Б" - "2", ...итд, т.е по алфавиту. Программа должна сама зашифровать мое имя, создать именно квадратную матрицу А , умножить ее на "ключ" (квадратная матрица В, с помощью которого будет зашифровано имя),...
0 / 0 / 0
Регистрация: 26.02.2010
Сообщений: 24
0

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

17.04.2010, 16:52. Показов 1636. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста написать программу , которая находит количество знаков препинания в заданной символьной строке. Чтоб структура программы была похожа на вот эту программу
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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.


Вернуться к обсуждению:
Написать программу, которая находит количество знаков препинания в заданной символьной строке. Pascal
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
17.04.2010, 16:52
Готовые ответы и решения:

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

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

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

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.04.2010, 16:52
Помогаю со студенческими работами здесь

Написать программу, которая считает количество знаков препинания в строке
Написать программу, которая считает количество знаков препинания в строке (List Box)

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

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

Описать функцию, которая возвращает количество знаков препинания в строке
Люди добрые помогите плз не могу написать проги: 1. Описать функцию, которая возвращает количество знаков препинания в строке. 2....

Описать рекурсивную функцию, которая подсчитывает количество знаков препинания в строке
Описать рекурсивную функцию sign (s), которая подсчитывает количество знаков препинания в строке s (знаки: '.', ',', ';', ':').

0
Новые блоги и статьи
Ошибка "Cleartext HTTP traffic not permitted" в Android
hw_wired 13.02.2025
При разработке Android-приложений можно столнуться с неприятной ошибкой "Cleartext HTTP traffic not permitted", которая может серьезно затруднить отладку и тестирование. Эта проблема особенно. . .
Изменение версии по умолчанию в NVM
hw_wired 13.02.2025
Node Version Manager, или коротко NVM - незаменимый инструмент для разработчиков, использующих Node. js. Многие сталкивались с ситуацией, когда разные проекты требуют различных версий Node. js,. . .
Переименование коммита в Git (локального и удаленного)
hw_wired 13.02.2025
Git как система контроля версий предоставляет разработчикам множество средств для управления этой историей, и одним из таких важных средств является возможность изменения сообщений коммитов. Но зачем. . .
Отличия Promise и Observable в Angular
hw_wired 13.02.2025
В веб-разработки асинхронные операции стали неотъемлимой частью почти каждого приложения. Ведь согласитесь, было бы странно, если бы при каждом запросе к серверу или при обработке больших объемов. . .
Сравнение NPM, Gulp, Webpack, Bower, Grunt и Browserify
hw_wired 13.02.2025
В современной веб-разработке существует множество средств сборки и управления зависимостями проектов, каждое из которых решает определенные задачи и имеет свои особенности. Когда я начинаю новый. . .
Отличия AddTransient, AddScoped и AddSingleton в ASP.Net Core DI
hw_wired 13.02.2025
В современной разработке веб-приложений на платформе ASP. NET Core правильное управление зависимостями играет ключевую роль в создании надежного и производительного кода. Фреймворк предоставляет три. . .
Отличия между venv, pyenv, pyvenv, virtualenv, pipenv, conda, virtualenvwrapp­­er, poetry и другими в Python
hw_wired 13.02.2025
В Python существует множество средств для управления зависимостями и виртуальными окружениями, что порой вызывает замешательство даже у опытных разработчиков. Каждый инструмент создавался для решения. . .
Навигация с помощью React Router
hw_wired 13.02.2025
React Router - это наиболее распространенное средство для создания навигации в React-приложениях, без которого сложно представить современную веб-разработку. Когда мы разрабатываем сложное. . .
Ошибка "error:0308010C­­:dig­ital envelope routines::unsup­­ported"
hw_wired 13.02.2025
Если вы сталкиваетесь с ошибкой "error:0308010C:digital envelope routines::unsupported" при разработке Node. js приложений, то наверняка уже успели поломать голову над её решением. Эта коварная ошибка. . .
Подключение к контейнеру Docker и работа с его содержимым
hw_wired 13.02.2025
В мире современной разработки контейнеры Docker изменили подход к созданию, развертыванию и масштабированию приложений. Эта технология позволяет упаковать приложение со всеми его зависимостями в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru