Смілянський форум

Ласкаво просимо

* Погода 
* Правила   * Учасники
* Вхід   * Реєстрація
Об'яви форума

Смілянський форум засвідчує свою підтримку українському народу. Ми засуджуємо дії російської влади, що нахабно ввела свої збройні сили на територію України.
Ми єдина, незалежна держава і вторгнення на нашу територію - це порушення суверенності України.
Слава Україні !


Сьогодні: 21 Жовтня, 2018 5:19

Часовий пояс UTC + 2 годин [ DST ]




Створити нову тему Відповісти  [ 7 повідомлень ] 
Автор Повідомлення
 Тема повідомлення: Як рышить цю задачу (pascal)
ПовідомленняДодано: 05 Січня, 2013 18:27 
Офлайн
Ас клавіатури
Ас клавіатури

З нами з: 04 Березня, 2012 20:29
Повідомлення: 315
Репутація: 0
Найти сумму элементов строки, в которой расположен наименьший элемент в матрице размеров 4х4 с помощью процедур


Догори
 Профіль  
 
 Тема повідомлення: Re: Як рышить цю задачу (pascal)
ПовідомленняДодано: 05 Січня, 2013 19:22 
Офлайн
Магістр
Магістр
Аватар користувача

З нами з: 13 Листопада, 2012 20:22
Повідомлення: 992
Звідки: Россия... когда-то Смела
Репутація: 16
Как то так:
Код:
var i,j,x,y: integer;
     Myarray: array[0..3] of array [0..3] of integer;
     Min: integer;
     Summ: integer;
Procedure FindMin (var x,y: integer);
var minX, minY: integer;
begin
    Min:=99999;
    For i:=0 to 3 do begin
         For j:=0 to 3 do begin
              if Min > MyArray[i,j] then begin
                 minX :=i;
                 minY:=j;
                 Min = MyArray[i,j];
              end;
         End;
    End;
    x = MaxX;
    y = MaxY;
end;
Procedure GetArray;
begin
   For i:=0 to 3 do begin
       For j:=0 to 3 do begin
           Read(MyArray[i,j]);
       End;
   end;
end;
begin
    x:=0;
    y:=0;
    GetArray;
    FindMin(x,y);
    For j:= 0 to 3 do begin
       Summ = Summ + MyArray[х,j];
    End;
   Write(Summ);
end.


Если есть ошибки - прошу простить... давно не кодила на паскале... писала так навскидку...


Догори
 Профіль  
 
 Тема повідомлення: Re: Як рышить цю задачу (pascal)
ПовідомленняДодано: 06 Січня, 2013 15:07 
Офлайн
Магістр
Магістр
Аватар користувача

З нами з: 13 Листопада, 2012 20:22
Повідомлення: 992
Звідки: Россия... когда-то Смела
Репутація: 16
Off-topic: P.S. Вопрос к автору темы... задание по учебе? Если да, то на кого учитесь? Если специальность связанна с программированем (что не факт, видела и не раз когда кодить на паскале заставляли и юристов и экономистов), то программирование лучше осваивать или самостоятельно или с репетитором, который все объясняет, так как без понимания далеко не уплыть. %) Вот и мой Отец держал при себе телефон "буксира"... который вытягивал меня из "тупиков" при обучении на 1-2 курсах инстика... За что обоим спасибо... дальше и сама смогла.. =)...

P.P.S. Вопрос к администраторам и модераторам... Может тему лучше перенести в раздел "Программирование"?


Догори
 Профіль  
 
 Тема повідомлення: Re: Як рышить цю задачу (pascal)
ПовідомленняДодано: 09 Січня, 2013 8:34 
Офлайн
Ас клавіатури
Ас клавіатури

З нами з: 04 Березня, 2012 20:29
Повідомлення: 315
Репутація: 0
То все добре, тільки можна розказати усе до дрібниць


Догори
 Профіль  
 
 Тема повідомлення: Re: Як рышить цю задачу (pascal)
ПовідомленняДодано: 10 Січня, 2013 21:35 
Офлайн
Магістр
Магістр
Аватар користувача

З нами з: 13 Листопада, 2012 20:22
Повідомлення: 992
Звідки: Россия... когда-то Смела
Репутація: 16
Ну если в подробностях:

пишем 2 процедуры:

1-я чтение массива с клавиатуры: По сути достаточно двух вложенных циклов...(For ... to...) первый цикл перебирает строки, другой столбцы... записываем в каждую ячейку значение, которое пользователь вводит с клавиатуры... (Read)
2-я - определение координат ячейки с минимальным значением: инициируем переменную, хранящую минимум как заведомо большое число (в данном примере 99999). Снова перебираем массив в поисках минимального числа... если текущее значение меньше минимального - минимальному присваиваем текущее значение, и записываем координаты...

далее в тексте самой программы сперва выполняем процедуру считывания массива... затем в считанном массиве находим координаты минимального значения вызовом второй процедуры... (на самом деле не обязательно записывать обе координаты... можно и просто номер строки).. потом перебираем найденную строку... к сумме последовательно прибавляем значение из ячеек в 1,2,3,4 столбцах массива в найденной строке... выводим сумму... (Write)

P.S. Если вопрос в синтаксисе языка... то тут ИМХО нужен справочник и учебники по языку...


Догори
 Профіль  
 
 Тема повідомлення: Re: Як рышить цю задачу (pascal)
ПовідомленняДодано: 10 Січня, 2013 22:00 
Офлайн
Ас клавіатури
Ас клавіатури

З нами з: 04 Березня, 2012 20:29
Повідомлення: 315
Репутація: 0
ну тепер все ясно стало, а тепер можна це перевести в C++?


Догори
 Профіль  
 
 Тема повідомлення: Re: Як рышить цю задачу (pascal)
ПовідомленняДодано: 13 Січня, 2013 17:09 
Офлайн
Магістр
Магістр
Аватар користувача

З нами з: 13 Листопада, 2012 20:22
Повідомлення: 992
Звідки: Россия... когда-то Смела
Репутація: 16
%) Синтаксиса С++ не знаю... попробую лишь в случае, если дадите хоть ссыль на справочник... (в инстике читали паскаль и делфи и специализируюсь сейчас на 1С)
знаю только, что вместо begin end там {}... %)


Догори
 Профіль  
 
Показувати повідомлення за:  Сортувати за  
Створити нову тему Відповісти  [ 7 повідомлень ] 

Часовий пояс UTC + 2 годин [ DST ]


Хто зараз онлайн

Зараз переглядають цей форум: Немає зареєстрованих користувачів і 1 гість


Ви не можете створювати нові теми у цьому форумі
Ви не можете відповідати на теми у цьому форумі
Ви не можете редагувати ваші повідомлення у цьому форумі
Ви не можете видаляти ваші повідомлення у цьому форумі
Ви не можете додавати файли у цьому форумі

Вперед:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Український переклад © 2005-2011 Українська підтримка phpBB
*Мобільна версія