Описать запись с именем ORDER, содержащую следующие поля...

[LASSTIRE]

Описать запись с именем ORDER, содержащую следующие поля...

Добрый день!

Описать запись с именем ORDER, содержащую следующие поля:
расчетный счет плательщика,
расчетный счет получателя,
перечисляемая сумма в рублях;
написать программу ,выполняющую следующие действия:
ввод с клавиатуры данных в массив,состоящий из восьми элементов типа ORDER, записи должны быть размещены в алфавитном порядке по расчетным счетам плательщиков,
вывод на экран информации о сумме,снятой с расчетного счета плательщика введенного с клавиатуры,
если такого расчетного счета нет, выдать на дисплей соответствующее сообщение.

Нужно решение в Pascal .

Срочно нужно решение, кто может пожалуйста посмотрите и покажите решение

 

[LASSTIRE]

Пожалуйста покажите решение, нужно к концу недели.

 

[LASSTIRE]

order=record
schplat:string;
schpol:string;
sumr:string;
end:
var mas:array [1..8] of order;
procedure vvod;
k,i:integer
begin
writeln('schplat');
readln(schplat);
writeln( 'schpol');
readln( schpol);
writeln('sumr');
readln(sumr);
end;

вроде какой-то ввод сделал, помогите дальше с алфавитным порядком и выводом

 

[Vladimir_S]

order=record
schplat:string;
schpol:string;
sumr:string;
end:
var mas:array [1..8] of order;
procedure vvod;
k,i:integer
begin
writeln('schplat');
readln(schplat);
writeln( 'schpol');
readln( schpol);
writeln('sumr');
readln(sumr);
end;

вроде какой-то ввод сделал, помогите дальше с алфавитным порядком и выводом

Сделать-то сделали, но нечто нелепое и абсолютно неправильное. Правильно так:

type 
 order=record
          schplat:string;
          schpol:string;
          sumr:string;
         end;

var 
 mas:array [1..8] of order;

procedure vvod;
var i:integer
begin
 for i:=1 to 8 do
  begin
   writeln('schplat');
   readln(mas[i].schplat);
   writeln('schpol');
   readln(mas[i].schpol);
   writeln('sumr');
   readln(mas[i].sumr);
  end;
end;

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

procedure vvod;
var i:integer
 begin
 for i:=1 to 8 do
  with mas[i] do
   begin
    writeln('schplat');
    readln(schplat);
    writeln('schpol');
    readln(schpol);
    writeln('sumr');
    readln(sumr);
   end;
end;

А вообще, если Вы обратили внимание, в последние дни на форум обрушилась лавина запросов на составление программ создания и работы с базами данных на основе массивов записей. Естественно, помочь всем страждущим лоботрясам мы не в состоянии - работа это долгая, нудная и кропотливая, притом абсолютно тупая и рутинная. Но несколько примеров полностью отлаженных программ, которые можно взять за образец, найти можно, пройдясь по разделам "Delphi..." и "Студентам...". Причем далеко по датам зарываться не надо.

 

[LASSTIRE]

Примеры обязательно искал и смотрел, но в этом деле новичок , вот и получается каша
благодарю за исправления

 

[LASSTIRE]

я вот в этом моменте чуть затормаживаю

"..записи должны быть размещены в алфавитном порядке по расчетным счетам плательщиков,
вывод на экран информации о сумме,снятой с расчетного счета плательщика введенного с клавиатуры.."

с алфавитом что-то сделал, может позже покажу

 

[Vladimir_S]

я вот в этом моменте чуть затормаживаю

"..записи должны быть размещены в алфавитном порядке по расчетным счетам плательщиков,
вывод на экран информации о сумме,снятой с расчетного счета плательщика введенного с клавиатуры.."

с алфавитом что-то сделал, может позже покажу

Ну... Вы в лучшем положении, если только "чуть затормаживаете": я так в этих пассажах вообще ни бельмеса не понял. Ежели бы в алфавитном порядке по фамилиям - тут было бы ясно, а по счетам??? И что вводится с клавиатуры - сумма, номер счета или и то, и другое?

 

[LASSTIRE]

ну я с Вами согласен,
а тут ,я так думаю ,номер счета вводится с клавы.
Если есть какие идеи, поделитесь, а я пойду в школе чуть пообщаюсь по этой задачке.