Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal длинная арифметика! https://www.cyberforum.ru/ turbo-pascal/ thread129789.html
Вычислить точное значение эн в степени эн факториал!
Turbo Pascal Исправить программу на списки
Определить, является ли текст симметричным во входящем файле (за ним идет точка) с использованием списков. В FAQе нашел файлик, где реализованы процедуры обработки списков, взял создание, печать,...
Переставить строки и столбцы матрицы таким образом, чтобы максимальный по модулю элемент был расположен на пересечении k-й строки и k-го столбца. Turbo Pascal
Задана матрица размером n x m. Найти максимальный по модулю элемент матрицы. Переставить строки и столбцы матрицы таким образом, чтобы максимальный по модулю элемент был расположен на пересечении k-й...
Turbo Pascal Сколько действий с числом надо произвести, чтобы получился нуль Из заданного числа вычли сумму его его цифр. Из результата вновь вычли сумму его цифр и т.д. Сколько таких действий надо произвести, чтобы получился нуль. наработки есть но они не правильные((... https://www.cyberforum.ru/ turbo-pascal/ thread129782.html
Turbo Pascal Уплотнить заданную матрицу, удаляя из неё строки и столбцы, заполненные 0. https://www.cyberforum.ru/ turbo-pascal/ thread129780.html
Уплотнить заданную матрицу, удаляя из неё строки и столбцы, заполненные 0. (оформить в виде процедуры).
Строки Turbo Pascal
Найти номер первой из строк, содержащих хотя бы один положительный элемент (оформить в виде функции).
Найти наименьший номер члена последовательности Turbo Pascal
Даны числовой ряд и некоторое число ε. Найти наименьший номер члена последовательности, для которого выполняется условие M. Вывести на экран этот номер и все элементы ai , где I = 1, 2, … , n.
Turbo Pascal Помогите изменить програму!!!! нада изменить в програме чтоби знасение координат графика (xi..yi) вводились вручную. ета програма их вищитует, вот текст. помогите пожалоста!!!!!!(= program graphic; uses graph; var... https://www.cyberforum.ru/ turbo-pascal/ thread129766.html
Turbo Pascal Графика и мультипликация https://www.cyberforum.ru/ turbo-pascal/ thread129760.html
Помогите пожалуйста, очень нужно, скоро зачёт, а ещё кучу задач нужно успеть сдать... буду очень благодарна за помощь. вот задачки: 1.Изобразить на экране: затухающую модель маятника 2.Требуется...
Turbo Pascal проверьте пожалуйста работает ли программа uses graph; var i,x0,y0,R,R1,gd,gm:integer; p:arrayof Pointtype; a:integer; begin gd:=0; InitGraph(gd,gm,'d\tp\bgi'); x0:=GetMaxX div 2; y0:=GetMaxY div 2; setbkcolor(15); https://www.cyberforum.ru/ turbo-pascal/ thread129741.html
80 / 80 / 36
Регистрация: 20.11.2009
Сообщений: 326
14.05.2010, 23:34 0

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

14.05.2010, 23:34. Показов 1403. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

текст строкой задан? И про вывод уточните, не понимаю, нужно вывести все гласные из текста что ли? Или нужно, "в 1-ом слове встречаются:" <список символов>?

Добавлено через 9 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program st;
uses crt;
 const
  A=['А','а','У','у','Е','е','О','о','Э','э','Я','я','И','и','Ю','ю','Ы','ы'];
  var
  s:string;
   i:integer;
    B: set of char;
     j: char;
  BEGIN
  writeln('input text');
   readln(s);
     B:=[];
      for i:=1 to length(s) do
        if s[i] in A then B:=B+[s[i]];
 
    writeln('В тексте встретились:');
      writeln;
      for j:='А' to 'я' do
     if j in B then writeln(j);
 
    END.


Вернуться к обсуждению:
Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.05.2010, 23:34
Готовые ответы и решения:

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово
1. Запись имеет вид: фамилия, пол, год рождения и рост. Вывести данные о самом высоком спортсмене.

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

Множества: Напечатать в алфавитном порядке: все гласные буквы, которые входят в каждое слово
Помогите пожалуйста исправить ошибки в программе! Задание: Дана непустая последовательность слов...

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое четное слово
Тема: Строки. Множества. 3.2.Дан текст на русском языке. Напечатать в алфавитном порядке все...

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