![]() |
|
Другие темы раздела | |
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 - Ответ 482506009.07.2013, 22:03. Показов 1908. Ответов 1
Метки (Все метки)
![]() Решение
Будем считать словом последовательность символов, отличных от символа "пробел", оканчивающуюся символом "пробел".
Вернуться к обсуждению: В заданном тексте указать, сколько раз встречается в тексте первое слово Turbo Pascal
1
|
09.07.2013, 22:03 | |
Готовые ответы и решения:
1
Сколько раз в заданном тексте встречается каждый символ |
09.07.2013, 22:03 | |
Помогаю со студенческими работами здесь
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-фреймворков, предоставляет. . .
|