{ объем фигуры вращения y=f(x) = 1/x x0 = 1, x1 = 2 } var i: integer; v,h,x0,f: real; begin v:=0; x0:=1; h:=0.001; for i:=1 to 1000 do begin f:=(1/sqr(x0+(i-1)*h)+1/sqr(x0+i*h))/2; v:=v+f*h; end; v:=2*pi*v; writeln('объем = ',v); writeln('точное значение V = ',pi); end.
Aleksei
23.08.2021
#include <iostream> using namespace std; int main() { setlocale(0,""); int a; cout<<"введите значение погоды"<<endl; cout<<"1-тепло"<<endl; cout<<"2-жарко"<<endl; cout<<"3-холодно"<<endl; cout<<"4-колотун"<<endl; cin>>a; switch (a) { case 1: cout<<"вы можете одеть джинсы и футболку"<<endl; break; case 2: cout<<"вы можете одеть шорты и майку "<<endl; break; case 3: cout<<"вы можете одеть штаны и толстовку "<<endl; break; case 4: cout<<"вы можете одеть куртку и свитер с подштанниками и ватными штанми "<<endl; break; } return 0; }
tatur-642789
23.08.2021
Корпоративные требования к почтовой перепискеписьмо состоит из трех частей1. Обращение2. текст письма3. Подпись4. исполнитель или сотрудник для связи с полными координатами(адреса: почтовый,E-mail, IСQ,телефон) Сетевой этикет Сетево́й этике́т (сетикет, нетикет — неологизм, является слиянием слов «сеть» (англ. net) и «этикет») — правила поведения, общения в Сети, традиции и культура интернет-сообщества, которых придерживается большинство. Это понятие появилось в середине 80-х годов XX века в эхоконференциях сети FIDO. Некоторые из правил сетевого этикета присутствуют в RFC 1855 (английский вариант). Правила этикета не являются всеобщими и жестко установленными — в разных сообществах они могут значительно различаться. Так как основная цель этикета состоит в том, чтобы не затруднять общение в сообществе, правила могут устанавливаться исходя из целей сообщества, принятого стиля общения, технических ограничений, и т. д. Некоторые правила записаны, и даже оформляются в виде формального устава, а иногда и просто в виде списка, другие правила нигде не записаны, но известны большинству членов сообщества и строго соблюдаются.
var i: integer;
v,h,x0,f: real;
begin
v:=0; x0:=1; h:=0.001;
for i:=1 to 1000 do
begin
f:=(1/sqr(x0+(i-1)*h)+1/sqr(x0+i*h))/2;
v:=v+f*h;
end;
v:=2*pi*v;
writeln('объем = ',v);
writeln('точное значение V = ',pi);
end.