Форум программистов, компьютерный форум, киберфорум
Наши страницы

Блок схема - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Построение центра дерева (графы) http://www.cyberforum.ru/cpp-beginners/thread221687.html
Задача состоит в том, что нужно найти центр дерева, и при этом алгоритм должен учитывать особенность графов этого типа (центр содержит одну или две смежные вершины). Пробовал через матрицу смежности...
C++ Блок-схема Всем привет. Парни выручайте, очень нужна блок-схема. Код программы ниже. Сам ничё понять не могу. #include <iostream> #include <string> #include <vector> #include <sstream> #include <fstream>... http://www.cyberforum.ru/cpp-beginners/thread221686.html
C++ легко и просто) про строки
срочно! помогите написать простую программу которая определяет сколько различных цифр в строке!!! очень надо!!!!
двухсвязанный список C++
Определить следующие функции для работы с двусвязными списками: • добавление элемента в список; • удаление элемента из списка; • очистка списка; • обмен двух элементов местами. С клавиатуры...
C++ Соствать программы на с++ http://www.cyberforum.ru/cpp-beginners/thread221672.html
Нужно составить программу транспонирования матрицы размером 10 на 10
C++ не могу понять как решить... С клавиатуры вводятся N целых чисел (для их хранения использовать двусвязный список), а также целое число K. Циклически сдвинуть элементы списка на K элементов вправо. Вывести элементы полученного... подробнее

Показать сообщение отдельно
Ugrumiy
0 / 0 / 0
Регистрация: 28.12.2010
Сообщений: 3

Блок схема - C++

28.12.2010, 11:17. Просмотров 507. Ответов 2
Метки (Все метки)

Люди помогите! =( Написал программу на Паскале и не могу схему алгоритма начертить, запутываюсь постоянно..Нарисуйте кто может и залейте куда нибудь, оч прошу =). Вот программа:
uses crt;

var
a, b, col: array[1..20, 1..20] of integer;
i, j, k: integer;

begin
for i := 1 to 20 do
begin
for j := 1 to 20 do
a[i, j] := 0;
b[i, j] := 0;
end;
k := 2;
for i := 10 downto 2 do {zapolnenie pervoy chasty}
begin
for j := k to 10 do
begin
a[i, j] := random(9) + 1;
col[i, j] := 7; {serij}
end;
inc(k);
end;
k := 11;
for i := 2 to 10 do {zapolnenie vtoroy chasty}
begin
for j := 11 to k do
begin
a[i, j] := random(9) + 1;
col[i, j] := 10; {zelenij}
end;
inc(k);
end;
k := 11;
for i := 19 downto 11 do {zapolnenie tret'ey chasty}
begin
for j := 11 to k do
begin
a[i, j] := random(9) + 1;
col[i, j] := 14; {geltij}
end;
inc(k);
end;
k := 2;
for i := 11 to 19 do {zapolnenie chetvertou chasty}
begin
for j := k to 10 do
begin
a[i, j] := random(9) + 1;
col[i, j] := 13;
end;
inc(k);
end;
b := a;
{razvorachivaem}
for i := 1 to 10 do
for j := 1 to i do
begin
b[j, i + 10] := b[i, 11 - j];
col[j, i+10] := col[i, 11-j];
b[21 - j, i + 10] := b[i, j + 10];
col[21 - j, i + 10] := col[i, j + 10];
b[i + 10, j] := b[j + 10, 21 - i];
col[i + 10, j] := col[j + 10, 21 - i];
b[j, 11 - i] := b[21 - i, 11 - j];
col[j, 11 - i] := col[21 - i, 11 - j];
end;

{vivodim}

textbackground(0);
clrscr;
writeln(' ISHODNAYA');
for i := 1 to 20 do
begin
for j := 1 to 20 do
begin
textcolor(col[i, j]);
write(' ', a[i, j]:2);
end;
writeln;
end;
writeln;
writeln(' REZULTIRUUSHAYA');
for i := 1 to 20 do
begin
for j := 1 to 20 do
begin
textcolor(col[i, j]);
write(' ', b[i, j]:2);
end;
writeln;
end;
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru