Массив записей

@Your_Nightmare · Регистрация: 25.12.2012

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

Здравствуйте, помогите, пожалуйста, написать код к задаче.

Создать массив записей в соответствии с заданной структурой. Количество записей не больше 10. Вывести на печать данные обо всех клиентах, определенного банка (название банка задается пользователем).

С использованием модулей. И вопрос: какой тип использовать для описания переменной адреса? чтобы сочетал в себе и цифры и буквы, если такой существует, или какой правильно?

Вот наработки

Pascal

Модуль 1.
unit op;
interface
const
      n=4;
type
      client= record
 
                                  full name: text;
                                        sum: real
                                    address:             ;
                                    
                                    country : string ;
 
                                    bank: string
                                    nane: word;
                                    annual percent: real;
                                    
                                           end;
       end;
 inform1 = array[1..n] of client;
implementation
end.

Pascal

Модуль 2.
unit obrabotka;
interface
uses op;
  procedure vvod (var sved:sved1);
  procedure inform1 (var sved:sved1);
 
implementation
procedure vvod;
var
  i     : byte;
begin
 for i:=1 to n do
      with Inform1[i] do
        begin
           write('Введите ФИО клиента', i,'');
           readln(Full name);
           write('Введите сумму вклада в банке', i, ' ');
           readln(sum);
           write('Введите адрес банка ', i, ' ');
           readln(address);
           write('Введите название банка' ,i, ' ')
           readln(name);
           write('Введите годовой процент',i,' ')
           readln(annual persent)
 
 
procedure inform1;
var
     i     : byte;
begin
    writeln('Данные обо всех клиентах определенного банка');
    for i:=1 to n do
         with sved[i] do

	01.04.2013, 20:22