Помогите пожалуйста сделать Блок-Схему)) var N: integer; var ch: char; a: array [1..400] of integer; i,max1,max2: integer; begin Randomize; Write('Введите размерность одномерного массива: '); Readln(N); Write('Ввести мас...
Помогите пожалуйста сделать Блок-Схему))
var N: integer;
var ch: char;
a: array [1..400] of integer;
i,max1,max2: integer;
begin
Randomize;
Write('Введите размерность одномерного массива: ');
Readln(N);
Write('Ввести массив случайно? (y/n) ');
readln(ch);
if ch='y' then
begin
writeln('Исходный массив: ');
for i:=1 to N do
begin
a[i]:= random(-100,100); //массиву задаются случайные значения
write(a[i]:5);
end;
end
else
begin
for i:=1 to N do
begin
readln(a[i]);
end;
end;
writeln;
max1:= a[1]; max2:=integer.MinValue; //стандартные значения
for i:=2 to N do
if a[i] > max1 then //если значение больше этого
begin
max2:= max1; //второе по велечине значение ровно max1
max1:= a[i]; //max1 принимает новое значение
end
else
If (a[i] > max2) and (a[i] < max1) then
max2:=a[i]; // иначе если значение больше второго по величине, оно станет вторым по велечине
writeln('Второе по величине число: ',max2);
write('Конечнный массив: ');
for i:=1 to N do
begin
if i > max2 then a[i]:=max2; // если индекс больше второго по велечине значению, то значение ровно ему
write(a[i]:5);
end;
Writeln;
end.
Гость
Ответ(ы) на вопрос:
Гость1. Вычисляем дифференциал:
dy = 8x^3dx
2. y(x + dx) = y(x) + dy(x)
в данном случае х = 1, dx = 0.0058
3. Вычисляем значение функции:
y(1.0058) = 2 + 8*0.0058 = 2.046
(все равенства на самом деле приблизительные!! )
Успехов!
Не нашли ответ?
Похожие вопросы