Задание на подсчет полного набора символов(мощности алфавита) используемого при кодировании информации
10-11 класс
|
var
c: set of char;
i, n: integer;
s: string;
begin
c := [];
write('Введите текст: ');
readln(s);
n := 0;
for i := 1 to length(s) do
if not (s[i] in c) then
begin
include(c, s[i]);
n := n + 1
end;
writeln('Мощность алфавита, использованного для строки, равна ', n)
end.
Тестовый прогон:
Введите текст: В чащах юга жил бы фикус? Да, но фальшивый экземпляр...!
Мощность алфавита, использованного для строки, равна 35
Введите текст: Pi:=3.14159265; D:=Pi*sqr(D)/4;
Мощность алфавита, использованного для строки, равна 22
А где само задание-то?)
А, я просто думала, что это задание наподобие тех, где "найдите мощность алфавита, если такое-то сообщение занимает такой-то объем информации", совсем не подумала, что программу составить необходимо)
Другие вопросы из категории
Задание
1. Переведите (31
– N)Гбайт
в Мбайты, Кбайты, байты и биты, где N
– номер вашего варианта (порядковый
номер по списку в журнале).
Читайте также
2. Составить задание на разработку программы на разветвляющиеся структуры в QBASIC
3. Составить задание на разработку программы циклической структуры в QBASIC
Нужно задание + сама программа
компьютере равна 256. Какое количество информации в байтах может ввести пользователь за 1 минуту?
может ввести пользователь в компьютер за 1 мин
клавиатуры, может вводить в минуту 100 знаков. Мощность алфавита, используемого в
Сколько вариантов исхода было до получения сообщения? Объем сообщения, содержащего 2048 символов, составил 1/512 часть Мбайта. Каков размер алфавита, с помощью которого записано сообщение? Выяснить, сколько бит информации несет каждое двухзначное число (отвлекаясь от его конкретного числового значения). В книге 512 страниц. Сколько информации содержит сообщение о том, что закладка лежит на какой-либо странице. Для ремонта школы использовали белую, синюю и коричне¬вую краски. Израсходовали одинаковое количество банок белой и синей краски. Сообщение о том, что закончилась банка белой краски, несет 2 бита информации. Синей краски израсходовали 8 банок. Сколько банок коричневой краски израсходовали на ремонт школы? Определить количество информации, получаемое при реализации одного из событий, если бросают несимметричную четырехгранную пирамидку.