النقطة الاستدلالية 2022 الوظيف العمومي الجزائري

[ALG2009]

يمكن إستخدام Case

كود :

function TForm1.Indic(Categori: Integer): integer;     var val : Integer; begin     case Categori of       11..17:  val := 18;       9..10: val := 10;       7..8: val := 4;       else val := 0;     end;     result := val + (Categori-1 ) * 19 + 250 + (Categori - 2) * (Categori - 1); end  ;

المناداه

كود :

procedure Form1.Button1Click(Sender: TObject); begin Edit2.Text:=inttostr(indic(StrToInt(Edit1.Text))); end;