Var
n, a, b, i, j: integer;
ar: array[1..10000]of integer;
begin
read(n, a, b);
ar[1] := a;
ar[2] := b;
for i := 3 to n do
begin
for j := 1 to i - 1 do
begin
ar[i] := ar[i] + ar[j];
end;
ar[i] := ar[i] + i;
end;
for i := n downto 1 do write(ar[i],' ');
end.
var a:real;
b:integer;
begin
readln(a);
b:=round(a*1000)mod 1000;
write(b div 100 + b mod 10 + b mod 100 div 10);
end.
Буду исходить из того что a, b и h - это double и a < b.
Сначала напишем функцию, вычисляющую значение рассматриваемой функции:
double y(double x) =>
x < 0 ? -4 :
x < 1 ? (x * x + 3 * x + 4) :
2;
Теперь одним LINQ выражением выведем на экран значения x и y для заданного диапазона x:
Enumerable
.Range(0, int.MaxValue)
.Select(i => a + h * i)
.TakeWhile(n => n <= b + 0E-10)
.ToList()
.ForEach(x => Console.WriteLine($"x = {x:0.000} y = {y(x):0.00}"));
2. Шаг 1. Выбор типа диаграммы.
Шаг 2. Задание исходных данных диаграммы.
Шаг 3. Задание параметров диаграммы.
Шаг 4. Размещение диаграммы.
4.Биржевая диаграмма — это диаграмма, специально созданная для работы с финансовыми или научными данными, в которой на каждую точку данных приходится до четырех значений. Эти значения сравниваются со значениями максимума, минимума, открытия и закрытия, используемыми для отображения биржевых данных. В этом типе диаграммы значения открытия и закрытия отображаются с помощью маркеров (обычно это линии или треугольники). В следующем примере значения открытия помечены маркерами слева, а значения закрытия — маркерами справа.
1и3 к сожелению не знаю...
Var
a:array[1..8] of integer;
b:array[1..8] of integer;
i:integer;
begin
write('Заполните массив - ');
for i:=1 to 8 do
read(a[i]);
for i:=1 to 8
do
begin
if a[i]<(-5) then b[i]:=a[i]*3
else
begin
if a[i]>7 then b[i]:=a[i]*5
else b[i]:=a[i];
end;
end;
for i:=1 to 8 do
write(a[i],' ');
writeln();
for i:=1 to 8 do
write(b[i],' ');
<span>end.</span>