[cawwe]

здравствуйте, нужно создать простейшую тестирую программу из 3 вопросов

правильно ли у меня сделано?

Код:

var
i:integer;
s:real;
begin
   for i:=1 to 3 do

RadioGroup1.ItemIndex:=2 then s:=s+1;
RadioGroup2.ItemIndex:=3 then s:=s+1;
RadioGroup3.ItemIndex:=0 then s:=s+1;

s:=s*20%;

Label1.Caption:= s;

[Aristarh Dark]

Если у тебя это скомпилируется - то да, правильно.

[cawwe]

Сообщение от Aristarh Dark

Если у тебя это скомпилируется - то да, правильно.

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

[cawwe]

точнее не скомпилировалось

[___toha___]

Я плохо знаю delphi, но может вот так сработает...

Код:

var
s:real;
begin
s:=0;

 
if RadioGroup1.ItemIndex = 2 then s:=s+1;
if RadioGroup2.ItemIndex = 3 then s:=s+1;
if RadioGroup3.ItemIndex = 0 then s:=s+1;



//s:=s*20%;
//А зачем умножать на 20% ???
//Если 20% = 0,2 то s:=s*(2/10);
//Если 20%, это 20 от s, то s:=s*(s/5);

Label1.Caption:= inttostr(s);

Хотя я может чего-то не понял..

[orion_asm]

Сообщение от cawwe

здравствуйте, нужно создать простейшую тестирую программу из 3 вопросов
правильно ли у меня сделано?

Код:

var
i:integer;
s:real;
begin
   for i:=1 to 3 do
begin
RadioGroup1.ItemIndex:=2 then s:=s+1;
RadioGroup2.ItemIndex:=3 then s:=s+1;
RadioGroup3.ItemIndex:=0 then s:=s+1;
end;
s:=s*20%;

Label1.Caption:= s;

Зачем использовать цикл? Тело цикла, состоящее более > 1 операции должно объединяться конструкцией begin...end;. Не понятна суть вашей задачи.