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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2009, 11:03   #1
...Оленька...
Пользователь
 
Регистрация: 08.11.2008
Сообщений: 32
По умолчанию Помоготе с двумя задачами по паскалю

1. Написать программу поиска номера строки и столбца максимального и минимального элемента заданной матрицы. Построить новую матрицу, которая не содержит строку с минимальным элементом и столбец с максимальным элементом исходной матрицы.
2. Написать программу поиска строки и столбца заданной квадратной матрицы, содержащей минимальный элемент. Ответить на вопрос - лежит ли найденный элемент на побочной диагонали матрицы.
...Оленька... вне форума Ответить с цитированием
Старый 21.01.2009, 11:11   #2
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию 2

Код:
uses crt;
const n=100;
var i,j,d,maxi,maxj:integer;
    a:array[1..n,1..n] of integer;
    flag:boolean;
begin
clrscr;
writeln('->');
readln(d);
for i:=1 to d do
begin
 for j:=1 to d do
  begin
   a[i,j]:=random(1000);
   write(a[i,j]:4);
  end;
  writeln;
end;
flag:=false;
maxi:=1;maxj:=1;
for i:=1 to d do
 for j:=1 to d do
  if a[i,j]<a[maxi,maxj] then begin
                               maxi:=i;
                               maxj:=j;
                              end;

i:=d;j:=1;
while i>=1 do
 begin
   if a[i,j]=a[maxi,maxj] then flag:=true;
  dec(i);inc(j);
 end;
 if flag then writeln('yes')
  else     writeln('no');
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 21.01.2009, 11:18   #3
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию 1

Код:
uses crt;
const n=100;
var i,j,d,maxi,maxj,mini,minj:integer;
    a:array[1..n,1..n] of integer;
begin
clrscr;
writeln('->');
readln(d);
for i:=1 to d do
begin
 for j:=1 to d do
  begin
   a[i,j]:=random(1000);
   write(a[i,j]:4);
  end;
  writeln;
end;
flag:=false;
maxi:=1;maxj:=1;mini:=1;minj:=1;
for i:=1 to d do
 for j:=1 to d do
  if a[i,j]>a[maxi,maxj] then begin
                               maxi:=i;
                               maxj:=j;
                              end
     else  if a[i,j]<a[mini,minj] then begin
                               mini:=i;
                               minj:=j;
                              end;
 for i:=mini to d-1 do
 for j:=1 to d do
   a[i,j]:=a[i+1,j];

for j:=maxj to d-1 do
 for i:=1 to d do
  a[i,j]:=a[i,j+1];
 writeln('=======================================');
 for i:=1 to d-1 do
 begin
 for j:=1 to d-1 do
   write(a[i,j]:4);
  writeln;
 end;
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помоготе пожалуста,экзамен на носу zayai Паскаль, Turbo Pascal, PascalABC.NET 4 10.01.2009 23:54
Помоготе пожалуста!!! Tazik-777 Общие вопросы C/C++ 1 29.09.2008 15:12
Пожалуйста,помоготе решить задачки! vdv08 Паскаль, Turbo Pascal, PascalABC.NET 5 08.04.2008 14:29
работа с двумя книгами Реланиум Microsoft Office Excel 2 23.11.2006 16:37