![]() |
|
Другие темы раздела | |
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 |
![]() 0 / 0 / 0
Регистрация: 09.07.2013
Сообщений: 69
|
|
0 | |
В заданном тексте указать, сколько раз встречается в тексте первое слово - Turbo Pascal - Ответ 482390809.07.2013, 17:18. Показов 1908. Ответов 1
Метки (Все метки)
помогите пожалуйста!!!!п
Вернуться к обсуждению: В заданном тексте указать, сколько раз встречается в тексте первое слово Turbo Pascal
0
|
09.07.2013, 17:18 | |
Готовые ответы и решения:
1
Сколько раз в заданном тексте встречается каждый символ |
09.07.2013, 17:18 | |
Помогаю со студенческими работами здесь
0
Для каждого из слов указать, сколько раз оно встречается в тексте.
Подсчитайте, сколько раз в заданном тексте встречается заданный символ |
Новые блоги и статьи
![]() |
||||
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
|
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
|
Манипуляция данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
|
Как создать GUID/UUID в JavaScript
bytestream 17.02.2025
GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .
|
Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели).
Hrethgir 17.02.2025
Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .
|
Как Node.js устроен изнутри
Wired 17.02.2025
Node. js коренным образом изменил подход к веб-разработке, позволив использовать JavaScript не только в браузере, но и на стороне сервера. Созданный в 2009 году Райаном Далем, Node. js представляет. . .
|
Как обновить Node.js в Windows
Wired 17.02.2025
Думаю, многие разработчики сталкивались с ситуацией, когда устаревшая версия Node. js становилась источником проблем - от несовместимости с новыми пакетами до уязвимостей в безопасности. Особенно это. . .
|
Как обновить Node.js в MacOS
Wired 17.02.2025
В Node. js существует несколько подходов к обновлению, каждый из которых имеет свои преимущества и особенности применения. Выбор конкретного метода зависит от ваших потребностей - будь то. . .
|
Как обновить Node.js в Linux
Wired 17.02.2025
Обновление Node. js может показаться сложной задачей, особенно если у вас несколько проектов с разными зависимостями. Однако существует несколько надежных способов обновления, подходящих для разных. . .
|
[golang] 134. Gas Station
alhaos 17.02.2025
Тут нам даны два целочисленных слайса gas и cost, индексы массива представляют собой заправочные станции. а элементы gas это количество топлива на такой станции, cost это количество топлива. . .
|