1. Акция на весь декабрь! Получай оплату х2 за уникальные статьи, объемом от 200 слов, если в заголовке темы и теле статьи присутствует слово Python
    Скрыть объявление

Спасите девушка тонет!

Тема в разделе "Delphi - Базы данных", создана пользователем puma89, 24 дек 2007.

Статус темы:
Закрыта.
  1. puma89

    puma89 Гость

    Спасите ктонибудь пожалуста,уже не знаю сколько мучаюсь с лабой.
    дана целочисленная прямоугольная матрица:определить1)количество отрицательных элементов в тех строках,которые содержат хотя бы один нулевой элемент2)номера строк и столбцов всех седловых точек матрицы
    примечание материальная точка а имеет седловую точку Aij являющуюся минимальным элементом в первой строке и максимальным в jстолбце. :ph34r:
    Желательно в Delphi
     
  2. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    Ладно, щас решу... только из-за того, что ты девушка

    Вот, первая часть решения:
    Код (Text):
    program Project2;

    {$APPTYPE CONSOLE}

    uses
    SysUtils;

    var
    a : array [1..20,1..20] of integer;
    i,j,n,m,kol : Integer;
    fl : boolean;
    begin
    Write('n='); Read(n);
    Write('m='); Read(m);
    for i:=1 to n do
    for j:=1 to m do
    begin
    write('a[',i,',',j,']=');
    read(a[i,j])
    end;
    for i:=1 to n do
    begin
    fl:=false;
    for j:=1 to m do
    if a[i,j]=0 then
    begin
    fl:=true;
    break
    end;
    if fl then
    begin
    kol:=0;
    for j:=1 to m do
    if a[i,j]<0 then kol:=kol+1;
    writeln('V ',i,'-oj stroke ',kol,' otricatelnih elementa.')
    end
    end;
    readln(n)
    end.
     
  3. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    Вот вторая часть решения. Если что не так, извини, я так понял условия.
    Код (Text):
    program Project3;

    {$APPTYPE CONSOLE}

    uses
    SysUtils;

    var
    a : array [1..20,1..20] of integer;
    i,j,k,n,m : Integer;
    fl : boolean;
    begin
    Write('n='); Read(n);
    Write('m='); Read(m);
    for i:=1 to n do
    for j:=1 to m do
    begin
    write('a[',i,',',j,']=');
    read(a[i,j])
    end;
    for i:=1 to n do
    for j:=1 to m do
    begin
    fl:=true;
    for k:=1 to m do
    if a[1,k]<a[i,j] then
    begin
    fl:=false;
    break
    end;
    if fl then
    for k:=1 to n do
    if a[k,j]>a[i,j] then
    begin
    fl:=false;
    break
    end;
    if fl then write('Est sedlovaya tochka a v ',i,'-oj stroke i ',j,'-om stolbce');
    end;
    readln(n)
    end.
     
  4. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    Видимо, ты утанула, раз так долго не отвечаешь :ph34r:
     
  5. puma89

    puma89 Гость

    СПАСИБО,СПАСИБО,СПАСИБО!!!! :ph34r: :D Ты меня безумно выручил!!
     
  6. GRLEX

    GRLEX Гость

    Для puma89: ты бы плюса шоли хоть Vadik&reg;'у поставила :(
    человек старался
     
  7. puma89

    puma89 Гость

    А как плюс ставить?он не нажимается.я б хоть сто
     
  8. Alenko321

    Alenko321 Гость

    а можно эту жэ программку только на си?? плиззззззз. оч надо!!
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей