Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
muslim.bagdanov
0 / 0 / 0
Регистрация: 17.09.2011
Сообщений: 6
1

Вычислите количество букв латинского алфавита от «А» до «Z»

29.09.2011, 17:05. Просмотров 836. Ответов 2
Метки нет (Все метки)

Пользователь вводит 4 символа. (Char). Вычислите среди них количество букв латинского алфавита от «А» до «Z»,
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.09.2011, 17:05
Ответы с готовыми решениями:

Файл содержит буквы латинского алфавита. Подсчитать количество букв 'р' в файле.
Огромная просьба, помогите, пожалуйста, решить 3 задачи(пожалуйста,если можно, без go to и в Pascal...

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

В заданной строке подсчитать количество букв латинского алфавита
В заданной строке подсчитать количество букв латинского алфавита

Множество букв латинского алфавита.
Заданное множество букв латинского алфавита. Проверить наявинисть в этом множестве всех букв от "A"...

Cлова? начинающиеся с гласных букв латинского алфавита...
дан текст. вывести все слова начинающиеся с гласных букв латинского алфавита....

2
denisneposeda
46 / 46 / 36
Регистрация: 18.10.2010
Сообщений: 212
30.09.2011, 04:24 2
Лучший ответ Сообщение было отмечено muslim.bagdanov как решение

Решение

без сильной проверки при вводе, и оформлении ввода:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var
a: array [1..4] of char;
k,i: integer;
begin
k:=0;
for i:=1 to 4 do
begin
readln(a[i]);
if a[i] in ['A'..'z']
then
inc(k);
end;
writeln('Kol-vo bukv=',k);
end.
0
o-user
245 / 202 / 26
Регистрация: 03.02.2009
Сообщений: 786
30.09.2011, 06:46 3
1. Зачем же массив нужен:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  a:char;
  k,i:integer;
begin
   k:=0;
   for i:=1 to 4 do
      begin
         readln(a);
         if a in ['A'..'Z'] then inc(k);
      end;
 
   writeln('Kol-vo bukv=',k);
end.
2. Надо проверять 'A'..'Z', а не 'A'..'z'.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2011, 06:46

Кодирование букв латинского алфавита последовательностью из нулей и единиц
Помогите написать код, используя процедуры: Распечатать один из способов кодирования букв...

Рекурсия: вывод повторяющихся букв латинского алфавита на экран
Дано натуральное чётное число n. Написать рекурсивную процедуру вывода на экран следующей картинки:...

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


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

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

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