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

Банкомат, написанный в Паскале нужно переделать под Java

12.09.2015, 15:01. Показов 1141. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет!
Я написал банкомат, в Паскале АБС.НЕТ, но вот задание перехожу на Java и нужно полностью его переделать под JAVA, если кому-то не сложно прошу помочь, а когда я начну мучатся буду подсматривать что бы понять свои ошибки.

Вот код паскаль.
Pascal
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
program ATM;
 
 
var sum: integer;
    nom: array [0..3] of integer = (200, 100, 50, 20); 
    menuN: integer;
    k: array [0..3] of integer; 
    kEnter: array [0..3] of integer; 
    pass: integer = 123;
    
    
    
function count (nominal, sum, put :integer) : integer;
     begin
      if sum div nominal >= put then
       count := put
      else 
       count:= sum div nominal;
      end;
 
procedure Add;
var i: integer;
 
  begin
    for i := 0 to 3 do
     begin
      writeln ('Please enter number nominal', ':', nom[i]);
      readln (KEnter[i]);
  end
end;
 
procedure money;
 
var i: integer; 
 
begin 
  writeln ('Please enter sum: ');
  readln (sum);
  for i:= 0 to 3 do
    begin
      k[i]:= count(nom[i], sum, kEnter[i]);
      sum := sum - nom[i] * k[i];
    end;
 if sum  = 0 then
    begin
    for i := 0 to 3 do
      writeLn (nom[i], ' ','x',' ', k[i], ' ', '=', ' ', nom[i]* k[i]); 
    end
  else 
  writeln('Error, ATM can not give the sum');
  begin
  writeln ('You have in account:');
  for i:= 0  to 3 do 
  writeln (nom[i], 'x', kenter [i] - k[i], ' ', '=', ' ', nom[i]*(kEnter[i]-k[i]));
  end;
end;
 
begin 
 repeat
    writeln ('Please enter your pass: ');
    readln (pass); 
    if pass = 123 then 
      writeln ('Hello, you went to the ATM menu')
    else 
      writeln ('Error, you enter the wrong password');
  until pass = 123;
  repeat 
    writeln ('Plaese select service: ');
    writeln ('1. Add money on account'); 
    writeln ('2. Withdraw');
    writeln ('3. Exit');
    readln (menuN);
    begin
      case menuN of
        1: Add;  
        2: money;
        3: writeln ('See you soon');
     else 
      writeln ('Error, this menu item is wrong');
      end
    end;
     until menuN = 3;
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
12.09.2015, 15:01
Ответы с готовыми решениями:

Под С++ нужно переделать
while pos(' ',s)>0 do{пока есть пробелы} begin s1:=copy(s,1,pos(' ',s)-1);{копируем первое слово} k:=0; for i:=1 to...

Нужно переделать под С
Нужно код с++ переделать на с #include <stdio.h> #include <locale.h>//для языка #include <iostream>//для cout и cin #include...

Нужно переделать JAVA в DELPHI
Всем привет!! Мне нужно переписать этот код для DELPHI. Пожалуйста помогите!!!!!!! public static byte getBytesFromFile(File file)...

4
Эксперт Java
 Аватар для KEKCoGEN
2399 / 2224 / 565
Регистрация: 28.12.2010
Сообщений: 8,672
12.09.2015, 15:04
Цитата Сообщение от King10 Посмотреть сообщение
а когда я начну мучатся буду подсматривать
вы лучше начните, а что непонятно, спросите тут
1
0 / 0 / 1
Регистрация: 15.05.2015
Сообщений: 11
13.09.2015, 21:26
King10, если это весь Ваш код, пишите мне ***********, помогу чем смогу


 Комментарий модератора 
4.6 Обсуждение вопросов - только в теме на форуме. Приглашения к обсуждению еще где-либо (в том числе и с помощью системы личных сообщений) запрещены, за исключением коммерческих разделов.
0
0 / 0 / 0
Регистрация: 07.08.2015
Сообщений: 24
13.09.2015, 22:18  [ТС]
Та зачем мне в личку писать, или куда ты там предлагал это учебный проект, так что я и тут могу обсудить и может кому-то пригодится
0
0 / 0 / 1
Регистрация: 15.05.2015
Сообщений: 11
15.09.2015, 21:42
я не знаю паскаль, но вроде бы будет так:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;
 
