Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 28.12.2013, 12:15   #1 (permalink)
Chelios_rus
Member
 
Регистрация: 14.12.2013
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Язык программирования - Паскаль. Двумерный массив

Дан двумерный массив 6 на 8. Найти номер строки и номер столбца минимального элемента.
Chelios_rus вне форума   Ответить с цитированием

Старый 28.12.2013, 12:15
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Проблема довольно частая, на нашем форуме нашлись совпадения

Двумерный массив
Двумерный массив. Цветы. Паскаль
Двумерный массив

Старый 28.12.2013, 12:20   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Chelios_rus Посмотреть сообщение
Дан двумерный массив 6 на 8. Найти номер строки и номер столбца минимального элемента.
Сразу скажу: на меня не рассчитывайте. Ибо оказание "помощи" в решении подобных задач ясельно-дебильного уровня считаю делом абсолютно безнравственным. Вот так вот.
Vladimir_S вне форума   Ответить с цитированием
Старый 28.12.2013, 12:25   #3 (permalink)
Chelios_rus
Member
 
Регистрация: 14.12.2013
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

ну спасибо хоть на этом
Chelios_rus вне форума   Ответить с цитированием
Старый 28.12.2013, 12:28   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Chelios_rus Посмотреть сообщение
ну спасибо хоть на этом
Да не за что, в общем-то. Единственное - если Вы выложите результаты своих попыток самостоятельного решения этой... (тьфу, прости, Господи) "задачи", то разговор будет другим. От оказания реальной помощи я не отказываюсь.
Vladimir_S вне форума   Ответить с цитированием
Старый 28.12.2013, 12:38   #5 (permalink)
Chelios_rus
Member
 
Регистрация: 14.12.2013
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

мне просто нужно было чем скорее тем лучше
Chelios_rus вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 28.12.2013, 12:49   #6 (permalink)
Chelios_rus
Member
 
Регистрация: 14.12.2013
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

это всё что я пока сделал, помогите дополнить)
program ABC;
var array[1..6,1..8] of integer;
a,d,i,n,s:integer;
begin
Chelios_rus вне форума   Ответить с цитированием
Старый 28.12.2013, 13:08   #7 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Chelios_rus Посмотреть сообщение
это всё что я пока сделал, помогите дополнить)
program ABC;
var array[1..6,1..8] of integer;
a,d,i,n,s:integer;
begin
М-да... достижение... Ну ладно, что уж с Вами поделаешь, раз обещал:
Код:
program ABC;
var
 A:array[1..6,1..8] of integer;
 i,j,Imin,Jmin,Min:integer;
begin
 Randomize;
 Min:=1000;
 for i:=1 to 6 do
  begin
   for j:=1 to 8 do
    begin
     A[i,j]:=Random(20);
     write(A[i,j]:4);
     if A[i,j]<Min then
      begin
       Min:=A[i,j];
       Imin:=i;
       Jmin:=j;
      end;
    end;
   writeln;
  end;
 writeln;
 writeln('Imin= ',Imin,'   Jmin= ',Jmin, '   A[',Imin,',',Jmin,']= ',A[Imin,Jmin]);
 readln
End.
Vladimir_S вне форума   Ответить с цитированием
Старый 28.12.2013, 13:48   #8 (permalink)
Chelios_rus
Member
 
Регистрация: 14.12.2013
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо, а можно что бы в ручную работала?
Chelios_rus вне форума   Ответить с цитированием
Старый 28.12.2013, 14:00   #9 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Chelios_rus Посмотреть сообщение
спасибо, а можно что бы в ручную работала?
Можно:
Код:
program ABC;
var
 A:array[1..6,1..8] of integer;
 i,j,Imin,Jmin,Min:integer;
begin
 Min:=1000;
 for i:=1 to 6 do
  begin
   for j:=1 to 8 do
    begin
     write('A[',i,',',j,']= ');
     readln(A[i,j]);
     if A[i,j]<Min then
      begin
       Min:=A[i,j];
       Imin:=i;
       Jmin:=j;
      end;
    end;
  end;
 writeln;
 for i:=1 to 6 do
  begin
   for j:=1 to 8 do
    write(A[i,j]:4);
   writeln;
  end;
 writeln;
 writeln('Imin= ',Imin,'   Jmin= ',Jmin, '   A[',Imin,',',Jmin,']= ',A[Imin,Jmin]);
 readln
End.
Vladimir_S вне форума   Ответить с цитированием
Старый 28.12.2013, 19:02   #10 (permalink)
Chelios_rus
Member
 
Регистрация: 14.12.2013
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо большое, сильно выручаете
Chelios_rus вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:30.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.