Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите написать функцию в Pascal со следующим кодом:
А то я немного запутался(
function test(a, b, c:real):real;
begin
test:=sqrt(2*a + b - c);
end;

Ответ оставил Гость

var i: integer;begin// С помощью forfor i := 1 to 5 dowrite(i, );writeln; for i := 5 downto 1 dowrite(i, );writeln;writeln; // С помощью whilei := 1;while i<=5 dobeginwrite(i, );i := i + 1;end;writeln; i := 5;while i>=1 dobeginwrite(i, );i := i - 1;end;writeln;writeln; // С помощью repeati := 1;repeatwrite(i, );i := i + 1;until i>5;writeln; i := 5;repeatwrite(i, );i := i - 1;until i<1;writeln;end.Вывод последовательности 1 3 5 7 9var i,x: integer;begin// С помощью for и промежуточной переменнойx := 1;for i := 1 to 5 dobeginwrite(x, );x := x + 2;end;writeln; // С помощью for без промежуточной переменнойfor i := 1 to 5 dowrite(2*i-1, );writeln; // С помощью whilex := 1;while x<10 dobeginwrite(x, );x := x + 2;end;writeln; // С помощью repeatx := 1;repeatwrite(x, );x := x + 2;until x>=10;end.Сумма и произведение введенных чиселКод на Pascalvari: integer;s,p: real;x: real;beginwriteln(Введите 10 чисел: );s := 0;p := 1;for i := 1 to 10 dobeginread(x);s := s + x;p := p * x;end;writeln(Сумма введенных чисел = ,s);writeln(Произведение введенных чисел = ,p);end.Код на PascalABC.NETvars,p: real;beginwriteln(Введите 10 чисел: );s := 0;p := 1;for var i := 1 to 10 dobeginvar x: integer;read(x);s += x;p *= x;end;writeln(Сумма введенных чисел = ,s);writeln(Произведение введенных чисел = ,p);end.Вычисление n!Код на Pascalvarn,fact: integer;i: integer;beginwrite(Введите n (n<=13): );readln(n);fact := 1;for i := 2 to n dofact := fact * i;writeln(n,! = ,fact);end.Код на PascalABC.NETvar n: integer;beginwrite(Введите n (n<=13): );readln(n);var fact := 1;for var i := 2 to n dofact *= i;writeln(n,! = ,fact);end.Вычисление AnКод на Pascalvarn,i: integer;a,p: real;beginwrite(Введите a,n: );readln(a,n);p := 1;for i := 1 to n dop := p * a;writeln(a, в степени ,n, = ,p);end.Код на PascalABC.NETvarn: integer;a: real;beginwrite(Введите a,n: );readln(a,n);var p := 1.0;for var i := 1 to n dop *= a;writelnFormat({0} в степени {1} = {2},a,n,p);end.