Написать программу в delphi 7, содержащую цикл для вычисления функции если n=10, a0=0.75, a1=1.6, a2=a3==a10=2.0; x изменяется с шагом h=0.2 от x1=0 дo x2=2.0.
Const a: array[1..11] of real = (0.75, 1.6, 2, 2, 2, 2, 2, 2, 2, 2, 2);
var x, h, x1, x2: real;
function F(x: real): real; var i: integer; x_n, res : real; begin res := a[1]; x_n := 1; for i := 1 to 10 do begin x_n := x_n * x; res := res + a[i + 1] * x_n; end; F := res; end;
begin x1 := 0; x2 := 2; h := 0.2; x := x1; repeat writeln('x = ', x:3:1, ' y = ', F(x):9:3); x := x + h; until x > x2; end.
Begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b);
if (a<0) and (b<0) then Begin a:=a+2; b:=b+2; writeln('a = ',a); writeln('b = ',b); end else if (a>0) and (b<0) then writeln('a*b = ',a*b) else if (a<0) and (b>0) then writeln('b-a = ', b-a)
//PascalABC //NaaMan var N, sum, num, i : integer; A : array[1..10000] of integer; SA : real; begin write('Укажите, сколько будет чисел > '); readln(N); write('Вводите элементы массива > '); // Обнуляем сумму sum := 0; // и количество искомых элементов num := 0; // Ввод элементов массива с одновременным подсчетом for i := 1 to N do begin // Ввод readln(A[i]); write('Ещё > '); // Если введённое нечётное, то if A[i] mod 2 = 1 then begin // добавляем к сумме sum := sum + A[i]; // и считаем их количество num := num + 1; end; // Это среднее арифметическое SA := sum / num; end;
writeln('Сумма элементов ', sum); writeln('Среднее арифметическое ', SA); end.
a: array[1..11] of real = (0.75, 1.6, 2, 2, 2, 2, 2, 2, 2, 2, 2);
var
x, h, x1, x2: real;
function F(x: real): real;
var
i: integer;
x_n, res : real;
begin
res := a[1];
x_n := 1;
for i := 1 to 10 do
begin
x_n := x_n * x;
res := res + a[i + 1] * x_n;
end;
F := res;
end;
begin
x1 := 0; x2 := 2;
h := 0.2;
x := x1;
repeat
writeln('x = ', x:3:1, ' y = ', F(x):9:3);
x := x + h;
until x > x2;
end.