Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 27.12.2012
Сообщений: 27
1

Определить,сколько было введено латинских букв и сколько остальных символов

27.12.2012, 22:04. Показов 1566. Ответов 1
Метки нет (Все метки)

Вводятся символы до тех пор,пока какой-либо из них не повторится дважды.Определить,сколько было введено латинских букв и сколько остальных символов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.12.2012, 22:04
Ответы с готовыми решениями:

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

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

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

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

1
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
27.12.2012, 22:38 2
Лучший ответ Сообщение было отмечено ChelseaSmile как решение

Решение

Здравствуйте, вот вариант решения:
(компилировался в PascalABC.net)
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 _chars;
 
const
 
 lat_chrs = ['a'..'z','A'..'Z'];
 
var
 
 chr,prev_chr           :Char;
 lat_count,other_count  :byte;
 exit_count             :byte;
 
BEGIN
{ input & process.}
while exit_count < 2 do begin
                         Write('Char: ');readln(chr);
                         
                         if chr=prev_chr then inc(exit_count)
                                         else exit_count:=1;
                         prev_chr:=chr;                                         
                                         
                         if chr in lat_chrs then inc(lat_count)
                                            else inc(other_count);
                        end;
{ output }
 write('lat: ',lat_count,' other: ',other_count);
 
END.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.12.2012, 22:38

Определить, сколько гласных введено с клавиатуры и сколько из них символов "а"
Написать программу, которая определяет, сколько гласных символов введено с клавиатуры и сколько из...

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

Определить сколько чисел было введено, и сколько среди них стречалось 1
С клавиатуры вводятся числа до тех пор пока их сумма не превысит 100. Определить сколько чисел было...

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


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

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

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