IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Процедуры, Найти Z.
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


Дана задача:
Найти z=(xmax-ymin)/2, где xmax - максимальное число массива A[1..5];
ymin - минимальный елемент масива B[1..5];

Что то не выходить.
program pr12_1;
const n=5;
type
mas=array[1..n] of integer;
var
mas_a,mas_b:mas;
z,y:integer;
procedure masv(const m1,m2:mas; var k1,k2:integer);
var
i,xmax:integer;
ymin:integer;
Begin
xmax:=m1[i];
for i:=1 to n do
if m1[i]>xmax then
xmax:=m1[i];
ymin:=m2[i];
for i:=1 to n do
if m2[i]>ymin then
ymin:=m2[i];
end;
begin
writeln('Vvedite elem masiva Mas_A');
for y:=1 to n do
begin
write('Vvesti element N',y);
readln(mas_a[y]);
end;
writeln('Vvedite elem masiva Mas_B');
for y:=1 to n do
begin
write('Vvesti element N',y);
readln(mas_b[y]);
end;
masv(mas_a,y);
masv(mas_b,y);
z:=(xmax-ymin)/2;
writeln('Z = 'z);
readln;
end.


Укажите где я допустил ошибку. В строке masv(mas_a,y); пишет "Тип неверный", что надо исправить.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


program pr12_1;
const
n=5;
type
mas=array[1..n] of integer;
var
mas_a,mas_b:mas;
y:integer;
z: real;
ymin,xmax:integer;

procedure masv(m1,m2 : mas; var xmax, ymin :integer);
var
i:integer;
Begin
xmax:=m1[1];
ymin:=m2[1];
for i:=2 to n do
if m1[i]>xmax then
xmax:=m1[i];
if m2[i]<ymin then
ymin:=m2[i];
end;

begin
writeln('Vvedite elem masiva Mas_A');
for y:=1 to n do
begin
write('Vvesti element N',y);
readln(mas_a[y]);
end;
writeln('Vvedite elem masiva Mas_B');
for y:=1 to n do
begin
write('Vvesti element N',y);
readln(mas_b[y]);
end;
masv(mas_a,mas_b,xmax,ymin);
z:=(xmax-ymin)/2;
writeln('Z = ',z);
readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


Спасибо. Теперь понятно где были ошибки.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






такая прблема:пишу пару функций и потом прцедуру,в которой при каждом вызове входным параметром является одна из вышенаписанных функций-выдает ошибку в процедуре в месте исп-ния функции wink.gif blink.gif

дублирование, зачем надо было еще и тему -то такую создавать ? Удалил

Сообщение отредактировано: klem4 -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


кинь код...
или хотя бы напиши, какую ошибку выдает.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 18.12.2017 17:48
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"