<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,x):=(1.65,0.7);
while x<=2.01 do begin
Write(x:3:1);
if x<1.4 then Writeln(pi*x*x-7/x/x:15:5)
else
if x=1.4 then Writeln(a*x*x*x+7*Sqrt(x):15:5)
else Writeln(Ln(x+7*Sqrt(Abs(x+a))):15:5);
x+=0.1
end
end.
<u>Пример</u>
0.7 -12.74633
0.8 -8.92688
0.9 -6.09729
1.0 -3.85841
1.1 -1.98380
1.2 -0.33722
1.3 1.16728
1.4 2.61190
1.5 2.63360
1.6 2.65461
1.7 2.67498
1.8 2.69476
1.9 2.71397
2.0 2.73264
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0).Average.Println
end.
администратор - это тот, кто создает условия для работы другим (не путать с менеджером - менеджер управляет работой других, а администратор просто создает условия)
МОДЕМ — устройство для передачи данных (напр., по телефонной линии), преобразующее, как правило, цифровые сигналы в аналоговые и обратно. С помощью М. ПК подключается к сети Интернет.
сетевой протокол- Это такой определенный набор правил и условий, который дает возможность осуществлять обмен и соединение между несколькими компьютерами, которые включены в сеть. Различные протоколы способны описывать разные стороны одного вида связи.
{ Если в Вашей версии система "ругается" на sign, раскомментируйте
текст определения этой функции. В противном случае удалите все комментарии }
{
function sign(x:real):integer;
begin
if x<0 then sign:=-1
else
if x>0 then sign:=1 else sign:=0
end;
}
var
x1,x2,y1,y2:real;
begin;
Write('Введите через пробел координаты точки 1: ');
Read(x1,y1);
Write('Введите через пробел координаты точки 2: ');
Read(x2,y2);
if (sign(x1)=sign(x2)) and (sign(y1)=sign(y2))
then Writeln('Точки находятся в одной четверти')
else Writeln('Точки находятся в разных четвертях')
end.
<em><u>Тестовое решение:</u></em>
Введите через пробел координаты точки 1: -3.5 8.1
Введите через пробел координаты точки 2: -5 4
Точки находятся в одной четверти
