Тесты производительности

Просмотров: 6605

Поучаствуй в замерах производительности программ для PascalABC.NET, Free Pascal и Visual C++.

Скачай программы и заполни эту таблицу.

Новости

19.01.17. Добавлена операция безопасного среза: a?[-1:5:2]

29.08.16. Вышла версия 3.2. Реализован оператор yield.

12.02.16. Вышла версия 3.1. Добавлены кортежи в стиле (a,b) и кортежное присваивание (a,b) := (b,a)

31.12.15. Версия 3.0.0.1128. Реализованы обобщенные методы расширения для операций

Случайная программа

// Корни квадратного уравнения
// Уровень сложности: 0
var a,b,c: real;
    x1,x2: real;
    
begin
  readln(a,b,c);
  
  var D := b*b - 4*a*c;
  if D<0 then
    writeln('Корней нет')
  else if D=0 then
  begin
    x1 := -b/2/a;
    writeln('x1=x2=',x1);
  end
  else
  begin
    x1 := (-b-sqrt(D))/2/a;
    x2 := (-b+sqrt(D))/2/a;
    writeln('x1=',x1,' x2=',x2);
  end;
end.