Вопрос по информатике:
Помогите пожалуйста сделать Блок-Схему))
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.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.08.2018 06:36
- Информатика
- remove_red_eye 713
- thumb_up 33
Ответы и объяснения 1
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
(все равенства на самом деле приблизительные!! )
Успехов!
- 08.08.2018 01:25
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.