Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal В произвольно заданном одномерном массиве определить минимальный и максимальный элемент https://www.cyberforum.ru/ turbo-pascal/ thread1344427.html Помогите пожалуйста написать программу. В произвольно заданном одномерном массиве определить минимальный и максимальный элемент. Поменять местами максимальный элемент с первым, минимальный с последним	Turbo Pascal Реализовать в string и в char 15. Дана последовательность символов, состоящая только из цифр и знаков «+, -,, /». Последовательность заканчивается вопросительным знаком. Например: 37 + 2/2 = 38? или 1052 + 32 = 703? Программа должна выводить true или false
Turbo Pascal В матрице 4х4 подсчитать сумму элементов второго порядка В матрице 4х4 подсчитать сумму элементов второго порядка https://www.cyberforum.ru/ turbo-pascal/ thread1344270.html	Turbo Pascal Рекурсивная процедура. Определить результат сравнения количества четных и количества нечетных чисел Помогите пожалуйста с программой. Условие : Используя рекурсивную процедуру или функцию, составить программу, определяющую результат сравнения количества четных и количества нечетных чисел. https://www.cyberforum.ru/ turbo-pascal/ thread1344200.html
Задан текст и алфавит. Найти самую последнюю букву алфавита, использованную в тексте Turbo Pascal Всех с наступающим новым годом!!! Ребятки сессия уже началась, а мне надо написать программку. Помогите пожалуйста. Условие: Задан текст и алфавит. Найти самую последнюю букву алфавита, использованную в тексте. Программу необходимо написать с тремя процедурами: ввод строки, вывод строки на экран, обработка строки ну и в конце через case of сделать выбор этих процедур. Помогите...	Turbo Pascal Типизированные файлы. Напечатать имена людей, имеющий наименьший возраст Дан файл, содержащий записи имен и возрастов некоторой группы людей. Напечатать имена людей, имеющий наименьший возраст. Уже часть программы накатал, а вот дальше ступор после считывания созданного файла, как выполнить условие? Program FinalStep; type fam=record ff:string; age:byte end; var f:file of fam; https://www.cyberforum.ru/ turbo-pascal/ thread1344182.html
Turbo Pascal Напечатайте все слова, которые состоят из тех же букв, что и последнее слово текста Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделенных пробелами. Слова представляют собой произвольную последовательность символов, отличных от пробела. Напечатайте все слова, которые состоят из тех же букв, что и последнее слово текста. помогите пожалуйста! https://www.cyberforum.ru/ turbo-pascal/ thread1344134.html	Turbo Pascal Решение уравнения Пожалуйста помогите написать уравнение в паскале. Очень нужно, так как начинаю осваивать программирование, а базы и примеров нет, простейшее могу написать, а посложнее уже проблема. Уравнения: c=b2\a2 - (b+2a)sin(ea), если cos(a)<b c=b2\a2 - (sin(b)+a)sin(ea), если cos(a)=b c=b2\a2 - (b+a)lg(ea), если cos(a)>b
Turbo Pascal Вычислить куб суммы и число тех элементов массива, значения которых меньше заданной величины A вычислить куб суммы и число тех элементов массива X(n,m), значения которых меньше заданной величины A или находятся в пределах от B до C(включая указанные границы). https://www.cyberforum.ru/ turbo-pascal/ thread1344094.html	Turbo Pascal Как реализовать одновременное движение двух объектов Как реализовать одновременное движение двух объектов, один из которых управляется клавиатурой,а второй двигается сам. попрошу на примере. uses crt,graph; var a:char; d,m,x,y,x3,y3:integer; begin d:=0; initgraph(m,d,'..'); x3:=300;y3:=400; x:=20;y:=20; https://www.cyberforum.ru/ turbo-pascal/ thread1344078.html
Даны натуральное число n, действительная матрица. Получить последовательность элементов главной диагонали Turbo Pascal Даны натуральное число n, действительная матрицаi,i]i=1, ... ,n, j=1,…, n. Получить последовательность элементов главной диагонали a11, a22, ...,ann На Паскале	Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread1343983.html С помощью repeat. Помогите очень нужно.

JuriiMW

5079 / 2651 / 2349

Регистрация: 10.12.2014

Сообщений: 10,028

30.12.2014, 11:27

Прямая и обратная операция кодирования информации (кодирование, декодирование) - Turbo Pascal - Ответ 7054007

30.12.2014, 11:27. Показов 4089. Ответов 2

Метки (Все метки)

Ответ

Ну вот!
Теперь немного прояснилось…

Во-первых: Зачем использовать vcode: array[1..16] of string, когда можно проще

Pascal

1 2	vtext: string = 'АЛДОТВИСБУЛРКЯЕ'; vcode: string = '!@#$^*+=";:/.,<\';

Во-вторых: Тогда функцию кодирования-декодирования можно использовать одну, только передаваемые строки менять местами:

Pascal

function Code(Str, strT, strC : String; Ch : Char) : String;
var
  Res : String;
  P : Byte;
begin
  Res := '';
  for i := 1 to Length(Str) do
    begin
      P := Pos(Str[i], strT);
      if P = 0 then
        Res := Res + Ch
      else
        Res := Res + strC[P];
    end;
  Code := Res;
end;

Чтобы закодировать вызываем Code(Str, vtext, vcode, '_') или для декодирования Code(Str, vcode, vtext, '1')

P.S. Лучше, чтобы длины строк vtext и vcode были одинаковыми ;–)

Вернуться к обсуждению:
Прямая и обратная операция кодирования информации (кодирование, декодирование) Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

30.12.2014, 11:27

Готовые ответы и решения:

Задача по теме:Кодирование и декодирование информации
Я в информатике ни бум-бум... а очень нужна программа, точнее две программы: 1) Программа,...

. Выполнить кодирование и декодирование русскоязычного текста методом Хаффмана
Выполнить кодирование и декодирование русскоязычного текста методом Хаффмана. MatLab Добавлено...

Кодирование и декодирование
Всем привет. Народ,у меня такая проблема, есть код который кодирует и декодирует текст. Но вот...

Кодирование/Декодирование
Добрый вечер! Народ выручайте))) Имеется функция, которая как кодирует так и декодирует текст:...

	30.12.2014, 11:27

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

30.12.2014, 11:27

Помогаю со студенческими работами здесь

Кодирование и декодирование
как перевести в нормальный вид к примеру такую запись ...

кодирование/декодирование
надо написать программу в Делфи.... вот работа программы.... Ввод текста(последовательность...

Кодирование и декодирование текста
Я поставила textbox в основную форму приложения и 2 кнопочки. 1-ая -- кодирование , 2-ая --...

Кодирование и декодирование NRZ
Помогите,пожалуйста :( Задание: Разработать алгоритм кодирования и декодирования, код NRZ в C#....

Наверх