Программа для решения уравнений

@FrostPringuin · Регистрация: 05.02.2019

Студворк — интернет-сервис помощи студентам

Доброго всем времени суток ! Прошу пожалуйста попробовать помочь мне разобраться с кодом в Делфи .Мне нужно написать програму с циклами для вычисления уравнений .Вот такое уравнение : y=sin(65градусов)^(в степени) ln(x), от 5 до 15 с шагом 2.
Сам хотел разобраться в коде но какой либо четкой и конкретной информации на сайтах почти по сути и нет.Вроде бы и знаю что надо степень вводить через експоненту , и почти сам всю програму оформил но никак не могу довести ее до ума.Заранее спасибо.

@ValentinNemo · 05.02.2019, 20:43

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program PowerConstLn;
uses Math; // Подключаем модуль Math.
const
  a =0.9063077; // sin(65) Значение синуса при угле 65 градусов.
var
 i: real;
 y: real;
begin
i:= 5;
while i < 15 do
 begin
    y:= power(a,ln(i)); // Возводим константу а в степень.
    i:=i+2; //  заданный шаг переменной равне 2.
    write ('  ',y:4:4); // Выводим результат на экран в строчку.
 end;
 Readln();
end.

@Matan! · 06.02.2019, 11:53

Сообщение от ValentinNemo

while i < 15 do

Неравенство лучше нестрогое, ибо 15 входит в наш промежуток

Сообщение от ValentinNemo

Delphi
1
y:= power(a,ln(i));

А лучше не где-то на стороне этот синус считать, а прямо здесь:

Delphi
1
2
3
4
5
6
7
a := 65;     // a: Single;
while i <= 15 do
begin
  y:= power(Sin(a * Pi / 180), ln(i));
  i:=i+2;
  write ('  ', y : 4 : 4);
 end;

Добавлено через 1 минуту

Сообщение от ValentinNemo

i: real;
y: real;

Типы лучше использовать Double.

@ValentinNemo · 07.02.2019, 14:06

Спасибо Matan! за науку. Лайки вам. Я очень давно математикой занимался, так что "перлы" у меня будут те еще! Под стол со смеху будете сползать. Значение синуса взял как константу, чтобы было нагляднее.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@FrostPringuin 0 / 0 / 0 Регистрация: 05.02.2019 Сообщений: 1

	Программа для решения уравнений 05.02.2019, 20:17. Показов 1210. Ответов 3 Метки нет (Все метки) Доброго всем времени суток ! Прошу пожалуйста попробовать помочь мне разобраться с кодом в Делфи .Мне нужно написать програму с циклами для вычисления уравнений .Вот такое уравнение : y=sin(65градусов)^(в степени) ln(x), от 5 до 15 с шагом 2. Сам хотел разобраться в коде но какой либо четкой и конкретной информации на сайтах почти по сути и нет.Вроде бы и знаю что надо степень вводить через експоненту , и почти сам всю програму оформил но никак не могу довести ее до ума.Заранее спасибо. 0

@ValentinNemo 2374 / 776 / 561 Регистрация: 15.01.2019 Сообщений: 2,394
	07.02.2019, 14:06
	Спасибо Matan! за науку. Лайки вам. Я очень давно математикой занимался, так что "перлы" у меня будут те еще! Под стол со смеху будете сползать. Значение синуса взял как константу, чтобы было нагляднее. 0

Опции темы