Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Thundergulf
0 / 0 / 1
Регистрация: 18.01.2013
Сообщений: 11
#1

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

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

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

Заполните массив случайными целыми числами и отсортируйте его по возрастанию
Помогите решить задачки, ни чего не понимаю как делать,а утром надо сдать......

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

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

Одномерный массив заполняется случайными числами [3.30]
Одномерный массив заполняется случайными числами . Удаляется не четное числа и...

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

2
NurlashKO
87 / 87 / 80
Регистрация: 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 / 1
Регистрация: 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
Привет! Вот еще темы с решениями:

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

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

Создать вещественный массив из 10 000 чисел , заполнить его случайными числами в диапазоне от 0 до 1 . Вычислить
Создать вещественный массив из 10 000 чисел , заполнить его случайными числами...

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


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

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

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