Вычислить числовую последовательность при условии, n - натуральное, х - действительное - Pascal - Ответ 609258

Другие темы раздела
Pascal Игнорирование ошибок при поиске в тексте https://www.cyberforum.ru/ pascal/ thread106246.html В текстовом файле, нахожу ключевое слово, и вывожу текст под ним(типа толковый словарь) Но вот незадача, как сделать так чтобы поиск был с погрешностью(то есть ключевое слово можно было бы вводить... а при вводе слова "изчо" он тебе ответит "ещё"? Ты бы лучше русский язык учил!	Дан текст, в котором имеются цифры: Найти их произведение, найти минимальную цифру. Pascal Дан текст, в котором имеются цифры: Найти их произведение. Найти минимальную цифру. uses crt; var s:string; min,i:byte; p:longint; begin clrscr; writeln('Введи текст'); readln(s); p:=1;min:=9; for i:=1 to length(s) do
Pascal 2 задания на тему строки Здраствуйте. Помогите решить задачи: 1 Проверить, какая из 2ух букв 'а' или 'е' встречается чаще. 2 Задан текст, распечатать номера позиций на которых встречается буква 'к' 1 Проверить, какая из 2ух букв 'а' или 'е' встречается чаще. .... a:=0; e:=0; For i:=1 to length(S) do If S='a' then inc(a) else if S='e' then inc(e); If a>e then writeln('а больше') else if... https://www.cyberforum.ru/ pascal/ thread106309.html	Нахождение разности между max и min элементами одномерного массива Pascal Люди добрые помогите пожалуйста решить задачу: Составить программу нахождения разности между max и min элементами одномерного массива #include <stdafx.h> #include <iostream> const int N=5; int main() { setlocale(LC_ALL,"Russian"); int max,min,i; int a; double otn;
Pascal одномерный массив..паскаль авс училку в универе не устраивает ...она хочет чтоб эти 2 задачи выглядели проще ...помогите !!! вот еще раз эти задачи В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1.... а вы не могли бы в общем виде показать как выглядит по вашему первая задача ..очень прошу	Pascal Целой переменной k присвоить первую цифру из дробной части положительного вещественного числа как присвоить целой переменной k первую цифру из дробной части положительного вещественного числа? если кто знает скажите плиз? k:= trunc(X); Добавлено через 1 минуту это просто целую часть. если нужна только первая цифра, то: k:= trunc(X); while k div 10 <>0 do k:=k div 10; https://www.cyberforum.ru/ pascal/ thread106308.html
Pascal Найти максимальный элемент массива В одномерном массиве, состоящем из n вещественных элементов, вычислить: Максимальный элемент массива. В одномерном массиве, состоящем из n вещественных элементов, вычислить: Максимальный элемент массива. var a:array of real; i,j:integer; buf:real; begin for i:= 1 to n do ... https://www.cyberforum.ru/ pascal/ thread106316.html	Pascal Последовательность из N чисел https://www.cyberforum.ru/ pascal/ thread106275.html Дана последовательность из n чисел. Вывести последовательность из чисел , которые находятся после максимального элемента данной последовательности . Дана последовательность из n чисел. Вывести последовательность из чисел , которые находятся после максимального элемента данной последовательности . function f_max(n:byte; mas:array of...
Pascal написание программы используя оператор if Люди помогите зделать програмку. Если сумма трех попарно разных действительных чисел меньше единици, тогда меншее с этих трех чисел заменить полусумой двух других; в другом случае заменить меншее с... Замени if (x+y+x)<1 then на if (x+y+z)<1 then	Pascal crt - Вывести фамилию, имя, отчество в центре экрана https://www.cyberforum.ru/ pascal/ thread106244.html Точно задания не помню, но вроде бы так: "Вывести фамилию, имя, отчество в центре экрана. Каждое слово разным цветом, а имя вывести посимвольно, т.е. чтобы каждая буква в имени была отдельна,... s - это (в данном случае) один из символов строки s.
Pascal Циклом «пока» решить https://www.cyberforum.ru/ pascal/ thread106302.html cos1/sin1 * (cos1+cos2)/(sin1+sin2)….(cos1+…cos n)/(sin1+…+sin n)	Pascal База данных студентов https://www.cyberforum.ru/ pascal/ thread106264.html Здравствуйте. нужна помощь.Пишу программу базу данных.первая программа создаёт файл и записывает в него имена студентов. Вот исходник: Uses crt; Type pSp=^Spisok; Spisok=Record ... i:=1;//читаем первую запись While not Eof(f) do With mas do Begin Read(F,mas); Sort(mas); Write('є ',Nom:5,' є '); Write(FIO:20,' є '); Write(Fakultet:9,' є '); ...

