Помогите пожалуйста с задачей.....
Решить:
1) С использованием подпрограммы-функции
2)С использованием подпрограммы-процедуры
Исходные данные вводятся с клавиатуры и с использованием генератора случайных чисел.Выбор способа получения исходных данных осуществляется с использованием меню после запуска программы на выполнение.
Задача(Вычисление произведения элементов массива) :
Заданы массивы а={A1 , ... , An} , b={B1 , ... , Bm} и числа n и m.
Определить
n
П Ai , при А1>B1;
i=1
m
П Bi ,при A1<B1;
i=1
k
П (Ai+Bi) , при A1=B1 и k=min{n,m}.
i=1
(это все что написано выше система, т.е. C={и три строчки,которые вы видите выше)................
Помогите, пожалуйста. Заранее спасибо!!!!!
Полная версия: Задача(Вычисление произведения элементов массива)
p := 1;
if a[1]>b[1] then
for i := 1 to n do p := p*a[i]
else if a[1]<b[1] then
for i := 1 to m do p := p*b[i]
else begin
k := n;
if m<k then k :=m;
for i := 1 to k do p := p*(a[i]+b[i]);
end;
с помощью процедуры думаю сможешь сдеалть сам.
Цитата
сможешь сдеалть сам.
klem4, ОНА девушка! :rose:
я сделала эту задачу методом функции...........наконец-то как говорится........но методом процедуры у меня не получается..........у меня вообще туго с процедурой.......ПОМОГИТЕ пожалуйста, у меня в понедельник зачет........... 
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1) Меняешь function на procedure
2) Добавляешь в параметры передаваемые процедуре var переменную в которую будешь записывать результатб который возвращала бы функция
пример
2) Добавляешь в параметры передаваемые процедуре var переменную в которую будешь записывать результатб который возвращала бы функция
пример
function Max(a,b : integer) : integer;
begin
Max := a;
if b > Max then Max := b;
end;
// то же самое процедурой
procedure Max(a,b : integer; var M : integter);
begin
M := a;
if b > M then M := b;
end;
..............спасибо........ 
.............я постараюсь сделать..........
.............я постараюсь сделать..........
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!
Я постаралась и попробовала сделать эту задачу методом процедур, но комп выдает какие-то ошибки, исправьте, пожалуйста.........Мне очень нужно, эта задача последняя, а последний раз сдачи зачета в четверг....................
ПОЖАЛУЙСТА.........
решение ниже..........
uses
Sysutils;
const
n=7;
m=5;
type
a = array[1..n] of integer;
b = array[1..m] of integer;
procedure Input(var m1 : a; m2 : b);
var
i : byte;
begin
for i := 1 to n do begin
write('m[',i,']=');
readln(m1[i]);
end;
writeln;
begin
for i := 1 to m do begin
write('m[',i,']=');
readln(m2[i]);
end;
writeln;
end; end;
procedure InputRnd(var m1 : a; m2 : b);
const rnd = 100;
var
i: byte;
begin
randomize;
for i := 1 to n do
m1[i] := random(rnd);
randomize;
for i:=1 to m do
m2[i] := random(rnd);
writeln('Ishodniy massiv');
end;
procedure Print(m1 : a; m2 : b);
var
i : byte;
begin
for i := 1 to n do begin
writeln;
write(m1[i]:3,' ');
end;
writeln;
readln;
for i := 1 to m do begin
writeln;
write(m2[i]:3,' ');
end;
writeln;
readln;
end;
procedure Reform(var m1 : a; m2 : b);
var
i,j : byte;
p,k:integer;
begin
p:=1;
if m1[1]>m2[1] then
for i:=1 to n do p:=p*m1[i]
else if m1[1]<m2[1] then
for j:=1 to m do p:=p*m2[i]
else begin
k:=n;
if m<k then k:=m;
for i:=1 to k do p:=p*(m1[i]+m2[i]);
end;
writeln('Sdelano. Podtverdit i vivesti...');
readln;
end;
var
m1 : a;
m2 : b;
p:integer;
z : byte;
begin
repeat
writeln('1 - Input ');
writeln('2 - Input RND');
writeln('3 - Print');
writeln('4 - Reform');
writeln('5 - Quit');
readln(z);
case z of
1 : Input(m1, m2);
2 : InputRnd(m1, m2);
3 : Print(m1, m2);
4 : Reform(p);
end;
until z=5;
end.
Я постаралась и попробовала сделать эту задачу методом процедур, но комп выдает какие-то ошибки, исправьте, пожалуйста.........Мне очень нужно, эта задача последняя, а последний раз сдачи зачета в четверг....................
ПОЖАЛУЙСТА.........
решение ниже..........
Код
uses
Sysutils;
const
n=7;
m=5;
type
a = array[1..n] of integer;
b = array[1..m] of integer;
procedure Input(var m1 : a; m2 : b);
var
i : byte;
begin
for i := 1 to n do begin
write('m[',i,']=');
readln(m1[i]);
end;
writeln;
begin
for i := 1 to m do begin
write('m[',i,']=');
readln(m2[i]);
end;
writeln;
end; end;
procedure InputRnd(var m1 : a; m2 : b);
const rnd = 100;
var
i: byte;
begin
randomize;
for i := 1 to n do
m1[i] := random(rnd);
randomize;
for i:=1 to m do
m2[i] := random(rnd);
writeln('Ishodniy massiv');
end;
procedure Print(m1 : a; m2 : b);
var
i : byte;
begin
for i := 1 to n do begin
writeln;
write(m1[i]:3,' ');
end;
writeln;
readln;
for i := 1 to m do begin
writeln;
write(m2[i]:3,' ');
end;
writeln;
readln;
end;
procedure Reform(var m1 : a; m2 : b);
var
i,j : byte;
p,k:integer;
begin
p:=1;
if m1[1]>m2[1] then
for i:=1 to n do p:=p*m1[i]
else if m1[1]<m2[1] then
for j:=1 to m do p:=p*m2[i]
else begin
k:=n;
if m<k then k:=m;
for i:=1 to k do p:=p*(m1[i]+m2[i]);
end;
writeln('Sdelano. Podtverdit i vivesti...');
readln;
end;
var
m1 : a;
m2 : b;
p:integer;
z : byte;
begin
repeat
writeln('1 - Input ');
writeln('2 - Input RND');
writeln('3 - Print');
writeln('4 - Reform');
writeln('5 - Quit');
readln(z);
case z of
1 : Input(m1, m2);
2 : InputRnd(m1, m2);
3 : Print(m1, m2);
4 : Reform(p);
end;
until z=5;
end.
Переписываешь Reform так:
и вызываешь так:
В остальном проблем быть не должно, компиляцию программа проходит...
procedure Reform(m1 : a; m2 : b; var p: integer);
var
i,j : byte;
k:integer;
begin
p:=1;
if m1[1]>m2[1] then
for i:=1 to n do p:=p*m1[i]
else if m1[1]<m2[1] then
for j:=1 to m do p:=p*m2[i]
else begin
k:=n;
if m<k then k:=m;
for i:=1 to k do p:=p*(m1[i]+m2[i]);
end;
writeln('Sdelano. Podtverdit i vivesti...');
readln;
end;
и вызываешь так:
case z of
1 : Input(m1, m2);
2 : InputRnd(m1, m2);
3 : Print(m1, m2);
4 : Reform(m1, m2, p); { <--- Вот так !!! }
end;
В остальном проблем быть не должно, компиляцию программа проходит...
Да, она запускается..........и все бы ничего, но почему-то второй массив m2 выводится всегда состоящий только из нулей, а после Reform при нажатии Print должно выводится значение произведения 'p' но оно не выводится, вместо него только массив m1 и весь из нулей m2.......
Помогите, в чем ошибка?
Помогите, в чем ошибка?
Цитата
а после Reform при нажатии Print должно выводится значение произведения 'p' но оно не выводится
Ха... Молодец. То есть ДО Reform процедура Print должна выводить одно, а ПОСЛЕ - другое? Ну, так ты ж должна была это объяснить... Покажи мне, ГДЕ ты это объясняла выше? Телепатов ждешь? Ну, жди... Вопросы задавать не научишься - будешь все время получать "некорректные" с твоей точки зрения ответы...
P.S. Чтобы матрица M2 не была нулевой:
procedure Input(var m1 : a; VAR m2 : b);
...
procedure InputRnd(var m1 : a; VAR m2 : b);
Цитата
Ха... Молодец. То есть ДО Reform процедура Print должна выводить одно, а ПОСЛЕ - другое? Ну, так ты ж должна была это объяснить... Покажи мне, ГДЕ ты это объясняла выше? Телепатов ждешь? Ну, жди...
ну я поняла........извини.....Я подумала, что было очевидно: нужно найти 'p' и мы делаем это в Reform, значит после Reform Print должен выводить именно 'p'.........
Так что я должна исправить, чтобы было именно так, а не иначе?.........можешь подсказать?
..............хм-хм....................полный игнор...................будто я спрашиваю какие-то космические вещи.............................
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.