Составить блок-схему алгоритма и программу на паскале для вычисления функций z. ввести программу в эвм, вычислить значения функции и проверить ее для самостоятельно выбранных трех пар значений переменных x и y. z={sin(4xy); -x+2y; x-e.√ч+y> 10; √ч+y< 10; √ч+y=10

👇

Открыть все ответы

Ответ:

Радик174

13.04.2020

Жили собі два півники.один працьовитий,а другий ледар.колись завелась там лесичка. є перший,а другому всеодно.нічого мені вона не зробить.потім настала ніч.всі позасинали.а крадійка ока не зімкнула,крадеться непомітно до ледаря.цап! біжить перекидається.другий півник за нею.втекла,нічого за мною повернеться.він змайстрував пастку.чує крадеться,в раз і вона у клітці.питає: -де півник? за подвір*ям відпусти мене,а я заберуся звідсіля.побіг півник визволив ледаря й мовив: -ось бачиш ти на печі грівся із бідою стрівся.зрозумів все ледарь і став працьовитим.

4,5(96 оценок)

Ответ:

lianaderzkaya82

13.04.2020

// PascalABC.NET 3.0, сборка 1076
type
Point=record
x,y:real
end;
Line=record
A,B:Point
end;
Triangle=record
A,B,C:Point;
sa,sb,sc:real; { длины сторон }
end;

procedure GetPoint(PointName:char; var M:Point);
begin
Write('Введите координаты точки ',PointName,'(x,y): ');
Read(M.x,M.y)
end;

function LineLength(A,B:Point):real;
begin
LineLength:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;

procedure CreateTriangle(var T:Triangle; var l:boolean);
begin
With T do begin
    GetPoint('A',A);
    GetPoint('B',B);
    GetPoint('C',C);
    sa:=LineLength(B,C);
    sb:=LineLength(A,C);
    sc:=LineLength(A,B);
    l:=(sa+sb>sc) and (sa+sc>sb) and (sb+sc>sa)
end
end;

function TriangleIsLikes(T1,T2:Triangle):boolean;
var
k1,k2,k3:real;
begin
k1:=T1.sa/T2.sa; k2:=T1.sb/T2.sb;
if k1=k2 then begin
    k3:=T1.sc/T2.sc;
    TriangleIsLikes:=k1=k3
    end
else
    TriangleIsLikes:=False
end;

var
T1,T2:Triangle;
legal:boolean;
begin
Writeln('*** Первый треугольник ***');
CreateTriangle(T1,legal);
if legal then begin
    Writeln('*** Второй треугольник ***');
    CreateTriangle(T2,legal);
    if legal then
      if TriangleIsLikes(T1,T2) then Writeln('Треугольники подобны')
      else Writeln('Треугольники не подобны')
    else Writeln('Треугольник невозможно построить')
    end
else Writeln('Треугольник невозможно построить')
end.

4,4(7 оценок)

Это интересно:

Компьютеры-и-электроника

25.12.2021

Как правильно отправлять SQL запросы в Mysql из командной строки...

Компьютеры-и-электроника

08.07.2020

Как скачать фильм с YouTube через YouTube Downloader...

12.09.2022

Искусство покорения сердец: как влюбить в себя парня...

Компьютеры-и-электроника

23.09.2020