Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Furyques
0 / 0 / 0
Регистрация: 07.12.2013
Сообщений: 2
1

Вычислить и вывести массив 100 значений функции

07.12.2013, 21:52. Просмотров 327. Ответов 2
Метки нет (Все метки)

Добрый День\Утро\Ночь уважаемые программисты.

Прошу вас о помощи

Задание:
Вычислить и вывести массив 100 значений функции у=2*е(sin(x))-0.75 при
х≥0 с шагом 0.1.Вычислить сумму всех его элементов с нечетными индекса
ми,среднее квадратичное со всеми четными , среднее гармоническое всех
элементов кратных 5 и среднее геометрическое элементов с индексами
кратными 10.

Текущий набросок программы выглядит так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program masiv;
uses
 crt;
var
x:array[1..100] of real;
i:integer;
y:real;
begin
 clrscr;
i:=1;
x[i]:=0;
 while x[i]<=10 do
  begin
    For i:=1 to 100 do
    begin
     y:=2*exp(sin(x[i]))-0.75;
 x[i]:=x[i]+0.1;
 writeln(x[i]:5:3,'   ',y:5:3);
    end;
  end;
end.
Что делать дальше не знаю. Заранее благодарю.

Добавлено через 4 часа 17 минут
Ап.Надеюсь на вашу помощь
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.12.2013, 21:52
Ответы с готовыми решениями:

Для функции вычислить и вывести массив ее значений на отрезке
Для функции y:=sqr(arctan(x))*exp(-sqr(x)/2) вычислить и вывести массив ее значений на отрезке...

Для функции cos(x) вычислить и вывести массив 40 значений
Помогите пожалуйста решить задачку: :-Добавлено через 1 час 57 минут :-[

Вычислить массив значений функции
Дана функция y=f(x), значение коэффициентов и аргументов. Требуется вычислить массив значений...

Вычислить массив значений функции
Помогите пожалуйста. Нужно написать программу в Турбо Паскале по этому заданию: Вычислить...

Вычислить массив значений функции y=2.78*x*x*exp((-x*x)/4)*sin(x) на отрезке 0.1<=x<=6.0 с шагом 0.1.
Нужно написать программу в TP по этому заданию: Вычислить массив значений функции...

2
Germanant
107 / 107 / 110
Регистрация: 28.02.2011
Сообщений: 973
Завершенные тесты: 2
07.12.2013, 22:19 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
var y:real;
    x,sum,SredQad:real;
    SredGarm,SrednGeom:real;
    i,nQsd,nGarm,Ngeom:integer;
const h=0.1;
begin
x:=0;
sum:=0;
SredQad:=0;
nQsd:=0;
SredGarm:=0;
nGarm:=0;
SrednGeom:=1;
Ngeom:=0;
for I := 1 to 100 do
begin
y:=2*exp(sin(x))-0.75;
if i mod 2<>0 then
sum:=sum+y;
if i mod 2=0 then
 begin
  SredQad:=SredQad+y;
  nQsd:=nQsd+1;
 end;
 
 if (i div 5) =0 then
 begin
  SredQad:=SredQad+1/y;
  nGarm:=nGarm+1;
 end;
if (i div 10) =0 then
 begin
  SrednGeom:=SrednGeom*y;
  Ngeom:=Ngeom+1;
 end;
x:=x+h;
end;
writeln('Sum nechetn=',sum:1:4);
writeln('Sredne qadraticheskoe chatnih=',(sqrt(SredQad/nQsd)):1:3);
writeln('Srednegarmonicheskoe =',(nGarm/SredQad):1:4);
writeln('Sredneqadraticheskoe =',(exp(ln(SrednGeom) * (1/Ngeom))):1:4);
readln;
end.
извени сделал только без массива
1
Furyques
0 / 0 / 0
Регистрация: 07.12.2013
Сообщений: 2
09.12.2013, 21:18  [ТС] 3
Больше спасибо , но может есть у кого-то идеи как запихнуть это в массив? буду очень благодарен
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2013, 21:18

Вычислить и вывести массив значений функции
Для функции y=arctg в квадрате (x) в степени -х в квадрате /2 вычислить и вывести массив ее...

Вычислить и вывести массив значений функции
Для функции y=arctg в квадрате (x)*exp(-(sqr(-x)/2)) вычислить и вывести массив ее значений на...

Вычислить массив 30-ти значений функции
Вычислить массив 30-ти значений функции y=sqrt(x*tg*x) при изменении аргумента от -1.5 с шагом 0.1...


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

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

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