Цитата:
Сообщение от 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[i]);
writeln( 'schpol');
readln( schpol[i]);
writeln('sumr');
readln(sumr[i]);
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..." и "Студентам...". Причем далеко по датам зарываться не надо.