Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Phiona
15 / 1 / 6
Регистрация: 08.10.2013
Сообщений: 258
1

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

26.05.2015, 21:09. Просмотров 881. Ответов 1
Метки нет (Все метки)

Осуществить ввод данных в массив. Осуществить ввод числа. Значения функции выводить в виде таблицы, состоящей из двух колонок (одна – для значений элементов массива, другая – для значений функции). Вывести найденную сумму

Ввести массивы Z[0..3] и A[0..3]. Для каждого Z[i] и A[i] вычислить функцию

http://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
f=\sqrt{\left(Z_i+A_i \right)^3}<br />

Найти сумму дробных положительных элементов введённых массивов.

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

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2015, 21:09
Ответы с готовыми решениями:

Вычислить значение функции
Задание: Написать программу и для вычесления суммы значений функиции, если...

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

Вычислить значение функции
Вычислить значение функции: U(x,y):=(y&gt;= -2) and (abs(x)&lt;=1) and ((x&gt;=0) and...

Вычислить значение функции
Помогите бедному студенту вычислить значение функции F в зависимости от...

Вычислить значение функции
На фото все написано, как и в каком порядке делать, но нужно все задания...

1
kot96
54 / 45 / 97
Регистрация: 17.08.2014
Сообщений: 156
27.05.2015, 17:44 2
Лучший ответ Сообщение было отмечено Phiona как решение

Решение

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
program ex;
uses crt;
const M=1000;
type vector=array[1..M] of real;
var z,a:vector;
    i,n:integer;
    p:char;
 
procedure form(var z:vector;p:char);
var i:integer;
begin
for i:=1 to 3 do
begin
write('введите очередной элемент массива ',p,': ');
readln(z[i]);
end;
end;
 
function ss(z,a:vector;i:integer):real;
begin
ss:=sqrt((z[i]+a[i])*(z[i]+a[i])*(z[i]+a[i]));
end;
 
function sum(z,a:vector):real;
var i:integer;s:real;
begin
for i:=1 to 3 do
begin
if (z[i]<>round(a[i]))and (z[i]>0) then s:=s+z[i];
if (a[i]<>round(a[i]))and (a[i]>0) then s:=s+a[i];
end;
sum:=s;
end;
 
 
begin
form(z,'Z');
form(a,'A');
for i:=1 to 3 do
begin
writeln(ss(z,a,i));
end;
writeln('сумма дробных положительных элементов массивов = ',sum(z,a)); 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2015, 17:44

Вычислить значение функции
Написать программу которая по заданному значению x вычисляется значение y. ...

Вычислить значение функции
Вычислить значение функции Z при одном значении X: Z = Y2 + X2, где

Вычислить значение функции
Вычислить значение функции (рис. 1) с точностью E = 0.0001 . X изменяется от ...


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

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

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