Program summa; var i:integer: s: real; begin s:=0; for i:=1 to 37 do s:=s+1/i; writeln('s=',s:5:2) end.
asnika1989
26.06.2021
Var i: byte; sum: real; begin for i := 1 to 37 do sum := sum + 1/i; writeln(sum); end.
федороа
26.06.2021
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.
Александрович Василий
26.06.2021
// 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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Составьте программу в паскале авс 1/1 + 1/2 + 1/3 + 1/4 + + 1/37
var i:integer: s: real;
begin
s:=0;
for i:=1 to 37 do s:=s+1/i;
writeln('s=',s:5:2)
end.