Народ помогите ! очень надо!!Матрица! - Форум
Суббота, 03.12.2016, 22:46
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Народ помогите ! очень надо!!Матрица!
Народ помогите ! очень надо!!Матрица!
ПаняДата: Среда, 18.03.2009, 17:17 | Сообщение # 1
Сержант
Группа: Участник
Сообщений: 5
[ 0 ]
Статус: Offline
Найти наименьшие, отрицательные, элементы каждой строки матрицы EW{m, m} находящиеся над главной диагональю и переписать их в одномерный массив W.
m=6;

Заранее благодарен!!!

 
notnotДата: Четверг, 19.03.2009, 00:18 | Сообщение # 2
Генерал-лейтенант
Группа: Активный пользователь
Сообщений: 54
[ 10 ]
Статус: Offline
если я правильно поняла условие задачи (наименьший из отрицательных), то так:
Code
program mas;

uses crt;

const m = 6;

var
    EW : array [1..m,1..m] of integer;
    W : array [1..m] of integer;
    i,j:integer;

procedure MinOtrItems;
var
    min,k,l:integer;
    kruto,super:boolean;
begin
    k:=1;
    super:=false;
    for i:=1 to m-1 do
    begin
       kruto:=false;
       min:=EW[i,i+1];
       for j:=i+1 to m do
       begin
          if ((EW[i,j]<=min)and(EW[i,j]<0)) then
          begin
             min:=EW[i,j];
             kruto:=true;
          end;
       end;
       if kruto = true then
       begin
          W[k]:=min;
          inc(k);
          super:=true;
       end;

    end;
    writeln; writeln;
    if super = true then
    begin
       write('Naimenwie otrizatelnie elementi:');
       for l:=1 to k-1 do
          write(W[l]:4)
    end
    else
       writeln('Nad glavnoy diagonalyu net naimenwix otrizatelnix elementov');
end;

begin
    ClrScr;
    Randomize;
    for i:=1 to m do
    begin
       for j:=1 to m do
       begin
          EW[i,j]:=random(10)-2;
          write(EW[i,j]:4);
       end;
       writeln; writeln;
    end;
    writeln; writeln;
    MinOtrItems;
    readln;
end.


я - девушка!! +_+
 
ПаняДата: Четверг, 19.03.2009, 15:21 | Сообщение # 3
Сержант
Группа: Участник
Сообщений: 5
[ 0 ]
Статус: Offline
спс !
 
YurraДата: Четверг, 19.03.2009, 15:47 | Сообщение # 4
Генерал-лейтенант
Группа: Участник
Сообщений: 69
[ 10 ]
Статус: Offline
я бы только вместо
Quote (notnot)
 writeln('Nad glavnoy diagonalyu net naimenwix otrizatelnix elementov');

написал бы
writeln('Nad glavnoy diagonalyu net otrizatelnix elementov');

smile


Коплю на новую машину, помогите кто чем может
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Народ помогите ! очень надо!!Матрица!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016