Помогите плиз - Форум
Пятница, 09.12.2016, 10:44
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите плиз (Задача про матрицу)
Помогите плиз
foster-sbeerДата: Понедельник, 22.06.2009, 12:22 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Дана матрица размера M x N. Элемент матрицы называется её локальным максимумом, если он больше всех окружающих его элементов. Поменять знак всех локальных максимумов данной матрицы на противоположный. При решении допускается использование вспомогательной матрицы.

нужно на паскале сделать с описанием и блок-схемой....я в этом полный нуб. помогите пожалуйста....а то практикум если не сдам до 24, то досвидания технарь и да здравсвуй сапог армейский.....

 
notnotДата: Вторник, 23.06.2009, 17:23 | Сообщение # 2
Генерал-лейтенант
Группа: Активный пользователь
Сообщений: 54
[ 10 ]
Статус: Offline
Code

program local;

uses crt;

const
    n = 6;
    m = 8;

var
    a:array [1..n,1..m] of integer;
    b:array [1..10] of integer;
    i,j:integer;

procedure OutMas;
begin
    for i:=2 to n-1 do
    begin
       for j:=2 to m-1 do
       begin
          write(a[i,j]:4);
       end;
       writeln; writeln;
    end;
end;

procedure Null;
begin
    for i:=1 to n do
    begin
       a[i,1]:=-100;
       a[i,m]:=-100;
    end;
    for j:=1 to m do
    begin
       a[1,j]:=-100;
       a[n,j]:=-100
    end;
end;

procedure Min;
var
    k,l:integer;
begin
    k:=1;
    for i:=2 to n-1 do
    begin
       for j:=2 to m-1 do
       begin
          if (a[i,j]>a[i-1,j-1]) and (a[i,j]>a[i-1,j]) and
          (a[i,j]>a[i-1,j+1]) and (a[i,j]>a[i,j+1]) and
          (a[i,j]>a[i+1,j+1]) and (a[i,j]>a[i+1,j]) and
          (a[i,j]>a[i+1,j-1]) and (a[i,j]>a[i,j-1]) then
             begin
             b[k]:=i;
             b[k+1]:=j;
             k:=k+2;
             end;
       end;
    end;
    l:=k;
    k:=1;
    for i:=2 to n-1 do
       for j:=2 to m-1 do
       begin
          if k<=l then
          begin
             a[b[k],b[k+1]]:=a[b[k],b[k+1]]*(-1);
             k:=k+2;
          end;
       end;
end;

begin
ClrScr;
Randomize;
for i:=1 to n do
    for j:=1 to m do
    begin
       a[i,j]:=random(8)+2*(i-2)+random(i);
    end;
OutMas;
Null;
Min;
writeln; writeln;
OutMas;
ReadKey;
end.


я - девушка!! +_+

Сообщение отредактировал notnot - Вторник, 23.06.2009, 17:45
 
foster-sbeerДата: Среда, 24.06.2009, 08:54 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
notnot, слушай, а это на каком языке? мне нужно на турбо-паскале.....я в твоём коде некоторые операторы увидел впервые. Спасибо)))))
 
notnotДата: Среда, 24.06.2009, 13:47 | Сообщение # 4
Генерал-лейтенант
Группа: Активный пользователь
Сообщений: 54
[ 10 ]
Статус: Offline
какие например?? это паскаль

я - девушка!! +_+
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите плиз (Задача про матрицу)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016