Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Thundergulf
0 / 0 / 0
Регистрация: 18.01.2013
Сообщений: 11
#1

Сформировать одномерный массив, заполнив его случайными числами - Free Pascal

18.01.2013, 22:30. Просмотров 381. Ответов 2
Метки нет (Все метки)

Итак, задача:
Сформировать одномерный массив, заполнив его случайными числами латинского алфавита, отсортировав по правилу: сначала идут строчные гласные, затем прописные согласные, потом строчные согласные, а после прописные гласные.
PS. Строчные буквы - маленькие буквы, прописные - большие (заглавные)
Очень надеюсь на вашу помощь!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.01.2013, 22:30
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Сформировать одномерный массив, заполнив его случайными числами (Free Pascal):

Одномерный массив заполнить случайными числами от -1 до 10. Элементы массива значение которых меньше 5, уменьшить на 1 - Free Pascal
Одномерный массив из 6 элементов заполнить случайным образом числами от -1 до 10. Все элементы массива значение которых меньше 5, уменьшить...

Заполните массив случайными целыми числами и отсортируйте его по возрастанию - Free Pascal
Помогите решить задачки, ни чего не понимаю как делать,а утром надо сдать... 1.Напишите программу возведения целого числа 0 < x < 10 в...

Задан одномерный массив. Сформировать массив из его положительных элементов - Free Pascal
2. Задан одномерный массив. Сформировать массив из его положительных элементов.

Получить одномерный массив из двумерного, заполнив его только отрицательными значениями - Pascal
Задача такая: Заполнить 2х мерный масик 5*5 с помощью рандома от отрезке от -1 до 10. Потом перевести в 1 мерный массив и перебросить...

Заполнить одномерный массив случайными числами без указания диапазона и вывести на экран консольного вывода - Pascal
Заполнить одномерный массив случайными числами без указания диапазона и вывести на экран консольного вывода в столбец.

Дан массив целых чисел, состоящий из 26 элементов. Заполнить его случайными числами - Pascal
2. Дан массив целых чисел, состоящий из 26 элементов. Заполнить его случайными числами. Найти: • сумму элементов, имеющих нечетные...

2
NurlashKO
87 / 87 / 14
Регистрация: 07.10.2012
Сообщений: 145
18.01.2013, 23:01 #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
35
36
37
38
39
40
41
42
43
44
var             
    a :array[1 .. 1000] of char;
    d :array[0 .. 256] of longint;
    n, i, j :longint;
    c :char;
 
function get(x :char) :longint;
begin
    if (x in ['a' .. 'z']) then begin
        if (x in ['a', 'e', 'o', 'i', 'y', 'u']) then
            get := 4
        else
            get := 2;
    end
    else begin
        if (x in ['A', 'E', 'O', 'I', 'Y', 'U']) then
            get := 1
        else
            get := 3;           
    end;
end;
 
begin
    read(n);
    randomize;
    for i := 1 to n do begin
        a[i] := char(random(26) + ord('a'));
        if (random(2) = 1) then 
            a[i] := upcase(a[i]);
        write(a[i]);
    end;
    writeln();
 
    for i := 1 to n do
        for j := 1 to n - 1 do 
            if (get(a[j]) < get(a[j + 1])) then begin
                c := a[j];
                a[j] := a[j + 1];
                a[j + 1] := c;
            end;
                                             
    for i := 1 to n do
        write(a[i]);
end.
1
Thundergulf
0 / 0 / 0
Регистрация: 18.01.2013
Сообщений: 11
18.01.2013, 23:45  [ТС] #3
Вопрос закрыт. NurlashKO, огромное спасибо, программа работает как и должна!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.01.2013, 23:45
Привет! Вот еще темы с ответами:

Одномерный массив 15 элементов заполнить случайными значениями, вывести его на экран - Pascal
Одномерный массив 15 элементов заполнить случайными значениями, вывести его на экран. Определить количество элементов, значения которых...

Заполнить массив из 20 элементов вещественными случайными целыми числами в диапазоне от -10 до +10 и разделить его на два массива - Pascal
Заполнить массив из 20 элементов вещественными случайными целыми числами в диапазоне от -10 до +10 и разделить его на два массива. В...

Дан двумерный массив A[5,6]. Заполнить его случайными числами в промежутке от 30 до 100, сравнить суммы элементов столбцов, вывести сумму наибольшего - Pascal
Дан двумерный массив A. Заполнить его случайными числами в промежутке от 30 до 100, сравнить суммы элементов столбцов, вывести сумму...

Сформировать одномерный массив из его диагональных элементов( диагональ и побочная ) - Pascal
Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов. Найти след матрицы, суммируя элементы...


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

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

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