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

Переписать отрицательные элементы массива X в массив Y и подсчитать их количество

24.02.2011, 00:00. Показов 1667. Ответов 1
Метки нет (Все метки)

Переписать отрицательные элементы массива X в массив Y и
подсчитать их количество. Элементы массива X вычисляются по фор-
муле X = 3 i -10 ×sin(i - 0,5), i где i = 1, 2, …, 20.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.02.2011, 00:00
Ответы с готовыми решениями:

Переписать элементы массива Х в массив У и подсчитать их количество
Переписать элементы массива Х в массив У и подсчитать их количество

Переписать в массив X подряд положительные элементы массива P, а в массив Y — отрицательные
И снова здравствуйте =) Задача: Дан массив P( N)состоящий из N вещественных чисел. Переписать...

Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N)
Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N)

Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N).
1. Проверить, есть ли в заданном векторе A=(a1,a2,...,aN) элементы, равные нулю. Если есть, найти...

1
382 / 330 / 159
Регистрация: 06.12.2010
Сообщений: 894
24.02.2011, 00:20 2
Лучший ответ Сообщение было отмечено qwer11 как решение

Решение

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
// X = 3 i -10 ?sin(i - 0,5), i где i = 1, 2, …, 20.
    uses crt;
    const nmax=20;
    var X,Y:array[1..nmax] of real;
        i,n,j:integer;
begin
  repeat
    write('i= ');
    readln(n);
  until n in [1..nmax];
  j:=0;
  for i:=1 to n do
  begin
     X[i]:=3*i-10*sin(i-0.5);
     write(X[i]:2:2,' ');
     if (X[i]<0) then
     begin
        inc(j);
        Y[j]:=X[i];
     end;
  end;
  writeln;
  writeln('Y: ');
  for i:=1 to j do
  write(Y[i]:2:2,' ');
  
  Readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.02.2011, 00:20

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Переписать в массив Y положительные и в массив Z отрицательные элементы массива X
Переписать в массив Y положительные и в массив Z отрицатель- ные элементы массива X. Помогите...

Переписать положительные элементы масива Х, в одномерный массив У, подсчитать их количество.
помогите завтра крайний срок 1. Переписать положительные элементы масива Хm,m(1&lt;=n&lt;=10 ...

Если сумма элементов массива > 0, переписать в массив В положительные элементы, иначе – отрицательные
Ввести массив А(n). Найти сумму элементов массива. Если она &gt;0, переписать в массив В положительные...

переписать положительные элементы массива х в массив у и подсчитать их количество
дан массив х(70)-1&lt;=xi&lt;=1. переписать положительные элементы массива х в массив у и подсчитать их...


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

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

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