Методические указания по выполнению лабораторных работ по курсу "Эксплуатация и обслуживание ГКМ", страница 14

1   

programlab3;

2   

var i,j:integer;

3   

a:array[1..3]of integer;

4   

b:array[1..3]of integer;

5   

k,s,p,n:real;

6   

function tm(x1,y1,x2,y2:integer):real;

7   

begin

8   

  Tm:=sqrt(sqr(x1-x2)+sqr(y1-y2));

9   

end;

10   

begin

11   

 for i:=1 to 3 do

12   

 readln(a[i]);

13   

 for i:=1 to 3 do

14   

 readln(b[i]);

15   

 s:=0;p:=0;

16   

 for i:=1 to 2 do

17   

 begin

18   

   N:=tm(a[i],b[i],a[i+1],b[i+1]);

19   

   S:=s+n;

20   

 End;

21   

 k:=tm(a[1],b[1],a[3],b[3]);

22   

 p:=s+k;

23   

 writeln(p:7:3);

24   

 readln

25   

end.

1   

programlab4;

2   

Uses crt;

3   

var i,n:integer;

4   

z,y:real;

5   

begin

6   

  writeln('z');

7   

  readln(z);

8   

  i:=1;

9   

  y:=0;

10   

  repeat

11   

  y:=y+i/(i+1);

12   

  i:=i+1;

13   

  until y>z;

14   

  i:=i-1;

15   

  writeln(i);

16   

readln

17   

end.