Версия для печати темы

Автор: Skala_net 7.05.2007 15:59

Помогите сделать блок схему!!!!
Дана квадратная матрица N*N, состоящая из натуральных чисел, зеркально отразить, её элементы относительно горизонтальной оси симметрии.
Текст программы

program dgsfdh;
uses crt;
const n=10;
var a,b:array[1..n,1..n] of integer;
    k,m,i,j:integer;
begin
  clrscr;
  write('vvedite razmer matrici m=');
  readln(m);
  writeln('isxodnai matrica');
  k:=1;
  for i:=1 to m do
  begin
    a[i,j]:=k;
    k:=k+1;
    if j<m then write(a[i,j]:4)
    else
    writeln(a[i,j]:4);
  end;
  writeln('matrica posle priobrazovania');
  for i:=1 to m do
  begin
    b[i,j]:=a[m++1-1,j];
    if j<m then write(b[i,j]:4) else
    writeln(b[i,j]:4);
  end;
end.

М

Теги!! Lapp

Автор: samec 7.05.2007 16:28

блок-схему смотри в приаттаченном файле.
Только вот я не уверен, что программа твоя правильная...


Прикрепленные файлы
 shema.rar ( 5.16 килобайт ) Кол-во скачиваний: 190

Автор: Skala_net 7.05.2007 17:22

Цитата(samec @ 7.05.2007 12:28)