Рассчитать значение функции y=5x^2+x^2-7x-30 для значений аргумента 0; 1; 1,5; 6; -4
program функция;
var a, b, c, d, e, x1, y1: real;
procedure fun (var x, y: real) ;
begin
y1 : =5*x*sqr(x)+sqr(x) - 7*x-30;
end;
begin
read (a, b, c, d, e);
fun (a, y1) ;
write (y1) ;
fun (b, y1) ;
write (y1) ;
fun (c, y1) ;
write (y1) ;
fun (d; y1) ;
write (y1) ;
fun (e, y1) ;
write (y1) ;
end.
заранее !
На картинке указано 4 типа сети: локальная проводная, сеть 4G (LTE), WI-FI, на нижней картинке указан свитч (для соеденений по локальной сети)
Локальная проводная сеть: Нужна для соеденений нескольких устройств, плюсы его в минимальных задержках пинга, минус: нет возможности безпроводного соеденения
4G: Сеть которая служит в качестве передачи мобильного интернета, плюсы: высокая скорость, минусы: не всегда есть покрытие
WIFI: Отличный тип сети, служит для локального соеденения между устройствами, может седенять два устройства разных подключений (провод, и безпроводное), по лакальной сети можно пускать поток интернета. Минусы: работает только в области покрытия.
Объяснение:
я учусь на программиста, так что можешь доверится)
А вообще верхние сети это безпроводные сети,
а нижня это проводная лакальная сеть,
const
nn=100;
var
a:array[1..nn] of integer;
i,n,k,max,f2,f1,fib:integer;
begin
Write('Введите количество элементов в массиве (1-100): ');
Read(n);
Randomize;
Writeln('*** Сформированный массив ***');
max:=0;
for i:=1 to n do begin
a[i]:=Random(100)+1;
Write(a[i],' ');
if max<a[i] then max:=a[i]
end;
Writeln;
// Заменяем элементы, равные числам Фибоначчи, на -1
k:=0;
f1:=1; fib:=1;
while fib<=max do begin
for i:=1 to n do
if a[i]=fib then begin a[i]:=-1; Inc(k) end;
f2:=f1; f1:=fib; fib:=f1+f2
end;
if k>0 then begin
// Удаляем элементы, равные -1
Writeln('*** Результирующий массив ***');
for i:=n downto 1 do begin
if a[i]=-1 then begin
if i<>n then
for k:=i to n-1 do a[k]:=a[k+1];
Dec(n);
end;
end;
for i:=1 to n do Write(a[i],' ');
Writeln
end
else Writeln('Числа Фибоначчи не обнаружены')
end.
Тестовое решение:
Введите количество элементов в массиве (1-100): 20
*** Сформированный массив ***
21 51 15 38 52 35 42 51 16 53 96 3 53 82 87 12 55 37 93 19
*** Результирующий массив ***
51 15 38 52 35 42 51 16 53 96 53 82 87 12 37 93 19