Программа в лазарусе c радиокнопками

[Алексеей]

Разные способы уже перепробывал и решил останосится на этом коде:
"Составить программу подсчета стипендии в университете. Пользователь вводит количество студентов и в списке с радиокнопками выбирает категорию сдачи сессии: только с пятерками (M руб); только одна четверка (L руб); без троек (К руб); с тройками(нет стипендии). В результате получает количество денег, расходуемых на стипендию данной группы студентов."
Хочу сделать так чтоб после введения кол-ва студентов. можно было из списка RadioGroup выбрать категорию сессии, а в ListBox отображалось кол-во денег.

procedure TForm1.Button1Click(Sender: TObject);
 var n:integer;
begin
n:=strtoint(edit1.text);
case n of
RadioGroup1.ItemIndex:=1;
RadioGroup1.ItemIndex:=2;
RadioGroup1.ItemIndex:=3;
RadioGroup1.ItemIndex:=4;
RadioGroup1.ItemIndex:=5;
 else  showmessage('Введите кол-во студентов от 1 до 30');
 end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin

end;

 procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.clear;
  edit2.clear;
end;
end.

[Dvoishnik]

не вникая сразу ошибка в глаза бросается

case n of
RadioGroup1.ItemIndex:=1;
RadioGroup1.ItemIndex:=2;
RadioGroup1.ItemIndex:=3;
RadioGroup1.ItemIndex:=4;
RadioGroup1.ItemIndex:=5;
 else  showmessage('Введите кол-во студентов от 1 до 30');
 end;

не знаю что должно было у вас получиться но оператор case имеет такую структуру

Case Переменная of
 значение 1 : оператор 1;
 значение 2 : оператор 2;
 ----
 значение N : оператор N;
Else оператор;
end;

[min@y™]

Автор, ты чо понаписал-то?
Как звучит оригинал задания?
Что на входе быть должно и что на выходе?

[Алексеей]

Сообщение от min@y™

Автор, ты чо понаписал-то?
Как звучит оригинал задания?
Что на входе быть должно и что на выходе?

"Составить программу подсчета стипендии в университете. Пользователь вводит количество студентов и в списке с радиокнопками выбирает категорию сдачи сессии: только с пятерками (M руб); только одна четверка (L руб); без троек (К руб); с тройками(нет стипендии). В результате получает количество денег, расходуемых на стипендию данной группы студентов."

[min@y™]

В результате получает количество денег

не хватает исходных данных.

[Алексеей]

Сообщение от min@y™

не хватает исходных данных.

Ну больше нет исходных данных которые были все сообщил, я на подобие программу составлял, а вот именно эти не как не получается!

А можете с этой помочь:
Для суммы S в списке радиокнопок выбирается вид вклада («Пенсионный» – 17% годовых, «До востребования» – 3% годовых, «Молодежный»– 14% годовых и др.). Указать сумму вклада через один, два, три года с учетом начисляемых процентов. Суммы вкладов выводить в компонент Memo.

[Dvoishnik]

я так бы сделал

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 case  RadioGroup1.ItemIndex of
  0:schet (SpinEdit1.Value,17)
  1:schet (SpinEdit1.Value,3);
  2:schet (SpinEdit1.Value,14);
 end;
end;
procedure schet (Sum:real;PrVkl:Byte);
  var i:byte;
Begin
 for i:=0 to 3 do
  begin
   form1.StringGrid1.Cells[i,1]:=FloatToStr((Sum*PrVkl/100)+Sum);
   sum:=(Sum*PrVkl/100)+Sum;
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 StringGrid1.Cells[0,0]:='за 1 год';
 StringGrid1.Cells[1,0]:='за 2 года';
 StringGrid1.Cells[2,0]:='за 3 года';
 StringGrid1.RowHeights[0]:=19;
 StringGrid1.RowHeights[0]:=19;
 StringGrid1.RowHeights[0]:=19;
end;
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
 if SpinEdit1.Text<>'' then
   Form1.RadioGroup1Click(Self)
end;

Ссылка на архив с программой