Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.77/47: Рейтинг темы: голосов - 47, средняя оценка - 4.77
 Аватар для bbegles
2 / 2 / 0
Регистрация: 21.05.2013
Сообщений: 36

Посчитать количество точек, запятых и пробелов

22.05.2013, 22:24. Показов 9174. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток...
помогите решить задачи пожалуйста срочно нужно!!!

2. Дана последовательность символов, посчитать кол-во точек, запятых и пробелов
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
22.05.2013, 22:24
Ответы с готовыми решениями:

Не считает пробелы, выдает ошибку.Выяснить, сколько в ней символов-разделителей (пробелов, точек, тире, запятых ит.д.)
s: string; L: integer; i: integer; k: integer; begin write('Введите строку:');readln(s); L:=length(s); for...

Посчитать количество запятых, стоящих после пробела
посчитать количество запятых, стоящих после пробела

Напишите программу, используя подпрограмму-функцию , которая вычислит количество пробелов, запятых в заданном тексте
Пожалуйста , напишите программу , используя подпрограмму-функцию , которая вычеслит количество пробелов , запятых в заданном тексте Я вас...

2
 Аватар для Gidropon
77 / 77 / 52
Регистрация: 28.02.2013
Сообщений: 206
Записей в блоге: 9
23.05.2013, 04:01
Лучший ответ Сообщение было отмечено bbegles как решение

Решение

Цитата Сообщение от bbegles Посмотреть сообщение
Доброго времени суток...
помогите решить задачи пожалуйста срочно нужно!!!

2. Дана последовательность символов, посчитать кол-во точек, запятых и пробелов

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
program xxx;
 
const n = 5; //кол-во символов
 
var c : array [1..n] of char;
        t,z,p,i : integer;
 
begin
    t := 0;
    z := 0;
    p := 0;
    for i := 1 to n do
        begin
            write('Введите символ: ');
            readln(c[i]);
            if c[i] = ' ' then
                inc(p)
            else if c[i] = ',' then
                inc(z)
            else if c[i] = '.' then
                inc(t);
        end;
    writeln('Точек: ',t);
    writeln('Пробелов: ',p);
    writeln('Запятых: ',z);
    readln;
end.
1
 Аватар для Paster Fob
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 570
23.05.2013, 05:49
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  i,j,k,l:byte;
  s:string;
 
begin
  writeln('Введите строку : ');
  readln(s);
  j:=0; k:=0; l:=0;
  for i:=1 to length(s) do begin
    case s[i] of
      ' ' : inc(j);
      ',' : inc(k);
      '.' : inc(l);
    end;
  end;
  writeln('кол-во пробелов : ',j);
  writeln('кол-во запятых : ',k);
  writeln('кол-во точек : ',l);
  readln;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
23.05.2013, 05:49
Помогаю со студенческими работами здесь

Посчитать количество точек и запятых в строке
вобщем большая просьба исправить маленькие недочёты в программе на языке Ассемблер..сделать это надо до 7-8 утра!!вот такая сложная...

В заданной строке посчитать количество точек и запятых
Как написать программу, которая в заданной строке посчитала бы количество точек и запятых?

Записи. Выяснить в сколько строке символов-разделителей (пробелов, точек, тире, запятых ит.д.)
Дана фраза. Выяснить, сколько в ней символов-разделителей (пробелов, точек, тире, запятых ит.д.)

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

Посчитать количество запятых в тексте
Не считает кол-во запятых Проверьте, пожалуйста Sub comma() 'Удалить из текста все запятые и подсчитать их количество Dim text As...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru