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

Слова по порядку - Turbo Pascal

17.05.2010, 18:31. Просмотров 265. Ответов 1
Метки нет (Все метки)

Напечатать слово данного предложения в алфавитном порядке(лучше всего наверно английский)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2010, 18:31
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Слова по порядку (Turbo Pascal):

Найти номер первого по порядку слова, которое заканчивается заданным символом
Вот задание которое нужно сделать: "Найти номер первого по порядку слова,...

Найти во всех строках первые по порядку слова с максимальным количеством символов
На диск записывается массив строк как один компонент. Считать из файла каждую...

Удалить четные по порядку слова в входной строке

Определение в заданной строке номера первого по порядку слова, которое короче своего предшественника
Прошу прощения за назойливость, но я к вам все с той же задачей.... Написать...

Дано матрицу с размерами m*n, определить k-тый элемент по порядку. Элементы размещены по порядку
Дано матрицу с размерами m*n, определить k-тый элемент по порядку, если её...

Распечатать все слова строки, которые начинаются на ту же букву, что и слово минимальной длины (последнее по порядку)
Распечатать все слова строки, которые начинаются на ту же букву, что и слово...

1
yanyk1n
4331 / 1462 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
17.05.2010, 18:37 #2
Лучший ответ Сообщение было отмечено ternopol1 как решение

Решение

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
uses crt;
var st, buf:string;
i, j, N:integer;
f:boolean;
slova: array[1..200]of string;
 
 
begin
    N := 0;
    write('-> ');
    readln(st);
    buf:=''; 
    for i:=1 to length(st) do
    begin
        if st[i]<>' ' then
        begin
            buf := buf + st[i];
            f:=true;
        end else begin
            if f then
            begin
                inc(N);
                slova[N] := buf;
                f := false;
            end;
            buf := '';
        end;
    end;
    if buf<>'' then
    begin
        inc(N);
        slova[N] := buf;
        buf:='';
    end;
    for i := N downto 1 do
    for j := 1 to i-1 do if slova[j] > slova[j+1] then
    begin
        buf := slova[j];
        slova[j] := slova[j+1];
        slova[j+1] := buf;
    end;  
    writeln('Отсортированный список слов: ');
    for i:=1 to N do writeln(slova[i]);
    readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2010, 18:37
Привет! Вот еще темы с решениями:

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

Напечатать все слова, отличные от последнего слова, предварительно удалив из каждого слова последнюю букву
1) Программа. Дан текстиз строчных русских букв, закоторым следует точка....

Вывести слова, отличные от последнего слова, предварительно удалив из каждого слова последнюю букву
Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2...

Удалить слова, которые содержат все буквы заданного слова, и продублировать остальные слова
Разделитель — один из символов « ,.;:!?&quot;'» (начиная с пробела и заканчивая...


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

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

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