|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
07.01.2012, 23:33 | #1 |
Новичок
Джуниор
Регистрация: 07.01.2012
Сообщений: 2
|
программа на паскале
Подскажите, пожалуйста, правильно ли я составила программу для задачи:"Для заданной квадратной матрицы сформировать одномерный массив из элементов вспомогательной диагонали.". program primer;
uses crt; var a:array[1..100, 1..100] of integer; s:array[1..100] of integer; i,j,n:integer; begin clrscr; writeln; writeln('vvedite n'); readln(n); for i:=1 to n do begin for j:=1 to n do begin writeln ('vvesti element ',i,j); readln(a [i,j]); end; end; for i:=1 to n do begin for j:=1 to n do if j=n+1-i then s[i]:=a[i,j]; end; for i:=1 to n do write(s[i]); readln; end. Помогите, пожалуйста, составить к ней алгоритм. СПАСИБО!!! |
07.01.2012, 23:38 | #2 |
Форумчанин
Регистрация: 15.10.2011
Сообщений: 306
|
я бы добавил один маленький штрих)
write(s[i]:3); а то у тебя просто 3 числа выводит "слипшиеся"...вот, а схема алгоритма есть программа FCEditor
Если твоя программа выполняет мистические действия, значит, ты сделал что-то невероятно тупое...
|
07.01.2012, 23:42 | #3 | |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Цитата:
зачем 2 цикла? EASYYYYY Код:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
|
07.01.2012, 23:47 | #4 |
Новичок
Джуниор
Регистрация: 07.01.2012
Сообщений: 2
|
Спасибо за программу
|
07.01.2012, 23:49 | #5 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
блок - схема
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа в паскале! | zzzZZZzzz | Помощь студентам | 5 | 01.06.2010 20:24 |
Программа в паскале | julia-busik | Помощь студентам | 0 | 19.05.2010 19:38 |
Программа на паскале | Absent | Помощь студентам | 3 | 28.05.2009 17:14 |
Программа в паскале | Krjak | Помощь студентам | 2 | 15.10.2008 21:56 |