Блок схема Опции

[Светка]

Люди!!!Мне нужны только блок схемы!сами программы есть.
1.Вычислить 9 значений функции у=х в кв.-сos альфа, где начальное значение альфа=-пи, а шаг дельта альфа=П\2, х=0,14483.
2.В данной действительной квадратной матрице порядка n найти сумму эл-ов строки, в которой расположен эл-т с наименьшим значениемю(такой эл-т один).
Очень-очень срочно нужно!К завтрашнему дню!

[Светка]

1.

Код

Const x=0.14483;
Var Al : real
     i : Byte;
Begin
 Al:=0;
 For i:=1 to 9 do
 Begin
   Writeln('Альфа = ',Al :9:5,'  y= ',sqr(x)-cos(Al):9:5
   Al:=Al+Pi/2;
 End;
End.

2.

Код

Const n=4;
Var
 m : array[1..n,1..n] of Real;
 n,i,j : Byte;
 k,s : Real;
Begin
 k:=m[1,1];
 n:=1; s:=0;
 For j:=1 to n do
   For i:=1 to n do
     If m[i,j]<k then
     Begin
       k:=m[i,j];
       n:=j;
     End;
 For i:=1 to n do s:=s+m[i,n];
 Writeln(s:8:4);
End.

Пользуемся тегами [ code] [ /code] для исходников...

Сообщение отредактировано: volvo - 17.12.2004 18:59