Сравнить символ со значениями в массиве

@Oh_Shit · Регистрация: 15.01.2012

Студворк — интернет-сервис помощи студентам

Всем добрый день . У меня такая проблема: допустим у меня есть некоторый массив , в который записаны символы , мне нужно ввести с клавиатуры любое число , символ , букву латинского или русского алфовита , мне нужно сравнить её с тем имеется ли она в массиве , допустим . у меня есть массив с набором английских букв. я ввожу букву русского алфавита программа сравнивает её со значаениями в массиве и если там такого символа нет , то пишет ? . сопсно . как мне сделать это сравнение ?) при помощи

Pascal
1
2
3
4
5
6
7
...
Begin
 read(simvol);
 if simvol in ANGL then
    write(simvol)
 else write('?');
...

вся проблема в том ) что массив имеет значени я array [1..52] of char. а символ просто char. и сравнивать их почему-то не хочет)

Добавлено через 1 час 45 минут
UP!!!!

@КонецСвета · 15.01.2012, 20:54

все дело в том, что это

Сообщение от Oh_Shit

simvol in ANGL

операция отношения множественных типов, а используется тип "массив"
есть два выхода:
1) искать в массиве

Pascal
1
2
3
for i:=1 to n do
if a[i]=simvol then inc(k);
if k=0 then writeln('simvol ne vhodit')

2) работать не с массивом, а с множеством

Pascal
1
2
3
4
read(c);
p:=p+[c];
read(simbol);
if simbol in p then .....

@Oh_Shit · 16.01.2012, 22:14 **[ТС]**

Сообщение от КонецСвета

if a[i]=simvol then inc(k);

не могу понять . что за k ?)

@КонецСвета · 16.01.2012, 22:33

считай, что k- просто счетчик для определения, сколько раз символ встречается в массиве, если хоть раз, то есть больше 0 - значит, символ есть в массиве, если 0 - там такого символа нет...
можно заменить булевым значением:

Pascal
1
2
3
for i:=1 to n do
if a[i]=simvol then b:=true;
if b=true then writeln('simvol ne vhodit')

@Oh_Shit · 16.01.2012, 23:37 **[ТС]**

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

с k я уже помозговал и разобрался . просто меня сначала пугало именно inc - ибо не знал что это такое )

@КонецСвета · 16.01.2012, 23:44

для варианта с массивом (с использованием строк прописных и строчных)

Pascal
1
2
3
4
5
str:='qwertyuiopasdfghjklzxcvbnm';
prp:='QWERTYUIOPASDFGHJKLZXCVBNM';
for i:=1 to n do
    if pos(a[i],prp)<>0 then
       a[i]:=str[pos(a[i],prp)];

а для множеств навскидку не придумаю...

@Oh_Shit · 17.01.2012, 00:10 **[ТС]**

короче решил оформить всё через множества . оказалось намног опроще чем с массивом и не так грамостко . вопрос задания у меня был такой = 15. Написать программу для ввода букв латинского алфавита. Если введенный символ не является буквой латинского алфавита, заменить его на знак “?”. Заменить все введенные прописные буквы латинского алфавита строчными. Следить за тем, чтобы буквы не повторялись. Введенная повторно буква заменяется символом “*”. Скорректированный результат ввода вывести на экран.

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
Program sdhgfdujrefj;
uses crt;
const
 alfovit = ['A'..'Z','a'..'z'];
 stro4nie = ['a'..'z'];
Var 
pysto: set of char;
b:char;
c:integer;
Begin
ClrScr;
Repeat
readkey;
b:=readkey;
c:=c+1;
 if b in alfovit then
  if b in pysto then
   write('*')
   else write(b)
  else
  write('?');
  pysto:=pysto+[b]; 
until c=100
End.

выполняются все действия что мне были ножны . кроме одного ) замена Заглавной буквы на строчную . посмотри код . может есть какие соображения , а то уж очень хочется закрыть уже этот вопрос с этой прогой ) и уходить с спокойной душой на каникулы ) . почему-то мне кажется что где-то в паскале уже есть такой дополнительный модуль . про вроде как я его гдето видел , а может ошибаюсь . с массивом всё намного проще ) я так-же как ты думал . логически . что создать два массива , строчные и заглавные и сравнить их по индексам. просто не знал как это реализовать . короче говоря . вот . короче говоря ) срочно нужно поменять заглавные буквы на строчные.

Добавлено через 3 минуты
всё проблема решена ) спасибо аз всю помощь . гугл помог мне . и открыл для меня что такое UpCase и LowCase. моя проблема решена. )

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Oh_Shit 0 / 0 / 0 Регистрация: 15.01.2012 Сообщений: 6
	16.01.2012, 23:37 [ТС]
	ещё такой вопрос . мне нужно что бы каждая моя заглавная буква менялась на маленькую . было бы хорошо оба варинта в случае с массивом или множеством . очень благодарен. с k я уже помозговал и разобрался . просто меня сначала пугало именно inc - ибо не знал что это такое ) 0