М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
neliakunik
neliakunik
20.07.2022 10:12 •  Информатика

Написать программу которая выводит значения функции y=lx-2l+lx+1l на отрезке [-4; 4] с шагом 0,5

👇
Ответ:
helpme148
helpme148
20.07.2022
Private Sub Command1_Click()  
mx = f(-4)  
mn = f(-4): kmn = -4
For i = -4 To 4
If mx < f(i) Then mx = f(i)  
 If mn > f(i) Then
       mn = f(i): kmn = i    
End If
Next i
MsgBox "y(max)=" & mx & vbCr & "x_y(min)=" & kmn, vbInformation
End Sub
Function f(x)
f=((X+1)/(x ^ 2 - 2)) ^ (0.5/1)
End Function
На Visual basic
4,4(62 оценок)
Ответ:
koshtalev
koshtalev
20.07.2022
Var
a,i:integer;
z:real;
Begin
for i:=-8 to 8 do begin
z:=i;
z:=z/2;
Writeln( abs(z-2)+ abs(z+1))
end;
End.
4,5(68 оценок)
Открыть все ответы
Ответ:
dvydenko
dvydenko
20.07.2022

#include <iostream>

#include <string>

using namespace std;

void makeLevel(int n)

{

cout << "*" << endl;

string out ="**";

for(int level=1;level<=n;++level){

  cout << out << endl;

  out.push_back('*');

}

}

void tree(int n)

{

for(int i=1;i<=n;++i){

  makeLevel(i);

}

}

{

cout << "*" << endl;

string out ="**";

for(int level=1;level<=n;++level){

  cout << out << endl;

  out.push_back('*');

}

}

void tree(int n)

{

for(int i=1;i<=n;++i){

  makeLevel(i);

}

}

int main()

{

   int n;

   cin >> n;

   tree(n);

   return 0;

}

Объяснение:

4,8(61 оценок)
Ответ:
qwetdfgdsa
qwetdfgdsa
20.07.2022
ответ в комментарии,для лучшей читаемости кода.
program chicla;var a,b,c,d,f,sum:integer;  sr:real;begin Writeln('Ââåäèòå ïåðâîå ÷èñëî'); readln(a) ; Writeln('Ââåäèòå âòîðîå ÷èñëî'); readln(b); Writeln('Ââåäèòå òðåòüå ÷èñëî'); readln(c); Writeln('Ââåäèòå ÷åòâåðòîå ÷èñëî'); readln(d); f:=a+b; if f>20 then  begin    f:=f-10;    writeln(f);  end  else   begin    f:=f+10;    writeln(f)   end; if b>=0 then  begin   a:=a-1;   b:=b-1;   c:=c-1;   d:=d-1;   writeln('1 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ',a);   writeln('2 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,b);   writeln('3 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,c);   writeln('4 ÷èñëî ïîñëå óìåíüøåíèÿ íà åäèíèöó= ' ,d);  end else  begin   sr:=(a+b+c+d)/4;   writeln('Ñðåäíåå àðèôìåòè÷åñêîå = ' ,sr);  end;end.
4,6(43 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