Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача с применением подпрограмм2
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
z1ng
Рост студентов 3-х групп, состоящих из 15,12,18 человек, размещен в 3 массивах. Требуется определить средний рост студентов каждой группы, а также сколько студентов в 3-х группах имеет рост выше 180 см. Определение среднего роста и количества студентов одной группы с ростом выше 180 см осуществлять в подпрограмме.
Не получается: посчитать кол-во студентов во всех 3-х группах....
..................................
процендура ввода...
................................

function ROST (x:vect; n:int):real;
var k:int; SR:real; i:int;
begin S:=0; k:=0;
for i:=1 to n do begin
S:=S+x[i];
if x[i]>180 then k:=k+1;
end;
SR:=S/n;
ROST:=SR;
end;


Как сделать, чтобы в п/п после ввода каждого массива осуществлялся подсчет студентов, у которых рост выше 180 и чтобы после ввода всех массивов, посчитать эту сумму?

Блок-схема алгоритма основной программы
Ozzя
function ROST (x:vect; n:int; var rost_bolshe_180: Integer):real;
var
k:int; SR:real; i:int;
begin
S:=0; k:=0;
for i:=1 to n do
begin
S:=S+x[i];
if x[i]>180 then
k:=k+1;
end;
SR:=S/n;
rost_bolshe_180:=k;
ROST:=SR;
end;
z1ng
...вот спасибо, дорогой...до чего дошел....что переменную не смог ввести)
возможно мне еще будет нужна твоя помощь... smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.