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

Отсортировать по убыванию и вывести полученный миссив на экран

08.01.2012, 22:58. Показов 8903. Ответов 4
Метки нет (Все метки)

1. Создайте массив A[1..12] вещественных чисел с помощью генератора случайных чисел и выведите его на экран. Отсортировать по убыванию и вывести полученный миссив на экран

2.Составте программу, упорядочивающую по убыванию элементы каждого столбца матрицы размером m*n(размер матрицы вводится с клавиатуры, но не более 10). Массив заполнить случайными целыми числами от 0 до 20.

3. Написать программу, которая рисует восход и закат солнца.

Помогите сделать задачи пожалуйста
 Комментарий модератора 
Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
0

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

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

Отсортировать по убыванию и вывести полученный массив на экран
Создайте массив А вещественных чисел через генератор случайных чисел и выведите его на экран....

Отсортировать по убыванию и вывести полученный массив на экран
Создайте массив А целых чисел с помощью генератора случайных чисел и выведите его на экран....

Отсортировать по убыванию и вывести полученный массив на экран
1. Создайте массив А вещественных чисел с помощью генератора случайных чисел и выведите его на...

Отсортировать по убыванию и вывести полученный массив на экран
(9) Введите с клавиатуры в массив десять целочисленных значений. Введите их в одну стровку через...

4
--\.founder./--
564 / 564 / 392
Регистрация: 20.10.2011
Сообщений: 867
08.01.2012, 23:04 2
Цитата Сообщение от Luckyswd Посмотреть сообщение
1. Создайте массив A[1..12] вещественных чисел с помощью генератора случайных чисел и выведите его на экран. Отсортировать по убыванию и вывести полученный миссив на экран
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
35
36
37
38
Program Massiv_Readln;
 
Uses crt;   // подключаем модули
 
Type
mat = array [1..100] of real ;
 
procedure swap(var x,y:real);
var t:real;
  begin
  t:=x; x:=y; y:=t;
  end;
  
var
a:mat; // переменная массива
i,n,j:integer; // переменная I вводится как индекс массива
 
begin // начало основной программы
 
 clrscr;   // очищает текстовое окно
//------------------------------------------------------------------------------ // формируем массив 'A'
 Write('Размер массива (до 100) - ');readln(n);   // вводим размер одномерного массива
 randomize;
 For i:=1 to n do
 a[i]:=random*10;
 
//------------------------------------------------------------------------------ // вывод массива 'A'
 Write('Отсортированный массив: ');
 For i :=1 to n do
  For j:=1 to n-1 do
    If a[j]<a[j+1] then swap(a[j],a[j+1]);
  For i:=1 to n do
  write(a[i]:0:2,' ');
 
 
 readkey; // читает символ из буфера клавиатуры.
 
end.
0
Почетный модератор
7961 / 3932 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.01.2012, 00:09 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Luckyswd Посмотреть сообщение
2.Составте программу, упорядочивающую по убыванию элементы каждого столбца матрицы размером m*n(размер матрицы вводится с клавиатуры, но не более 10). Массив заполнить случайными целыми числами от 0 до 20.
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
const nmax=10;
var a: array [1..nmax,1..nmax] of integer;
    n,m,i,j,k,buf: integer;
 
begin
writeln ('Размер матрицы, не больше ',nmax,':');
repeat
write ('n= ');
readln (n);
until (n>0) and (n<=nmax);
repeat
write ('m= ');
readln (m);
until (m>0) and (m<=nmax);
writeln ('Дана матрица');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(41)-20;
        write (a[i,j]:4);
        end;
    writeln;
    end;
for j:=1 to m do
    begin
    while k<=n do
          begin
          for i:=1 to n-1 do
              if a[i,j]<a[i+1,j] then
                 begin
                 buf:=a[i,j];
                 a[i,j]:=a[i+1,j];
                 a[i+1,j]:=buf;
                 end;
          inc(k);
          end;
    k:=0;
    end;
writeln ('Матрица с упорядоченными столбцами');
for i:=1 to n do
    begin
    for j:=1 to m do
        write (a[i,j]:4);
    writeln;
    end;
end.
Добавлено через 18 минут
Цитата Сообщение от Luckyswd Посмотреть сообщение
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
uses graphABC;
var x,y,i,j: integer;
    zx,zy: array [1..100] of integer;
 
procedure Nebo(c1,c2,c3,c4: integer);
begin
setbrushcolor(c1);
setpencolor(c1);
rectangle(0,0,900,100);
setbrushcolor(c2);
setpencolor(c2);
rectangle(0,100,900,200);
setbrushcolor(c3);
setpencolor(c3);
rectangle(0,200,900,300);
setbrushcolor(c4);
setpencolor(c4);
rectangle(0,300,900,400);
end;
 
