Распечатать список учеников музыкальной школы, которые учатся играть на скрипке

@irk · Регистрация: 16.04.2010

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

доброго времени суток)
Задача следующая:распечатать список учеников музыкальной школы,которые учатся играть на скрипке.Указать также сколько лет они занимаются музыкой и принимали ли участие в каких либо конкурсах.
вот что я написала:

Delphi

 type
  TSpisok = record
    Fam: String;
    Instrum: String;
    Srok: Integer;
    Uchast: String;
  end;
   TSpisk = record
   Spisok: TSpisok;
 end;
var
  Form2: TForm2;
  Spis: Array of TSpisk;
  k: Integer;
 
implementation
 
{$R *.dfm}
procedure TForm2.Button3Click(Sender: TObject);
begin
close;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
SetLength(Spis,k+1);
  Spis[k].Spisok.Fam :=Edit1.Text;
  Spis[k].Spisok.Instrum := Edit2.Text;
  Spis[k].Spisok.Srok := StrToInt (Edit3.Text);
  Spis[k].Spisok.Uchast := Edit4.Text;
    Edit1.Text:=' ';
    Edit2.Text:=' ';
    Edit3.Text:=' ';
    Edit4.Text:=' ';
 
  k := k+1;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
var i: Integer;
begin
  for i := 0 to k do
  if    Spis[i].Spisok.Instrum ='скрипка' then
    begin      Memo1.Clear;
      Memo1.Lines.Add('Фамилия ученика : '+Spis[i].Spisok.Fam);
      Memo1.Lines.Add('Инструмент : '+Spis[i].Spisok.Instrum);
      Memo1.Lines.Add('Срок обучения :'+IntToStr(Spis[i].Spisok.Srok));
      Memo1.Lines.Add('Участие в конкурсах: '+Spis[i].Spisok.Uchast);
      Memo1.Lines.Add('____________________________')
    end;
end;

не могу понять почему она не работает,то выдает одного ученика,то вообще ошибку.
помогите разобраться)))заранее спасибо

@Mawrat · 30.03.2012, 17:36

Возможно, под списком понимается динамический связанный список? - Он реализуется по-другому.
Что касается представленного кода, его можно подправить так:

Delphi

type
  TSpisok = record
    Fam: String;
    Instrum: String;
    Srok: Integer;
    Uchast: String;
  end;
 
var
  Form2: TForm2;
  Spis: Array of TSpisk;
  k: Integer = 0; //Количество элементов массива.
 
implementation
 
{$R *.dfm}
 
procedure TForm2.Button3Click(Sender: TObject);
begin
  close;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  SetLength(Spis,k + 1);
  Spis[k].Fam :=Edit1.Text;
  Spis[k].Instrum := Edit2.Text;
  Spis[k].Srok := StrToInt (Edit3.Text);
  Spis[k].Uchast := Edit4.Text;
  Inc(k);
  
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
end;
 
procedure TForm2.Button2Click(Sender: TObject);
var i: Integer;
begin
  Memo1.Clear;
  for i := 0 to k - 1 do
  if Spis[i].Instrum ='скрипка' then
    begin
      Memo1.Lines.Add('Фамилия ученика : '+Spis[i].Spisok.Fam);
      Memo1.Lines.Add('Инструмент : '+Spis[i].Spisok.Instrum);
      Memo1.Lines.Add('Срок обучения :'+IntToStr(Spis[i].Spisok.Srok));
      Memo1.Lines.Add('Участие в конкурсах: '+Spis[i].Spisok.Uchast);
      Memo1.Lines.Add('____________________________')
    end;
end;

@pHOMM · 30.03.2012, 18:59

Выдает 1 одного из-за строки

Delphi

1	Memo1.Clear;

переставьте её вне цикла и будет норм.
Ошибку выдает из-за

Delphi

1	for i := 0 to k

а надо

Delphi

1	for i := 0 to k-1

фееричность сего действа убила:

Delphi

1
2
3

   TSpisk = record
   Spisok: TSpisok;
 end;

на лице застыло выражение "Зачем???"

@irk · 30.03.2012, 22:00 **[ТС]**

на счет очистки мемо и цикла,это вы все правельно сказали,мой косяк,но она все равно выдает только одного ученика и то если он идет первым.
а на счет третьего:как однажды научили записывать записи,так и пошло))

@irk · 30.03.2012, 22:46 **[ТС]**

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

@irk · 30.03.2012, 22:57 **[ТС]**

а все-разобралась,огромное спасибо

@pHOMM · 30.03.2012, 23:32

Пожалуйста )
я рад что разобрались.
Будут ещё вопросы, обращайтесь, я очень ценю людей стремящихся понять и разобраться.

@Mawrat · 01.04.2012, 04:28

Переменная К нигде не инициализировалась. Начальное значение глобальной переменной может быть любым, поэтому её надо инициализировать.
И на всякий случай ещё раз уточню про список. В самом деле список надо реализовывать на динамическом массиве? Судя по условию задачи, речь скорее всего идёт о динамическом списке:

Delphi

  //Указатель на элемент списка.
  TPElem = ^TElem;
  //Элемент списка.
  TElem = record
    Fam: String;
    Instrum: String;
    Srok: Integer;
    Uchast: String;
    PNext : TPElem; //Указатель на следующий элемент списка.
  end;
  //Тип, описывающий список.
  TSpisk = record
    PFirst, PNext : TPElem; //Указатели на первый и последний элементы списка.
  end;

@irk · 01.04.2012, 19:38 **[ТС]**

про к действительно забыла,спасибо, теперь все работает))
а динамические массивы использовать не обязательно

@irk 4 / 4 / 3 Регистрация: 16.04.2010 Сообщений: 59
	30.03.2012, 22:00 [ТС]	4
	на счет очистки мемо и цикла,это вы все правельно сказали,мой косяк,но она все равно выдает только одного ученика и то если он идет первым. а на счет третьего:как однажды научили записывать записи,так и пошло)) 0

@irk 4 / 4 / 3 Регистрация: 16.04.2010 Сообщений: 59
	30.03.2012, 22:46 [ТС]	5
	большое спасибо,не совсем поняла что было не так в последнем циеле,кроме не там стоящей очистки.или именно из-за оформления списка был блик? 0

@irk 4 / 4 / 3 Регистрация: 16.04.2010 Сообщений: 59
	30.03.2012, 22:57 [ТС]	6
	а все-разобралась,огромное спасибо 0

@pHOMM 480 / 253 / 51 Регистрация: 30.06.2010 Сообщений: 651
	30.03.2012, 23:32	7
	Пожалуйста ) я рад что разобрались. Будут ещё вопросы, обращайтесь, я очень ценю людей стремящихся понять и разобраться. 0

@irk 4 / 4 / 3 Регистрация: 16.04.2010 Сообщений: 59
	01.04.2012, 19:38 [ТС]	9
	про к действительно забыла,спасибо, теперь все работает)) а динамические массивы использовать не обязательно 0