Помогите пожалуйста составить программу на Паскале(подробно)?

AlexSM177 18 мар. 2020 г., 12:00:36

/ / Pascal ABC.

NET v3.

1 сборка 1219

Constchb : set of char = ['а'.

'я', 'a'.

'z'] ; / / множество букв

Var

ar, s, st : string ;

i, j, n : integer ;

c : char ;

begin

readln(s) ; / / читаем текст

n : = 0 ; / / обнуляем счётчик

for i : = 1 to length(s) do {всё в нижнем регистре, чтобы не считать заглавную и строчную буквы разными}

s[i] : = lowcase(s[i]) ;

for i : = 1 to length(s) do / / снова пройдёмся по каждой букве begin st : = s ; {передаём переменной текст, тем самым не трогая "оригинал"} while pos(s[i], st)< ; > ; 0 do / / пока в копии есть символ с заданным циклом for индексом begin delete(st, pos(s[i], st), 1) ; {.

Удаляем этот символ(по одному за шаг вложенного цикла)} inc(n) ; / / увеличиваем число удалённых end ; {таким образом, данный цикл позволяет проверить количество вхождений символа в строку} if (n< ; = 2) and (pos(s[i], ar) = 0) and (s[i] in chb) then ar : = ar + s[i] ; {если вхождений не больше 2 и символа нет в конечной строке(чтобы не было повторов) и символ есть в множестве букв(чтобы не было знаков препинания), то добаляем в конечную строку} n : = 0 ; / / обнуляем счётчик

end ;

for i : = 1 to length(ar) - 1 do {Здесь могла быть "быстрая сортировка", но люди не знающие ничего, кроме "пузырька" будут против} for j : = i + 1 to length(ar) do if ar[i]> ; ar[j] then {сравниваем символы.

Тип char является целочислительным, следовательно, нам можно} begin c : = ar[i] ; ar[i] : = ar[j] ; ar[j] : = c ; end ;

writeln('Result : ') ; / / вывод конечной строки

for i : = 1 to length(ar) do write(ar[i], ' ') ;

end.

Пример ввода :

Daaaaaaaaaaaaaads.

Пример вывода :

Result :

d s.

Anikagavrilina 18 мар. 2020 г., 12:00:37

Что же, можно и покороче решить, но поймете ли решение?

/ / PascalABC.

NET 3.

1, сборка 1230 от 27.

04. 2016

begin var s : = ReadlnString('Введите строку : ').

ToUpper.

Where(c - > ; c in ['A'.

'Z', 'А'.

'Я', 'Ё']) ; var d : = new dictionary< ; char, integer> ; ; foreach var c in s do d[c] : = d.

Get(c) + 1 ; d.

Where(k - > ; k.

Value< ; = 2).

OrderBy(k - > ; k.

Key).

Select(k - > ; k.

Key).

Println(', ') ;

end.

Тестовое решение

Введите строку : А роза упала на лапу Азора.

Карл у Клары украл кораллы.

З, Н, П, Ы.

Nfd 1 июн. 2020 г., 18:38:57 | 10 - 11 классы

Помогите пожалуйста составить программу на ''Pascal ABC'') Дана строка, содержащая текст на русском языке, и некоторая буква?

Помогите пожалуйста составить программу на ''Pascal ABC'') Дана строка, содержащая текст на русском языке, и некоторая буква.

Подсчитать, сколько слов начинается с указанной буквы.

ВасяЛис 15 февр. 2020 г., 15:07:06 | 5 - 9 классы

Дан текст?

Дан текст.

Составьте программу , вставляющую после буквы "я " слог "мал".

Koly22rus 28 февр. 2020 г., 01:55:13 | 10 - 11 классы

1. составить программу которая в введенном тексте удаляет пробелы 2?

1. составить программу которая в введенном тексте удаляет пробелы 2.

Составить программу которая в ведённом тексте после пробелов ставит две буквы к 3.

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

Dianasvetlaua 7 авг. 2020 г., 17:01:13 | 5 - 9 классы

Написать программу для вывода на экран больших русских букв в алфавитном порядке?

Написать программу для вывода на экран больших русских букв в алфавитном порядке.

Срочно!

Помогите!

Inkonas 18 февр. 2020 г., 22:37:27 | 5 - 9 классы

1. Сформировать текст заданной длины, состоящий из 2 символов А и В?

1. Сформировать текст заданной длины, состоящий из 2 символов А и В.

2. Найдите количество символов заданного числа 25

3.

Написать программу обращения заданного слова (вывести символы строки в обратном порядке).

(слово привет)

4.

Составить программу печати кодов всех символов, входящих в состав заданного текста.

5. Найти сумму цифр заданного числа.

(число 25)

6.

Составить программу для подсчета русских букв «А» в заданном тексте

7.

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

BannyCool 26 мая 2020 г., 03:07:32 | 5 - 9 классы

[PASKAL]Определить , можно ли из букв входящих в текст составить слово ЛЕС?

[PASKAL]Определить , можно ли из букв входящих в текст составить слово ЛЕС.

Помогите решить пожалуйста !

Vaynah1 25 мая 2020 г., 02:05:50 | 10 - 11 классы

Помогите пожалуйста написать программу в Паскаль : ) Дан произвольный текст на русском языке?

Помогите пожалуйста написать программу в Паскаль : ) Дан произвольный текст на русском языке.

Написать программу, которая выводит слова, начинающиеся с гласной буквы и содержащие не менее двух согласных.

Sardar1999 14 нояб. 2020 г., 07:53:25 | 5 - 9 классы

Составить программу определяющую, какая из букв «е» или «о» встречается в тексте чаще?

Составить программу определяющую, какая из букв «е» или «о» встречается в тексте чаще.

Aminamihailowna 8 дек. 2020 г., 09:13:40 | 5 - 9 классы

Составить программу определения количества букв "к" в тексте, введённом с клавиатуры?

Составить программу определения количества букв "к" в тексте, введённом с клавиатуры.

Anton1404 20 нояб. 2020 г., 21:02:06 | 5 - 9 классы

СОСТАВИТЬ ПРОГРАММУ Вычислить сумму порядковых номеров всех букв , входящих в слово SUM?

СОСТАВИТЬ ПРОГРАММУ Вычислить сумму порядковых номеров всех букв , входящих в слово SUM.

Помогите пожалуйста).