Технический форум - Описать запись с именем ORDER, содержащую следующие поля...

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

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

Добрый день!

Цитата:

Сообщение от LASSTIRE (Сообщение 526832)

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

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

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

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

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[i]);
writeln( 'schpol');
readln( schpol[i]);
writeln('sumr');
readln(sumr[i]);
end;

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

Цитата:

Сообщение от LASSTIRE (Сообщение 527616)

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

Код:

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 (Сообщение 527724)

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

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