Структура: Вывести список студентов, получающих стипендии, и список всех студентов.

@10q2h8 · Регистрация: 21.12.2017

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

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

Delphi

type
  student=record
    name: string[50];
    fam: string[50];
    ot: string[50];
    ball:integer;
  end;

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin    AssignFile(s, FName);Reset(s,FName);
    Write(s, stud);
  CloseFile(s);
stud.name := Edit1.Text;
stud.fam :=Edit2.Text;
stud.ot:=Edit3.Text;
stud.ball:=Round(StrToFloat(Edit4.Text));
  MessageDlg('Студент '+Edit2.Text+' внесен в список');
 ListBox1.Items.Add(stud.fam+' '+stud.name+' '+stud.ot);
 if Round(StrToFloat(Edit4.Text)) > 3 then
  begin
 ListBox2.Items.Add(stud.fam+' '+stud.name+' '+stud.ot);
  end;
  Edit1.Clear;
  Edit1.SetFocus;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
end;

@qwertehok · 24.05.2019, 08:38

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

@10q2h8 · 24.05.2019, 08:46 **[ТС]**

Все, понял ошибку. Я дурак, средний балл для стипендии не тот задал в сравнении.

@qwertehok 5574 / 4425 / 1079 Регистрация: 29.08.2013 Сообщений: 27,670 Записей в блоге: 3
	24.05.2019, 08:38	2
	Сообщение было отмечено 10q2h8 как решение Решение значит условие в 11 строке не выполняется воспользуйся отладчиком и проверяй 1

@10q2h8 0 / 0 / 0 Регистрация: 21.12.2017 Сообщений: 9
	24.05.2019, 08:46 [ТС]	3
	Все, понял ошибку. Я дурак, средний балл для стипендии не тот задал в сравнении. 0

Структура: Вывести список студентов, получающих стипендии, и список всех студентов.

Решение