Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal Найти сумму тех членов ряда, модуль которых больше или равен заданному е https://www.cyberforum.ru/ turbo-pascal/ thread924207.html
задание Даны числовой ряд и некоторое число е. Найти сумму тех членов ряда, модуль которых больше или равен заданному е. вот числовой ряд an=1/2n+1/3n... явно ,что любой член ряда можно... 		Turbo Pascal Определите, какое наименьшее число операций необходимо, чтобы получить из числа 1 число N
Имеется калькулятор, который выполняет три операции: 1. Прибавить к числу X единицу. 2. Умножить число X на 2. 3. Умножить число X на 3. Определите, какое наименьшее число операций необходимо для...
Turbo Pascal Поменять местами элементы массива 1-6,2-5,3-4 https://www.cyberforum.ru/ turbo-pascal/ thread924179.html
Условие такое:Дан массив .Поменять местами элементы массива 1-6,2-5,3-4.Программу написала вроде работает но педагог не доволен ,говорит надо формулу написать.То что я написала детский вариант.... 		Turbo Pascal Определите процентное содержание в массиве отрицательных чисел https://www.cyberforum.ru/ turbo-pascal/ thread924175.html
3определите процентное содержание в массиве отрицательных чисел. Количество элементов в массиве вводится с клавиатуры.
Turbo Pascal удалите из массива все четные числа
удалите из массива все четные числа 		Turbo Pascal Вычислить произведение элементов массива, расположенных между максимальным и минимальным элементами https://www.cyberforum.ru/ turbo-pascal/ thread924173.html
Вычислить произведение элементов массива, расположенных между максимальным и минимальным элементами. При наличии нескольких максимальных или минимальных элементов (равных друг другу) выбираются...
Turbo Pascal В массиве определить максимальный и минимальный элементы, поменять их местами https://www.cyberforum.ru/ turbo-pascal/ thread924155.html
В веденном массиве определить max и min элементы,поменять их местами.Вывести новый массив на печать. 		Turbo Pascal Введенную матрицу трансформировать, вычислить ее минор и определитель
Введенную матрицу трансформировать,вычислить ее минор и определитель. 1 2 3 2 1 3 3 2 1
Turbo Pascal Выделить в отдельный массив все фамилии начинающиеся на букву А https://www.cyberforum.ru/ turbo-pascal/ thread924103.html
из списка фамилий выделить в отдельный массив все фамилии начинающиеся на букву А используя усечение delete Добавлено через 2 часа 46 минут Никто не сможет помоч?( 		Turbo Pascal Написать программу создания модуля UNIT: 1)Сумма положительных элементов 2)от min до max https://www.cyberforum.ru/ turbo-pascal/ thread924101.html
Написать программу создания модуля UNIT: 1)Сумма положительных элементов 2)от min до max Добавлено через 20 часов 0 минут вверх
Найти наименьшее значение функции Turbo Pascal
Найти наименьшее значение функции y=a*e^(b*x)*sin(b*x+c) при изменении аргумента х в интервале от 0 до 1 с шагом h=0.1 		Turbo Pascal Определение фамилии Используя усечение Delete ,в введенном с клавиатуры массиве фамилий определить фамилии на заданную конкретную букву поиска.Список вывести на печать. https://www.cyberforum.ru/ turbo-pascal/ thread924094.html
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
17.07.2013, 03:45 0

Дана строка-предложения посчитать количество слов, которые начинаются и заканчиваются на один и тот же символ - Turbo Pascal - Ответ 4851819

17.07.2013, 03:45. Показов 1431. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено DASHA_93 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

uses crt;
const p=[' ','.',',',':',';','!','?','-','(',')','"'];
var s, slovo: string;
    i,k: byte;
 
begin
write('-->'); readln(s);
s:=s+' ';
slovo:='';
for i:=1 to length(s) do
    if not (s[i] in p) then slovo:=slovo+s[i] else
       if length(slovo)>0 then
          begin
          if slovo[1]=slovo[length(slovo)] then inc(k);
          slovo:='';
          end;
writeln('Количество слов, начинающихся и заканчивающихся на одну букву ',k);
readln;
end.
есть и другие варианты...

Вернуться к обсуждению:
Дана строка-предложения посчитать количество слов, которые начинаются и заканчиваются на один и тот же символ Turbo Pascal
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 17.07.2013, 03:45
Готовые ответы и решения:

Вычислить количество слов, которые начинаются и заканчиваются на один и тот же символ с учетом регистра
Здравствуйте, помогите пожалуйста с решением данной задачи :3 (нужно написать на С) Вычислить...

Удалить из строки все слова, которые начинаются и заканчиваются на один и тот же символ
Подскажите пожалуйста, в чем ошибка Console.WriteLine("Введите строку"); ...

Дана строка, посчитать количество слов, которые начинаются на букву «к»
1 Помогите, помогите, я не мог решить след-у задачи 2. Дана строка, посчитать количество...

Дана строка, посчитать количество слов, которые начинаются на букву 'k'
Помогите написать программу. Дана строка, посчитать количество слов, которые начинаются на букву...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 17.07.2013, 03:45
Помогаю со студенческими работами здесь

Начинаются и заканчиваются ли строки на один и тот же символ
Пользователь вводит две строки и если они начинаются и заканчиваются на один и тот же символ...

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

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

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

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

Вывести на экран текст состоящий из слов которые начинаются и заканчиваются на одинаковый символ
Дан текст. Вывести на экран текст состоящий из слов которые начинаются и заканчиваются на...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru