Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
PascalABC.NET Класс TProperty - преобразование к object https://www.cyberforum.ru/ pascalabc-net/ thread2205051.html
Почему когда TProperty<T> реализует интерфейс IEquatable<TProperty<T>> вылетает ошибка компиляции, когда нет - все нормально? ///Предоставляет данные аргументов событий. unit Events; type ///Главный класс аргументов событий. TEventArgs = class private _Description: string; 		Ошибка запуска PascalABC.NET
Почему не работает когда подключаю модуль MaterialsAndProperties: uses BaseGraphicsSystem, MaterialsAndProperties; begin (new TMaterialInfo(clBlack, TBrushStyleType.bsSolid, THatchStyle.BackwardDiagonal)).Println(); end. ? Если код: ///Предоставляет данные аргументов событий. unit Events;
PascalABC.NET Ребус: VOLVO+FIAT=MOTOR, используя тип "Множество" https://www.cyberforum.ru/ pascalabc-net/ thread2204915.html
Ребус: VOLVO+FIAT=MOTOR. Каждая буква – это цифра, разным буквам соответствуют разные цифры. Необходимо заменить буквы цифрами так, чтобы получилось верное равенство. Найти все решения (если есть несколько ). ИСПОЛЬЗОВАТЬ ТИП «МНОЖЕСТВО». помогите, пожалуйста отыскать ошибку в коде (или предложите свой вариант решения). Моя программа ошибки не выдает, но и решения тоже (а их должно быть 10 шт.).... 		PascalABC.NET Дано множество точек на плоскости, нужно нарисовать квадрат наибольшего периметра https://www.cyberforum.ru/ pascalabc-net/ thread2204741.html
Дано множество точек на плоскости, нужно нарисовать квадрат наибольшего периметра. Я пока что попыталась написать программу , чтобы рисовались все прямоугольники. Что может быть неправильно? program Square; uses GraphABC; const nmax = 100; type
PascalABC.NET Необходимо сделать проверку для считывания типизированного файла
Трудно как-то объяснить. Процедура может: - Выдавать ошибку, если файл пустой - Считывать типизированный файл для дальнейшей работы программы Необходимо сделать проверку в процедуре loader на то, подходят ли данные в загружаемом файле name для дальнейшей работы с записями, т.е. содержат необходимый массив записей, иначе, если в файле записано что-то другое, то выдавало бы ошибку. uses... 		PascalABC.NET Сдвинуть все элементы массива вправо на заданное число позиций С клавиатуры вводится произвольный одномерный массив типа Real (не более 10 элементов), после чего делается его контрольный вывод. Сдвинуть все элементы массива вправо на заданное число позиций. Добавлено через 44 секунды var a:array of integer; i,r,n,k,j:integer; begin read(n,k); for i:=1 to n do read(a); https://www.cyberforum.ru/ pascalabc-net/ thread2204618.html
PascalABC.NET Вывести информацию из программы в файл https://www.cyberforum.ru/ pascalabc-net/ thread2204519.html
Здравствуйте, написана программа "Семейный бюджет" , вот фрагмент : procedure s_file(); var i,j : integer; begin assign (output,'output.txt'); rewrite (output); s := 0; s_d_r := 0; s_d_r :=0; write('Расходы : '); for i := 0 to 9 do with r do 		Разработать программу для обработки одномерного динамического массива PascalABC.NET
Разработать программу для обработки одномерного динамического массива. Выполнить операции - ввод значений с клавиатуры - генрация значений массива с помощью датчика случайных чисел - вывод содержимого на экран - сортировка методом выбора и методом пузырька - запись значений массива в файл и чтение данных из него - реализовать выбор операции из меню, каждая операция в виде процедуры
PascalABC.NET Сохранение графических файлов Как сохранить графический файл нарисованный в GraphABC на компьютере? https://www.cyberforum.ru/ pascalabc-net/ thread2204428.html PascalABC.NET Структура. Исправить программу https://www.cyberforum.ru/ pascalabc-net/ thread2204417.html
Исходный код: Type rec=record FIO:string; Vozr:integer; adress:string; end; mas=array of rec; Var
Движение объекта вдоль границ графического окна PascalABC.NET
Напишите программу решающую следующую задачу. Круг начинает самостоятельно двигаться из нижнего левого угла графического окна стандартного окна влево вдоль его границ против часовой стрелки (траектория просто вдоль границ графического окна). При нажатии клавиши '!' объект меняет направление движения на противоположное (т.е. если он двигался против часовой стрелки, то он будет двигаться по часовой... 		PascalABC.NET Создать меню Помогите,пожалуйста создать меню с полями № библиотеки,адрес и телефон библиотеки,отсортировать и вывести на экран по № библиотеки .Буду признателен за объяснения. https://www.cyberforum.ru/ pascalabc-net/ thread2204218.html
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
04.03.2018, 13:16 0

Найти наименьший положительный корень уравнения. x^3 = 1.75*x - 0.75 - PascalABC.NET - Ответ 12182261

04.03.2018, 13:16. Показов 1641. Ответов 4
Метки (Все метки)
Лучший ответ Сообщение было отмечено Parkervans как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

const e=0.0001;
function f(x:real):real;
begin
f:=x*x*x-1.75*x+0.75;
end;
var x,dx,x1,x2,c:real;
begin
x:=0;
dx:=0.2;
while f(x)*f(x+dx)>0 do x:=x+dx;
x1:=x;
x2:=x1+dx;
writeln('Наименьший положительный корень на интервале x1=',x1:0:1,' x2=',x2:0:1);
c:=(x1+x2)/2;
if abs(f(c))<=e then x:=c
else
 begin
  repeat
  c:=(x1+x2)/2;
  if f(x1)*F(c)<0 then x2:=c else x1:=c;
  until x2-x1<e;
 x:=(x1+x2)/2;
end;
writeln('x=',x:0:4,' F(x)=',f(x):0:4);
end.


Вернуться к обсуждению:
Найти наименьший положительный корень уравнения. x^3 = 1.75*x - 0.75 PascalABC.NET
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 04.03.2018, 13:16
Готовые ответы и решения:

Найти наименьший положительный корень уравнения. x^3 = 1.75*x - 0.75. Комбинированным методом
Добрый день! Задание. Найти наименьший положительный корень уравнения. x^3 = 1.75*x - 0.75...

Найти наименьший положительный корень уравнения методом половинного деления
Найти наименьший положительный корень уравнения методом половинного деления. cos ( x ) – 1/ x +...

Найти наименьший положительный корень уравнения
Найти наименьший положительный корень уравнения: f(x)=tg(ax) bx, f(x)=0, a=0,6319 и b=0,9217.

Определить наименьший положительный корень уравнения
Процедуры и функции. Тип задачи: Определение наименьшего положительного корня уравнения....

4
04.03.2018, 13:16
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 04.03.2018, 13:16
Помогаю со студенческими работами здесь

Найти наименьший положительный корень уравнения f(x)=0 с точностью
Точность: {10}^{-6} Функция: {(x+1)}^{3}+x-2 Помогите решить пожалуйста:-)

Найти наименьший положительный корень уравнения, первую и вторую производную функции. Фото с заданием внутри
Вот условия, выручайте форумчане, до 19:45 сдать, пока препод добрый :) Заранее спасибо.

Локализовать наименьший положительный корень уравнения
Локализовать наименьший положительный корень уравнения и уточнить его значение с точностью...

Локализовать наименьший положительный корень уравнения
http://dit.isuct.ru/ivt/sitanov/Literatura/M869/Pages/Glava1.htm собсно сабж на примере любого...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru