Заблокирован
1

Блок-схема

19.12.2013, 00:10. Показов 353. Ответов 1
Метки нет (Все метки)

Необходимо поменять местами главную и побочную диагонали в двумерном массиве, программу написал, но с блок-схемой туговато как-то:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
program matrix;
const
nmax=100;
var
a: array[1..nmax,1..nmax] of integer;
n,m,i,j,tmp: integer;
begin
randomize;
write('Введите размер матрицы n: ');
readln(n);
writeln('Начальная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(199)-99;
write(a[i,j]:5);
end;
writeln;
end;
 
for i:=1 to n do
begin
tmp:=a[i,i];
a[i,i]:=a[i,n+1-i];
a[i,n+1-i]:=tmp;
end;
writeln('Изменённая матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
writeln;
readln;
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2013, 00:10
Ответы с готовыми решениями:

блок схема
Var a :real; n,i :integer; Begin readln(a,n); for i := 1 to n do begin ...

блок-схема
uses crt; var i,n,max:integer; a:array of integer; begin clrscr; repeat writeln('кол-во...

блок схема
помогите составить блок схему к задаче program zadacha_qq; var a,b,c,d,m:integer; x,y,z,h:real;...

Блок-схема
Создать блок-схему, используя операторы выбора. Во всех вариантах проводить проверку корректности...

1
693 / 567 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
19.12.2013, 08:19 2
sandanendn,
1
Миниатюры
Блок-схема  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2013, 08:19

Блок-схема
program transponirovanie; uses CRT; var s:string; s1,N,H1,k,t:integer; A, b:...

Блок-схема
Здравствуйте. Помогите пожалуйста составить блок-схему к задаче: program LabRab1; uses crt; const...

Блок-схема
Помогите, пожалуйста, нарисовать блок схему. var f1,f2,h:file of char; k:integer; begin...

Блок схема
Помогите, пожалуйста, нарисовать блок схему. Работа с файлами. var f,g:file of integer; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.