fork download
copy 
  1. * GROUP_29_2022510088_2022510126.cob
  2.        IDENTIFICATION DIVISION.
  3.        PROGRAM-ID. EUCLIDEAN.
  4.  
  5.        DATA DIVISION.
  6.        WORKING-STORAGE SECTION.
  7.        01 P1-ARRAY.
  8.           05 P1 OCCURS 8 TIMES PIC 9(3)V9(4).
  9.        01 P2-ARRAY.
  10.           05 P2 OCCURS 8 TIMES PIC 9(3)V9(4).
  11.        01 I          PIC 9.
  12.        01 DIFF       PIC S9(4)V9(4).
  13.        01 SUM-SQ     PIC 9(6)V9(6) VALUE 0.
  14.        01 DISTANCE   PIC ZZZ9.999999.
  15.  
  16.        PROCEDURE DIVISION.
  17.            MOVE 6 TO P1 (1). MOVE 148 TO P1 (2).
  18.            MOVE 72 TO P1 (3). MOVE 35 TO P1 (4).
  19.            MOVE 0 TO P1 (5). MOVE 33.6 TO P1 (6).
  20.            MOVE 0.627 TO P1 (7). MOVE 50 TO P1 (8).
  21.  
  22.            MOVE 1 TO P2 (1). MOVE 85 TO P2 (2).
  23.            MOVE 66 TO P2 (3). MOVE 29 TO P2 (4).
  24.            MOVE 0 TO P2 (5). MOVE 26.6 TO P2 (6).
  25.            MOVE 0.351 TO P2 (7). MOVE 31 TO P2 (8).
  26.  
  27.            PERFORM VARYING I FROM 1 BY 1 UNTIL I > 8
  28.                COMPUTE DIFF = P1 (I) - P2 (I)
  29.                COMPUTE SUM-SQ = SUM-SQ + (DIFF * DIFF)
  30.            END-PERFORM.
  31.  
  32.            COMPUTE DISTANCE = FUNCTION SQRT(SUM-SQ).
  33.            DISPLAY "Euclidean Distance: " DISTANCE.
  34.            STOP RUN.
  35.  
  36.  
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Euclidean Distance:   66.903484
https://ideone.com/plqk7C
language:
COBOL 85 (tinycobol-0.65.9)
created:
17 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!