Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.12.2008, 21:11   #1
Daiv
 
Регистрация: 02.12.2008
Сообщений: 3
Восклицание Помогите пожалуйста

Люди, пожалуйста, помогите нарисовать блок-схему:

program aa;
var a,b:array[0..50,0..50] of integer;
i,j,n:integer;
begin
writeln('vvedite razm matrici');
readln(n);
writeln('vvedite samy matricy');
for i:=1 to n do
for j:=1 to n do
a[i,j]:=0;
for i:=1 to n do begin
for j:=n-i+1 downto i do a[i,j]:=1;
for j:=n-i+1 to i do a[i,j]:=1;
end;
writeln('poluchivshees9 matrica');
for i:=1 to n do begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
readln;
end.
Daiv вне форума Ответить с цитированием
Старый 15.12.2008, 23:25   #2
juzam
Пользователь
 
Аватар для juzam
 
Регистрация: 25.11.2008
Сообщений: 31
По умолчанию

ЭЭ много не шарю,но вроде есть какаято прога,она делает блок-схемы)))Поюзай поиск,мне впадлу))
juzam вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!! VisTBacK Помощь студентам 6 19.09.2008 13:44
Помогите, пожалуйста! Flamik Паскаль, Turbo Pascal, PascalABC.NET 3 10.05.2008 20:44
Помогите пожалуйста Denverl Помощь студентам 2 05.11.2007 14:01