Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Найти сумму отрицательных элементов, значения которых кратны 10. https://www.cyberforum.ru/ turbo-pascal/ thread515881.html 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . Найти сумму отрицательных элементов, значения которых кратны 10. 2. Вывести индексы тех элементов, значения которых кратны 5 и 10. 3. Определить, есть ли пара соседних элементов с произведением, равным заданному числу K. В случае отсутствия искомых данных, вывести об этом сообщение. По...	Чтение нескольких файлов одной процедурой с параметром Turbo Pascal Всем здравствуйте! Помогие сделать следующие.. Почитать два файла одной процедурой с параметром и вывести на экран содержимое каждого файла по отдельности. Спасибо.
Turbo Pascal Составить програму для функции заданой графически https://www.cyberforum.ru/ turbo-pascal/ thread515741.html для функции заданной графически , построить аналитическую зависимость . составить програму вычисления значения у при заданом значении аргумента	Turbo Pascal Частота появления каждого байта в файле Здравствуйте. Может кто из знающих людей,скажет,что конкретно нужно изучить для создания,программы в tp. Не прошу готового решения,а просто "наставления"=) Вот само условие задачи : "Создать программу (на языке Pascal или С) определяющую частоту появления каждого байта в файле." Тоесть на что нужно опираться? Заранее благодарю=) https://www.cyberforum.ru/ turbo-pascal/ thread515726.html
Составить программу, которая печатает true, если точка с координатами принадлежит заштрихованной области Turbo Pascal Составить программу, которая печатает true, если точка с координатами (x,y) принадлежит заштрихованной области, и false в противном случае:	Turbo Pascal Нужен md5 на паскале Мне нужно сделать md5 на паскале,пытаюсь найти уже готовые решения в интернете,но все безуспешно и неюзабельно. Кто-нить может скинуть рабочий готовый вариант md5 на паскале? https://www.cyberforum.ru/ turbo-pascal/ thread515712.html
Turbo Pascal сформировать файл из записей, содержащих различные даты; исключить из файла все компоненты, содержащие весенние даты https://www.cyberforum.ru/ turbo-pascal/ thread515705.html Составить программы, с помощью которых: сформировать файл из записей, содержащих различные даты; исключить из файла все компоненты, содержащие весенние даты. Благодарен заранее ;)	Составить программу для вычисления функции Turbo Pascal Составить алгорит и написать программу для решения функции: Y= cos2 (x) / 1 + sin (x) - ln2 (x/ корень кубический из (x-1))
Turbo Pascal Вычислить: y = cos (x) + cos (x^2) + cos (x^3) + . + cos (x^n) Вычислить: y=cos x + cos x2 + cos x3 +...+ cos xn. https://www.cyberforum.ru/ turbo-pascal/ thread515658.html	Turbo Pascal Рaспeчaтaть слова, имeющие мaксимальную длинy (списки\стеки\очереди). Какое решение тут хотят? Задача: Дан текстовый файл. Рaспeчaтaть слова, имeющие мaксимальную длинy Вроде не сложная, но она по теме списки\стеки\очереди. Как их тут правильно использовать? https://www.cyberforum.ru/ turbo-pascal/ thread515642.html
сгенерировать диагональную матрицу (массив), и вывести вектор Turbo Pascal Помогите пожалуйста сгенерировать диагональную матрицу (массив), и вывести вектор. Размер матрицы 10х10, тип - CHAR.	Turbo Pascal Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x (n раз). https://www.cyberforum.ru/ turbo-pascal/ thread515608.html

Фаер

792 / 398 / 260

Регистрация: 09.12.2011

Сообщений: 786

Записей в блоге: 53

11.03.2012, 12:20

Определить, сколько раз в тексте встречается заданное слово - Turbo Pascal - Ответ 2780314

11.03.2012, 12:20. Показов 3525. Ответов 3

Метки (Все метки)

Ответ

Pascal

Uses crt;
Var s,p,t:string; i,k:integer;
Begin
ClrScr;
Write('Input string:'); Readln(s);
Write('Input word:'); Readln(t);
For i:=1 to length(s) do
 If not(s[i]=' ') and not(i=length(s)) then p:=p+s[i] else
  Begin
   If i=length(s) then p:=p+s[length(s)];
   t[1]:=upcase(t[1]); p[1]:=upcase(p[1]);{"поднимаем" первую букву в введенном слове и в слове, полученном из строки}
   If p=t then inc(k);{увеличиваем k на один}
   p:='';
 End;
Write('Kol-vo:',k); Readln;
End.

Вернуться к обсуждению:
Определить, сколько раз в тексте встречается заданное слово Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

11.03.2012, 12:20

Готовые ответы и решения:

Определить, сколько раз в тексте встречается заданное слово
всем привет!) народ помогите поааалуйста а то голова не варит: сколько раз в тексте встречается...

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

Ввести текст. Определить, сколько раз в тексте встречается заданное слово
Помогите.Ввести текст.Определить,сколько раз в тексте встречается заданное слово.Спасибо!)

Сколько раз в тексте встречается заданное слово
прошу помочь!!!! Сколько раз в тексте встречается заданное слово (слова разделены пробелами)?

	11.03.2012, 12:20

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

11.03.2012, 12:20

Помогаю со студенческими работами здесь

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

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

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

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

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

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

Новые блоги и статьи
Как написать микросервис на Go/Golang InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

Наверх