<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var A,B,C,D,E,F:real;
Writeln('Введите коффициенты A B C D E F');
Read(A,B,C,D,E,F);
var p:=A*D+B*E;
if p=0 then Writeln('Прямые перпендикулярны')
else begin
var t:=arctan((A*E-D*B)/p);
Writeln('Угол между прямыми в градусах ',RadToDeg(t):0:2)
end
end.
<u>Пример</u>
Введите коффициенты A B C D E F
2.5 -1.5 7.1 -3.2 1.45 0.15
Угол между прямыми в градусах 6.59
<em>Замечание: коэффициенты C,F в программе не используются и их можно вообще удалить из её текста.</em>
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
begin
var x,y:real;
Write('Введите x y: '); Read(x,y);
if x*y<>0 then Writeln('Точка М не лежит на осях координат')
else begin
if x=0 then
if y=0 then Writeln('Точка М лежит в начале координат')
else
if y>0 then
Writeln('Точка М лежит на положительном участке оси ординат')
else
Writeln('Точка М лежит на отрицательном участке оси ординат')
else
if x=0 then Writeln('Точка М лежит в начале координат')
else
if x>0 then
Writeln('Точка М лежит на положительном участке оси абсцисс')
else
Writeln('Точка М лежит на отрицательном участке оси абсцисс')
end
end.
<u>Пример</u>
Введите x y: 1.37 0
Точка М лежит на положительном участке оси абсцисс
Массив это можно сказать тоже самое что и переменная , но массив отличается от переменной тем , что если переменная хранит одно значение , то в свою очередь массив хранит несколько значений. Нужно из массива А вытащить значения, сравнить их if (первое значение) > (второго значегия) то выводишь первое значение , иначе выводишь второе значение , блин я в бэйсике 0, на pho пример :
<?php
$array = array(
"a" => "8",
"b" => "4"
);
If($array["a"] > $array["b"]){
echo array["a"];
else{echo array["b"];}
?>
Прошу прощения, но где рисунки и фигуры?
10 минут= 600 секунд
1 Кбайт= 1024 байта
1024 * 8 =8192 бита
8192/600=13 бит/с