|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.04.2008, 22:07 | #11 |
Регистрация: 06.04.2008
Сообщений: 9
|
помогите с блок-схемой
Var x, y, n : Byte;
M : array [1..10, 1..10] of Byte; Begin Заполняем матрицу случайными числами Randomize; For x := 1 To 10 Do For y := 1 To 10 Do M[x,y] := Random(5) + 1; Обнуляем всё что ниже гл. диагонали n := 2; For y := 1 To 10 Do Begin For x := n To 10 Do M[x,y] := 0; n := n + 1; End; Выводим то что получилось на экран (хотя это, для экономии времени, можно засунуть в "обнулитель матрицы" For x := 1 To 10 Do Begin For y := 1 To 10 Do Write(M[x,y],' '); Writeln; End; Readln; End. блок-схему.пожалуйста |
07.04.2008, 14:30 | #12 |
Форумчанин
Регистрация: 17.02.2008
Сообщений: 191
|
вот готовая блок-схема. к стандарту сам приведешь.
Mathematicians often mix up Christmas and Halloween, because Dec.25=Oct.31.
|
08.04.2008, 19:23 | #13 |
Пользователь
Регистрация: 03.04.2008
Сообщений: 11
|
|
13.05.2008, 01:28 | #14 |
Новичок
Джуниор
Регистрация: 13.05.2008
Сообщений: 2
|
Ильдар, всё просто
1. главная диагональ в твоей матрице это ячейки с номерами (A[n,m], где n=m) 2. после создания матрице с помощью генератора случайных чисел в цикле, где перебираются строки с индекса 2, а столбцы с индексом 1 идет присвоение данным ячейкам значения 0 Прикинь на бумажке свою матрицу и поймешь. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачу... | Spiker01 | Паскаль, Turbo Pascal, PascalABC.NET | 27 | 17.06.2008 18:58 |
Помогите решить задачу | Chuvak | Общие вопросы C/C++ | 3 | 07.06.2008 09:48 |
Помогите решить задачу | Vegus | Общие вопросы C/C++ | 1 | 07.05.2008 17:49 |
Помогите решить задачу. | Shady | Общие вопросы Delphi | 7 | 10.11.2007 23:09 |
Помогите решить задачу!!! | Колян | Помощь студентам | 3 | 03.12.2006 22:19 |