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

TestSamples/CompilationSamples/TestCutHalf.pas

26 строк324 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

//uses Halfs;
uses Half;


procedure CutHalf(var s: string);
begin
  Assert(s.Length <> 0);
  SetLength(s, s.Length div 2);
end;


begin
  
  var sm := 'aaabbb';
  CutHalf(sm);
  writeln(sm);
  
  var sh := 'cccddd';
  Half.CutHalf(sh);
  writeln(sh);
  
  var shs := 'eeefff';
  //Half.CutHalf(shs);
  writeln(shs);
  
end.