Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
12 / 11 / 2
Регистрация: 13.09.2012
Сообщений: 147
1

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

25.11.2012, 12:08. Просмотров 1809. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста, у меня получилось как-то так.
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
uses crt;
 
var s: string;
 
    i, count: integer;
 
    flag: boolean;
 
const sim = 'd';
 
BEGIN
 
 write('Vvedi stroku: ');
 
 readln(s);
 
 count := 0;
 
 flag:=false;
 
 for i:=1 to length(s) do
 
  if (s[i] = sim) and (not flag) then
 
   begin
 
   inc(count);
 
   flag := true;
 
   end
 
   else if s[i] = ',' then flag := false;
 
 writeln('Kol-vo slov = ', count);
 
 readln;
 
END.
Добавлено через 22 часа 0 минут
ап, при создании темы не заметил, что задание полностью не влезло. Дан текст, за которым следует точка. В алфавитном порядке напечатать (по разу) все строчные английские гласные буквы ( a, e, i, o, u, y), входящие в этот текст. Помогите пожалуйста(
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2012, 12:08
Ответы с готовыми решениями:

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

В алфавитном порядке напечатать все строчные русские гласные буквы, входящие в текст
Помогите сделать задачи пожалуйста 1. Составить программу получения слова "правельно" из слова...

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

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

3
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,957
Записей в блоге: 1
25.11.2012, 12:15 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Const mn=['a','e','i','o','u','y'];
Var s:string;
    m:set of char;
    i:byte;
Begin
    write('Введите текст: ');readln(s);
    m:=[];
    For i:=1 to Length(s) do
     if s[i] in mn then m:=m+[s[i]];
    For i:=97 to 122 do
     if chr(i) in m then write(chr(i):2);
    readln;
End.
1
2 / 0 / 0
Регистрация: 17.09.2013
Сообщений: 84
27.11.2013, 13:00 3
а почему i проходим от 97 до 122 подскажите пожалуйста?
Цитата Сообщение от CodeR Посмотреть сообщение
For i:=97 to 122 do
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,957
Записей в блоге: 1
27.11.2013, 13:29 4
Цитата Сообщение от kravchenko_A Посмотреть сообщение
а почему i проходим от 97 до 122 подскажите пожалуйста?
потому что в этом диапазоне находятся строчные латинские буквы
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2013, 13:29

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

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

В алфавитном порядке напечатать все строчные русские гласные буквы
помогите написать программу Дан текст, за которым следует точка. В алфавитном порядке напечатать...

Напечатать в алфавитном порядке все гласные буквы, входящие в строку
Использование множеств: Составьте тексты решения задач на языке Turbo Pascal. Примечание:...

В алфавитном порядке напечатать все строчные русские гласные буквы текста
Ребят, помогите пожалуйста. Нужен ПОЛНЫЙ КОД. Все мозги проел, не знаю как делать... Вот задачи:...


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

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

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