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

@марина2211 · Регистрация: 09.12.2015

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

Определить каких латинских букв нет в некотором символьном массиве. Определить количество этих букв.( ввод букв с клавиатуры)

@schoolteacher · 03.01.2016, 23:59

Если символьный массив - это текст, то можно так:
1. Для строчных:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program z1623313_small;
var
  f:boolean;i,k:integer;
  t:string; c:char;
begin
 cls;
 write('Введите текст: ');readln(t);
 write('В тексте нет следующих строчных латинских букв: ');
 k:=0;
 for c:='a' to 'z' do
  begin
   f:=true; i:=1;
   while (i<=length(t)) and f do
    begin
     if t[i]=c then f:=false;
     i:=i+1;
    end;
   if f
    then begin write(c,' '); k:=k+1 end;
  end;
 writeln;
 write('Таких букв ',k);
end.

2. Для прописных:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program z1623313_big;
var
  f:boolean;i,k:integer;
  t:string; c:char;
begin
 cls;
 write('Введите текст: ');readln(t);
 write('В тексте нет следующих прописных латинских букв: ');
 k:=0;
 for c:='A' to 'Z' do
  begin
   f:=true; i:=1;
   while (i<=length(t)) and f do
    begin
     if t[i]=c then f:=false;
     i:=i+1;
    end;
   if f
    then begin write(c,' '); k:=k+1 end;
  end;
 writeln;
 write('Таких букв ',k);
end.

Добавлено через 5 минут
3. Для прописных и строчных букв:

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
29
30
31
32
33
34
program z1623313_all;
var
  f:boolean;i,k:integer;
  t:string; c:char;
begin
 cls;
 write('Введите текст: ');readln(t);
  write('В тексте нет следующих прописных и строчных латинских букв: ');
 k:=0;
 for c:='A' to 'Z' do
  begin
   f:=true; i:=1;
   while (i<=length(t)) and f do
    begin
     if t[i]=c then f:=false;
     i:=i+1;
    end;
   if f
    then begin write(c,' '); k:=k+1 end;
  end;
 for c:='a' to 'z' do
  begin
   f:=true; i:=1;
   while (i<=length(t)) and f do
    begin
     if t[i]=c then f:=false;
     i:=i+1;
    end;
   if f
    then begin write(c,' '); k:=k+1 end;
  end;
 writeln;
 write('Таких букв ',k);
end.

@Catstail · 04.01.2016, 11:21

Вот так рациональнее:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program task11;
 
Var Count : Array [1..255] of integer;
Var Txt   : String;
Var i,j   : integer;
 
Begin
    readln(Txt);
    for i:=1 to length(Txt) Do Begin
        j:=Ord(Txt[i]);
        inc(Count[j]);
    End;
    For i:=ord('a') to ord('z') Do
        if Count[i]=0 then write(chr(i));
    For i:=ord('A') to ord('Z') Do
        if Count[i]=0 then write(chr(i));
 
End.

@schoolteacher · 04.01.2016, 15:36

Вместо:

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

Var Count : Array [1..255] of integer;

Можно:
Var Count : Array [65..122] of integer;

@Catstail · 04.01.2016, 15:38

schoolteacher, да, можно. Но тогда придется в первый цикл вставлять if.

@schoolteacher · 04.01.2016, 15:54

Это уже третий уровень (надо иметь понятие о кодовых таблицах). Для того, чтобы по достоинству оценить Ваше решение, необходимо познакомиться с таким же алгоритмом, но без кодов:
4. Для строчных:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program z1623313_small2;
 const cs=['a'..'z'];
 var
  i,k:integer;
  t:string; c:char; 
  fs:array ['a'..'z'] of boolean;
begin
 cls;
 write('Введите текст: ');readln(t);
 for c:='a' to 'z' do
  fs[c]:=true;
 for i:=1 to length(t) do
  if t[i] in cs                          //или   (t[i] in cs) and fs[t[i]]
   then fs[t[i]]:=false;
 write('В тексте нет следующих строчных латинских букв: ');
 k:=0;
 for c:='a' to 'z' do
  if fs[c]
   then begin write(c,' '); k:=k+1 end;
 writeln;
 write('Таких букв ',k);