procedure Kust(cl,k: integer);
begin
setbrushcolor(cl);
setpencolor(cl);
circle(100,350,80-k);
circle(50,410,40-k);
circle(100,430,40-k);
circle(200,400,60-k);
 
circle(800,370,70-k);
circle(700,350,40-k);
circle(650,390,30-k);
circle(710,410,30-k);
rectangle(0,400+k,900,600);
end;
 
begin
lockdrawing;
setwindowsize(900,600);
x:=0;
for i:=1 to 30 do
    begin
    zx[i]:=random(900);
    zy[i]:=random(300);
    end;
 
for y:=100 to 450 do
begin
clearwindow;
 
if y<=200 then
Nebo(rgb(0,129,198),rgb(0,140,205),rgb(77,173,227),rgb(110,192,238));
if (y<=300) and (y>200) then
Nebo(rgb(0,100,156),rgb(0,129,198),rgb(0,140,205),rgb(77,173,227));
if (y<=400) and (y>300) then
Nebo(rgb(26,74,117),rgb(0,100,156),rgb(0,129,198),rgb(0,140,205));
if y>400 then
Nebo(clblack,rgb(26,74,117),rgb(0,100,156),rgb(0,129,198));
 
setbrushcolor(clyellow);
setpencolor(clyellow);
circle(x,y,50);
 
Kust(clblack,0);
if y<150 then
Kust(clgreen,5);
if (y>=150) and (y<250) then
Kust(rgb(0,92,53),5);
if (y>=250) and (y<350) then
Kust(rgb(12,52,34),5);
if y>=350  then
Kust(clblack,5);
x:=x+2;
sleep(5);
redraw;
end;
sleep(5);
x:=0;
for y:=450 downto -100 do
    begin
    clearwindow;
    Nebo(clblack,rgb(26,74,117),rgb(0,100,156),rgb(0,129,198));
    setbrushcolor(clwhite);
    setpencolor(clwhite);
    for i:=1 to 30 do
        circle(zx[i],zy[i],2);
    circle(x,y,50);
    Kust(clblack,0);
    setbrushcolor(clwhite);
    setpencolor(clwhite);
    x:=x+2;
    sleep(5);
    redraw;
    end;
 
x:=0;
for y:=450 downto 100 do
    begin
    clearwindow;
    if y<=200 then
       Nebo(rgb(0,129,198),rgb(0,140,205),rgb(77,173,227),rgb(110,192,238));
    if (y<=300) and (y>200) then
       Nebo(rgb(0,100,156),rgb(0,129,198),rgb(0,140,205),rgb(77,173,227));
    if (y<=400) and (y>300) then
       Nebo(rgb(26,74,117),rgb(0,100,156),rgb(0,129,198),rgb(0,140,205));
    if y>400 then
       Nebo(clblack,rgb(26,74,117),rgb(0,100,156),rgb(0,129,198));
    setbrushcolor(clyellow);
    setpencolor(clyellow);
    circle(x,y,50);
    Kust(clblack,0);
    if y<150 then
       Kust(clgreen,5);
    if (y>=150) and (y<250) then
       Kust(rgb(0,92,53),5);
    if (y>=250) and (y<350) then
       Kust(rgb(12,52,34),5);
    if y>=350  then
       Kust(clblack,5);
    x:=x+2;
    sleep(5);
    redraw;
    end;
end.
0
Nooau
09.01.2012, 00:27 4
хех у меня почти такиеже задачи были
0 / 0 / 1
Регистрация: 10.01.2012
Сообщений: 25
10.01.2012, 18:43 5
сталкивался с задачкой похожей на первую, она хорошо нервы потрепала
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.01.2012, 18:43

Отсортировать по возрастанию и вывести полученный массив на экран
1. Создайте массив А с помощью генератора случайных чисел с вещественными элементами от –10 до 10...

Вывести построчно на экран исходный массив и массив, полученный сортировкой по убыванию столбца
Вот такая задача... Не представляю как делать.. Из элементов, хранящихся в файле, ...

Отсортировать массив по убыванию и вывести на экран
1. Создайте массив А с помощью генератора случайных чисел с целыми от –100 до 100 и выведите его на...

Отсортировать последовательность по убыванию и вывести результат на экран
Из клавиатуры вводится последовательность чисел, что кончается нулём. Отсортировать эту...


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

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

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