|
Вопрос # 5 437/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
У меня вечная проблема с продцедурами и функциями, прибегаю к вашей помощи,как переделать программный кода под функцию?
Приложение: Переключить в обычный режим- Program xxd2;
- type
- mas=array[1..100,1..100] of integer;
- var
- b:mas;
- i,j,n,m:byte;
- min:integer;
- imin,jmin:byte;
- begin
-
- readln(n,m);
- for i:=1 to n do
- for j:=1 to m do
- read(b[i,j]);
-
- min:=b[1,1];
- imin:=1;
- for i:=1 to n do
- for j:=1 to m do
- if b[i,j]<min then
- begin
- min:=b[i,j];
- imin:=i;
- end;
-
- for i:=1 to n do
- begin
- for j:=1 to m do
- write(b[i,j]:3);
- writeln;
- end;
-
- writeln(min);
- readln;
- readln;
- end.
-
 |
Вопрос задал: sis_am (статус: Посетитель)
Вопрос отправлен: 22 июня 2011, 18:11
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Gooddy
Здравствуйте, sis_am!
Каков вопрос, таков ответ.
Все условия я выполнил.
Приложение: Переключить в обычный режим- Program xxd2;
- type
- mas=array[1..100,1..100] of integer;
- var
- b:mas;
- i,j,n,m:byte;
- min:integer;
- imin,jmin:byte;
-
- procedure p1();
- begin
-
- readln(n,m);
- for i:=1 to n do
- for j:=1 to m do
- read(b[i,j]);
- end;
-
- procedure p2();
- begin
- min:=b[1,1];
- imin:=1;
- for i:=1 to n do
- for j:=1 to m do
- if b[i,j]<min then
- begin
- min:=b[i,j];
- imin:=i;
- end;
- end;
-
- procedure p3();
- begin
- for i:=1 to n do
- begin
- for j:=1 to m do
- write(b[i,j]:3);
- writeln;
- end;
- end;
-
- procedure p4();
- begin
- writeln(min);
- readln;
- readln;
- end;
-
- begin
-
-
- end.
 |
Ответ отправил: Gooddy (статус: 3-ий класс)
Время отправки: 2 августа 2011, 00:23
|
Мини-форум вопроса
Всего сообщений: 7; последнее сообщение — 1 августа 2011, 18:24; участников в обсуждении: 6.
|
min@y™ (статус: Доктор наук), 22 июня 2011, 18:49 [#1]:
Зачем постоянно что-то переделывать? Неужели трудно написать короткую программу с нуля?
Цитата (sis_am):
У меня вечная проблема с продцедурами и функциями
Ну почему не взять книжку и почитать раздел "процедуры и функции"?
Цитата (sis_am):
как переделать программный кода под функцию?
Что должна возвращать функция?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
sis_am (статус: Посетитель), 22 июня 2011, 18:53 [#2]:
вообщем всё понятно с вами
|
|
|
min@y™ (статус: Доктор наук), 22 июня 2011, 19:09 [#3]:
Цитата (sis_am):
вообщем всё понятно с вами
Что это значит?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Gooddy (статус: 3-ий класс), 22 июня 2011, 19:18 [#4]:
min@y™: можно было бы и выделить процедуру, если бы код нормальный был. А тут фарш.
Чисти код! Чисти код! Чисти код!
|
|
Мережников Андрей (статус: Абитуриент), 22 июня 2011, 20:49 [#5]:
Цитата (sis_am):
вообщем всё понятно с вами
вот так бы схватывал все "на лету" в программировании - не рождалось бы вопросов из серии "догадайтесь, что мне надо"
|
|
QWERYTY (статус: Посетитель), 24 июня 2011, 22:12 [#6]:
Не, серьёзно паренёк, правильно тебе говорят.
Ты просишь функцию, но даже не посчитал нужным упомянуть что она возвратит. Типа сами догадайтесь может True или False, может параметр типа интежер, может структуру тебе какую надо на выходе.
Может ты хотел ПРОЦЕДУРУ?
ВЕРИТЬ ВО ВНЕЗЕМНЫЕ ЦИВИЛИЗАЦИИ НЕ ОЗНАЧАЕТ ВЕРИТЬ В ИНОПЛАНЕТЯН.
|
|
mirt.steelwater (статус: Посетитель), 1 августа 2011, 18:24 [#7]:
Включил телепатор - кажется человеку нужно выделить в отдельные функции
function min (anArray: matrix) : integer;
function input (n,m: integer) : matrix;
procedure output (anArray: matrix);
при этом лучше объявить тип матрицы как:
type
mas = array of integer;
matrix = array of mas;
а затем использовать процедуру SetLength
Ⓐ свобода сопротивление солидарность
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
