|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.01.2009, 22:55 | #1 |
Пользователь
Регистрация: 06.01.2009
Сообщений: 36
|
2 задачки на матрицы
вот две штучки
|
06.01.2009, 23:10 | #2 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
1 Задача)
Код:
|
06.01.2009, 23:10 | #3 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
1)
uses crt;
var e:array[1..5,1..6] of word; i,j:integer; begin clrscr; for i:=1 to 5 do begin for j:=1 to 6 do begin write(' -> '); readln(e[i,j]); end; end; clrscr; for i:=1 to 5 do begin for j:=1 to 6 do write(e[i,j],' '); writeln; end; writeln; writeln; for j:=1 to 6 do begin write(j,' столбец '); for i:=1 to 5 do write(e[i,j],' '); writeln; end; readln; end.
@(o_0)@
|
06.01.2009, 23:16 | #4 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
2)
uses crt;
var l:array[1..6,1..6] of real; i,j:integer; begin clrscr; for j:=6 downto 1 do begin for i:=6 downto 1 do begin readln(l[i,j]); end; end; writeln; delay(60000); clrscr; for i:=1 to 6 do begin for j:=1 to 6 do write(l[i,j]:4:1,' '); writeln; end; writeln; writeln(' Главная диогональ '); writeln; writeln; for i:=1 to 6 do write(l[i,i]:4:1,' '); readln; end.
@(o_0)@
|
06.01.2009, 23:25 | #5 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
2 задача)
Код:
Последний раз редактировалось capta1n; 06.01.2009 в 23:49. |
06.01.2009, 23:27 | #6 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
Ппц) Все в двойном экземпляре)) Выбирай))
@(o_0)@
|
06.01.2009, 23:27 | #7 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
ТКирилл - мне понравилась идея насчет диагонали - for i:=1 to 6 do write (I[i,i])
|
06.01.2009, 23:28 | #8 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
Кстати наши программы почти похожи, они почти идентичны )
|
06.01.2009, 23:32 | #9 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
))
По-моему во 2-ой задаче ты не совсем так написал ввод( там есть условие) p.s. С уважением, Капитану Пронину, внук Майора Пронина от простого смертного))
@(o_0)@
|
06.01.2009, 23:41 | #10 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
С уважением, ТКириллу - все правильно у меня xD
Последний раз редактировалось capta1n; 07.01.2009 в 00:24. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Обращение матрицы методом союзной матрицы | dofmat | Помощь студентам | 6 | 03.10.2011 15:01 |
Описать рекурсивную функцию Palindrom(S) логического типа | Master-Sergey | Помощь студентам | 1 | 15.12.2008 19:03 |
задачки | Shuma | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 03.12.2008 13:10 |
2 задачки | Lemo | Помощь студентам | 1 | 27.11.2008 13:00 |
Задачки на матрицы и массивы | Dibox | Помощь студентам | 1 | 18.12.2007 06:46 |