PascalABC.NET

PascalABC.NET — язык программирования нового поколения на платформе .NET для обучения современному программированию, научных исследований и создания прикладных программ. Он сочетает широкий набор современных языковых конструкций — автоматический вывод типов, диапазоны, кортежи, срезы, обобщения, лямбда-выражения, интерфейсы — с простым и понятнымвывод типов, кортежи, срезы, обобщения, лямбда-выражения и интерфейсы с простым синтаксисом, позволяющим писать краткий и эффективный код.

О PascalABC.NET → Скачать PascalABC.NET ...ML PascalABC.NET →

begin
  var (a,b) := ReadReal2('a,b:');
  Println($'{a} * {b} = {a*b}')
end.

begin
  var a := [12,73,25,48,9,41,36,80];

  for var i := 0 to a.Length-1 step 2 do
    if a[i] in 10..50 then
      Print(a[i])
  // 12 25 36   
end.

function Divisors(n: integer): List<integer>;
begin
  Result := [];
  for var i := 1 to n do
    if n mod i = 0 then
      Result.Add(i)
end;

begin
  Divisors(24).Println
  // 1 2 3 4 6 8 12 24
end.

begin
  var a := [8,2,9,4,2,6,7,4];

  a.Where(x -> x mod 2 = 0) // 8 2 4 2 6 4
    .Distinct               // 8 2 4 6
    .Order                  // 2 4 6 8
    .Select(x -> x*x)       // 4 16 36 64
    .Println                 
end.

begin
  var a := [1,2,3,4,5,6,7,8,9,10];
  var k := 3;

  (a[k:] + a[:k]).Println;
  (a[::2] + a[1::2]).Println;
  a[::-1].Println
end.

// 4 5 6 7 8 9 10 1 2 3
// 1 3 5 7 9 2 4 6 8 10
// 10 9 8 7 6 5 4 3 2 1

##
uses GraphWPF;

DrawPixels(0,0,
  MatrGen(800,600,
    (ix,iy) -> GrayColor(
      255 - SeqWhile(
        Cplx(0,0),
        z -> z*z + 0.0035*Cplx(ix-600,iy-300),
        z -> z.Magnitude < 10
      ).Take(255).Count
    )
  )
);