Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
SINEI
1 / 1 / 0
Регистрация: 08.03.2013
Сообщений: 11
1

Вычислить массив

08.03.2013, 01:25. Просмотров 873. Ответов 2
Метки нет (Все метки)

Нужно написать программу в Паскаль: Вычислить массив Z=√(1+ x) , где x – положительные корни уравнения A*x +B*cos(β) = 0, при А = 0.75, B = 4.5, β = -1.5...2.5, h(β)=0.5 .
Помогите пожалуйста.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.03.2013, 01:25
Ответы с готовыми решениями:

Двумерный массив. Сформировать одномерный массив из отрицательных элементов и вычислить их сумму
Задан двухмерный массив целых чисел А размером N на М. Сформировать одномерный массив В, состоящий...

Массив: Вычислить значения функции при значениях аргумента, заданных в массиве X, и поместить в массив Y.
1. Задан массив*X*из 5 элементов. Вычислить значения функции**при значениях аргумента, заданных в...

Дан массив X.Вычислить и напечатать массив Y, элементы которого определяются по формуле |y[i]=x[i]-B|, где B - максимальный элемент массива X
1) Дан массив X.Вычислить и напечатать массив Y, элементы которого определяются по формуле |y=x-B|,...

Вычислить среднее арифметическое элементов, дописать в массив и отсортировать массив по возростанию
5)Вычислить среднее арифметическое элементов, дописать в массив и отсортировать массив по...

дан двумерный массив размером m*n. Вычислить количество нулевых элементов в каждой строке и результаты записать в массив размера M.
дан двумерный массив размером m*n. Вычислить количество нулевых элементов в каждой строке и...

2
Дикутенз
91 / 91 / 99
Регистрация: 25.01.2013
Сообщений: 317
08.03.2013, 07:02 2
Лучший ответ Сообщение было отмечено SINEI как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses crt;
Const A=0.75; B=4.5; h=0.5; n=9;
Type mas=array[1..n] of real;
Var z:mas; x,bet:real; i,k:integer;
Begin clrscr;
  i:=1;
  bet:=-1.5;
  While bet<=2.5 do
    Begin
      x:=-B*cos(bet)/A;
      if x>0 then
               Begin
                 z[i]:=x;
                 inc(i);
               End;
      bet:=bet+h;
      k:=i;
    End;
  for i:=1 to k do WriteLn(z[i]:4:4);
  ReadLn;
End.
1
Puporev
Модератор
55401 / 42537 / 29390
Регистрация: 18.05.2008
Сообщений: 100,603
08.03.2013, 09:53 3
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
uses crt;
const a=0.75;
      b=4.5;
      h=0.5;
var z:array[1..9] of real;
    x,bt:real;
    n,i:byte;
begin
bt:=-1.5;
n:=0;
repeat
x:=-b*cos(bt)/a;
writeln('bt=',bt:5:2,'  x=',x:5:2);
if x>0 then
 begin
  n:=n+1;
  z[n]:=sqrt(1+x);
 end;
bt:=bt+h;
until bt>2.5;
writeln('Массив Z:');
for i:=1 to n do
write(z[i]:0:2,' ');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.03.2013, 09:53

Дан массив Х из m элементов.Вычислить у=х1-х2+х3-х4+...
Задание 4.(желательно с массивами и процедурами) Дан массив Х из m элементов.Вычислить...

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

Вычислить и записать в массив значение функции?
Вычислить и записать в массив значение функции y=a*x*2+b*x+c при изменении x от х(начальн) до...


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

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

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