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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.01.2009, 22:55   #1
Valik102
Пользователь
 
Аватар для Valik102
 
Регистрация: 06.01.2009
Сообщений: 36
Радость 2 задачки на матрицы

вот две штучки
Вложения
Тип файла: doc Документ Microsoft Word.doc (27.0 Кб, 23 просмотров)
Valik102 вне форума Ответить с цитированием
Старый 06.01.2009, 23:10   #2
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию 1 Задача)

Код:
program ppp;
const
 n = 5;
 m = 6;
var
 i,j : byte;
 E : array [1..n,1..m] of word;
begin
  writeln ('Isxodniy massiv: ');
  Randomize;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      E[i,j]:=random(100);
      write (E[i,j],'|')
    end;
    writeln
  end;

  Writeln ('Noviy vivod: ');
  for j:=1 to m do
  begin
    write (j,' stolbec: ');
    for i:=1 to n do write (E[i,j],'|');
    writeln
  end;

  readln;

end.
capta1n вне форума Ответить с цитированием
Старый 06.01.2009, 23:10   #3
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 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)@
Tkirill вне форума Ответить с цитированием
Старый 06.01.2009, 23:16   #4
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 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)@
Tkirill вне форума Ответить с цитированием
Старый 06.01.2009, 23:25   #5
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию 2 задача)

Код:
program ppp2;
uses crt;
const
 n = 6;
var
 i,j : byte;
 L : array [1..n,1..n] of real;
begin
  clrscr;
  writeln ('Isxodniy massiv: ');
  Randomize;
  for j:=n downto 1 do
   for i:=n downto 1 do L[i,j]:=random(100)-50;

  writeln ('Vasha matrica: ');
  for i:=1 to n do
  begin
    for j:=1 to n do write (L[i,j]:0:1,'|');
    writeln
  end;

  Writeln ('Noviy vivod: ');
  for i:=1 to n do
   for j:=1 to n do
    if i=j then write (L[i,j]:0:1,'''');

  readln;

end.

Последний раз редактировалось capta1n; 06.01.2009 в 23:49.
capta1n вне форума Ответить с цитированием
Старый 06.01.2009, 23:27   #6
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Сообщений: 104
По умолчанию

Ппц) Все в двойном экземпляре)) Выбирай))
@(o_0)@
Tkirill вне форума Ответить с цитированием
Старый 06.01.2009, 23:27   #7
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию

ТКирилл - мне понравилась идея насчет диагонали - for i:=1 to 6 do write (I[i,i])
capta1n вне форума Ответить с цитированием
Старый 06.01.2009, 23:28   #8
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию

Кстати наши программы почти похожи, они почти идентичны )
capta1n вне форума Ответить с цитированием
Старый 06.01.2009, 23:32   #9
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Сообщений: 104
По умолчанию

))
По-моему во 2-ой задаче ты не совсем так написал ввод( там есть условие)

p.s.
С уважением, Капитану Пронину, внук Майора Пронина от
простого смертного))
@(o_0)@
Tkirill вне форума Ответить с цитированием
Старый 06.01.2009, 23:41   #10
capta1n
Форумчанин
 
Аватар для capta1n
 
Регистрация: 06.12.2008
Сообщений: 613
По умолчанию

С уважением, ТКириллу - все правильно у меня xD

Последний раз редактировалось capta1n; 07.01.2009 в 00:24.
capta1n вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обращение матрицы методом союзной матрицы 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