1 / 1 / 0
Регистрация: 19.12.2008
Сообщений: 51
1

Посчитайте количество запятых в заданном тексте

25.12.2008, 20:23. Показов 1400. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1. Посчитайте количество запятых в заданном тексте.
2. Из заданного слова «matematika» составьте слово «mama».
3. Задана строка символов. Вывести в алфавитном порядке все латинские буквы, встречающиеся в строке. Все выводимые буквы преобразовать в прописные. Например, задана строка: «Я учусь программировать на turbo pascal». Результат работы программы: AABCLOPRSTU
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2008, 20:23
Ответы с готовыми решениями:

Подсчитайте количество запятых в заданном тексте
1. Подсчитайте количество запятых в заданном тексте.

Определить количество слов в заданном тексте
Определить количество слов в заданном тексте, содержащих сочетание символов, задаваемое с экрана....

Вычислить количество предложений в заданном тексте
Дано текст, состоящий из нескольких предложений. Для предложений используют знаки знали (! ? . )...

Определить количество предложений в заданном тексте
Определите количество предложений в заданном тексте (предложение заканчивается либо точкой, либо...

4
701 / 573 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
25.12.2008, 21:11 2
Цитата Сообщение от Jereme Посмотреть сообщение
1. Посчитайте количество запятых в заданном тексте.
for i:=1 to length(string) do
if s[i]=',' then inc(count);
0
1 / 1 / 0
Регистрация: 19.12.2008
Сообщений: 51
25.12.2008, 22:10  [ТС] 3
Первые две я уже сам решил))) ПОМОГИТЕ ПЛИЗЗ ТРЕТЬЮ!!!!!!!!!!
0
701 / 573 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
25.12.2008, 22:35 4
если совсем просто и не оптимизированно:
Код
var m1, m2 : set of char;
...
m1 := ['a'..'z'];
m2 := ['A'..'Z'];
for i:=97 to 122 do
  for j:=1 to length(s) do begin
    if (s[j] in m1) and (ord(s[j])=i) then
      write( chr(ord(s[j])-32) )
    else if (s[j] in m2) and ( ord(s[j])=(i-32) ) then
      write( s[j] );
  end;
0
10 / 8 / 2
Регистрация: 25.12.2008
Сообщений: 40
25.12.2008, 22:59 5
Сначала пробиваешь "for`ом" каждый символ на наличее символа "А" или "а" (латинские разумеется) если есть, и записываешь в массив прописной вариант. Потом со следующей буквой. Вот так надо 24 раза перебрать каждый символ и все.
Что не понятно отписывай.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2008, 22:59
Помогаю со студенческими работами здесь

Найти количество слов-полиндромов в заданном тексте.
Как решить задачу??? Дан текст, в котором слова разделены одним или несколькими пробелами. Найти...

Строки. Определить количество слов в заданном тексте
Определить количество слов в заданном тексте

В заданном тексте определить количество слов, которые заканчиваются на букву А
Помогите перевести программу из АВС в Турбо Паскаль заранее спасибо.:declare: var s : string;...

Определить в заданном тексте количество слов - Палиндромов (с использованием процедур)
Помогите решить задачу... (задачу с применением процедур) Составить программу, которая определяет...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru