Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вывод нескольких чисел через запятую - не ставить знак после последнего элемента program massiv; uses crt; var a:array of integer; ar:real; en,s,i,n:integer; begin repeat clrscr; s:=0; write('Введите количество номеров: '); https://www.cyberforum.ru/ turbo-pascal/ thread1276746.html	Turbo Pascal Определить, сколько раз за месяц температура опускалась ниже 0 Известны данные о температуре воздуха в течении месяца. Определить, сколько раз температура опускалась ниже 0. Делать надо через циклы, через массив не надо.
Turbo Pascal Дана матрица. Поменять строки с максимальной и минимальной суммой квадратов местами Здравствуйте. Помогите написать программу, пожалуйста. "Дан Массив B(M,N); M,N<=100. Переставить строки с минимальным и максимальным значением суммы квадратов их элементов" https://www.cyberforum.ru/ turbo-pascal/ thread1276670.html	Turbo Pascal Вывести квадраты целых чисел, кратных 3 в диапазоне от 3 до 21 https://www.cyberforum.ru/ turbo-pascal/ thread1276605.html Вывести квадраты целых чисел, кратных 3 в диапазоне от 3 до 21
Записать в массив Z подряд десять первых не нулевых вещественных элементов Y(N), N<=40 Turbo Pascal Здравствуйте. Помогите написать программу. "Записать в массив Z подряд десять первых не нулевых вещественных элементов Y(N), N<=40."	Turbo Pascal Добавить сортировку товаров по алфавиту и вывод информации о конкретном товаре https://www.cyberforum.ru/ turbo-pascal/ thread1276579.html Помогите дописать программу Если помогаете объясняйте подробней Задача: 1)Ввод данных с клавиатуры в массив состоящий из 8 элементов типа price(до этого момента сделал), записи должны быть размещены в алфавитном порядке по названиям товаров. 2)Вывод на экран информации о товаре название которого введено с клавиатуры если таких нет, вывести на экран соответствующее сообщение. нужно доделать...
Turbo Pascal Можно ли организовать ввод разрядности массива с клавиатуры? Можно ли организовать ввод разрядности массива с клавиатуры? Что-то вроде этого: program massiv_n; var a : array of Integer; i,n,s : Integer; begin s:=0; writeln('Введите число элементов: '); readln(n); https://www.cyberforum.ru/ turbo-pascal/ thread1276566.html	Turbo Pascal Не создавая дополнительного массива, определить какой из элементов повторяется в последовательности Даны натуральные числа A1,A2,...A10.Не создавая дополнительного массива,определить какой из элементов повторяется в последовательности A1,A2,...A10 наибольшее число раз,и найти его порядковый номер ,ближайший к началу последовательности . Не совсем понял,можно ли эти числа в массиве сделать?Если нет,то как иначе?
Turbo Pascal Вычислить сумму квадратов первых 7 натуральных чисел https://www.cyberforum.ru/ turbo-pascal/ thread1276461.html вычислить сумму квадратов первых 7 натуральных чисел	Turbo Pascal Значения x, z, a, b ввести через readln https://www.cyberforum.ru/ turbo-pascal/ thread1276429.html (Ссылка на сторонний ресурс удалена), Помогите создать, блок-схему не нужно, а значения x,z,a,b ввести через readln. Пожалуйста)
Turbo Pascal Сделать так чтобы при нажатие на цифру появлялось окно с небольшим описанием планеты Есть программа(скопирована но мне надо сделать только окна )модель солнечной системы , с боку стоять цифры и названия планет : цель сделать так чтобы при нажатие на цифру появлялось окно с небольшим описанием планеты . Прошу помощи хотя бы с 1 планетой дальше сделаю для остальных ,при последней попытке получилось вывести окно ,но при этом ломается код ( вот сама программа Program Space; ...	Turbo Pascal В каком слове набранного текста меньше всего гласных букв Нужно сделать String, в котором при вводе текста показывало в каком слове набранного текста меньше всего гласных букв. https://www.cyberforum.ru/ turbo-pascal/ thread1276262.html

CodeR

Фрилансер

3418 / 2815 / 3000

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

Сообщений: 8,587

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

16.10.2014, 10:54

Вычислить значение выражения - Turbo Pascal - Ответ 6727428

16.10.2014, 10:54. Показов 1045. Ответов 1

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

Сообщение было отмечено King69 как решение

Решение

Pascal

Const n=5;a=0.1;h=0.1;m=16;
Var s,r,x:real;
    B:array[1..m] of real;
    i,j:byte;
Begin
    x:=a;
    For i:=1 to m do
    Begin
      s:=1;r:=1;
      For j:=1 to n do
      Begin
        r:=-r*(x*x/((2*j)*(2*j-1)));
        s:=s+r;
      End;
      B[i]:=s;
      x:=x+h;
      write(B[i]:6:2);
    End;
End.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

16.10.2014, 10:54

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

Вычислить значение выражения
X(4,3) Y(4,1) Матрица А и Б произвольно H=2*YT*X*(4*XT*X)-3*A Помоги выполнить следующее...

Вычислить значение выражения
Дана n . Вычислить : Помогите решить. Заранее спасибо!:) \sum_{k=1}^{n}(k+1)!

Вычислить значение выражения
program andrew; var i,n : integer ; x,y,r : real ; begin writeln(x); readln(x); writeln(n);...

Вычислить значение выражения
Добрый день всем, выручайте, немогу справиться с задачей. Я прикрепил картинку. Пожалуйста сделайте...

	16.10.2014, 10:54

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

16.10.2014, 10:54

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

Вычислить значение выражения
Вот эту формулу надо засунуть в паскаль чтоб он её понял я набросал на коленке но знаю что есть...

Вычислить значение выражения
Алгоритмы циклической структуры. 1.Пусть дано натуральное число n вещественное число x. Вычислите...

Вычислить значение выражения
помогите пожалуста решить задачу. очень прошу. даны a и N a- любое число N-целое число ...

Вычислить значение выражения
даны действительные числа а и b. Получить : с = s(а^2,b,a-b)+s(1.2,a,2b) где s(x,y,z) = 2x^2 +...

Наверх