Форум программистов, компьютерный форум, киберфорум
Java SE (J2SE)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
1 / 1 / 0
Регистрация: 02.12.2015
Сообщений: 58

Pascal to Java

13.11.2016, 16:15. Показов 1162. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый день , помогите переделать код в java , но только для другой функции f:=cos(x)-sqrt(x)
код:
// Метод "Золотого сечения"
// f(x) = 5x^2 + 8x^(5/4) - 20x
// [3; 3,5] е=0,000001

const e=0.000001; // точность
var gold: real; // пропорция "Золотого сечения"
a,b: real; // начало и конец отрезка
x1,x2: real; // точки деления
y1,y2: real; // значения целевой функции в точках деления
n: integer; // число итераций

function f(x:real):real; // целевая функция
begin
Result:=5*sqr(x) + 8*power(x,5/4) - 20*x;
end;

Begin
cls; n:=0;
a:=3; b:=3.5;
gold:=(sqrt(5)+1)/2;
repeat
inc(n);
x1:=b-((b-a)/gold);
x2:=a+((b-a)/gold);
y1:=f(x1);
y2:=f(x2);
if(y1>=y2) then a:=x1 else b:=x2; // условие - поиск минимума
until abs(y2-y1)<e;
writeln('Точка минимума: ',(x1+x2)/2);
writeln('Значение функции в точке минимума: ',(y1+y2)/2); // середина интервала
writeln('Результат получен за ',n,' итераций.');
End.
Заранее спасибо!)
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
13.11.2016, 16:15
Ответы с готовыми решениями:

Перевод кода с Pascal на Java - Java SE
var a:Int64; begin Reset(Input,'input.txt'); Rewrite(Output,'output.txt'); read(a); Write(a,9,9-a) end. Заранее...

Pascal from java
Добрый день. Мне нужно по курсовой сделать калькулятор систем счисления, чтобы переводить числа, но нужно учесть что числа могут быть не...

Из pascal в java
Ребзя, помогите переделать программу pascal в java. Кому не лень ;) Program f; var s:string; Begin readln(s); while...

2
58 / 57 / 47
Регистрация: 31.10.2016
Сообщений: 182
14.11.2016, 03:46
Лучший ответ Сообщение было отмечено IzotopTh232 как решение

Решение

Java
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
public class SuperFantasticClass {
    
    public static final double E = 0.000001; // точность
    
    public static double f(double x) { // целевая функция
        return Math.cos(x) - Math.sqrt(x);
    }
    
    public static void main(String[] args) {
        double  gold;   // пропорция "Золотого сечения"
        double  a, b;   // начало и конец отрезка
        double  x1, x2; // точки деления
        double  y1, y2; // значения целевой функции в точках деления
        int     n;      // число итераций
        
        n = 0;
        a = 3;
        b = 3.5;
        gold = (Math.sqrt(5) + 1) / 2;
        
        do {
            n++;
            x1 = b - ((b - a) / gold);
            x2 = a + ((b - a) / gold);
            y1 = f(x1);
            y2 = f(x2);
            
            if((y1 >= y2)) // условие - поиск минимума
                a = x1;
            else
                b = x2;
        }
        while(Math.abs(y2 - y1) > E);
        
        System.out.println("Точка минимума: " + (x1 + x2) / 2);
        System.out.println("Значение функции в точке минимума: " + (y1 + y2) / 2); // середина интервала
        System.out.println("Результат получен за " + n + " итераций.");
    }
}
Добавлено через 6 минут
Pascal
1
cls;
Вроде как очистка консоли, в java такого не знаю, поэтому пропустил.
1
1 / 1 / 0
Регистрация: 02.12.2015
Сообщений: 58
14.11.2016, 14:24  [ТС]
Спасибо огромное! Тема закрыта!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.11.2016, 14:24
Помогаю со студенческими работами здесь

Из Pascal в Java!
Привет всем джаверам пожалуйста если вам не сложно не могли бы вы перевести это на Java! uses crt; const n=7; var...

Java to Pascal
Необходимо транслировать код с Java на Pascal в связи с тем, что синтаксис паскаля мною забыт давным давно, а времени на восполнение...

Из java в pascal
Доброе время суток! Ребят помоги перевести из java на pascal! Очень нужно( package relax; import java.io.*; import...

С Pascal на Java
readln (l); k := l div 100;

Из Pascal в Java
Нужно перевести 2 кода. использовать вот эти библиотеки: import javax.swing.*; import java.util.*; program 1; uses crt; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru