Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
programmmm
0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 3
#1

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

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

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

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

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

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

В строке введенных символов подсчитать количество символов C,D,Р - Turbo Pascal
Помогите пожалуйста. В строке введенных символов подсчитать количество символов C,D,Р, считая концом ввода символ (*). У меня получилась...

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

Подсчитать количество введенных символов - Turbo Pascal
3. С клавиатуры вводится последовательность символов. После ввода каждого символа программа должна выводить запрос “Еще”Y/N?” и ждать...

4
Puporev
Модератор
52834 / 40645 / 13893
Регистрация: 18.05.2008
Сообщений: 94,296
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
41 / 41 / 1
Регистрация: 13.08.2012
Сообщений: 441
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
Модератор
52834 / 40645 / 13893
Регистрация: 18.05.2008
Сообщений: 94,296
16.01.2013, 11:48 #4
Цитата Сообщение от ZAYEC77 Посмотреть сообщение
for i:=1 to length(s) do
Зачем проверять всю строку, если нарушитель стоит например первым?
0
ZAYEC77
41 / 41 / 1
Регистрация: 13.08.2012
Сообщений: 441
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
Привет! Вот еще темы с ответами:

проверка и замена введенных символов - Turbo Pascal
Задание: Т.к. за 9 в таблице идет символ &quot;:&quot; делаю проверку: если нажата 9ка то пишется 0, но почемуто в результате пишется 0 а за...

Подсчитать количество введенных символов - Turbo Pascal
С клавиатуры вводится последовательность символов. После ввода каждого символа программа должна выводить запрос “Еще”Y/N?” и ждать ответа...

Подсчитать количество символов введенных с клавиатуры - Turbo Pascal
{Подсчитать количество символов введенных с клавиатуры. Ввод заканчивается символом'(точка) } отвечаю это программка которая (по-моему...

Подсчитать количество символов, введенных с клавиатуры - Turbo Pascal
1) подсчитать количество символов введенных с клавиатуры. ввод заканчивается символом точка. 2) Вычислить средний балл учеников класса,...


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

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

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