n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/QuestionExpr.pas

17 строк284 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1


function BoolToString(Condition: boolean): string;
begin
  Result := Condition ? 'Yes' : 'No';
end;

function BoolToString1(Condition: boolean): string;
begin
  if Condition then 
    Result := 'Yes'
  else
    Result := 'No';
end;

begin
  Writeln(BoolToString(1>2));
  readln;
end.