09.12.2019, 02:15 [+3 UTC]
в нашей команде: 4 047 чел. | участники онлайн: 2 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.78 (18.11.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
29.11.2019, 17:59

Последний вопрос:
08.12.2019, 23:49
Всего: 151207

Последний ответ:
08.12.2019, 18:03
Всего: 259544

Последняя рассылка:
08.12.2019, 17:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
29.04.2019, 22:12 »
viktorija79
Спасибо большое! Все доступно и понятно объяснили! [вопрос № 195405, ответ № 277987]
30.09.2019, 16:41 »
dar777
Это самое лучшее решение! [вопрос № 196490, ответ № 278796]

РАЗДЕЛ • .NET Framework / C# / Java

Создание программ на программной платформе .NET Framework и языках С# и Java.

[администратор рассылки: Коцюрбенко Алексей Владимирович (Модератор)]

Лучшие эксперты в этом разделе

Коцюрбенко Алексей Владимирович
Статус: Модератор
Рейтинг: 1486
Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 690
Лысков Игорь Витальевич
Статус: Старший модератор
Рейтинг: 140

Перейти к консультации №:
 

Консультация онлайн # 188394
Раздел: • .NET Framework / C# / Java
Автор вопроса: prostolenaya (Посетитель)
Отправлена: 10.12.2015, 00:28
Поступило ответов: 1

Здравствуйте! Прошу помощи в следующем вопросе:
нужно перевести программу с паскаль на java. Благодарю
uses crt;
const n=7; m=7;
var i,j: integer;
U: array [0..m,0..n] of real;
x: array [0..m] of real;
t: array [0..n] of real;
ht,hx,t0,tk,10,1k: real;
begin clrscr;
10:=0;
1k:=1;
hx:=1k/m;
write (' t0= ' ) ; readln(t0);
write (' tk= ' ) ; readln(tk);
ht := (tk-t0) / n;
for i:=0 to m do
begin x [i]:= 10+hx*i;
writeln ('x[' ,i,' ]=',x [i]:2:3);
end;
for j:=0 to n do
begin
t [j]:= t0+ht*j;
writeln ('t[' ,j,' ]=',t [j]:2:3);
end;
for i:=0 to m-1 do
begin
for j:=1 to n-1 do
begin
U[i,j+1] :=U[i,j] +ht* ((1-sqr(x[i+1/2]) * (U[i+1,j]-U[i,j])-(1-sqr(x[i-1/2]) * (U[i,j]- U(i-1,j]))/sqr(hx) ;
write ('U[',i,',',j,'])= ',U[i,j]:2:3,' ');
end;
writeln;
end;
readln;
end.

Состояние: Консультация закрыта

Ответ # 273047 от PsySex (Профессионал)

Здравствуйте, prostolenaya!

Код (JavaScript) :: выделить код
import java.util.Scanner;
public class MyClass { 
public static void main(String args[]) { 
final int n=7;
final int m=7;
int i,j;
double[][] U = new double [m][n];
double[] x = new double [m];
double[] t = new double [n];
double ht,hx,t0,tk,l0,lk;

l0=0;
lk=1;
hx=lk/m;
System.out.println(" t0= ");
Scanner scanIn = new Scanner(System.in);
t0 = Double.parseDouble(scanIn.nextLine());
System.out.println(" tk= ");
tk = Double.parseDouble(scanIn.nextLine());
ht = (tk-t0) / n;
for (i = 0; i < m; i = i + 1)
{
    x[i]= l0+hx*i;
    System.out.println("x[" + i +"]="+x[i]);
}
for (j = 0; j < n; j = j + 1)
{
    t[j]= t0+ht*j;
    System.out.println("t[" + j +"]="+t[j]);
}

for (i = 0; i < m-1; i = i + 1)
{
    for (j = 1; j < n-1; j = j + 1)
    {
        U[i][j+1] = U[i][j] + ht * ((1-Math.sqrt(x[i+1/2]) * (U[i+1][j]-U[i][j])-(1-Math.sqrt(x[j-1/2]) * (U[i][j]- U[j-1][j]))/Math.sqrt(hx)));
        System.out.println("U[" + i + "," + j + "'])= " + U[i][j] + " ");
    }
}
scanIn.nextLine();
}
}

Были ошибки в исходном задании.
© Цитата:
ht,hx,t0,tk,10,1k: real;

Переменные не могут начинаться с цифр. В кода Java я заменил 1 на букву l.
© Цитата:
U[i,j+1] :=U[i,j] +ht* ((1-sqr(x[i+1/2]) * (U[i+1,j]-U[i,j])-(1-sqr(x[i-1/2]) * (U[i,j]- U(i-1,j]))/sqr(hx) ;

перепутаны скобки,количество открытых не совпадает с количеством закрытых, во второй части формулы заменил i на j, т.к. возникала ошибка индекса при обращении к массиву.

Последнее редактирование 10.12.2015, 19:43 Алексей Гладенюк (Руководитель)

Консультировал: PsySex (Профессионал)
Дата отправки: 10.12.2015, 12:07

Рейтинг ответа:

+1

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

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

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.14103 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.78 от 18.11.2019
Версия JS: 1.34 | Версия CSS: 3.35