Помощь - Поиск - Пользователи - Календарь
Полная версия: Процедуры
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Desktop II
Дана задача:
Найти 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); пишет "Тип неверный", что надо исправить.
Ozzя
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.
Desktop II
Спасибо. Теперь понятно где были ошибки.
Гость
такая прблема:пишу пару функций и потом прцедуру,в которой при каждом вызове входным параметром является одна из вышенаписанных функций-выдает ошибку в процедуре в месте исп-ния функции wink.gif blink.gif

дублирование, зачем надо было еще и тему -то такую создавать ? Удалил
мисс_граффити
кинь код...
или хотя бы напиши, какую ошибку выдает.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.