Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
programmmm
0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 3
#1

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

16.01.2013, 09:26. Просмотров 435. Ответов 4
Метки нет (Все метки)

ввести строку символов,состоящую из латинских букв,цифр и пробелов.Осуществить проверку правельности введенных символов.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2013, 09:26
Ответы с готовыми решениями:

Осуществить проверку правильности введённых символов
ввести строку символов,состоящую латинских букв,цифр и пробелов.осуществить...

Создать модуль позволяющий проводить проверку правильности строения арифметического выражения
Создать модуль позволяющий проводить проверку правильности строения...

Осуществить в цикле проверку факта расположения всех 10 точек на прямой
дана матрица с 2 строками и 10 столбцами. первый элемент каждого столбца...

В строке введенных символов подсчитать количество символов C,D,Р
Помогите пожалуйста. В строке введенных символов подсчитать количество символов...

Как сделать проверку на ввод символов
program zadacha1; uses crt; var A:array of real; i, j, n, m: integer;...

4
Puporev
Модератор
54352 / 41944 / 28978
Регистрация: 18.05.2008
Сообщений: 98,798
16.01.2013, 09:36 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
const ds=['A'..'Z','a'..'z','0'..'9',' '];
var s:string;
    i:byte;
    f:boolean;
begin
clrscr;
writeln('Введите строку из латинских букв, цифр и пробелов:');
readln(s);
i:=1;
f:=true;
while(i<=length(s))and f do
if not(s[i] in ds) then f:=false
else i:=i+1;
if f then write('Строка введена правильно')
else write('Строка введена не правильно');
readln
end.
1
ZAYEC77
43 / 43 / 1
Регистрация: 13.08.2012
Сообщений: 452
16.01.2013, 09:45 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var s: String;
    i: Integer;
    b: Boolean;
begin
read(s);
b:=true;
for i:=1 to length(s) do
    if not (s[i]in['A'..'Z',' ','a'..'z','0'..'9']) then
    begin
         b:=false;
         break;
    end;
if not(b) then
writeln('Erro')
else
writeln('All right');
end.
1
Puporev
Модератор
54352 / 41944 / 28978
Регистрация: 18.05.2008
Сообщений: 98,798
16.01.2013, 11:48 #4
Цитата Сообщение от ZAYEC77 Посмотреть сообщение
for i:=1 to length(s) do
Зачем проверять всю строку, если нарушитель стоит например первым?
0
ZAYEC77
43 / 43 / 1
Регистрация: 13.08.2012
Сообщений: 452
16.01.2013, 17:27 #5
Puporev, на то и break;
0
16.01.2013, 17:27
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2013, 17:27

проверка и замена введенных символов
Задание: Т.к. за 9 в таблице идет символ &quot;:&quot; делаю проверку: если нажата...

Подсчитать количество введенных символов
С клавиатуры вводится последовательность символов. После ввода каждого символа...

Подсчитать количество введенных символов
3. С клавиатуры вводится последовательность символов. После ввода каждого...


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

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

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