Цитата:
|
Сообщение от xzibit777999
2) Описать структуру с именем ORDER, содержащую следующие поля:
- Расчётный счёт плательщика;
- Расчётный счёт получателя;
- перечисляемая сумма в руб.
Написать программу, выполняющую следующие действия (действия оформить в виде подпрограмм):
- Ввод с клавиатуры данных в массив, состоящий из 8 элементов типа ORDER; записи должны быть размещены в алфавитном порядке по расчётным счетам плательщиков;
- Вывод на экран информации о сумме, снятой с расчётного счёта плательщика, введенного с клавиатуры;
- Если такого расчётного счета нет, выдать на экран соответствующие сообщение.
|
это твоя структура
Код:
type
TOrder=record
RSIn,RSOut:WideString;//счет для входящих платежей,счёт для исходящих
Cash:Real;
end;
TOrderArray=array [1..8] of TOrder;
процедура отображения бабла из массива где расчётный счйт вводиться с клавиатуры
Код:
procedure ShowMeMoney(InPutRS:WideString;OrderArray:TOrderArray);
var
x:Integer;
b:boolean;
begin
b:=False;
for x:=1 to 8 do
if OrderArray[x].RSOut=InPutRS then
begin
//выводим на экран OrderArray[x].Cash
b:=True;
end;
if not b then
//Выводим сообщение о том чтонет такого счёта
end;
вывод,ввод с клавиатуры и сборку давай сам
тут ещё сортировки не хватает, времени нет на работе