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

[Светка]

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

[APAL]

Если есть проги и при условии (с "натяжкой") что их автором являешься ты, то не понятен смысл вопроса.

[Светка]

Без всяких "натяжек",их автором являюсь не я!!!А ВЫ!!!!
И очень нужны блок схемы!

[Altair]

APAL, обычно наоборот, программы строят по блок схемам или ТТС (типовым технологическим схемам), здесь ясно что программы нет

[Altair]

Без всяких "натяжек",их автором являюсь не я!!!А ВЫ!!!!

хех, как круто
APAL, прямо как гвоздь, да? Без намеков сказала кто будет автором

[Светка]

Ну почему вы между собой переписываетесь?нет чтобы человеку помоч!!!

[Altair]

Светка, выложи проги сюда пожалуйста

[APAL]

... или ссылку на топик где они решались ... :p2:

[Светка]

как я их выложу??они уже тут есть.

[Altair]

как я их выложу??они уже тут есть.

Пальцем ткни

[Светка]

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 22:59

[Altair]

Ну и в чем проблемма?
Блок схему составлять умеем?

[Светка]

Если б я в совершенстве владела"этим делом", я б не попросила помощи.Приблизительно, под чьим-то руководством могу это сделать, но одна НЕТ!Help!

[Altair]

Ну ок, под руководством давай


вот для первой, не подумайте что я издиваюсь

[Светка]

Так классно!!!!!! :D :yes: :yes: :yes:
Только я немного не поняла, что в последнем овале!

[Светка]

И еще в ромбике :p2:

[Altair]

Извини, просто как смог - ворд открывать лень было.
В овале последнем "ОСТАНОВ" в ромбе условие - i=10
Если да, то завершение программы, если нет, цикл повторяется..


:D

[Altair]

и еще - я не уверен, что вывод на экран это паралелограмм... просто схем со школы не чертил...

[светка]

Пасиба!

[Светка]

А вторая че?