Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,760
Записей в блоге: 1
06.11.2012, 12:11 0

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

06.11.2012, 12:11. Просмотров 775. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Сформировать массив по формуле Yk=K*cos (Ak). Отсортировать массив по возрастанию
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.11.2012, 12:11

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

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

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

0
Другие темы раздела
Pascal Выполните сортировку элементов вектора, стоящих между минимальным и максимальным по возростанию http://www.cyberforum.ru/pascal/thread689677.html
ребята, не знаете как решить такую задачку? В заданном векторе найти его минимальный и максимальный элементы.Выполните сортировку элементов вектора,стоящих между минимальным и максимальным по...
Pascal Определить минимальное время, через которое может произойти встреча всех роботов Задача: Между N пунктами (N<=50) заданы дороги длиной A(i,j), где I,J-номера пунктов. Дороги проложены на разной высоте и пересекаются только в общих пунктах. В начальный момент времени из заданных... http://www.cyberforum.ru/pascal/thread689568.html
Задача о покупке скота. Pascal
3)Составить алгоритм решения задачи:сколько можно купить быков,коров и телят,платя за быка 10руб.,за корову - 5руб.,а за теленка - 0,5руб.,если на 100руб.,надо купить 100голов скота? { 10х + 5y +...
Pascal Задача такая: вводим массив, вводим строку, если последние символы элемента массива совпадают с символами строки выводим элемент массива(см. Описание)
Например Вводим массив: ррррррффф ллллллл ееееееффф тттттт Вводим строку: ффф
Pascal программа табулирования правильно не работает http://www.cyberforum.ru/pascal/thread689152.html
Я составил программу, а она, начиная с х=1,6 выдает у= NAN. Почему? program tab; const h=0.1; var x,y: real; begin x:=1; while x<=2 do begin if x>=1.5 then ...
Pascal Если в тексте есть два одинаковых слова, то удалить из слов текста гласные Дана строка, содержащая русский текст. Если в тексте есть два одинаковых слова, то удалить из слов текста гласные, в противном случае пpодублиpовать в словах, содеpжащих не более 3-х гласных, ... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru