Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.69/13: Рейтинг темы: голосов - 13, средняя оценка - 4.69
(Necros)
1

Вычислить среднее геометрическое значение элементов массива

23.04.2010, 08:41. Просмотров 2382. Ответов 2
Метки нет (Все метки)


1. Вычислить все значения функции

ctg(x) x>2
v= ln(x) 1<x<=2
cos(x-1) x<=1
если х принадлежит интервалу (0; 3.14) и изменяется с шагом 0.25

2. Вычислить среднее геометрическое значение элементов массива Y(20)

3. Найти сумму и количество ненулевых элементов, находящихся на главной диагонали матрицы F(m, m)

4. Определить факториалы двух чисел a и b. Факториал вычислять через функцию
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.04.2010, 08:41
Ответы с готовыми решениями:

Вычислить среднее геометрическое положительных элементов массива
Для положительных элементов массива Z вычислить их среднее геометрическое. Написать...

Вычислить среднее геометрическое положительных элементов массива
Ввести одномерный массив А , вывести его. Вычислить Srg – среднее геометрическое положительных...

Вычислить Srg – среднее геометрическое положительных элементов массива
Такая задачка: Ввести одномерный массив A , вывести его. Вычислить Srg – среднее геометрическое...

Для положительных элементов массива Z вычислить их среднее геометрическое.
Для положительных элементов массива Z вычислить их среднее геометрическое.

2
34 / 33 / 12
Регистрация: 09.01.2010
Сообщений: 202
23.04.2010, 09:40 2
Лучший ответ Сообщение было отмечено как решение

Решение

Первая

Pascal
1
2
3
4
5
6
7
8
9
10
11
var x,y:real;
Begin
x:=0;
While x<=3.14 do
begin
if x<=1 then y:=cos(x-10);
if (x>1) and (x<=2) then y=ln(x);
if x>2 then y:=cos(x)/sin(x);
writeln('x=',x:0:3,' y=',y:0:3);
end;
end.
Вторая
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
Var y:array[1..20] of real;
i:integer;
p,srgeom:real;
Begin
p:=1;
for i:=1 to 20 do 
begin
readln(y[i]);
p:=p*y[i];
end;
srgeom:=exp((1/20)*ln(p));
writeln('Srednee geometr',srgeom:0:3);
end.
 
const m=4;
var f:array[1..m,1..m] of real;
i,j,k:integer;
s:real;
begin
for i:=1 to m do
for j:=1 to m do
readln(f[i,j]);
k:=0;
s:=0;
for i:=1 to m do
for j:=1 to m do
if (i=j) and (f[i,j]<>0) tyen begin k:=k+1; s:=s+f[i,j];end;
Writeln('k=',k,' s=',s:0:3);
end.
Ну а четвертую поищи в роиске по форуму, думаю найдешь. Желаю удачи
1
(Necros)
24.04.2010, 11:22 3
Спасибо выручил!

Добавлено через 20 часов 49 минут
народ выручайте нужны блок схемы к 1 и 2 заданию! подсобите кто сможет!
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2010, 11:22

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

Вычислить среднее геометрическое номеров максимального и минимального элементов массива С(12)
Помогите написать программу для Вычисления среднего геометрического номеров максимального и...

Вычислить среднее геометрическое четных и сумму нечетных элементов массива
Вычислить среднее геометрическое четных и сумму нечетных эле- ментов массива С(10)

Вычислить среднее геометрическое четных и сумму нечетных элементов массива
Вычислить среднее геометрическое четных и сумму нечетных элементов массива С(10).

Вычислить среднее значение элементов массива. Вывести на дисплей полученное значение
Вычислить среднее значение элементов массива. Вывести на дисплей полученное значение. После этого...


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

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

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