Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 05.04.2009
Сообщений: 16
1

Задача про одномерные массивы с использованием процедур

07.04.2009, 14:39. Показов 1124. Ответов 2
Метки нет (Все метки)

1)Заданы три одномреных массива A,B,C. Количество элементов не привышает 45.
Для каждого вычеслить:
- Среднее арифметическое всех элементов
- Количество положительных элементов
Решить задачу с использованием процедур.

В заранее благодарю.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.04.2009, 14:39
Ответы с готовыми решениями:

Задача на одномерные массивы с использованием процедур
Помогите пожалуйста с решением задачи: Заданы 2 любых одномерных массива V и F. Для каждого...

Одномерные массивы: задача про результаты футбольных матчей
В одномерном массиве A хранятся результаты игр футбольной команды (выигрыш, ничья, проигрыш), в...

про одномерные массивы...
Доброго времени суток. "Заданы три неубывающих одномерных массива целых чисел X, Y, Z. Выяснить, ...

про одномерные массивы...
Задание: Заданы три неубывающих одномерных массива целых чисел X, Y, Z. Выяснить, есть ли среди...

2
Отдыхающий:)
94 / 91 / 22
Регистрация: 05.04.2009
Сообщений: 188
08.04.2009, 20:40 2
Лучший ответ Сообщение было отмечено Alt+F4 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
type
mas=array[1..45]of real;
var a,b,c:mas;z:real;i,j,d:byte;
procedure vvod(var a:mas);
begin d:=0;read(d);for i:=1 to d do begin read(a[i]);end;end;
procedure srar(a:mas;b:byte; var z:real);
begin z:=0; for i:=1 to b do begin z:=z+a[i];end;z:=z/b;end;
procedure polk(a:mas;b:byte; var c:byte);
begin j:=0; for i:=1 to b do begin if a[i]>0 then inc(c);end;end;
begin
vvod(a);srar(a,d,z);writeln('srar of a=',z:0:2);polk(a,d,j);writeln('polk of a=',j);
vvod(b);srar(b,d,z);writeln('srar of b=',z:0:2);polk(b,d,j);writeln('polk of b=',j);
vvod(c);srar(c,d,z);writeln('srar of c=',z:0:2);polk(c,d,j);writeln('polk of c=',j);
repeat until keypressed end.
0
Модератор
63709 / 47268 / 32576
Регистрация: 18.05.2008
Сообщений: 114,573
08.04.2009, 20:53 3
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
46
47
48
49
50
51
52
uses crt;
const nmax=45;
type mas=array[1..nmax] of real;
procedure Vvod(var x:byte;var m:mas;c:char);
var i:byte;
begin
writeln('Massiv ',c,':');
write('Vvedite razmer massiva:');
readln(x);
for i:=1 to x do
  begin
   m[i]:=10*random-4;
   write(m[i]:6:2);
  end;
writeln;
end;
procedure Sred(x:byte;m:mas;var sr:real);
var i:byte;
begin
sr:=0;
for i:=1 to x do
sr:=sr+m[i]/x;
end;
procedure Kol(x:byte;m:mas;var k:byte);
var i:byte;
begin
k:=0;
for i:=1 to x do
if m[i]>0 then k:=k+1;
end;
var a,b,c:mas;
    na,nb,nc,kp:byte;
    s:real;
begin
clrscr;
Vvod(na,a,'A');
Sred(na,a,s);
writeln('Srednee=',s:0:2);
Kol(na,a,kp);
writeln('Kolichestvo polozitelnyh=',kp);
Vvod(nb,b,'B');
Sred(nb,b,s);
writeln('Srednee=',s:0:2);
Kol(nb,b,kp);
writeln('Kolichestvo polozitelnyh=',kp);
Vvod(nc,c,'C');
Sred(nc,c,s);
writeln('Srednee=',s:0:2);
Kol(nc,c,kp);
writeln('Kolichestvo polozitelnyh=',kp);
readln
end.
Добавлено через 54 секунды
Уфф, не посмотрел...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2009, 20:53

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Программа про Одномерные массивы
Помогите решить пожалуйста: В массиве x(n) поменять местами минимальный и последний элементы

Написать программу про одномерные массивы
Дорогие друзья чувствую что мне без вас никуда, прошу помочь. Вот задание : Написать программу...

исправьте прогу про одномерные массивы.
//Задан массив из k чисел. Сдвинуть элементы массива циклически на n //позиций влево. ...

Задача с использованием процедур:
Решить задачу с использованием процедур: 1. Формирование целочисленной квадратной матрицы. 2....


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

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

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