1 / 1 / 0
Регистрация: 22.03.2015
Сообщений: 27
1

Все отрицательные элементы массива увеличить на 0.5, а все неотрицательные заменить на 0.1

05.06.2015, 11:55. Показов 2481. Ответов 3
Метки нет (Все метки)

Дан массив А из n действительных чисел: a1, …, an.
Вычислить: sin|a1|+…+sin|an|
Все отрицательные элементы массива увеличить на 0,5, а все неотрицательные заменить на 0,1.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2015, 11:55
Ответы с готовыми решениями:

В последовательности все отрицательные члены увеличить на 0,5, а все неотрицательные заменить на 0,1
Даны натуральные числа n,действительные числа А1,...Аn. В последовательности А1,....Аn все...

Заменить все отрицательные элементы массива 0, а положительные увеличить на 2
Одномерный массив из 10 элементов заполнить случайным образом числами от -5 до 5. Заменить все...

Все отрицательные члены последовательности увеличить на 0.5, а все неотрицательные заменить на 0.1
Дана натуральное число n, действительные числа а1....аn, в последовательности а1...аn все...

Дан массив A(n). Переставить все элементы сначала все неотрицательные потом отрицательные
дан массив A(n). Переставить элементы массива так, чтобы сначала расположились все неотрицательные...

3
Модератор
9326 / 4699 / 3162
Регистрация: 17.08.2012
Сообщений: 14,774
06.06.2015, 13:51 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
const m = 40;
var a: array [1..m] of double;
    i, n: integer;
    s: double;
begin
  repeat
    write('Enter quantity of elements of array in range [1..]', m, ': ');
    readln(n)
  until (n >= 1) and (n <= m);
  writeln('Enter elements of array:');
  for i := 1 to n do
    begin
      write('A[', i, '] = ');
      readln(a[i])
    end;
  writeln('Source array:');
  s := 0;
  for i := 1 to n do
    begin
      write(' ', a[i]:19);
      s := s + sin(abs(a[i]))
    end;
  writeln;
  writeln('Sum of sine of modules of elements of array = ', s);
  writeln('Negative elements + 0.5, and other elements equal to 0.1:');
  for i := 1 to n do
    begin
      if a[i] < 0
        then a[i] := a[i] + 0.5
        else a[i] := 0.1;
      write(' ', a[i]:19)
    end;
  readln
end.
1
1 / 1 / 0
Регистрация: 22.03.2015
Сообщений: 27
08.06.2015, 10:19  [ТС] 3
Pascal
1
2
3
4
const m = 40;
var a: array [1..m] of real;
    i, n: integer;
    s: real;
0
Модератор
9326 / 4699 / 3162
Регистрация: 17.08.2012
Сообщений: 14,774
08.06.2015, 11:11 4
Тип из Turbo Pascal с названием "real" являет собой представление числа с плавающей точкой длиной шесть байт. На самом деле, 6-байтовое представление чисел с плавающей точкой было оставлено только для совместимости с древнейшими версиями паскаля, и напрямую не поддерживается арифметическим сопроцессором IBM-совместимых компьютеров (требуется преобразование к double, поэтому в Turbo Pascal, для того, чтобы избежать излишних преобразований, лучше сразу использовать double).

Также 6-байтовый тип "real" не соответствует международному стандарту представления чисел с плавающей точкой IEEE 754.

В современных диалектах паскаля для типа real используется 8-битное представление чисел с плавающей точкой и, фактически, типы real и double в современных диалектах паскаля суть одно и то же.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2015, 11:11
Помогаю со студенческими работами здесь

Все неотрицательные элементы массива, не принадлежащие отрезку, заменить на единицу
Сижу на практике,осталась 1 задача. Вообще внепонятия как ее решить. Хелп. Дан массив A из...

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru