Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 09.03.2012
Сообщений: 20
1

Каждой букве алфавита(букву ё не учитывать) поставить в соответствие код-номер места буквы в алфавите

25.04.2012, 17:24. Показов 2282. Ответов 2
Метки нет (Все метки)

Каждой букве алфавита(букву ё не учитывать) поставить в соответствие код-номер места буквы в алфавите(от 1-32). Заданное слово записать с помощью кода, разделяя коды букв пробелами.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2012, 17:24
Ответы с готовыми решениями:

Каждой букве поставить в соответствие число, равное её порядковому номеру в алфавите
Вот моё задание : Разработать подпрограмму, которая каждой букве ставит в соответствие число...

Каждой букве в тексте поставить в соответствие число, равное квадрату её позиции в латинице
Каждой букве в тексте поставить в соответствие число, равное квадрату её позиции в латинице.Вот код...

Каждой букве в тексте поставить в соответствие число, равное 2 в степени её позиции в исходной строке
Сделал умножение по степени (в задании я должен заменить буквы на числа в степени её позиции)...

Функция шифрования выполняющая циклическую замену каждой буквы на букву расположенную на K позиций дальше в алфавите
Я начинающий в этой сфере , по этому нужно простой код! Наперед:Спасибо за понимание! EncodeText...

2
36 / 36 / 28
Регистрация: 17.01.2012
Сообщений: 64
25.04.2012, 20:14 2
Лучший ответ Сообщение было отмечено Vika0_0 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const a:string = 'абвгдежзийклмнопрстуфхцчшщъыьэюя';
var i,k:integer;
    s:string;
begin
  write('Введите слово: ');
  readln(s);
  for i:=1 to length(s) do
  begin
    k:=0;
    repeat
      inc(k);
      if s[i]=a[k] then write(k,' ')
    until s[i]=a[k]
  end
end.
2
19 / 19 / 17
Регистрация: 25.04.2012
Сообщений: 138
27.04.2012, 14:59 3
Ну, вот, если поможет:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program shifrovshik;
     Uses Crt;
     var txt:string; x: array[0..255] of char; i: byte; y: array [0..255] of integer;
     begin
     Writeln('Введите текст: ');
     Readln(txt);
     x:=txt;
     for i:= 0 to 255 do begin
     if x[i]=#0 then
     break;
     y[i]:=ord(x[i]);
     Write(y[i], ' ');
     end;
     readln;
     end.
Здесь просто все буквы заменяются своими порядковыми номерами в стандартной кодировке.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2012, 14:59

Вставить после каждой буквы любую другую букву из русского алфавита
Дан текст "я изучаю информатику". Вставить после каждой буквы (пробел не считается) любую другую...

Случайным образом после каждой буквы вставить любую букву алфавита
2)случайным образом после каждой буквы вставить любую букву алфавита. например я изучаю- яэ...

Поставить в соответствие букве число(a=1,b=2, и т.д.)
Помогите найти ошибку,задание: поставить в соответствие букве число(a=1,b=2, и т.д.).Выдается...

Зашифровать слово, поставив букве её номер в алфавите
зашифровать слово, поставив букве её номер в алфавите.

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

Дан односвязный список. После каждой гласной буквы поставить ее порядковый номер
Не очень понимаю односвязные списки.Буду благодарен за любую помощь..


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

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

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