Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Как сделать лабораторную работу
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
-Gluider-
Guest
 
Сообщений: n/a
По умолчанию Как сделать лабораторную работу - 17.12.2006, 00:18

Пришло время сдавать зачёт)) С утра сделал 9 лабораторок, а с 10 проблемы:

"Создать масив целых чисел размером 4х5, найти минимальный элемент и позицию этого елемента в масиве."

В место этого у меня выводится то предпоследний элемент то последний) вобщем запарился.

вот мой код , только не смеяться если натупил сильно

Код:
procedure TForm1.BitBtn1Click(Sender: TObject); 
var 
i:integer; 
j:integer; 
m:array [1..4,1..5] of integer; 
min:integer; 
begin 
for i:=1 to 4 do 
begin 
for j:=1 to 5 do 
begin 
m[i,j]:=strtoint(stringgrid1.Cells[j-1,i-1]); 
min:=m[i,j]; 
if m[i,j]<m[1,1] then min:=m[i,j]; 
edit1.Text:=floattostr(min); 
end; 
end; 
end;

и ещё подскажите как реализовать вывод координат минимального элемента в стринг гриде. Заранее спасибо!
Ответить с цитированием
  (#2 (permalink)) Старый
IL_Agent IL_Agent вне форума
Member
 
Аватар для IL_Agent
 
Сообщений: 2,015
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.07.2005
По умолчанию 17.12.2006, 02:10

Что, нормально нельзя код оформить ?
Код:
procedure TForm1.BitBtn1Click(Sender: TObject); 

var 
i:integer; 
j:integer; 
m: integer; 
im,jm:integer; //координаты минимума
min:integer; 

begin 
 min:=9999999;
 for i:=1 to 4 do 
 begin 
  for j:=1 to 5 do 
  begin  
   m:=strtoint(stringgrid1.Cells[j-1,i-1]); 
   if m<min then 
   begin
    min:=m; 
    im:=i;  //запоминаем координаты
    jm:=j;
   end; // if
  end;  //for j
 end; // for i
 edit1.Text:=inttostr(min); 
 edit2.Text:=inttostr(im);
 edit3.Text:=inttostr(jm); 
end; //begin 

//должно работать
Ответить с цитированием
  (#3 (permalink)) Старый
KachoK KachoK вне форума
Member
 
Сообщений: 244
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 20.07.2004
По умолчанию 18.12.2006, 06:14

Поправка к коду от IL_Agent:
Вместо min := 9999999 лучше присвоить min самый первый элемент массива:
Код:
min := strtoint(stringgrid1.Cells[1,1]);
im := 1;
jm := 1;
Ответить с цитированием
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Turbo Prolog 2.0. Fronttoken, Помогите дописать лабораторную работу lyle200490 Prolog 3 17.10.2011 21:23
Как сделать курсоваю работу kresik Pascal 2 17.06.2011 13:15
Требуется сделать лабораторную работу Катенька_ Visual Basic 0 20.05.2011 14:48
ищу работу вадим2 Работа 0 07.02.2011 15:50
Как сделать скурытую работу функции таймера Anti C++ Builder 10 25.02.2006 08:01
Требуется сделать дипломную работу по Delphi SuMiSc Delphi 0 20.01.2005 20:18
Требуется сделать лабораторную по Prolog Liza Prolog 3 18.10.2004 12:39
Помогите выполнить лабораторную на Borland C 4.5 Anonymous Вопросы начинающих программистов 0 11.12.2003 12:44
Надо сделать программу на паскали эмулирующую работу с потоками Anonymous Pascal 0 03.12.2003 21:17
Как сделать связанную работу с письмами в Outlook Express Anonymous Вопросы начинающих программистов 0 23.07.2003 10:42
Как решить лабораторную работу Anonymous Prolog 2 10.06.2003 12:28



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов