<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);
a.Println;
Println('Среднее', a.Average)
end.
<h3>n= 13</h3><h3>6 12 18 24 30 36 42 48 54 60 66 72 78</h3><h3>Среднее 42 </h3>
5A316 = 3·160+10·161+5·162
= 3·1+10·16+5·256 = 3+160+1280 = 144310
0hex
=
0dec
=
0oct
0
0
0
0
1hex
=
1dec
=
1oct
0
0
0
1
2hex
=
2dec
=
2oct
0
0
1
0
3hex
=
3dec
=
3oct
0
0
1
1
4hex
=
4dec
=
4oct
0
1
0
0
5hex
=
5dec
=
5oct
0
1
0
1
6hex
=
6dec
=
6oct
0
1
1
0
7hex
=
7dec
=
7oct
0
1
1
1
8hex
=
8dec
=
10oct
1
0
0
0
9hex
=
9dec
=
11oct
1
0
0
1
Ahex
=
10dec
=
12oct
1
0
1
0
Bhex
=
11dec
=
13oct
1
0
1
1
Chex
=
12dec
=
14oct
1
1
0
0
Dhex
=
13dec
=
15oct
1
1
0
1
Ehex
=
14dec
=
16oct
1
1
1
0
Fhex
=
15dec
=
17oct
1
1
1
1
А = 1
Б = А = 1
В = А + Б = 1 + 1 = 2
Д = А = 1
Г = А + Д = 1 + 1 = 2
Е = Б + В + А + Г + Д = 1 + 2 + 1 + 2 + 1 = 7
К = Б = 1
Л = Д = 1
М = К + Е + Л = 1 + 7 + 1 = 9
Н = К + М + Л = 1 + 9 + 1 = 11
П = Н = 11
Р = Н = 11
Т = П + Р = 11 + 11 = 22
Ф = П + Т + Р = 11 + 22 + 11 = 44
Ответ: 44
Unit proect;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, TAGraph, TASeries,Forms,
Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Chart1: TChart;
Image5: TImage;
Image6: TImage;
Label14: TLabel;
Label15: TLabel;
SinSeries2: TLineSeries;
CosSeries2: TLineSeries;
Edit3: TEdit;
Edit4: TEdit;
Edit1: TEdit;
Edit2: TEdit;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Label1: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Shape1: TShape;
SinSeries: TLineSeries;
CosSeries: TLineSeries;
SinCosSeries: TLineSeries;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
const
N = 100;
MIN = -5;
MAX = 5;
var
x, step: Double;
a, b, c, d, i: Integer;
begin
//чистка предыдущих графиков
//считываем переменные
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
c := StrToInt(Edit3.Text);
d := StrToInt(Edit4.Text);
step := (MAX - MIN) / N;
x := MIN;
repeat
//Рисуем графики
SinSeries.AddXY(x, a * x + b);
CosSeries.AddXY(x, d * x * x);
SinCosSeries.AddXY(x, c / x);
SinSeries2.AddXY(x, sin(x));
CosSeries2.AddXY(x, cos(x));
//следующий
x := x + step;
until x > MAX;
end;
end.
Во вложении - файл с рабочей книгой MS Excel 2003.
Соответствующие макросы находятся на листах.
Sub abcd()
Dim so As Double, pp As Double, z As Double
so = 0: pp = 1: no = 0: np = 0
For i = 1 To 8
x = Cells(1, i + 1)
For y = -5 To 5 Step 2
z = x * y / (x ^ 2 + y ^ 2)
If z < 0 Then
so = sp + z
no = np + 1
Else
If z > 0 Then
pp = pp * z
np = np + 1
End If
End If
Next y
Next i
Cells(2, 5) = so / no
Cells(3, 5) = pp ^ (1 / np)
End Sub
Sub Ex26()
Dim a As Double, c As Double
For i = 1 To 6
a = Cells(1, i + 1)
c = Application.WorksheetFunction.Max(Abs(a), Abs(Cells(2, i + 1)))
m = 2 * a / (c * Exp(6))
Cells(3, i + 1) = m
Next i
End Sub