Дописать...

[Lemo]

Парни, вот у меня задание:
Заданы поля записи, определить их типы данных, написать программу для введения произвольного количества записей через массив, который инициализировать как типизирующую константу. Вывести записи согласно указанному критерием на экран в форме, удобной для пересмотра.
---- Муз. ансамбль: название, направление, количество лиц. Критерий: ансамбли из трех лиц.
Вот я начал писать код и не могу закончить, кому интересно помогите=)

program Projec4;
{$APPTYPE CONSOLE}
uses
SysUtils;
const N=3;
var
AnsambeL:array [1..N] of integer;
type
Music=record
Nazvanie:string;
Stil:string;
U4asniki:integer;
end;
type
G:AnsambeL= (Nazvanie ' Самому придумать?' ; Stil ' ' ; U4asniki ' ' );
Nazvanie ' ' ; Stil ' ' ; U4asniki ' ' );
Nazvanie ' ' ; Stil ' ' ; U4asniki ' ' );

[odi_noki]

почему только парни?

[Lemo]

Извеняюся, и девушки тоже=))

[Lemo]

Ну так кто то поможет дописать?=)

[puporev]

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

uses crt;
type
   Music=record
         naz:string[10];
         stil:string[10];
         u4as:byte;
         end;
//инициализация массива типизированной константой
const G:array[1..1] of Music=((Naz:'aaa';Stil:'bbb';U4as:3));
var n,i,j:integer;
    c:char;
begin
clrscr;
n:=0;
repeat
inc(n);
writeln('Ансамбль ',n);
write('Название: ');readln(G[n].naz);
write('Направление: ');readln(G[n].stil);
write('Количество участников: ');readln(G[n].u4as);
writeln;
c:=readkey;
until c=#27;
writeln('Список групп из трех участников:');
for i:=1 to n do
if G[i].u4as=3 then
writeln(G[i].naz,'   ',G[i].stil,'   ',G[i].u4as);
readln
end.

[Lemo]

Проси, что немного усложняю тебе задачю, но мне нужно это сдавать именно в Делфи (5), если не трудно пересмотри код пожалуйста под делфи!

[puporev]

У меня нет Делфи 5, я не могу проверить, а код точно такой же, убери
uses crt;
...........
clrscr;
.........
замени

c:=readkey;
until c=#27;

на

readln(c);
until c=#27;

[Lemo]

Работает, но при прохождении цикла, 1-й раз нормально можно заполнить (название, кол-во , учасников, направление) Потом нажимаю 2 раза пробел. продолжаеться цикл заполнением 2го ансамбля. которого нельзя заполнить, потому что выскакивает ошибка в этой стороке:
write('Nazvanie: ');readln(G[n].naz);

[Lemo]

Вот сылка скриншота ошибки (на депозите выкинул) !
http://depositfiles.com/files/8734638
Я просто не совсем шарю скриншоты выкидывать на форум!

[puporev]

Потом нажимаю 2 раза пробел

Это зачем? Может Enter? Скинь исправленный тобой код, посмотрю, но проверить нечем.