Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Создать однонаправленную очередь целых чисел Помогите написать программу на Паскале, не понимаю тему, поэтому и не могу сам сделать, уже перечитал много информации, но все неудачно Вот задание: Нужно написать следующую программу на Паскале: Создать однонаправленную очередь целых чисел, распечатать. Если минимальный элемент больше или равен нулю, то каждое вхождение его в список продублировать, иначе удалить из списка все элементы... https://www.cyberforum.ru/ pascal/ thread1822422.html	Нужно вывести на экран цифры из предложения Pascal Для олимпиады нужно написать прогу, которая выводит цифры из предложения и сортирует их в порядке возрастания. Помогите прошу.
Pascal Как сделать, чтобы программа читала определённую строку входного файла? https://www.cyberforum.ru/ pascal/ thread1822177.html Я новичок в паскале, мне нужно , чтобы я вписал значения во входной файл в столбик, каждое значение на своей строке и чтобы в выходном записались готовые вычисления в том же порядке, у меня всегда читает только первую строку.	Pascal Определить, у какого из двух треугольников площадь больше https://www.cyberforum.ru/ pascal/ thread1822125.html Два прямоугольных треугольника заданы своими катетами. Определить, у кого из них площадь больше (Создать функцию для вычисления площади прямоугольного треугольника по его катетам).
Pascal Нахождение номера элемента последовательности по его значению Пожалуйста помогите с написанием кода. Напишите программу нахождения номера элемента последовательности по его значению. Формула для вычисления представлена в индивидуальном задании. Массивами пользоваться запрещено. Во всех заданиях запрещено использовать операции возведения в степень, экспоненту (кроме явно указанной такой функции в задании) и логарифмом (кроме явно указанной такой...	Pascal Дано целое число K. Найти произведение цифр числа К Дано целое число K. Найти произведение цифр числа К. https://www.cyberforum.ru/ pascal/ thread1822024.html
Pascal Проверить, пересекаются ли треугольники Помогите решить 4 задачи на фото Заранее огромное спасибо https://www.cyberforum.ru/ pascal/ thread1822000.html	найти сумму элементов квадратной матрицы выше главной диагонали Pascal найти сумму элементов квадратной матрицы выше главной диагонали,заранее спасибо!
Pascal Создание массива из матрицы https://www.cyberforum.ru/ pascal/ thread1821903.html procedure MatrMas(var a: matr; var b: mas; n, m: integer );//создание массива из матрицы var i, j, x, max: integer; begin for i := 1 to n do begin j := 1; while ((j <= m) and (a mod 2 <> 0)) do j := j + 1; if (j <= m) then begin max := a;	Pascal Заменить отрицательные элементы, расположенные выше главной диагонали, средним геометрическим положительных Ребят, не могли бы помочь? Есть задача:в матрице a(8,8) заменить отрицательные элементы расположенные выше главной диагонали, средним геометрическим положительных чисел. Var i,j,k:integer; a:arrayof integer; begin for i:=1 to 8 do begin for j:=1 to 8 do https://www.cyberforum.ru/ pascal/ thread1821778.html
Pascal Вычислить сумму ряда 1+x+(x^2)/2!)+.+(x^n)/n!) Помогите исправить код что бы он верно решал уравнение 1+x+(x^2)/2!)+...+(x^n)/n!) и пожалуйста как можно проще объясните, что и как работает ибо я новичокvar x,s,o: real; i,n:integer; Begin Writeln('введи 2 числа'); Readln(x,n); For i:=2 to n do S:=(exp(ln(x)*i)/i) //это часть должна отвечать за дробную часть уравнения o:=1+x+s; Writeln (o); End.	Pascal Borland pascal ошибка выполнения Program Prog; type Zap=record fio: string; spec: string; ocfiz: string; ocmatem: string; ocliter: string; end; var f: file of Zap; fio1,spec1: string; https://www.cyberforum.ru/ pascal/ thread1821696.html

Puporev

Почетный модератор

64304 / 47599 / 32743

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

Сообщений: 115,181

10.10.2016, 08:06

Вычисление формул и деление на "0" - Pascal - Ответ 9627527

10.10.2016, 08:06. Показов 1243. Ответов 10

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

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

Решение

Поправил у себя функцию F1, там опечатался, но никакого деления на 0 нет, хотя результаты функций не сходятся.
Вы что-то неправильно написали в своем запутанном коде вот и маетесь, на глаз же видно что деления на 0 при х=[-0.6..0.35] не может быть.
Используйте хотя бы мой код.

Pascal

const xn=-0.6;
      dx=0.05;
      e=0.0001;
      n=20;
function f1(x,e:real):real;
var k:integer;
    t,s:real;
begin
k:=1;
t:=x*x*x;
s:=t/3;
while abs(t/(k*(k+2)))>e do
 begin
  k:=k+1;
  t:=t*x;
  s:=s+t/(k*(k+2));
 end;
f1:=s;
end;
function f2(x:real):real;
begin
f2:=x/2+x*x/4+(1-x)*ln(1-x)/2;
end;
var x:real;
    k:integer;
begin
x:=xn;
for k:=1 to n do
 begin
  writeln('x=',x:5:2,' f1=',f1(x,e):7:4,' f2=',f2(x):7:4);
  x:=x+dx;
 end;
end.

Вернуться к обсуждению:
Вычисление формул и деление на "0" Pascal

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

Миниатюры

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

10.10.2016, 08:06

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

Вычисление формул
Помогите решить с формами c#, спасибо огромное! Всем конфет и счастья)

Вычисление формул
Помогите пожалуйста решить задачку, желательно на Pascal: Нужно реализовать и протестировать...

Вычисление формул
Помогите составить программу в Pascal для вычисления по формуле: y=(a/x)+(b/x2) ...

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

	10.10.2016, 08:06

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

10.10.2016, 08:06

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

Вычисление формул
Добрый день, помогите написать в Python формулы

Вычисление формул
Доброго времени суток. Я не разбираюсь в C#, но сдать эти задачи по учёбе нужно. Очень надеюсь на...

Автоматическое вычисление формул
Здравствуйте. Прошу помочь советом. В excel 2007 случилась беда. Например в ячейку ввел формулу...

Вычисление математических формул
Ребят, привет. Помогите, пожалуйста, с такой вот задачкой (желательно блок-схему, но если это...

Вычисление физических формул
1.Вычисление физических формул, например, расчет выделения теплоты в проводнике по формуле...

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

Реализовать вычисление нескольких формул
Там на фото написано что нужно сделать. Помогите пожалуйста. Делать нужно только где написано...

Наверх