Var x,y:real; begin write('x=');readln(x); if x<5 then y:x*x else if x>5 then y:=x-5 else y:=0; writeln('y=',y:6:3); end.
KIRILLSHURYGIN98
29.08.2020
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 type Point=record x,y:real end;
function GetPoint(c:char):Point; begin Writeln('Введите координаты точки ',c,':'); Read(Result.x,Result.y) end;
function Line(A,B:Point):real; begin Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
function SqTriangle(pA,pB,pC:Point):real; begin var a:=Line(pB,pC); var b:=Line(pA,pC); var c:=Line(pA,pB); if (a+b>c) and (a+c>b) and (b+c>a) then begin var p:=(a+b+c)/2; Result:=sqrt(p*(p-a)*(p-b)*(p-c)) end else Result:=0 end;
begin var A:=GetPoint('A'); var B:=GetPoint('B'); var C:=GetPoint('C'); Writeln('Площадь треугольника равна ',SqTriangle(A,B,C)) end.
Тестовое решение: Введите координаты точки A: -5 3.18 Введите координаты точки B: 1.45 6.2 Введите координаты точки C: 6 -5.93 Площадь треугольника равна 45.98975
Pogosyan Nataliya
29.08.2020
Uses GraphABC; var a,b,c:array[10..99] of integer; ast,bst,cst:string; i:integer; begin ast:='A:'; bst:='Б:'; cst:='В:'; for i:=10 to 99 do begin c[i]:=i; a[i]:=c[i]-i+random(50); b[i]:=c[i]-a[i]; ast:=ast+' '+inttostr(a[i]); bst:=bst+' '+inttostr(b[i]); cst:=cst+' '+inttostr(c[i]); end; setpencolor(clRed); line(0,0,150,0); line(150,0,75,50); line(75,50,0,0); rectangle(0,50,150,300); DrawTextCentered(0,50,150,300,ast); setpencolor(clYellow); line(150,0,300,0); line(300,0,225,50); line(225,50,150,0); rectangle(150,50,300,300); DrawTextCentered(150,50,300,300,bst); setpencolor(clGreen); line(300,0,450,0); line(450,0,375,50); line(375,50,300,0); rectangle(300,50,450,300); DrawTextCentered(300,50,450,300,cst); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Turbo составить программу для вычисления значение функции: y={x^2, если х< 0 x-5, если х> 5 0, если 0≤х≤5
begin
write('x=');readln(x);
if x<5 then y:x*x
else if x>5 then y:=x-5 else y:=0;
writeln('y=',y:6:3);
end.