Работа с блок-схемами Pascal.

[Дима82]

Вот, тут, решённые задачи:

№1.Программирование операций обработки одномерных массивов.
Задача: Вычислить суммы элементов массива, имеющих чётные индексы.

Program Lab4;
Uses crt;
Var K:array[1..30] of integer;
    S:integer;
    J,M:integer;
Begin
 Clrscr;
 S:=0;
 Write('BBedute 4uclo elementov macciva <=30: ');
 Readln(m);
 For J:=1 to m do begin
Write('K[',J,']=');
Readln(K[j]);
End;
writeln ('4etnye elementy macciva: ');
For J:=1 to M do
Begin
If (K[J] mod 2) = 0 then
Begin
Writeln ('K[',J,']=',K[J]);
S:=S+1;
End;
End;
 S:=0;
 J:=1;
 Repeat
  If K[J] mod 2=0 then
  S:=S+K[J];
 J:=J+1;
 until J>M;
 Writeln('Summa 4etnyx elementov massiva: ',s);
 Readkey;
End.

№2. Программирование операций обработки двумерных массивов.
Задача: Дана матрица А[M,N]. Включить вектор С(М) в качестве главной диагонали матрицы.

Program Lab5;
Uses crt;
Const M=5;
      N=5;
Var A: array[1..M,1..N] of real;
    C: array[1..M] of real;
    P,I:1..M;
    Q,J:1..N;
Begin
 Clrscr;
 Write('BBedite razmernost matricy ne bolee 5*5: ');
 Readln(P,Q);
 Writeln('BBedite elementy matricy:');
 For I:=1 to P do begin
  For J:=1 to Q do
  Begin
   Write('A[',I: 1,',',J: 1,']=');
   Readln(A[I,J])
  End; End;
  For I:=1 to P do begin
  Write ('C[',I,']=');
  Readln(C[I]);
 End;
 Writeln('Kontrolnyi Byvod matricy: ');
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 for I:=1 to J do A[I,I]:=C[I];
 Writeln;
 For I:=1 to P do
 Begin
  For J:=1 to Q do Write (A[I,J]:4:2,'':3);
  Writeln;
 End;
 Readln
End.

Помогите мне написать блок-схемы для двух задач, а то в этом я ничего не понимаю...

[А. Долматов]

помочь или нарисовать? Если помочь, то спрашивай что не понятно.

[AlDelta]

http://www.chemisk.narod.ru/html/algoritm01.html
Статья большая, поэтому только ссылка. Дима82 читай, пробуй, спрашивай - только в таком порядке.

[Дима82]

помочь или нарисовать? Если помочь, то спрашивай что не понятно.

Нарисуйте, пожалуйста, если не трудно глядишь может чё пойму.

http://www.chemisk.narod.ru/html/algoritm01.html
Статья большая, поэтому только ссылка. Дима82 читай, пробуй, спрашивай - только в таком порядке.

Посмотрел сайт, толку мало(хотя хороший сайт, спасибо). У меня и с простыми задачами в блок-схемах были проблемы, о двумерных массивах я, вообще, молчу.

[Карась]

Сообщение от AlDelta

http://www.chemisk.narod.ru/html/algoritm01.html
Статья большая, поэтому только ссылка. Дима82 читай, пробуй, спрашивай - только в таком порядке.

Зачётный сайт. Очень неплохо написано.

Посмотрел сайт, толку мало(хотя хороший сайт, спасибо). У меня и с простыми задачами в блок-схемах были проблемы, о двумерных массивах я, вообще, молчу.

Вы нарисуйте, а потом мы поправим и аргументируем ваши ошибки.

[Дима82]

А, вы, можете в качестве примера показать какую-либо похожую блок-схему, а я попытаюсь, что-нибудь нарисовать...

[Дима82]

Вот так что-ли...

[Дима82]

Вроде правильно, кто-нибудь посмотрел?