Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [PASCAL] Двумерный массив . МАКСИМУМ  
:(
    Опции темы
Lutichka
Дата 10.5.2007, 11:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.5.2007

Репутация: нет
Всего: нет
Помогите пожалуйста осталась одна задача . дана произвольная матрица , каждый негативный элемент матрицы заменить максимальным элементом столбца в котором он находится . ( не применяя процедур и функции )
PM MAIL   Вверх
Lutichka
Дата 10.5.2007, 12:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.5.2007

Репутация: нет
Всего: нет
ДА негативный это отрицательный
PM MAIL   Вверх
ama_kid
Дата 10.5.2007, 12:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 16
Всего: 95
Lutichka, 
Ну вот примерно так:
Код
program Project2;

uses Crt;
const
 N=10;
var
 A:Array [1..N,1..N] of integer;
 i,j:integer;
 k:integer;
 Max:integer;

begin
 randomize;
 for i:=1 to N do
  for j:=1 to N do A[i,j]:=Random(20)-10;
 writeln;
 for i:=1 to N do
  for j:=1 to N do
   if A[i,j]<0 then
    begin
     Max:=A[1,j];
     for k:=2 to N do if Max<A[k,j] then Max:=A[k,j];
     A[i,j]:=Max;
    end;
 readln;
end.





--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
Lutichka
Дата 10.5.2007, 12:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.5.2007

Репутация: нет
Всего: нет
Спасибо , а как сделать так чтобы не использовать функцию random .  или как ее обьяснить 
PM MAIL   Вверх
Klin
Дата 10.5.2007, 12:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1938
Регистрация: 7.10.2002
Где: Краснодар

Репутация: 2
Всего: 25
Держи решение:

Код

uses CRT; { библиотека для очистки экрана }
const nx=4; ny=4; { размер матрицы}
var n: array[1..nx,1..ny] of integer;
    x, y, sy, max: integer;
begin
 clrscr; { очистка экрана }

 for y:=1 to ny do begin
  writeln;
  for x:=1 to nx do begin
    n[x,y]:=random(12)-5;
    write(n[x,y],chr(32));
  end;
 end;
 { заполнение массива случайным образом и вывод его на экран}

 for y:=1 to ny do
  for x:=1 to nx do
   if (n[x,y]<0) then begin 
    max:=n[x,y]; { запись временного максимума }
    for sy:=1 to ny do if (max<n[x,sy]) then max:=n[x,sy]; { нахождения максимума в столбце }
    n[x,y]:=max; { запись максимума }
   end;
 { операция проверки значений }

 writeln; writeln;
 for y:=1 to ny do begin
  writeln;
  for x:=1 to nx do write(n[x,y],chr(32));
 end;
 { вывод измененного массива }

end.



--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
Rodman
Дата 10.5.2007, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
Код

program Project2;
uses Crt;
const
 N=10;
var
 A:Array [1..N,1..N] of integer;
 i,j:integer;
 k:integer;
 Max:integer;
begin
 for i:=1 to N do
  for j:=1 to N do 
      readln(A[i,j]);
 writeln;
 for i:=1 to N do
  for j:=1 to N do
   if A[i,j]<0 then
    begin
     Max:=A[1,j];
     for k:=2 to N do if Max<A[k,j] then Max:=A[k,j];
     A[i,j]:=Max;
    end;
 readln;
end.

а если с Random, то он заполняет матрицу случайными цыфрами в диапазоне 0-20;


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Klin
Дата 10.5.2007, 12:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1938
Регистрация: 7.10.2002
Где: Краснодар

Репутация: 2
Всего: 25
Блин, опередили. если перед циклом добавить randomize; , то случайность будет зависеть от времени. А random(x) - что тут объяснять  случайное число, где максимум x (или x-1) точно не помню

Это сообщение отредактировал(а) Klin - 10.5.2007, 12:53


--------------------
Я человек - попробуйте обвинить меня за это.
PM MAIL   Вверх
ama_kid
Дата 10.5.2007, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


АСУТП-кодер
***


Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 16
Всего: 95
Цитата(Lutichka @  10.5.2007,  12:45 Найти цитируемый пост)
а как сделать так чтобы не использовать функцию random
Это просто заполнение матрицы (чтобы не с пустой работать), если тебе не надо - заполняй её как сама пожелаешь, хоть с клавиатуры вводи...


--------------------
самурай без меча подобен самураю с мечом, но только без меча 
PM MAIL   Вверх
Lutichka
Дата 10.5.2007, 19:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.5.2007

Репутация: нет
Всего: нет
ребята извините но я чего то не пойму не одна из программ не работает
PM MAIL   Вверх
Lutichka
Дата 10.5.2007, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.5.2007

Репутация: нет
Всего: нет
НАпример мах нельзя присвоить элемент массива пишет типы не совпадают . А когда подбираешь так чтоб программа работала она ничего не выводит
PM MAIL   Вверх
Rodman
Дата 10.5.2007, 20:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
Lutichka, компилятор тебе так и говорит ("У тебя типы не совпадают")? 

он пишет конкретные ошибки... вот их и перепиши сюда...


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Lutichka
Дата 10.5.2007, 20:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.5.2007

Репутация: нет
Всего: нет
TYPE MYSTHMATCH , А на вводе элементов тоесть когда в скобках (i,j)
'')'' expression



Это сообщение отредактировал(а) Alexeis - 14.5.2007, 09:39
PM MAIL   Вверх
Lutichka
Дата 10.5.2007, 21:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.5.2007

Репутация: нет
Всего: нет
ТАК я проверила все варианты ввода


Это сообщение отредактировал(а) Alexeis - 14.5.2007, 09:40
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1095 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.