Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
ynickym
0 / 0 / 0
Регистрация: 22.10.2012
Сообщений: 10
1

Сформировать массив по формуле Yk=K*cos (Ak). Отсортировать массив по возрастанию

06.11.2012, 10:55. Просмотров 771. Ответов 1
Метки нет (Все метки)

Дан массив размера N. Сформировать массив Yn, каждый элемент которого определяется по формуле Yk=K*cos (Ak). Отсортировать массив Yk по возрастанию.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.11.2012, 10:55
Ответы с готовыми решениями:

Отсортировать массив по возрастанию
Решите эти задачи пожалуйста очень надо!!!! 1. Организуйте массив, содержащий...

Отсортировать массив по возрастанию
Здравствуйте, мне очень нужна помощь! нужно- сформировать массив В(к) из...

Отсортировать массив А(6) по возрастанию/убыванию
Отсортировать массив А(6) по возрастанию/убыванию

Отсортировать по возрастанию линейный массив
Отсортировать по возрастанию линейный массив из 20 целых чисел. Составить...

Отсортировать массив по возрастанию и убыванию
помогите плс, вот проблема ----1)создать 2-мерный массив случайных чисел и...

1
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,721
Записей в блоге: 1
06.11.2012, 12:11 2
Лучший ответ Сообщение было отмечено ynickym как решение

Решение

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
Var A,Y:array[1..100] of real;
    k,n,j:integer;
    t:real;
Begin
    write('Введите размер N: ');readln(n);
    writeln('Массив A');
    For k:=1 to n do
    Begin
      A[k]:=random*10;
      write(A[k]:5:2);
    End;
    writeln;
    writeln('Исходный массив Y');
    For k:=1 to n do
    Begin
      Y[k]:=k*cos(A[k]);
      write(Y[k]:6:2);
    End;
    For k:=n downto 2 do
     For j:=2 to k do
      if Y[j]<Y[j-1] then
      Begin
        t:=Y[j];
        Y[j]:=Y[j-1];
        Y[j-1]:=t;
      End;
   writeln;
   writeln('Преобразованный массив Y');
   For k:=1 to n do
    write(Y[k]:6:2);
   readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.11.2012, 12:11

Дан массив.Отсортировать его по возрастанию
Помогите решить эту задачку

Отсортировать массив C[m] по возрастанию методом слияния.
Отсортировать массив C по возрастанию методом слияния.

Отсортировать двумерный массив по побочной диагонали по возрастанию
Отсортировать двумерный массив по побочной диагонали по возрастанию. Можно...


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

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

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