Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Удалите из заданного текста все символы, не являющиеся буквами и замените каждую малую букву одноименной большой https://www.cyberforum.ru/ turbo-pascal/ thread1126885.html Помогите сделать это задание	Turbo Pascal Подсчитать в заданной строке размер самого первого слова Привет всем.Не могу решить эту задачу.Кто поможет заранее спасибо)) Разработать библиотечный модуль, содержащий следующие подпрограммы (процедуры или функции) для работы со строками: А....
Turbo Pascal Подсчитать количество точек, содержание в которых превышающих заданный уровень ПДК https://www.cyberforum.ru/ turbo-pascal/ thread1126871.html а) Последовательность А из N элементов представляет собой результаты опробования по профилю. Подсчитать количество точек, содержание в которых превышающих заданный уровень ПДК, и среднее...	Turbo Pascal Создать связанный список из записей, содержащих сведения о доме (характеристика дома, количество квартир, № дома, количество этажей) Создать связанный список из записей, содержащих сведения о доме (характеристика дома, количество квартир, № дома, количество этажей), реализовать операции со связанным списком: запись первым в... https://www.cyberforum.ru/ turbo-pascal/ thread1126734.html
Turbo Pascal Определить количество трехразрядных чисел. кратных 6 или 7 Здравствуйте! Помогите пожалуйста! Пыталась понять... не получилось, не программист я((:sorry: а сделать надо, чтоб зачет получить(( :wall: 2)Вводится последовательность чисел. Конец ввода - О....	Turbo Pascal Получить новый массив по правилу Даны действительные числа a^1,….a^2N. Получить новый массив , элементы которого a^1,a^2N,a^2,a^2N-1…a^N,a^N+1. https://www.cyberforum.ru/ turbo-pascal/ thread1126664.html
Turbo Pascal Отсортировать в порядке убывания по действительной части элементы этого массива Дан одномерный массив комплексных чисел. Отсортировать в порядке убывания по действительной части элементы этого массива. https://www.cyberforum.ru/ turbo-pascal/ thread1126662.html	Turbo Pascal Упорядочить по убыванию элементы массива, расположенные между первым и максимальным по абсолютной величине элементами Дан одномерный массив целых чисел. Упорядочить по убыванию элементы массива, расположенные между первым и максимальным по абсолютной величине элементами.
Turbo Pascal Упорядочить по возрастанию элементы, расположенные на главной диагонали Дан двумерный массив размера NxN. Упорядочить по возрастанию элементы, расположенные на главной диагонали. https://www.cyberforum.ru/ turbo-pascal/ thread1126658.html	Turbo Pascal Постройте последовательность чисел по рекуррентной формуле https://www.cyberforum.ru/ turbo-pascal/ thread1126629.html Постройте последовательность чисел по рекуррентной формуле: аi =i* аi-1 , где а1 = 1, i=2,3,4,5, "через процедуру" Заранее спасибо)
Дана упорядоченная тройка чисел x, y, z. Составить программу, печатающую номер наименьшего числа Turbo Pascal Дана упорядоченная тройка чисел x, y, z. Составить программу, печатающую номер наименьшего числа.	Turbo Pascal Напечатать в алфавитном порядке все гласные буквы, которые не входят в более чем одно слово Дана последовательность слов, между соседними словами запятая, за последним словом точка. Напечатать в алфавитном порядке все гласные буквы, которые не входят в более чем одно слово. Помогите,... https://www.cyberforum.ru/ turbo-pascal/ thread1126488.html

CodeR

Фрилансер

3417 / 2814 / 3000

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

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

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

23.03.2014, 07:50

Cоставьте алгоритм и программу вычисления значения функции по её аналитической формуле - Turbo Pascal - Ответ 5937775

23.03.2014, 07:50. Показов 2118. Ответов 3

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

Ответ

For

Кликните здесь для просмотра всего текста

Pascal

Var n:byte;
    s:real;
Begin
    For n:=1 to 100 do
     s:=s+1/(n*n);
    writeln('Точное значение = ',pi*pi/6:0:5);
    writeln('Сумма = ',s:0:5);
    readln;
End.

While

Кликните здесь для просмотра всего текста

Pascal

Var n:byte;
    s:real;
Begin
    n:=1;
    While n<=100 do
    Begin
      s:=s+1/(n*n);
      n:=n+1;
    End;
    writeln('Точное значение = ',pi*pi/6:0:5);
    writeln('Сумма = ',s:0:5);
    readln;
End.

Repeat

Кликните здесь для просмотра всего текста

Pascal

Var n:byte;
    s:real;
Begin
    n:=1;
    Repeat
      s:=s+1/(n*n);
      n:=n+1;
    Until n>100;
    writeln('Точное значение = ',pi*pi/6:0:5);
    writeln('Сумма = ',s:0:5);
    readln;
End.

Вернуться к обсуждению:
Cоставьте алгоритм и программу вычисления значения функции по её аналитической формуле Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.03.2014, 07:50

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

Составьте алгоритм и программу вычисления значения функции по ее аналитической формуле
Составьте алгоритм и программу вычисления значения функции по ее аналитической формуле и как сумму...

Cоставьте алгоритм и программу вычисления значения функции по её аналитической формуле и как сумму
знаю уже просила, просто не получается, выдает не верный результат( Cоставьте алгоритм и...

Разработать алгоритм и программу вычисления значения функции F(x)
Разработать алгоритм и программу вычисления значения функции F(x) F={ -2x, если 0<x. -4, если...

Составить алгоритм и программу вычисления значения функции
Пожалуйста помогите составить программу, заранее спасибо! Вычислить y=min{a,b,c}+max{d,f}, где...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.03.2014, 07:50

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

Составить программу вычисления значения Y по формуле
Здравствуйте дорогие форумчане. Обращаюсь к вам с просьбой. Нужно: Составить программу...

Составить циклический алгоритм и программу для вычисления результата по формуле
Составить циклический алгоритм и программу для вычисления результата по формуле. Для проверки...

Алгоритм и программа вычисления значения функции по ее аналитической формуле
Составьте алгоритм и программу вычисления значения функции по ее аналитической формуле и как сумму...

Наверх