Написать программу с принципом работы, как в банкомате.

@Programmer1993 · Регистрация: 22.05.2012

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

Использую перечень номиналов ассигнаций (5000,1000,500,100,50,10) запрограммировать жадный алгоритм формирования выдачи заданной суммы в банкомате. Учесть в программе возможность отсутствия ассигнаций того или иного типа ..... ну короч чтоб как в банкомате было если задать сумму 10000 чтоб он две купюры по 5000 дал а не десять по тысячи

@Programmer1993 · 07.11.2012, 02:06 **[ТС]**

А можно как нибудь убрать процедуру

Delphi
1
Procedure TForm1.refreshGrid;

@DaMortum · 07.11.2012, 02:32

Я сделал два StringGrid'a , что бы во втором отображалась информация о количесве купюр. А из первого можно добавлять купюры. Но ты можешь удалить эту функцию вместе со вторым гридом.

@Programmer1993 · 07.11.2012, 02:34 **[ТС]**

а чтоб эту функцию создать надо прост прописать вручную или както программно создать

@DaMortum · 07.11.2012, 02:41

Эта процедура объявлена в разделе private

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    Button2: TButton;
    StringGrid2: TStringGrid;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    Procedure RefreshGrid;
  public
    { Public declarations }
  end;

Дальше в коде находится сама процедура

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
Procedure TForm1.RefreshGrid;
var
  I, J: integer;
   Sum: integer;
begin
  Sum := 0;
  {Вывод количества купюр и общей суммы денег в банкомате}
  for I := 1 to 8 do begin
    StringGrid2.Cells[I, 1] := IntToStr(Kol[I]);
    Sum :=  Sum + Kol[I] * Kupiury[I];
  end;
  Edit2.Text := IntToStr(Sum);
end;

написана вручную , естественно.

@Programmer1993 · 07.11.2012, 02:51 **[ТС]**

а не подскажешь еще что такое length(kol)

@DaMortum · 07.11.2012, 12:04

Функция High возвращает самый высокий индекс.
Функция Low возвращает самый низкий индекс.
Функция Length возвращает количество элементов в массиве.
Допустим у нас есть массив

Delphi
1
2
3
4
MyArray: array [3..7] of integer;
I := High(MyArray);    // I = 7
I := Low(MyArray);    // I = 3
I := Length(MyArray); // I = 5

@Programmer1993 · 07.11.2012, 20:09 **[ТС]**

все спасибо большое я все что надо уже сделал

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@Programmer1993 44 / 24 / 1 Регистрация: 22.05.2012 Сообщений: 669

	Написать программу с принципом работы, как в банкомате. 28.10.2012, 12:28. Показов 6379. Ответов 26 Метки нет (Все метки) Использую перечень номиналов ассигнаций (5000,1000,500,100,50,10) запрограммировать жадный алгоритм формирования выдачи заданной суммы в банкомате. Учесть в программе возможность отсутствия ассигнаций того или иного типа ..... ну короч чтоб как в банкомате было если задать сумму 10000 чтоб он две купюры по 5000 дал а не десять по тысячи 0

@DaMortum 251 / 156 / 31 Регистрация: 07.10.2012 Сообщений: 401
	07.11.2012, 02:32
	Я сделал два StringGrid'a , что бы во втором отображалась информация о количесве купюр. А из первого можно добавлять купюры. Но ты можешь удалить эту функцию вместе со вторым гридом. Миниатюры 1

@Programmer1993 44 / 24 / 1 Регистрация: 22.05.2012 Сообщений: 669
	07.11.2012, 02:34 [ТС]
	а чтоб эту функцию создать надо прост прописать вручную или както программно создать 0

@Programmer1993 44 / 24 / 1 Регистрация: 22.05.2012 Сообщений: 669
	07.11.2012, 02:51 [ТС]
	а не подскажешь еще что такое length(kol) 0

@Programmer1993 44 / 24 / 1 Регистрация: 22.05.2012 Сообщений: 669
	07.11.2012, 20:09 [ТС]
	все спасибо большое я все что надо уже сделал 0