end.

Добавлено через 2 минуты
5. Для прописных:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program z1623313_big2;
 const cb=['A'..'Z'];
 var
  i,k:integer;
  t:string; c:char;  
  fb:array ['A'..'Z'] of boolean;
begin
 cls;
 write('Введите текст: ');readln(t);
 for c:='A' to 'Z' do
  fb[c]:=true;
 for i:=1 to length(t) do
  if t[i] in cb                          //или   (t[i] in cb) and fb[t[i]]
   then fb[t[i]]:=false;
 write('В тексте нет следующих прописных латинских букв: ');
 k:=0;
 for c:='A' to 'Z' do
  if fb[c]
   then begin write(c,' '); k:=k+1 end;
 writeln;
 write('Таких букв ',k);
end.

Добавлено через 2 минуты
6. Для прописных и строчных букв:

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
29
30
program z1623313_all2;
 const cb=['A'..'Z'];
       cs=['a'..'z'];
 var
  i,k:integer;
  t:string; c:char;
  fb:array ['A'..'Z'] of boolean;
  fs:array ['a'..'z'] of boolean;
begin
 cls;
 write('Введите текст: ');readln(t);
 for c:='A' to 'Z' do
  begin fb[c]:=true; fs[LowCase(c)]:=true end;
 for i:=1 to length(t) do
   if t[i] in cb                          //или   (t[i] in cb) and fb[t[i]]
    then fb[t[i]]:=false
    else if t[i] in cs                    //или   (t[i] in cs) and fs[t[i]]
          then fs[t[i]]:=false;
 write('В тексте нет следующих прописных и строчных латинских букв: ');
 k:=0;
 for c:='A' to 'Z' do
  begin
   if fb[c]
    then begin write(c,' '); k:=k+1 end;
   if fs[LowCase(c)]
    then begin write(LowCase(c),' '); k:=k+1 end
  end;
 writeln;
 write('Таких букв ',k);
end.

ФедосеевПавел · 04.01.2016, 16:01

Sorry, что вмешиваюсь. Но по отношению к данному ТС нет смысла гадать об уровне знаний - они с большой долей вероятности ограничиваются знанием:
1) фамилии преподавателя,
2) названием предмета,
3) названием компилятора.

Как он будет сдавать - лично мне безразлично. Хочет учится - пусть подтягивает знания, не хочет - пусть сдаёт другими доступными способами.

@schoolteacher · 04.01.2016, 23:23

Может другим пригодится. Издержки профессии (обычно спецов раздражает, но это не для них).

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@марина2211 0 / 0 / 0 Регистрация: 09.12.2015 Сообщений: 1

	Определить каких латинских букв нет в некотором символьном массиве 23.12.2015, 18:05. Показов 1196. Ответов 7 Метки нет (Все метки) Определить каких латинских букв нет в некотором символьном массиве. Определить количество этих букв.( ввод букв с клавиатуры) 0

@Catstail Супер-модератор 38171 / 21106 / 4307 Регистрация: 12.02.2012 Сообщений: 34,701 Записей в блоге: 14
	04.01.2016, 15:38
	schoolteacher, да, можно. Но тогда придется в первый цикл вставлять if. 0

ФедосеевПавел Модератор 8655 / 4490 / 1669 Регистрация: 01.02.2015 Сообщений: 13,898 Записей в блоге: 12
	04.01.2016, 16:01
	Sorry, что вмешиваюсь. Но по отношению к данному ТС нет смысла гадать об уровне знаний - они с большой долей вероятности ограничиваются знанием: 1) фамилии преподавателя, 2) названием предмета, 3) названием компилятора. Как он будет сдавать - лично мне безразлично. Хочет учится - пусть подтягивает знания, не хочет - пусть сдаёт другими доступными способами. 0

@schoolteacher 39 / 39 / 49 Регистрация: 18.12.2015 Сообщений: 127
	04.01.2016, 23:23
	Может другим пригодится. Издержки профессии (обычно спецов раздражает, но это не для них). 1