1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
опять у меня есть вопрос Задание Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово; все согласные, которые не входят хотя бы в одно слово.
я правильно начинаю прогу??и веду подсчёт гласных букв??
Цитата
Program bukvi; const r=ord('а')-ord('А'); var m:set of 'а'..'я'; sl:array[1..50] of string; s:string; i,k,l:integer; c:char; begin m:=['а','е','ё','и','о','у','ы','э','ю','я'] write('введите текст на русском языке:'); readln(s);
writeln('Вот эти буквы:'); for c:='а' to 'я' do if c in m then write( с ); writeln
const all_vowels: set of char = ['а', 'е', 'ё', 'и', 'й', 'о', 'у', 'ы', 'э', 'ю', 'я']; word_ch: set of char = []; var s: string; i: byte; in_all: set of char; begin in_all := all_vowels; readln(s); for i := 1 to length(s) do begin if s[i] in [' ', '.'] then begin in_all := in_all * word_ch; word_ch := []; end else if s[i] In all_vowels Then word_ch := word_ch + [ s[i] ]; end; for i := 0 to 255 Do If chr(i) in in_all Then write(chr(i):3); writeln end.
Эта программа считает также все гласные, которые не входят хотя бы в одно слово:
Код
const all_vowels: set of char = ['а', 'е', 'ё', 'и', 'й', 'о', 'у', 'ы', 'э', 'ю', 'я']; word_ch: set of char = []; var s: string; i: byte; in_all, in_one: set of char; begin in_all := all_vowels; in_one := all_vowels; readln(s); for i := 1 to length(s) do begin if s[i] in [' ', '.'] then begin in_all := in_all * word_ch; in_one := in_one - word_ch; word_ch := []; end else if s[i] In all_vowels Then word_ch := word_ch + [ s[i] ]; end; writeLn('В каждом слове: '); for i := 0 to 255 Do If chr(i) in in_all Then write(chr(i):3); writeln;
writeLn('Ни в одном слове: '); for i := 0 to 255 Do If chr(i) in in_one Then write(chr(i):3); writeln end.