Другие темы раздела

Pascal Игнорирование ошибок при поиске в тексте https://www.cyberforum.ru/ pascal/ thread106246.html
В текстовом файле, нахожу ключевое слово, и вывожу текст под ним(типа толковый словарь) Но вот незадача, как сделать так чтобы поиск был с погрешностью(то есть ключевое слово можно было бы вводить... а при вводе слова "изчо" он тебе ответит "ещё"? Ты бы лучше русский язык учил!

Дан текст, в котором имеются цифры: Найти их произведение, найти минимальную цифру. Pascal
Дан текст, в котором имеются цифры: Найти их произведение. Найти минимальную цифру. uses crt; var s:string; min,i:byte; p:longint; begin clrscr; writeln('Введи текст'); readln(s); p:=1;min:=9; for i:=1 to length(s) do

Pascal 2 задания на тему строки Здраствуйте. Помогите решить задачи: 1 Проверить, какая из 2ух букв 'а' или 'е' встречается чаще. 2 Задан текст, распечатать номера позиций на которых встречается буква 'к' 1 Проверить, какая из 2ух букв 'а' или 'е' встречается чаще. .... a:=0; e:=0; For i:=1 to length(S) do If S='a' then inc(a) else if S='e' then inc(e); If a>e then writeln('а больше') else if... https://www.cyberforum.ru/ pascal/ thread106309.html

Нахождение разности между max и min элементами одномерного массива Pascal
Люди добрые помогите пожалуйста решить задачу: Составить программу нахождения разности между max и min элементами одномерного массива #include <stdafx.h> #include <iostream> const int N=5; int main() { setlocale(LC_ALL,"Russian"); int max,min,i; int a; double otn;

Pascal одномерный массив..паскаль авс
училку в универе не устраивает ...она хочет чтоб эти 2 задачи выглядели проще ...помогите !!! вот еще раз эти задачи В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1.... а вы не могли бы в общем виде показать как выглядит по вашему первая задача ..очень прошу

Pascal Целой переменной k присвоить первую цифру из дробной части положительного вещественного числа как присвоить целой переменной k первую цифру из дробной части положительного вещественного числа? если кто знает скажите плиз? k:= trunc(X); Добавлено через 1 минуту это просто целую часть. если нужна только первая цифра, то: k:= trunc(X); while k div 10 <>0 do k:=k div 10; https://www.cyberforum.ru/ pascal/ thread106308.html

Pascal Найти максимальный элемент массива В одномерном массиве, состоящем из n вещественных элементов, вычислить: Максимальный элемент массива. В одномерном массиве, состоящем из n вещественных элементов, вычислить: Максимальный элемент массива. var a:array of real; i,j:integer; buf:real; begin for i:= 1 to n do ... https://www.cyberforum.ru/ pascal/ thread106316.html

Pascal Последовательность из N чисел https://www.cyberforum.ru/ pascal/ thread106275.html
Дана последовательность из n чисел. Вывести последовательность из чисел , которые находятся после максимального элемента данной последовательности . Дана последовательность из n чисел. Вывести последовательность из чисел , которые находятся после максимального элемента данной последовательности . function f_max(n:byte; mas:array of...

Pascal написание программы используя оператор if
Люди помогите зделать програмку. Если сумма трех попарно разных действительных чисел меньше единици, тогда меншее с этих трех чисел заменить полусумой двух других; в другом случае заменить меншее с... Замени if (x+y+x)<1 then на if (x+y+z)<1 then

Pascal crt - Вывести фамилию, имя, отчество в центре экрана https://www.cyberforum.ru/ pascal/ thread106244.html
Точно задания не помню, но вроде бы так: "Вывести фамилию, имя, отчество в центре экрана. Каждое слово разным цветом, а имя вывести посимвольно, т.е. чтобы каждая буква в имени была отдельна,... s - это (в данном случае) один из символов строки s.

Pascal Циклом «пока» решить https://www.cyberforum.ru/ pascal/ thread106302.html
cos1/sin1 * (cos1+cos2)/(sin1+sin2)*….*(cos1+…cos n)/(sin1+…+sin n)

Pascal База данных студентов https://www.cyberforum.ru/ pascal/ thread106264.html
Здравствуйте. нужна помощь.Пишу программу базу данных.первая программа создаёт файл и записывает в него имена студентов. Вот исходник: Uses crt; Type pSp=^Spisok; Spisok=Record ... i:=1;//читаем первую запись While not Eof(f) do With mas do Begin Read(F,mas); Sort(mas); Write('є ',Nom:5,' є '); Write(FIO:20,' є '); Write(Fakultet:9,' є '); ...

Вычислить числовую последовательность при условии, n - натуральное, х - действительное - Pascal - Ответ 609258

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var n,i:integer;
x,s:double;
function fact(m:integer):integer;
begin
if m>0 then
fact:=n*fact(n-1);
else fact:=1
end;
begin
writeln('enter n and x');
readln(n,x);
s:=0; 
for i:=1 to n do
s:=s+(1/fact(i)+sqrt(abs(x)));
writeln('s=', s:6:3)
end.

Вернуться к обсуждению:
Вычислить числовую последовательность при условии, n - натуральное, х - действительное Pascal

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

Новые блоги и статьи Все статьи Все блоги /
JUnit или TestNG: Выбираем Java-фремворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .	Криптография в PHP Jason-Webb 20.03.2025 PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .
Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли Etyuhibosecyu 20.03.2025 С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .	Реализация перечислений в Go golander 19.03.2025 Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .	Шаблон API Gateway в микросервисной архитектуре MatrixArchitect 19.03.2025 API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .	C++26: Что мы потеряли bytestream 19.03.2025 С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .	Async/await в C#: Асинхронное программирование в действии UnmanagedCoder 19.03.2025 Разработка современных приложений немыслима без понимания асинхронного программирования. Если вы когда-либо создавали приложение, которое взаимодействует с внешними ресурсами — будь то работа с. . .

Новые блоги и статьи

Все статьи

Все блоги /

JUnit или TestNG: Выбираем Java-фремворк для тестирования

Javaican 20.03.2025

История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .

Разбиваем монолит на два микросервиса и реализуем CI/CD

ArchitectMsa 20.03.2025

Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .

Python и PDF: Создание и редактирование файлов

py-thonny 20.03.2025

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

Корутины в Unity и производительность WaitForSeconds

GameUnited 20.03.2025

Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .

Криптография в PHP

Jason-Webb 20.03.2025

PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .

Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли

Etyuhibosecyu 20.03.2025

С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .

Реализация перечислений в Go

golander 19.03.2025

Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .

Шаблон API Gateway в микросервисной архитектуре

MatrixArchitect 19.03.2025

API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .

C++26: Что мы потеряли

bytestream 19.03.2025

С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .

Async/await в C#: Асинхронное программирование в действии

UnmanagedCoder 19.03.2025

Разработка современных приложений немыслима без понимания асинхронного программирования. Если вы когда-либо создавали приложение, которое взаимодействует с внешними ресурсами — будь то работа с. . .