Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 18.12.2015
Сообщений: 7
1

Вычислить значения

18.12.2015, 20:10. Показов 806. Ответов 2
Метки нет (Все метки)

Ребят, помогите пожалуйста с задачи. Уже который день не могу решить(

1. Вычислить значения 33 элементов одномерного целочисленного массива Y в интервале (-6, 10) с использованием генератора случайных чисел.
2. Вычислить среднеквадратичное значение каждых вторых элементов всего массива.

 Комментарий модератора 
Нужно прочесть правила!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2015, 20:10
Ответы с готовыми решениями:

Вычислить значения переменных. Вывести на печать значения вводимых исходных данных и результаты вычислений
Вычислить значения переменных по заданным расчетным формулам и наборам исходных данных. Вывести...

Вычислить значения функции y=sinx на отрезке [-pi,pi] с шагом h= pi/5. Найти max и min значения функции на этом отрезке
Вычислить значения функции y=sinx на отрезке с шагом h= pi/5. Найти max и min значения функции на...

Вычислить значения у
Вычислить значения у, соответствующие каждому значению x ( xn <= x <= xk ), шаг изменения x равен...

Ввести значения таблицы A(I,J), вычислить значения таблицы B(I,J)
Ввести значения таблицы A(I,J), размером 13*5. Вычислить значения таблицы B(I,J), где: ...

2
36 / 36 / 72
Регистрация: 31.10.2014
Сообщений: 206
19.12.2015, 10:54 2
Лучший ответ Сообщение было отмечено lolik787 как решение

Решение

lolik787, первых два.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const n=33;
Var A : array [1..n] of integer;
    i : integer;
    s : real;
begin
//1
For i:=1 to n do A[i]:=random(11)-random(7);
Writeln('1. Array Y:');
For i:=1 to n do Write(A[i]:3);
Writeln;
//2
s:=A[1]*A[1];
i:=3;
While (i<=n) do
      begin
      s:=s+A[i]*A[i];
      i:=i+2;
      end;
s:=sqrt(s/(n div 2));
Writeln('2. S=', s);
end.
0
Эксперт Pascal/Delphi
6643 / 4469 / 4748
Регистрация: 05.06.2014
Сообщений: 21,964
19.12.2015, 15:08 3
Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
https://www.cyberforum.ru/announcement.php?a=3
lolik787, 3-е и 4-е задания вы оформите согласно правил форума.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2015, 15:08

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

Вычислить значения выражения
Вычислить значения выражения 3*a+4/a в квадрате -5*a-9 для а = 1, 2, ..., 100.

Вычислить значения Y и R по формуле
Помогите правильно записать строки y и R в программе y=\frac{0.021}{d^{0.3}}\\ R=\left(...

Вычислить значения функций
Составить программу на языке Borland-Pascal. В программе вычислить значения функций f, z, y для...

Вычислить значения выражений
Даны x, y и z. Вычислите a, b, если: a=\frac{\cos \left(x^2+\frac{\pi}{3} \right)+3y^2-\sin...


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

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

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