Функция введенную букву проверяет, является ли она гласной или согласной

@Мятный · Регистрация: 09.03.2009

Студворк — интернет-сервис помощи студентам

Помогите пожалуйсто сделать следующую задачку:

Функция введенную букву проверяет, является ли она гласной или согласной.
С помощью функции найти количество гласных и согласных в веденном с клавиатуры тексте.
Параметры функции - 1 буква.
Результат - 0 или 1

Заранее Спасибо!!!!!!

@yanyk1n · 15.03.2009, 14:29

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program kkk;
uses crt;
type GL=set of ('A','E','O','Y','I');
var i,gc,sc:integer;
 
function GS(ch:char):boolean;
begin
 if upcase(ch) in GL then GS:=true else GS:=false;
end;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 for i:=1 to length(st) do
 if GS(i) then inc(GC) else inc(SC);
 
 writeln('Glashyh- ',gc); 
 writeln('Soglashyh- ',sc);
 readln;
end.

Добавлено через 1 минуту 0 секунд
Правда работает только для латинских символов. Если нужны ещё русские, то в набор добавь все русские гласные)

@Мятный · 16.03.2009, 10:42 **[ТС]**

Выдает ошибку: Fatal: Syntax error, ''identifier'' expected but "const char" found

Добавлено через 10 часов 0 минут 10 секунд

Сообщение от k1ry4

Правда работает только для латинских символов. Если нужны ещё русские, то в набор добавь все русские гласные)

Она вообще не работает (((((((

@Puporev · 16.03.2009, 12:48

А попробуй в разделе var добавить st:string;

@yanyk1n · 16.03.2009, 16:45

у меня почему-то уже вошло "привычку" забывать указывать в переменных st:string))

@Мятный · 17.03.2009, 15:59 **[ТС]**

Сообщение от Puporev

А попробуй в разделе var добавить st:string;

Ну до этого я и сам догадался)) Программа всеравно не работает ((

Добавлено через 56 секунд

Сообщение от k1ry4

у меня почему-то уже вошло "привычку" забывать указывать в переменных st:string))

st:string я прописал, прграмма все равно не работает))

@Puporev · 17.03.2009, 16:02

if GS(i) then inc(GC) else inc(SC);

Попробуй здесь написать
if GS(st[i]) then inc(GC) else inc(SC);

@Мятный · 17.03.2009, 16:35 **[ТС]**

Сообщение от Puporev

Попробуй здесь написать
if GS(st[i]) then inc(GC) else inc(SC);

Ничего не изменилось - выдаёт ту же самую ошибку - Fatal: Syntax error, ''identifier'' expected but "const char" found

При этом курсор становится на строчку type GL=set of ('A','E','O','Y','I'); в положение отмеченое красным.

@Puporev · 17.03.2009, 16:58

Напиши так.
GL=['A','E','O','Y','I'];

@yanyk1n · 17.03.2009, 19:17

Доделанная программа:

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
program kkk;
uses crt;
type ch=set of 'A'..'Z';
const GL:ch=['A','E','O','Y','I'];
      a:ch=['A'..'Z'];
var gc,sc,i:integer;
    st:string;
 
 
function GS(ch:char):boolean;
begin
 if upcase(ch) in GL then GS:=true else GS:=false;
end;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 for i:=1 to length(st) do
 if GS(st[i])  then inc(GC) else if upcase(st[i]) in a then inc(SC);
 
 writeln('Glashyh- ',gc); 
 writeln('Soglashyh- ',sc);
 readln;
end.

@Мятный · 17.03.2009, 20:05 **[ТС]**

...

@yanyk1n · 17.03.2009, 20:13

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program kkk;
uses crt;
var gc,sc,i:integer;
    st:string;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 for i:=1 to length(st) do
 if (upcase(st[i])>='A') and (upcase(st[i])<='Z') then
 begin
  if (upcase(st[i])='A') or (upcase(st[i])='E') or (upcase(st[i])='I') or (upcase(st[i])='O') or (upcase(st[i])='U') or (upcase(st[i])='Y') then inc(GC) else inc(SC);
 end;
 
 writeln('Glashyh- ',gc); 
 writeln('Soglashyh- ',sc);
 readln;
end.

@Мятный · 18.03.2009, 15:58 **[ТС]**

k1ry4, Нужно что бы обязательно была функция.

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

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
program xxx;
uses crt;
var st:string;
    i,gl,sl:integer;
 
function opr(ch:char):integer;
begin
 case ch of
   'A','E','O','Y','I','U':opr:=1;
 else opr:=0;
 end;
end;
 
begin
clrscr;
write('vvedite stroku: ');
read(st);
for i:=1 to length(st) do
if opr(upcase(st[i]))=1 then
inc(gl)
else
inc(sl);
writeln;
writeln('Glasnih: ',gl);
writeln('Soglasnih: ',sl);
readkey;
 
end.

@Puporev · 18.03.2009, 16:07

Pascal
1
2
3
4
5
6
7
8
function opr(ch:char):integer;
  begin
    case ch of
   'A','E','O','Y','I','U':opr:=1;
   'B','C','D',F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Z':opr:=2;
 else opr:=0;
 end;
end;

Pascal
1
2
3
4
5
for i:=1 to length(st) do
if opr(upcase(st[i]))=1 then
inc(gl)
else if opr(upcase(st[i]))=2 then
inc(sl);

@Мятный · 22.03.2009, 02:09 **[ТС]**

Спасибо всем))) Всё получилось.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Мятный 2 / 2 / 2 Регистрация: 09.03.2009 Сообщений: 28

	Функция введенную букву проверяет, является ли она гласной или согласной 15.03.2009, 14:19. Показов 5700. Ответов 14 Метки нет (Все метки) Помогите пожалуйсто сделать следующую задачку: Функция введенную букву проверяет, является ли она гласной или согласной. С помощью функции найти количество гласных и согласных в веденном с клавиатуры тексте. Параметры функции - 1 буква. Результат - 0 или 1 Заранее Спасибо!!!!!! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	16.03.2009, 12:48
	А попробуй в разделе var добавить st:string; 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	16.03.2009, 16:45
	у меня почему-то уже вошло "привычку" забывать указывать в переменных st:string)) 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	17.03.2009, 16:58
	Напиши так. GL=['A','E','O','Y','I']; 0

@Мятный 2 / 2 / 2 Регистрация: 09.03.2009 Сообщений: 28
	17.03.2009, 20:05 [ТС]
	... 0

@Мятный 2 / 2 / 2 Регистрация: 09.03.2009 Сообщений: 28
	22.03.2009, 02:09 [ТС]
	Спасибо всем))) Всё получилось. 0