Перевод из Pascal в Java

@jj2123 · Регистрация: 24.02.2021

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

Помогите перевести код из Pascal на Java

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var a,b,s1,s2:real;
    i:byte;
begin
write('Введите размер стипендии a=');
readln(a);
write('Введите размер расходов на проживание в месяц b=');
readln(b);
s1:=10*a;
s2:=0;
for i:=1 to 10 do
 begin
  s2:=s2+b;
  b:=b*1.03;
 end;
writeln('Стипендия за 10 мес.=',s1:0:2);
writeln('Расходы за 10 мес.=',s2:0:2);
if s2<=s1 then write('Хватит стипендии')
else write('Нужно попросить у родителей ',s2-s1:0:2,' руб.')
end.

@InvalidCode · 25.02.2021, 10:11

jj2123, Держи

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
import java.util.Scanner;
 
 
 
/**
 * @author і++
 */
class H1 {
    
    public static void main(String[] args){
        Scanner sc = new Scanner(System.in);
        System.out.println("Введите размер стипендии a=");
        double a = Double.parseDouble(sc.nextLine());
        System.out.println("Введите размер расходов на проживание в месяц b=");
        double b = Double.parseDouble(sc.nextLine());
        sc.close();
        double s1 = a * 10;
        double s2 = 0d;
        for(int i = 0; i < 10; i++){
            s2 += b;
            b *= 1.03;
        }
        System.out.println("Стипендия за 10 мес.= " + (s1 * 100 / 100));
        System.out.println("Расходы за 10 мес.= " + (s2 * 100 / 100));
        if(s2 <= s1){
            System.out.println("Хватит стипендии");
        }
        else{
            System.out.println("Нужно попросить у родителей " + ((s2 - s1) * 100 / 100) + " руб.");
        }
    }
    
 
}

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/