Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 8, средняя оценка - 4.75
Дмитрий=)
0 / 0 / 2
Регистрация: 24.01.2012
Сообщений: 36
#1

Найти среднее геометрическое положительных элементов каждой строки матрицы - Turbo Pascal

28.02.2012, 23:47. Просмотров 1104. Ответов 1
Метки нет (Все метки)

ДИНАМИЧЕСКИЕ МАССИВЫ
Найти среднее геометрическое положительных элементов каждой строки матрицы. Размер матрицы вводится с клавиатуры. Элементы матрицы размещаются в памяти динамически.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program pr_6;
Uses Crt;
Var A:array[1..100,1..100] of integer;
n,m,i,j,min:integer;
begin
ClrScr;
Write('Сколько столбцов ');
Readln(n);
 Write('Сколько строк ');
Readln(m);
For i:=1 to n do
For j:=1 to m do
A[i,j]:=random(100);
For i:=1 to n do
For j:=1 to m do
begin
For j:=1 to n do
For j:=1 to m do
Write(A[i,j],'   '    );
Writeln;
end;
End.
Pascal
1
2
3
4
5
6
7
function poisk(var a:mas; min:integer): integer;  {это же скрипт для поиска положительных 
 var i:integer;                                                              чисел?? я правельно написал?}
        begin
        k:=0;
        for i:=1 to n do  begin
          if a[i]>0 then inc(k);
          end;
Ребят, как ето склеить? и чтоб прога имела динамические массивы?
Помогите с кодом, плиз...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2012, 23:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти среднее геометрическое положительных элементов каждой строки матрицы (Turbo Pascal):

Найти среднее арифметическое и среднее геометрическое положительных элементов матрицы
Найти среднее арифметическое и среднее геометрическое положительных элементов...

Определить среднее геометрическое положительных элементов 2ой строки матрицы
Определить среднее геометрическое положительных элементов 2ой строки матрицы. ...

Найти среднее геометрическое положительных элементов в последней строке матрицы
Ребят, помогите пожалуйста решить пару задач. Напишите хотя бы основную...

Найти среднее геометрическое положительных элементов матрицы целых чисел размерностью m x n.
Найти среднее геометрическое положительных элементов матрицы целых чисел...

Матрица. Найти среднее арифметическое всех положительных элементов каждой строки
Задача 1. Сформировать матрицу А(10,15). Данные ввести с клавиатуры. 2. Найти...

Объяснить работу программы (Среднее геометрическое каждой строки матрицы)
A(k,n) Найти среднее геометрическое каждой строки p^1/n p-произведение...

1
Puporev
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
29.02.2012, 10:33 #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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
uses crt;
{$R-}{отключим проверку диапазона}
const nmax=20;
type
  Tmas=^TTmas;{одна строка матрицы}
  TTmas=array[1..1] of real;
  Tmatr=^TTmatr;{матрица-массив указателей на строки}
  TTmatr=array[1..1] of Tmas;
function Geom(a:Tmas;n:byte):real;
var i,k:byte;
    s:real;
begin
s:=1;
k:=0;
for i:=1 to n do
if a^[i]>0 then
 begin
  k:=k+1;
  s:=s*a^[i];
 end;
if k=0 then Geom:=0
else Geom:=exp(ln(s)/k);
end;
 
var
  a:Tmatr;
  m,n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
getmem(a,sizeof(TTmas)*m);{выделяем память под указатели на строки}
for i:=1 to m do
getmem(a^[i],sizeof(real)*n);{для каждой строки память для хранения данных}
writeln ('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a^[i]^[j]:=-4+10*random;
    write(a^[i]^[j]:6:2);
   end;
  writeln;
 end;
writeln;
writeln('Среднее геометрическое положительных по строкам:');
for i:=1 to m do
writeln('Ст. ',i,' = ',Geom(a^[i],n):0:2);
for i:=1 to m do
freemem(a^[i],sizeof(real)*n); {освобождаем память в обратном порядке, сначала удалим строки}
freemem(a,sizeof(TTmas)*m); {потом указатели на них}
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.02.2012, 10:33
Привет! Вот еще темы с решениями:

Найти среднее геометрическое положительных элементов
Найти среднее геометрическое положительных элементов в каждой строке матрицы

Найти среднее арифмитическое элементов каждой строки матрицы
Найти среднее арифмитическое элементов каждой строки матрицы X(4,4). Результат...

Найти среднее геометрическое положительных элементов массива
елементы массива определяются по формуле ai+1=(37*18+3) mod 64 (ai...

Найти и напечатать среднее арифметическое элементов каждой строки матрицы
Условие:начиная с 1-ой строки находить и печатать среднее арифметическое...


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

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

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