Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Создание электронных часов в формате exe https://www.cyberforum.ru/ turbo-pascal/ thread1310589.html Помогите создать электронные часы и сохранить их как exe файл, есть трудности с преобразованием в exe файл.	Сосчитать общее количество букв в тексте Turbo Pascal В заданном тексте подсчитате общее количество букв "d" и "t". Добавлено через 48 минут помогите пожалуйста:cry:
Turbo Pascal Оператор процедуры Даны натуральное число n, действительные числа a,b (a ≠ b). Получить r0, r1, ..., rn, где ri = a + ih, h = (b - a)/n. решить при помощи оператора 'Procedure'. https://www.cyberforum.ru/ turbo-pascal/ thread1310510.html	Turbo Pascal Как найти сумму элементов массива, расположенных после последнего положительного элемента https://www.cyberforum.ru/ turbo-pascal/ thread1310449.html Дано 12 вещественных чисел Как найти сумму элементов массива, расположенных после последнего положительного элемента. Нужно в виде кода
Подготовить список из N наименований товаров. Конкретное значение N указано в варианте. Информация о каждом то Turbo Pascal Подготовить список из N наименований товаров. Конкретное значение N указано в варианте. Информация о каждом товаре содержит: 1. Название товара. 2. Цену. 3. Год выпуска. 4. Количество. Список должен быть упорядочен по одному из параметров, указанных в конкретном варианте. Сведения по каждому товару необходимо представить в виде записи. Разработать программу, которая заносит во внешний...	Turbo Pascal Составить блок-схему вычисления элемента матрицы помогите пожалуйста составить блок схему.. задание звучит так: вычислить элементы матрицы А^Т, которая является транспонированной матрицей А=(а ij) (3x4) фото самого кода во вложении. https://www.cyberforum.ru/ turbo-pascal/ thread1310422.html
Turbo Pascal Есть код, нужно переделать через Function Задание: Даны 4 числа - X, Y, Z, T - длины сторон четырёхугольника. Найти площадь данного четырёхугольника, если угол между X и Y - прямой. Я написала код: program ploshad; {$APPTYPE CONSOLE} uses SysUtils; var x,y,z,t:integer; S1,S2,S,a,b:double; https://www.cyberforum.ru/ turbo-pascal/ thread1310414.html	Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии Turbo Pascal Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии. Структура записи - индекс группы, фамилия студента, оценки по пяти экзаменах, признак участия в общественной работе: 1 - активное участие 0 - неучастие.
Turbo Pascal Найти строку, содержащую наибольшую сумму элементов и поменять ее со столбцом имеющим тот же номер Дан двумерный массив размерностью x,n Найти строку,содержащую наибольшую сумму элементов и поменять ее со столбцом имеющим тот же номер. https://www.cyberforum.ru/ turbo-pascal/ thread1310318.html	Turbo Pascal Найти область допустимых значений аргумента x Вот текст программы: program name; var x:real; function f(var x:real):boolean; begin if (x<>-3) or (x<=-2) or (x>=2) or (x<>2.5) then begin f:=true; x:=((xxx)/((3+x)(2x-5)))*sqrt(sqr(x)-4); end https://www.cyberforum.ru/ turbo-pascal/ thread1310286.html
Цифры кругляши Turbo Pascal Есть цифры, в написании которых есть круг - 0, 8, 6 , 9 . Назовем такие цифры кругляшками. Число у котрых все цифры кругляши, называется круглейшим. Требуется найти ближайшее натуральное круглейшее число к заданному N. Если на одинаковом растоянии от N несколько круглейших чисел, то ответом будет большее из них. ВАся быстро решил и не смог. Помогит решить программу. 0<=N<=10 в степени 7. Напрмер...	Turbo Pascal Вывести все натуральные числа, не превосходящие N, в двоичной записи которых К единиц помогите пожалуйста!!!! На вас одна надежда!!! Сессия горит https://www.cyberforum.ru/ turbo-pascal/ thread1310182.html

Cyborg Drone

Модератор

9871 / 5239 / 3306

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

Сообщений: 16,007

28.11.2014, 13:25

Найти все решения заданного уравнения на промежутке - Turbo Pascal - Ответ 6912615

28.11.2014, 13:25. Показов 2544. Ответов 1

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

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

Решение

Самое тупое решение: преобразовываем выражение к виду

x³+3x²-9x-20+8(sin(x)-cos(x))=0

пробегаемся по интервалу с шагом 0.001 и смотрим, где функция меняет знак. Там и решения.

Pascal

function f(x: real): real;
begin
  f := x * x * x + 3 * x * x - 9 * x - 20 + 8 * (sin(x) - cos(x))
end;
 
var i, k: integer;
    u, v: real;
begin
  k := 0;
  for i := -4999 to 5000 do
    begin
      u := f((i - 1) / 1000);
      v := f(i / 1000);
      if ((u < 0) and (v >= 0)) or ((u > 0) and (v <= 0))
        then begin
          inc(k);
          writeln('x(', k, ') = ', i / 1000:6:3)
        end
    end;
  readln
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

28.11.2014, 13:25

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

Цикл: Найти для заданного натурального C все натуральные решения уравнения x+y+z=C.
Найти для заданного натурального C все натуральные решения уравнения x+y+z=C. Помогите написать...

Найти решение заданного дифференциального уравнения и построить график решения
Нужно найти решение заданного дифференциального уравнения и построить график решения...

Найти решение заданного уравнения, построить график полученного решения
Найти решение заданного уравнения, построить график полученного решения. Премного благодарен за...

Найти решение заданного уравнения, построить график полученного решения
Найти решение заданного уравнения, построить график полученного решения. Заранее спасибо всем кто...

	28.11.2014, 13:25

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

28.11.2014, 13:25

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

Найти решение заданного дифференциального уравнения, построить график полученного решения
Найти решение заданного дифференциального уравнения, построить график полученного решения....

Найти все решения уравнения
Z^2=3-4*i

Найти все решения уравнения
Ребят, посмотрите пожалуйста, что дальше делать?

Найти все целочисленные решения уравнения
cos\left(\frac{(10x-48)\pi }{3x+5} \right)=1

Наверх