Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Язык программирования - Паскаль. Двумерный массив (http://www.tehnari.ru/f41/t93417/)

Chelios_rus 28.12.2013 12:15
Язык программирования - Паскаль. Двумерный массив
 
Дан двумерный массив 6 на 8. Найти номер строки и номер столбца минимального элемента.

Vladimir_S 28.12.2013 12:20
Цитата:
Сообщение от Chelios_rus (Сообщение 985583)
Дан двумерный массив 6 на 8. Найти номер строки и номер столбца минимального элемента.
Сразу скажу: на меня не рассчитывайте. Ибо оказание "помощи" в решении подобных задач ясельно-дебильного уровня считаю делом абсолютно безнравственным. Вот так вот.

Chelios_rus 28.12.2013 12:25
ну спасибо хоть на этом

Vladimir_S 28.12.2013 12:28
Цитата:
Сообщение от Chelios_rus (Сообщение 985587)
ну спасибо хоть на этом
Да не за что, в общем-то. Единственное - если Вы выложите результаты своих попыток самостоятельного решения этой... (тьфу, прости, Господи) "задачи", то разговор будет другим. От оказания реальной помощи я не отказываюсь.

Chelios_rus 28.12.2013 12:38
мне просто нужно было чем скорее тем лучше

Chelios_rus 28.12.2013 12:49
это всё что я пока сделал, помогите дополнить)
program ABC;
var array[1..6,1..8] of integer;
a,d,i,n,s:integer;
begin

Vladimir_S 28.12.2013 13:08
Цитата:
Сообщение от Chelios_rus (Сообщение 985596)
это всё что я пока сделал, помогите дополнить)
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.

Chelios_rus 28.12.2013 13:48
спасибо, а можно что бы в ручную работала?

Vladimir_S 28.12.2013 14:00
Цитата:
Сообщение от Chelios_rus (Сообщение 985606)
спасибо, а можно что бы в ручную работала?
Можно:
Код:
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.

Chelios_rus 28.12.2013 19:02
спасибо большое, сильно выручаете


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

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.