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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2008, 12:27   #1
alema
 
Регистрация: 22.12.2008
Сообщений: 3
Восклицание Помогите написать маленькую программку, умираю

Задание:
Выполнить указанное преобразование - 2 для той матрицы , которая отвечает заданному условию 1.
Условие 1 – выполнить в программе FUNCTION ,условие 2 – выполнить в программе PROCEDURE.
1-больше сумма положительных элементов в четных строках;
2-найти максимальный элемент и место, где он расположен
Заранее благодарю.
alema вне форума Ответить с цитированием
Старый 22.12.2008, 13:55   #2
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Код:
uses crt;
const n=10;
type Tmatr=array[1..n,1..n] of integer;
var a,b:TMatr;
    i,j:integer;
    
function IsMatr:byte;
var sumCh,sumNech,sumCh1,sumNech1,res:integer;
begin
 res:=0;
 sumCh:=0;sumNech:=0;sumCh1:=0;sumNech1:=0;
 for i:=1 to j do
  if i mod 2 =0 then
   for j:=1 to n do
    begin
    if a[i,j]>0 then sumCh:=sumCh+a[i,j];
    if b[i,j]>0 then sumCh1:=sumCh1+b[i,j];
    end
  else begin
        if a[i,j]>0 then sumNech:=sumNech+a[i,j];
        if b[i,j]>0 then sumNech1:=sumNech1+b[i,j];
       end;
  If  SumCh>SumNech then res:=1;
  if  SumCh1>SumNech1 then res:=res+3;
  IsMatr:=res;
end;

procedure FindMax(x:TMatr);
var i,j,l,r,max:integer;
begin
 l:=1;r:=1;max:=x[1,1];
 for i:=1 to n do
  for j:=1 to n do
   if x[i,j]>max then begin
                       max:=x[i,j];
                       l:=i;
                       r:=j;
                      end;
 Writeln(max,'[',l,';',r,']');
end;

begin
  randomize;
  clrscr;
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
     a[i,j]:=random(15)-random(10);
     write(a[i,j],' ');
     end;
   writeln;
   end;
   writeln('============================');
    for i:=1 to n do
   begin
    for j:=1 to n do
     begin
     b[i,j]:=random(15)-random(10);
     write(b[i,j],' ');
     end;
   writeln;
   end;
   
   case IsMatr of
   1:begin
      Writeln('Matr A');
      FindMax(a);
     end;
   3:begin
      Writeln('Matr B');
      FindMax(b);
     end;
   4:begin
      Writeln('Matr A');
      FindMax(a);
      Writeln('Matr B');
      FindMax(b);
     end;
    end;
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно написать маленькую прогу за хорошие деньги! nikez85 Фриланс 7 29.12.2012 10:06
Помогите написать маленькую программуку, умираю alema Паскаль, Turbo Pascal, PascalABC.NET 0 22.12.2008 12:27
Нужно сделать маленькую программку allfaces Фриланс 4 26.05.2008 05:46
Помогите написать программку olegavi Общие вопросы C/C++ 1 06.05.2008 16:11
Требуется написать маленькую програмку mivang Фриланс 2 02.04.2007 16:15