Сделать блок схему для кода fortran program testtt implicit none integer : : a(8,8), b(8,8), i, j, minimum, n, ind1, ind2 logical : : l data a/8,7,6,5,3,2,1,0, & 8,7,6,5,3,6,1,0, & 8,7,6,5,3,2,1,-3,& 8,7,6,5,3,2,1,0, & 8,7,6,5,3,2,1,0, & 8,7,6,5,1,2,1,0, & 2,7,6,5,3,2,1,0, & 8,7,6,5,3,2,1,0/ ! выясним, ли элементы по главаной диагонали do i = 1, 7 if (a(i,i) > a(i+1, i+1)) then l=.true. else l=.false. exit end if end do ! если , то найдем минимальный элемент под диагнональю и его индексы if (l) then minimum = a(2,1) n=2 do j=1,7 do i=n, 8 if (a(i,j) < minimum) then minimum = a(i,j) ind1 = i ind2 = j end if end do n = n + 1 end do print 2, "минимальный элемент = ", minimum print 2, "индексы минимального элемента = ", ind1, ind2 print*,print 1, ((a(i,j),j=1,8),i=1,8) ! если не , то поменяем столбцы со строками else b=a do i=1,8 a(i,: ) = b(: ,i) end do print 1, ((a(i,j),j=1,8),i=1,8) end if 1 format (8i5) 2 format (a, 5i4) end
function FS(a,b:real):=0.5*a*b;
begin
var a,b:real;
Write('Катеты первого треугольника: '); Read(a,b);
var S1:=FS(a,b);
Write('Катеты второго треугольника: '); Read(a,b);
var S2:=FS(a,b);
if S1>S2 then Writeln('Площадь первого треугольника больше')
else
if S1<S2 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.
Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше