Baldahing
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору phoenixLIFE Цитата: Начиная с 1-ой строки в цикле рассматривать элементы отдельных строк и, пока элементы в строках соразмерны в плане построения треугольника с данными сторонами (любой из них меньше суммы двух других), печатать площади треугольников, иначе цикл оканчивать. | А так? DIMENSION A(7,3) REAL S,p INTEGER I,J,K WRITE(*,*)'vvedite matricu A(7,3)' READ(*,*)((A(I,J),J=1,3),I=1,7) I = 1 DO WHILE ( A(I,1).LT.(A(I,2)+A(I,3)).AND. > A(I,2).LT.(A(I,1)+A(I,3)).AND. > A(I,3).LT.(A(I,1)+A(I,2)).AND. > (I.LE.7)) WRITE(*,"('(',i1,')',3(f4.1,2x),'>>',$)") i, (a(i,j),j = 1,3) p = ( A(I,1) + A(I,2) + A(I,3) ) / 2. S = SQRT(p * (p-A(I,1)) * (p-A(I,2)) * (p-A(I,3)) ) WRITE(*,"(' S = ', F4.2)") S I = I + 1 END DO IF(I .GE. 8) THEN PRINT*,"VSE TREUGOLNIKI" ELSE PRINT*,I," - NE TREUGOLNIK" ENDIF END |