public class Main {
 
    private static int sum;
    private static int pass = 123;
    private static int menuN;
 
    private static int[] nom       = {200, 100, 50, 20};
    private static int[] k         = new int[4];
    private static int[] kEnter    = new int[4];
    private static BufferedReader bufferedReader = new BufferedReader(new InputStreamReader(System.in));
 
 
    public static void main(String[] args) {
 
        while(true) {
            System.out.println("Please enter your pass:");
            try {
                pass = Integer.parseInt(bufferedReader.readLine());
            } catch (IOException e) {
                e.printStackTrace();
            }
 
            if (pass == 123){System.out.println("Hello, you went to the ATM menu");  break;}
            else System.out.println("Error, you enter the wrong password");
        }
 
        while(true){
 
            System.out.println("Please, select service: ");
            System.out.println("1. Add money on account");
            System.out.println("2. Withdraw");
            System.out.println("3. Exit");
 
            try{
                menuN = Integer.parseInt(bufferedReader.readLine());
            } catch (IOException e){
                e.printStackTrace();
            }
 
            if (menuN == 1) add();
            else if(menuN == 2) money();
            else if(menuN == 3) {System.out.println("See you soon"); break;}
            else System.out.println("Error, this menu item is wrong");
        }
    }
 
    private static void add(){
 
        for(int i = 0; i < 4; i ++){
 
            System.out.println("Please enter number nominal" + ":" + nom[i]);
            try{
                kEnter[i] = Integer.parseInt(bufferedReader.readLine());
            }catch (IOException e){
                e.printStackTrace();
            }
        }
    }
 
    private static int count(int nominal, int sum, int put){
 
        if((sum / nominal) >= put){
            return put;
        }else{
            return (sum / nominal);
        }
    }
 
    private static void money(){
 
        System.out.println("Please enter sum: ");
        try{
            sum = Integer.parseInt(bufferedReader.readLine());
        }catch(IOException e){
            e.printStackTrace();
        }
 
        for(int i = 0; i < 4; i ++){
 
            k[i] = count(nom[i], sum, kEnter[i]);
            sum = sum - nom[i] * k[i];
        }
 
        if(sum == 0){
            for(int i = 0; i < 4; i ++){
                System.out.println(nom[i] + " " + "x" + " " + k[i] + " " + "=" + " " + nom[i] * k[i]);
            }
        }else{
            System.out.println("Error, ATM can not give the sum");
        }
 
        System.out.println("You have in account:");
        for(int i = 0; i < 4; i ++){
            System.out.println(nom[i] + "x" + (kEnter[i] - k[i]) + " " + "=" + " " + nom[i]*(kEnter[i]-k[i]));
        }
    }
}
старался делать так, чтобы было максимально похоже на ваш код
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
15.09.2015, 21:42
Помогаю со студенческими работами здесь

Нужно переделать программу с С++ под С
Доброе утро форумчани! Есть программа написанная на С++ #include &lt;iostream&gt; #include &lt;string&gt; #include &lt;conio.h&gt; ...

Нужно переделать под 2х мерный массив
задача следующая, используя функции сортировки масcива, отсортировать строки матрицы есть вот такая прога, не пойму как переделать ее под...

Нужно переделать под БИХ фильтр
Привет, задача такая: нужно переделать цикл в этом коде под БИХ фильтр, сейчас он сделан под КИХ, и почему то вообще не хочет пропускать...

нужно компонент переделать под XE5
имеется компонент на делфи 7 ну там кнопки чекбоксы,вот их нужно переделать под xe5 кто возьмется?буду очень благодарен

Нужно переделать массив под строки
У меня вводится по одному символу, а надо, чтобы вводилось строкой для работы фильтра: class FilteredArray : virtual public Array { ...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru