Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти сумму кубов нечетных цифр данного четырехзначного натурального N
помогите очень нужно!!!! uses crt; var i,n,c,a:integer; s:string; begin write('Ввведите натуральное четырехзначное число:'); readln(n); str(n,s); c:=0; for i:=1 to integer(s) do
Turbo Pascal вычислить y=cos(x)+cos(0.2x)+cos(0.4x)+.+cos(10x)
помогитеееее o_serobaba, var x,y,k:real; begin write('x = ');readln(x); y:=cos(x);k:=0; repeat k:=k+0.2; y:=y+cos(k*x); until(k>=10); writeln('y = ',y:1:3);
Turbo Pascal Сумма отрицательных и среднее геометрическое двумерного массива https://www.cyberforum.ru/ turbo-pascal/ thread919784.html
Задали такую задачу. a= cos(i^2 + j^2/n) Требуется найти сумму отрицательных и среднее геометрическое массива. Спасибо всем заранее)) Arthur159, Множественные задания в одной теме... WriteLn('Среднее геометрическое = ',Dob/(n*m):2:18); это не правильно,так считается среднее арифметическое!WriteLn('Среднее геометрическое = ',Dob/(exp(1/(n*m)*ln(abs(dob)))):2:18);
Вывести на экран только те элементы массива, которые отклоняются от среднего арифметического Turbo Pascal
Ребята помогите решить вот такую задачу. Задан целочисленный массив А. Напишите программу, которая выводит на экран только те его элементы, которые отклоняются от среднего арифметического элементов... program dasha2; var a:array of integer; i,s,t,n:integer; sred:real; begin s:=0; write ('N='); readln (n); write ('T='); readln (t); randomize;
Turbo Pascal Составить программу построения геометрических фигур с использованием оператора case для просмотра результата
Задали такую задачу. Составить программу построения геометрических фигур с использованием оператора case для просмотра результата. Спасибо всем заранее)) Добавлено через 2 часа 51 минуту... Прямоугольник, круг и треугольник. Хватит? Uses Graph; Var d,r: Integer; c: Char; BEGIN d:=Detect; InitGraph(d,r,''); Repeat OutTextXY(10,10,'1: Rectangle');
Turbo Pascal вычислить У https://www.cyberforum.ru/ turbo-pascal/ thread920316.html
Вычислить: y=sin1/1! +sin2/2! + ... +sin6/6! uses crt; var i,f:integer; y:real; begin f:=1; y:=0; for i:=1 to 6 do begin f:=f*i;
Turbo Pascal Определить является ли N нечетным трехзначным числом https://www.cyberforum.ru/ turbo-pascal/ thread920258.html
определить является ли N нечетным трехзначным числом Program chisloN; var N: Integer; begin Write('Введите N: '); ReadLn(N); if (N>99) and (N<1000) and odd(N) then WriteLn('N является нечетным трехзначным числом!') else WriteLn('N не является...
Найти самое длинное слово заданного предложения Turbo Pascal
3. Найти самое длинное слово заданного предложения. Вот что-то типа такого
Turbo Pascal Вычисление высот треугольника
помогите плиз написать эти проги 1)Написать программу с использованием модуля UNIT :1. вычисление высот треугольника ... 1. модуль unit triangl; interface function check(a,b,c: real): boolean; function h(a,b,c: real): real; procedure h3(a,b,c: real); function m(a,b,c: real): real; procedure...
Turbo Pascal Переписать в обратном порядке элементы массива между последним и первым положительным
Ребята помогите решить вот такую задачку. В целочисленном массиве размера N переписать в обратном порядке элементы, расположенные между последним и первым положительными элементами массива. Значение... При компиляции данной программы она нечего не сделал... Ввожу N=5 a=1 a=-2 a=4 a=5 a=-1 Программа выдала
Turbo Pascal Переписать в обратном порядке элементы, расположенные между min и max положительными элементами массива
Ребята помогите решить вот такую задачку. В целочисленном массиве размера N переписать в обратном порядке элементы, расположенные между min и max положительными элементами массива. Значение N и... скажу честно над задачкой пришлось попотеть (не уверен что моё решение является иррациональным но вроде тесты прошла program dasha; var a,b:array of integer; n,i,imin,imax,s:integer; begin...
Turbo Pascal Вычислить произведение ряда вычислить y= (1/(1+5^2))*(1/(1+5^3))..(1/(1+5^10)) произведений 9 должно быть, а не 10 https://www.cyberforum.ru/ turbo-pascal/ thread920277.html
Модератор
10131 / 5465 / 3370
Регистрация: 17.08.2012
Сообщений: 16,703
09.07.2013, 22:03 0

В заданном тексте указать, сколько раз встречается в тексте первое слово - Turbo Pascal - Ответ 4825060

09.07.2013, 22:03. Показов 1908. Ответов 1
Метки (Все метки)

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

Решение

Будем считать словом последовательность символов, отличных от символа "пробел", оканчивающуюся символом "пробел".
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program cntw;
 
var s, p: string; //строка и слово
    i: integer; //счётчик
 
begin
  writeln('Enter text string:');
  readln(s);
  s := s + ' '; //в конце строки добавляем пробел - для упрощения
  while pos (' ', s) = 1 do delete(s, 1, 1); //удаляем пробелы в начале строки
  i := 0; //пока слов нет
  p := copy(s, 1, pos(' ', s)); //копируем первое слово
  while pos(p, s) > 0 do // цикл поиска слов
    begin
      delete(s, pos(p, s), length(p)); //нашли, удаляем из строки
      i := i + 1 //инкремент счётчика
    end;
  writeln('Count of word "', p, '": ', i); //печатаем слово и количество
  readln //ждём-с <Enter>
end.
Всего доброго.

Вернуться к обсуждению:
В заданном тексте указать, сколько раз встречается в тексте первое слово Turbo Pascal
1
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.07.2013, 22:03
Готовые ответы и решения:

Строка: посчитать сколько раз встречается в заданном тексте слово pascal, все прописные символы в данном слове заменить на маленькие
ввести текст, состоящий из латинских букв.посчитать сколько раз встречается в заданном тексте слово pascal, все прописные символы в данном...

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

Сколько раз в заданном тексте встречается каждый символ
выяснить, сколько раз в заданном тексте встречается каждый символ.

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.07.2013, 22:03
Помогаю со студенческими работами здесь

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

Указать (в процентах) сколько раз встречается та или иная буква в тексте
Дан фаил содержащий текст, набранный заглавными русскими буквами. В нем содержатся так же знаки препинания. Провести частичный анализ...

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

Определить, сколько раз в заданном тексте встречается заданный символ
помогите пожалуйста написать программу &quot;Посчитать, сколько раз в заданном тексте встречается заданный символ&quot;.

Подсчитайте, сколько раз в заданном тексте встречается заданный символ
Подсчитайте, сколько раз в заданном тексте встречается заданный символ.

0
Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru