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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Блок схема

Автор: 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.

М
Теги!! mad.gif
Lapp


Автор: samec 7.05.2007 16:28

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


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

Автор: Skala_net 7.05.2007 17:22

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

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

ты прав в задачи есть ошибки! И спасибо за помощь.