Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Постройте с помощью массива стек из 6 строковых элементов https://www.cyberforum.ru/ turbo-pascal/ thread1043211.html
Постройте с помощью массива стек из 6 строковых элементов. Разместите в стеке шесть элементов: ‘name’, ‘fio’, ‘ves’, ‘age’, ‘rost’, ‘dlina’. Удалите из стека два элемента ‘dlina’ и ‘fio’ и добавьте новый элемент ‘size’. Результаты как промежуточных, так и конечных результатов отобразить на экране.
Turbo Pascal Помогите решить задание
В заданном предложении указать слово, в котором доля гласных (A, E, I, O ) максимальна. на турбо паскале
Turbo Pascal Деление нацело https://www.cyberforum.ru/ turbo-pascal/ thread1043187.html
Вывести на печать все трехзначные числа делящиеся нацело на собственные цифры а также перевертыш этого числа делится нацело на свои цифрыprogram laba6; var a,b,c,z,l,k: integer; i:longint; begin i := 100; while i<1000 do begin a:= i div 100; b:=(i mod 100) div 10; c:= i mod 10;
Turbo Pascal В заданном тексте удалить символ В заданном тексте удалить символ <,> и подсчитать количество удаленных символов. https://www.cyberforum.ru/ turbo-pascal/ thread1043182.html
Дан код программы, нужно добавить Turbo Pascal
Дан код программы, нужно сделать данную программу через процедуры. Подскажите, пожалуйста. const n = 5; var a: array of integer; e, i, c, k, imx: integer; f, f1: text; begin
Turbo Pascal Постройте массив стек из 6 строковых элементов https://www.cyberforum.ru/ turbo-pascal/ thread1043177.html
Постройте с помощью массива стек из 6 строковых элементов. Разместите в стеке шесть элементов: ‘name’, ‘fio’, ‘ves’, ‘age’, ‘rost’, ‘dlina’. Удалите из стека два элемента ‘dlina’ и ‘fio’ и добавьте новый элемент ‘size’. Результаты как промежуточных, так и конечных результатов отобразить на экране.
Turbo Pascal Вычислить Вычислить где xи y заданы массивами . дополнение: все суммы вычислять в одной подпрограмме. https://www.cyberforum.ru/ turbo-pascal/ thread1043152.html Turbo Pascal Найти сумму отрицательных элементов
Доброго вечера всем, такая задача) в матрице X (n,m) найти сумму отрицательных элементов спасибо
Turbo Pascal Заполнить элементы массива https://www.cyberforum.ru/ turbo-pascal/ thread1043069.html
Дано массив n-элементов. Заполнить элементы с четными индексами - 0, а с нечетными - 1.
Turbo Pascal Найти произведение отрицательных элементов Добрый вечер, срочно нужна помощь) В общем задача такая В матрице Z (n,m) найти произведение отрицательных элементов. https://www.cyberforum.ru/ turbo-pascal/ thread1043068.html
Turbo Pascal Создание процедур
написать процедуру для вычисления среднего значения для четных элементов вещественного массива W и M элементов
Turbo Pascal Составить уравнение функции https://www.cyberforum.ru/ turbo-pascal/ thread1043045.html
Функция : y(в степени 3x) * ln(y-x) / корень кубический (x-y)
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
17.12.2013, 11:52 0

Определить количество слов, которые начинаются с буквы "А" или "а" - Turbo Pascal - Ответ 5508853

17.12.2013, 11:52. Показов 1583. Ответов 9
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Сейчас сделаем простой вариант...

Добавлено через 8 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const
  AA : Set of Char = ['a','A','а','А'];
Var 
  numA : Longint;
  S    : String;
  i    : Byte;
 
Begin
   numA:=0;
   S:='a it"s testing a staring for acheck work apascode ';
   
   s:=' '+s;
   For i:=1 to Length(S) do
     If (S[i] in AA) and (S[i-1]=' ') then Inc(numA);
   Writeln(numA);
End.


Вернуться к обсуждению:
Определить количество слов, которые начинаются с буквы "А" или "а" Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2013, 11:52
Готовые ответы и решения:

Определить количество слов, которые начинаются с буквы 'a'
Дана непустая последовательность непустых слов из латинских букв, соседние слова отделены друг от...

Определить количество слов, которые начинаются с буквы Ф
Дана строка, состоящая из слов, разделённых пробелами(одной или несколько). Определить количество...

Определить в последовательности количество слов, которые начинаются с буквы a
Дана непустая последовательность слов из латинских букв, соседние слова отделены друг от друга...

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

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

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

Определить количество слов в строке, которые начинаются на одну и ту же буквы
Доброго времени суток! Только начинаю углубляться в программирования на C#. Нужна помощь с...

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

Определить количество слов в веденной строке которые начинаются с большой буквы
помогите пожалучто! Определить количество слов в веденной строке которые начинаются с большой...

Определить количество слов, которые начинаются с буквы "А" или "а"
Дано деякий текст. Групи символів, які розділені пробілами (одним або кількома) та не містять...

Определить количество слов палиндромов которые начинаются с буквы "а"
дан текст заканчивающейся точкой. соседние слова разделены запятыми. Определить количество слов...

Обработка строк. Определить количество слов, которые начинаются с буквы "a".
Дана непустая последовательность непустых слов из латинских букв, соседние слова отделены друг от...

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