Выполнить сравнительную оценку производительности программы сортировки, которая звучит следующим образом - Дан массив из 15 случайных однобайтных чисел в интервале [0;250]. Необходимо выполнить сортировку чисел по не возрастанию. Найти значение
максимального элемента.
, с производительностью аналогичной программы, разработанной на языке высокого уровня.
Begin
Writeln('Привет!');
Writeln('Меня зовут Саша!');
Writeln('Я студентка 2-ого курса начального образования!');
Writeln('Я будущий учитель младших классов...');
end.
2.
var n:Integer;
Begin
Read(n);
Writeln('Квадрат =',n*n);
end.
3.
var a:Integer;
Begin
Read(a);
Writeln('S = ',a*a);
Writeln('P = ',4*a);
end.
4. var n:Integer;
Begin
Read(n);
Writeln(n+10);
end.
5. var a,b:Integer;
Begin
Read(a,b);
Writeln(' S = ',a*b);
Writeln(' P = ',2*(a+b));
end.
6. var a,b,c:Integer;
Begin
Read(a,b,c);
Writeln('Сума = ',a+b+c);
end.
Ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.
var a,b,c,d,z:integer;
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
while (z = 1) do
begin
writeln('Введите 1 число');
read(a);
writeln('Введите 2 число');
read (b);
writeln('Введите 3 число');
read (c);
d:=a+b+c;
writeln('Сумма чисел ',a,'+',b,'+',c,'=',d);
writeln ('Хотите ли вы решить еще один пример? 1-ДА, 0-Нет');
read (z);
end;
end.