الصحيح و الخطأ

[S.FATEH]

السلام عليكم

الياس انت لم تحترم شروط التمرين المطلوب كتابة دالة + باقل كود ممكن على كل حال عدلت قليلا على الكود

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if InputValidation2(Edit1.Text[1], StrToInt(Edit2.Text)) then
  ShowMessage('True')
    else
  ShowMessage('False');
end; 


حلك الاول

PHP كود :

function TForm1.InputValidation1(s: string; i: integer): Boolean;
begin
  if s = 'a' then
  begin
    if i > 2 then
      Result := True
    else
      Result := False;
  end
  else if s = 'b' then
  begin
    if i > 7 then
      Result := True
    else
      Result := False;
  end
  else if s = 'c' then
  begin
    if i > 20 then
      Result := True
    else
      Result := False;
  end
  else
    Result := False; ;
end; 


حلك الثاني حسب رأي هذا افضل

PHP كود :

function TForm1.InputValidation2(s: string; i: integer): Boolean;
begin
  if (s = 'a') or (s = 'b') or (s = 'c') then
  begin
    if i > 20 then
      Result := True
    else if (s = 'c') then
      Result := False
    else if i > 7 then
      Result := True
    else if (s = 'b') then
      Result := False
    else if i > 2 then
      Result := True
    else
      Result := False;
  end
  else
    Result := False;
end; 


الحلان من ناحية النتائج نتائج صحيحة لكن طبعا خاطئان يمكن كتابة حل اصغر بكثير ...



محاولات اخرى...