МАТЕМАТИЧЕСКИЕ ОСНОВЫ ИНФОРМАТИКИ
Четверг, 17.01.2019, 16:52
ГлавнаяРегистрацияВход Приветствую Вас Гость | RSS

Меню сайта

Категории раздела
Поиск символа [2]

Наш опрос
Какой язык программирования Вы изучаете
Всего ответов: 954

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа


Главная » Файлы » Задание 6 » Поиск символа

Число букв в массиве
22.10.2014, 22:25

В символьном массиве подсчитать количество гласных и согласных букв.(Английский алфавит. Определение гласных и согласных букв можно сделать с помощью  функции) на pascal

uses crt;
const n=10;
var a:array[1..n] of char; i,k,l: byte; h,g: set of char;
begin
h:=[chr(65)..chr(90),chr(97)..chr(122)];
g:=['a','e','i','o','u','y','A','E','I','O','U','Y'];
clrscr;
for i:=1 to n do
begin
write('введите ',i,'-й символ: ');
readln(a[i]);
end;
for i:=1 to n do
if a[i] in g then inc(k)
else if a[i] in h-g then inc(l);
writeln('кол-во гласных символов = ',k);
write('кол-во согласных символов = ',l);
end.

Категория: Поиск символа | Добавил: i_elf
Просмотров: 395 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Поиск

Друзья сайта
  • Творческий учитель
  • Сайт ООАКМР
  • Школьный сайт
  • Информатика учебник
  • МОИ

  • Copyright MyCorp © 2019 Сделать бесплатный сайт с uCoz