Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Разделить элементы k-го столбца матрицы на диагональный элемент, расположенный в этом столбце https://www.cyberforum.ru/ turbo-pascal/ thread1397427.html Входные данные записываются в файл input.txt, а выходные в output.txt. По окончании работы над задачей создается ехе-файл. Задана квадратная матрица порядка n и число k. Разделить элементы k-го столбца на диагональный элемент, расположенный в этом столбце.	Turbo Pascal Поставить запятую после каждого пробела данной строки Входные данные записываются в файл input.txt, а выходные в output.txt. По окончании работы над задачей создается ехе-файл. Вводится строка. Поставить запятую после каждого пробела данной строки. Предусмотреть в программе возможность формирования массива случайным образом и ввода элементов массива с клавиатуры. Разработать модуль, в котором размещены подпрограммы, обеспечивающие заданные...
Turbo Pascal Вычислить произведение отрицательных элементов и произведение положительных, и сравнить их https://www.cyberforum.ru/ turbo-pascal/ thread1397425.html Входные данные записываются в файл input.txt, а выходные в output.txt. По окончании работы над задачей создается ехе-файл. В последовательности действительных чисел a1, a2, …, an есть положительные и отрицательные элементы. Вычислить произведение отрицательных элементов Р1 и произведение положительных Р2. Сравнить модуль Р2 с модулем Р1, указать, какое из произведений больше по модулю.	Turbo Pascal Ошибка выполнения 106 по адресу: 0000:008A https://www.cyberforum.ru/ turbo-pascal/ thread1397357.html const text1='vvedite a i b'; text2='rezultat'; text3='exit- n'; var a,b,c: integer; ch: char;
Turbo Pascal Создать файл целых чисел с данным именем и записать в него N первых положительных четных чисел Дано имя файла и целое число N (> 1). Создать файл целых чисел с данным именем и записать в него N первых положительных четных чисел (2, 4, …). Помогите решить...	Turbo Pascal Подсчитать сумму нечетных цифр в каждом элементе одномерного массива Используя функцию пользователя, подсчитать сумму нечетных цифр в каждом элементе одномерного массива А размерностью К,используя процедуру пользователя, подсчитать количество элементов массива А, кратных среднему арифметическому цифр заданного элемента массива А. ПОМОГИТЕ КТО ЧЕМ МОЖЕТ БУДУ ОЧЕНЬ БЛАГОДАРЕН https://www.cyberforum.ru/ turbo-pascal/ thread1396704.html
Turbo Pascal Составить программу по блок схеме Всем привет! Нужна ваша помощь, нужно составить 2 программы по блок схемам. Заранее спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread1396552.html	Turbo Pascal Написать программу, которая демонстрирует движение прямоугольника по диагоналям В паскале, в графическом режиме написать программу, которая демонстрирует движение прямоугольник по диагоналям: из левого верхнего угла - в правый нижний, а затем из правого верхнего угла - в левый нижний. В программе должны быть комментарии поясняющие принцип работы.
Turbo Pascal Среди элементов нечетных строк массива найти произведение ненулевых элементов https://www.cyberforum.ru/ turbo-pascal/ thread1396489.html Дан массив X(N,M). Среди элементов нечетных строк массива найти произведение ненулевых элементов.	Turbo Pascal Для N вводимых с клавиатуры чисел определить количество четных чисел и сумму нечетных чисел Для N вводимых с клавиатуры чисел определить количество четных чисел и сумму нечетных чисел. https://www.cyberforum.ru/ turbo-pascal/ thread1396422.html
Turbo Pascal О чем говорит ошибка 85 Я реально не понимаю в чем тут ошибка! Уже по всякому эти точки с запятой расставляла... Помогите, пожалуйстааа	Turbo Pascal Показать asci код нажатой клавиши Надо написать прогу на встроенном асемблере, которая будет показывать asci код нажатой клавиши и по нажатию esc выводился бы диалог "закрыть программу? (y/n?)" https://www.cyberforum.ru/ turbo-pascal/ thread1396248.html

XapBu

7 / 7 / 0

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

Сообщений: 62

25.03.2015, 10:41 [ТС]

Найти произведение функции - Turbo Pascal - Ответ 7386164

25.03.2015, 10:41. Показов 1646. Ответов 13

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

Ответ

Pascal

program Prim1;
var
  x,a,b,s,h,p: double; 
  i,n:integer;
  c:array [1..100] of double;
 
begin
  writeln ('Введите a,b');readln (a,b);
  writeln ('Введите n');readln (n);
  h:=(b-a)/(n-1);
 
  if a=-1 then begin
    writeln('!При x=-1 функция не определена!');
    exit;
  end;
 
  x:=a; i:=1;
  while i<=n do begin
    c[i]:=(1 - exp(-x)) * sin(x * pi * 4);
    writeln (x,c[i]);
    i:=i+1; x:=x+h;
  end;
 
   
  writeln ('Сумма =',s);
  writeln ('Произведение=',p);
end.

Добавлено через 58 секунд
Всё ли здесь правильно?

Вернуться к обсуждению:
Найти произведение функции Turbo Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.03.2015, 10:41

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

Найти произведение значений/максимальное значение функции
Как перемножить все значения f(x) и найти максимальное значение? Помогите! program EG; var...

Найти произведение всех положительных значений функции
Найти произведение всех положительных значений функции f(x) на заданном интервале....

Найти произведение чисел для функции
Найти произведение чисел для функции: y=y^3-2x, которые больше 2, но меньше 20.

Функция y = f(x, a). Найти произведение отрицательных значений функции, кратных 3
Дана функция y = f(x, a). Найти произведение отрицательных значений функции, кратных 3. x1...

	25.03.2015, 10:41

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.03.2015, 10:41

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

Найти произведение всех отрицательных значений функции f(x) на заданном интервале
Задание: Составить программу расчета таблицы значений функции f(x) на интервале a<=x<=b в n...

Функции и процедуры: найти произведение последних элементов строк матрицы
Составить программу, в которой находится произведение последних элементов строк двумерного массива...

Если два числа не равны, то найти их сумму и произведение, если произведение больше суммы, то определить, на сколько
Даны два числа. Если они не равны, то найти их сумму и произведение. Если произведение больше...

Найти сумму и произведение полученных чисел. Вывести на чистый экран строку S, ее длину, сумму и произведение
Запросить у пользователя строку S, состоящую из цифр. Преобразовать каждый символ – цифру в число....

Наверх