Новые возможности, которые добавляют разработчики, позволяют вообще написать одну строчку:
Код (PascalABC.NET):
## ArrRandomInteger(13).Println.Average.Print;
## говорит о том, что компилятор добавит в начало и конец begin и end.
ArrRandomInteger(13) - функция, генерирующая массив из 13 случайных целых чисел
Println - метод расширения, выводящий элементы через пробел и в конце переходящий на новую строку
Average - метод, вычисляющий среднее значение
Print - вывод значения на экран
В стиле "старого" паскаля:
Код (PascalABC.NET):
var
a: array[1..13] of integer;
s, i: integer;
begin
randomize;
s := 0;
for i := 1 to 13 do
begin
a[i] := random(100);
write(a[i], ' ');
s := s + a[i];
end;
writeln;
write(s / 13);
end.
Пример вывода:
38 86 86 0 24 95 51 41 32 18 74 15 55
47.3076923076923
19-шы ғасырда Гайслер және Крукс трубкалары секілді ауасы сорылып алынған трубкалармен тәжірибелер көп жасалды. Сондай тәжірибелермен айналысқан ғалымдардың ішінде Ойген Гольдштейн, Никола Тесла, Йоһанн Вильһельм Һитторф, Томас Эдисон және басқаларды атауға болады. Электр шамын санамағанда ғалымдар өз тәжірибелерінде қолданған трубкалардың практикалық маңызы шамалы еді. Бірақ сол ғалымдар мен өнертапқыштар жүргізген зерттеулердің арқасында электрон лампылар технологиясының пайда болуына керекті көп мәліметтер жиналды.