Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Дана строка, вывести на экран позиции, на которых встречается буква, введенная с клавиатуры https://www.cyberforum.ru/ pascal/ thread2162577.html
3. Дана строка, вывести на экран позиции, на которых встречается буква, введенная с клавиатуры.
Pascal Напишите программу, которая преобразует строчную латинскую букву в прописную и выводит ее на экран
1. Напишите программу, которая преобразует строчную латинскую букву в прописную и выводит ее на экран.
Pascal Найти количество элементов массива, больших первого элемента массива https://www.cyberforum.ru/ pascal/ thread2162425.html
Одномерные массивы Ввести или сгенерировать одномерный целочисленный массив A размерности N. Найти количество элементов массива больших первого элемента массива.Помогите пожалуйста
Pascal Если в строке массива есть одинаковые символы, то упорядочить символы строки в алфавитном порядке https://www.cyberforum.ru/ pascal/ thread2162379.html
Дан массив строк. Если в строке массива есть одинаковые символы, то упорядочить символы строки в алфавитном порядке.
Pascal Вычислить значение функции
Дано действительное число а. Для функции f(x), график которой представлен ниже (рис. 3), написать программу вычисляющую f(a). ссылка на фото
Pascal Определить, что больше, сумма или произведение чисел Господа,снова здравствуйте! Нужная ваша помощь. Задача: Даны три действительных числа. Определить, что больше, сумма или произведение этих чисел. Если сумма больше произведения на число меньшее единицы, то вывести 0, в противном случае вывести 1. После ввода чисел,ничего не выводит,просто выкидывает обратно в редактор. В чём ошибка? uses crt; var a,b,c:real; S,P:real; begin https://www.cyberforum.ru/ pascal/ thread2162338.html
Pascal Нужно написать программу, чтобы выводило рисунок Нужно нарисовать рисунок, зарисовать многоугольник и кружочки. Сделать, чтобы кружочки двигались по контуру эллипса и уменьшались. Не знаю как сделать. Помогите, пожалуйста. https://www.cyberforum.ru/ pascal/ thread2162256.html Для каждого внутреннего элемента матрицы найти сумму значений его соседей Pascal
Дана целочисленная прямоугольная матрица размера m×n, заполненная случайными числами. Для каждого внутреннего элемента матрицы (то есть кроме крайних строк и столбцов) найти сумму значений его соседей, вывести эти суммы в виде матрицы. Сосед – это элемент матрицы, индексы которого отличаются от данного не более чем на 1.
Pascal Дано натуральное число N. Построить новое число удалением из числа N нечетных цифр https://www.cyberforum.ru/ pascal/ thread2162183.html
Дано натуральное число N. Построить новое число удалением из числа N нечетных цифр. Мне нужно это сделать в Паскале. Например, если ввожу N = 425, то в ответе получится 42
Pascal Получить из заданного массива два: в один записать все простые элементы, в другой – составные Кому не сложно помогите! Задание: Получить из заданного массива два: в один записать все простые элементы, в другой – составные элементы исходного массива. https://www.cyberforum.ru/ pascal/ thread2162062.html
Pascal Написать программу, которая из 30 студентов в группе определяет средний рост девушек
Помогите пожалуйста с программой. Нужно написать программу, которая из 30 студентов в группе определяет средний рост девушек. При условии,что в группе учатся и парни..
Pascal Разработать проект для разложения функции в ряд https://www.cyberforum.ru/ pascal/ thread2161615.html
Здравствуйте.Нужна помощь. Программу написал,а вот разобрать саму формулу не получается. Рис 1. готовая форма для ввода данных Рис 2. функция,которую надо разложить Прошу помощи:help:
Эксперт Pascal/Delphi
6809 / 4566 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
22.12.2017, 19:38 0

Составить программу, которая определяет, встречается ли в тексте первое слово, еще хотя бы раз - Pascal - Ответ 11971936

22.12.2017, 19:38. Показов 1126. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  s, t: string;
  i, k: integer;
 
begin
  readln(s);
  k := 0;
  k := pos(' ', s);
  t := copy(s, 1, k - 1); //первое слово
  delete(s, 1, length(t));
  k := 0;
  k := pos(t, s);
  if k <> 0 then
    writeln('Первое слово "', t, '" в строке встречается еще раз.')
  else
    writeln('Первое слово в строке не встречается.')
end.


Вернуться к обсуждению:
Составить программу, которая определяет, встречается ли в тексте первое слово, еще хотя бы раз Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2017, 19:38
Готовые ответы и решения:

Составить программу, которая определяет первое отрицательное значение функции y= x - sin x на заданном интерва
Составить программу, которая определяет первое отрицательное значение функции y= x - sin x на...

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

Напишите программу, которая определяет, сколько раз в строке встречается слог 'МА
Напишите программу, которая определяет, сколько раз в строке встречается слог 'МА'. Очень прошу,...

Составьте программу, определяющую, сколько раз в тексте встречается заданное слово
Составьте программу, определяющую, сколько раз в тексте встречается заданное слово.

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

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

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

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

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

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