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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Ugrumiy
0 / 0 / 0
Регистрация: 28.12.2010
Сообщений: 3
#1

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

28.12.2010, 11:17. Просмотров 450. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2010, 11:17
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Блок схема (C++):

Блок схема ( схема алгоритма ) - C++
Доброго времени суток . Есть вот такая програмка : bool checktwo(const int x); int main(){ for (int i=1000; i<10000; i++) //...

Блок схема - C++
Не пойму как на эту программу сделать блак схему.Помогите пожалуйста! #include <iostream> #include <locale.h> using...

Блок-схема - C++
Для элементов заданного массива длины N рассчитать: приложение всех отрицательных элементов, количество нечетных элементов, количество...

блок схема - C++
Помогите пожалуйста! Не пойму как на эту программу сделать блок схему. #include <iostream> #include <locale.h> using namespace...

блок-схема - C++
#include <stdio.h> #include <string.h> #include <conio.h> #define MAXLEX 1024 int main(void) { char s, *p, *lexs; int...

Блок-схема - C++
где можно почитать про блок схемы..??

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
eczo
37 / 37 / 1
Регистрация: 15.12.2010
Сообщений: 110
28.12.2010, 11:37 #2
разделом ошибся тут C/C++, паскаль в другом разделе.
0
Ugrumiy
0 / 0 / 0
Регистрация: 28.12.2010
Сообщений: 3
28.12.2010, 11:45  [ТС] #3
ой сорри... нажал не туда
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.12.2010, 11:45
Привет! Вот еще темы с ответами:

Блок-схема - C++
помогите зделать блок схему к с++ #include <iostream> #include <cstdlib> using namespace std; int main() { int P,A; ...

Блок-схема - C++
Помогите написать блоксхему

Блок-схема - C++
Помогите нарисовать блок схему, по блочной сортировке. Сдавать курсач через 3 дня, а я вообще не понимаю как их составлять... for (m =...

блок-схема в с++ - C++
привет всем, помогите пожалуйста нарисовать блок-схему, я ваще не понимаю=((, помогите пожалуйста, вот код: #include "iostream" ...


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

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

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