0 / 0 / 0
Регистрация: 11.06.2010
Сообщений: 13
1

подпрограммы.обработка одномерного массива с использованием подпрограмм

11.06.2010, 16:55. Показов 1437. Ответов 2
Метки нет (Все метки)

Дан массив действительных чисел А1...,А16. получить min(A1*A9,A2*A10,....,A8*A16). Но работать не с одни массивом в с двумя В1 и В2. В основной программе предусмотреть вызовы подпрограмм к обоим массивам

Добавлено через 15 минут
помогите плиз)))
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2010, 16:55
Ответы с готовыми решениями:

Обработка одномерного массива с использованием процедур и функций
Помогите решить задачку пожалуйста(( Нужно решить её двумя способами: первый способ-с...

Обработка различных массивов с использованием подпрограмм
В каждой из матриц X,Y и Z найти суммы элементов, лежащих ниже главной диагонали. Вычислить...

Обработка различных массивов с использованием подпрограмм
Подсчитать число точек, находящихся внутри круга радиусом R = 2 и с центром в начале координат,...

Обработка массивов с использованием подпрограмм
Друзья, ниже текст задачи и мой вариант решения, но без вывода массива X(3); можно, конечно, просто...

2
Почетный модератор
64073 / 47484 / 32734
Регистрация: 18.05.2008
Сообщений: 115,185
11.06.2010, 16:55 2
Лучший ответ Сообщение было отмечено вера кв как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
const n=16;
type mas=array[1..n] of real;
procedure Vvod(var v:mas;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  v[i]:=10*random;
  write(v[i]:0:2,' ');
 end;
writeln;
end;
function Min(v:mas):real;
var i,p:byte;
    mn:real;
begin
p:=n div 2;
mn:=v[1]*v[p+1];
for i:=1 to p do
if v[i]*v[i+p]<mn then mn:=v[i]*v[i+p];
Min:=mn;
end;
var a,b:mas;
begin
clrscr;
randomize;
Vvod(a,'A');
writeln('Минимум произведений=',Min(a):0:2);
writeln;
Vvod(b,'B');
writeln('Минимум произведений=',Min(b):0:2);
readln
end.
0
0 / 0 / 0
Регистрация: 11.06.2010
Сообщений: 13
11.06.2010, 16:56  [ТС] 3
спасиб)0
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2010, 16:56

Переделать программу с использованием подпрограмм: генерирование, обработка и вывод массива
Нужно переделать программу создав подпрограммы: генерирование массива, обработка массива, вывод...

Подпрограммы. Вычисления с использованием подпрограмм
Помогите пожалуйста!)) Дважды вычислить значение выражения, первый раз используя процедуру, а...

Обработка одномерного массива с использованием указателей
Помогите пожалуйста. Надо написать программу по обработке одномерного массива с использованием ...

Обработка массивов с использованием подпрограмм
Прошу помощи! Ввести одномерные массивы X1n1, X2n2 и X3n3 и определить в каждом из них среднее...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.