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

Найти среднее значение массивов А[1..5], B[1..5] и сравнить их между собой. Вывести на экран большие из них

29.01.2009, 09:12. Показов 1302. Ответов 5
Метки нет (Все метки)

при составлении программы использовать подпрограммы
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2009, 09:12
Ответы с готовыми решениями:

Найти среднее значение массивов и сравнить их между собой. Вывести на экран большее из них
Найти среднее значение массивов А, B и сравнить их между собой. Вывести на экран большие из них ...

Найти среднее значение массивов А[1..5], B[1..5] и сравнить их между собой. Вывести на экран большие из них
В программе использивать подпрограмму-функцию)

Найти среднее арифметическое значение четных элементов и среднее арифметическое нечетных элементов и сравнить их между собой
Найти среднее арифметическое значение четных элементов и среднее арифметическое нечетных элементов...

Определить среднее арифметическое значение среди положительных и отрицательных чисел массива и сравнить их модули между собой
Здравствуйте.Задача была такая: введите с клавиатуры массив z(s),элементами которого являются...

5
Супер-модератор
8775 / 2526 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
29.01.2009, 10:43 2
и в чем заключаются ваши трудности - в получении среднего арифметического, в сравнении двух чисел, может в выводе на экран?
0
1 / 1 / 0
Регистрация: 18.01.2009
Сообщений: 87
29.01.2009, 21:15  [ТС] 3
в использивании подпрограммы)
0
Супер-модератор
8775 / 2526 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
29.01.2009, 22:26 4
а ты не пробывал почитать хелп по паскадю или учебник? ведь это основа языка, а ты этого не знаешь... есть код хотя бы без подпрограмм?
0
35 / 35 / 6
Регистрация: 01.01.2009
Сообщений: 141
29.01.2009, 23:00 5
Держи, Shargrath:

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
36
37
38
39
40
41
42
43
44
45
program alexq;
uses crt;
type
 mas=array [1..5] of real;
var
 a1,a2: mas;
 i: integer;
 mas1,mas2: real;
 
function array1(ar1:mas):real;
 var
  i: integer;
  sr: real;
 begin
  sr:=0;
  for i:=1 to 5 do
   sr:=sr+ar1[i];
  array1:=sr/5;
 end;
 
function array2(ar2:mas):real;
 var
  i: integer;
  sr: real;
 begin
  sr:=0;
  for i:=1 to 5 do
   sr:=sr+ar2[i];
  array2:=sr/5;
 end;
 
begin
 clrscr;
  write('Vvedite 1 massiv: ');
  for i:=1 to 5 do
   read(a1[i]);
  write('Vvedite 1 massiv: ');
  for i:=1 to 5 do
   read(a2[i]);
 mas1:=array1(a1);
 mas2:=array2(a2);
 if mas1<mas2 then writeln('SR2=',mas2:6:2)
 else write('SR1=',mas1:6:2);
 readkey;
end.
Использовал функции, т.к. ты не сказал, какую именно подпрограмму нужно использовать.
0
1 / 1 / 0
Регистрация: 18.01.2009
Сообщений: 87
30.01.2009, 19:11  [ТС] 6
Цитата Сообщение от WooDooMan Посмотреть сообщение
а ты не пробывал почитать хелп по паскадю или учебник? ведь это основа языка, а ты этого не знаешь... есть код хотя бы без подпрограмм?
ггг)))
если б без подпрограммы задача была, я её и сам бы решил)))

вся "изюминка" это использывать подпрограмму)

Добавлено через 41 секунду
AlexQ,
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.01.2009, 19:11
Помогаю со студенческими работами здесь

Дан текст состоящий из символов разделенных между собой пробелами. Удалить из них цифры вывести на экран
Дан текст состоящий из символов разделенных между собой пробелами. Удалить из них цифры вывести на...

Сравнить содержимое файлов между собой, и если оно совпадает, то вывести на экран имена этих файлов
Прошу помощи у знающих людей. Существует 2 массива, содержащих названия файлов.Требуется сравнить...

подсчитать среднее арифметическое элементов и сравнить между собой.
Введите с клавиатуры одномерный массив S(B), элементами которого являются по- ложительные и...

Найти и сравнить самые большие и наименьшие значения линейных массивов А и С
Найти и сравнить самые большие и наименьшие значения линейных массивов А и С, содержащие по 10...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru