Информатика -продвинутый курс
Переменные множественного типа удобно применять
Множество N - ненайденных букв в тексте - определяется оператором: N := alfa - Е .
Программа 14
program search;
const alfa:set of char=['a' . .'z'];
var c:char;E,N:set of char;
begin
cirscr; E:=[]; writeln('введите текст, конец ввода -*'); read(c);
while c<> '*' do
begin
if с in alfa then E:=E+[c]; read(c)
end;
writeln;
if E=alfa then writeln('найдены все латинские буквы')
else begin
N:=alfa-E;
writeln('найдены:');
for c:='a' to 'z' do if с in E then write(c);
writeln; writeln('не найдены:');
for c:='a' to 'z' do if с in N then write(c);
writeln
end
end.
Переменные множественного типа удобно применять в задачах, где порядок данных не имеет значения, например при моделировании случайных событий.
Пример: составить программу «спортлото 5 из 36», которая позволяет человеку ввести с клавиатуры пять натуральных чисел из интервала 1..36, затем генерирует случайным образом пять различных чисел из того же интервала и объявляет величину выигрыша по правилу: если угаданы человеком 0, 1 или 2 числа, объявляется проигрыш; если угаданы 3 числа, объявляется выигрыш 3 рубля; если угаданы 4 числа, объявляется выигрыш 100 рублей; если угаданы 5 чисел, объявляется выигрыш 1000 рублей.
В программе используются обозначения: mn — множество натуральных чисел из интервала 1 . . 36, а - множество чисел, задуманных человеком, х - множество чисел, . генерируемых компьютером, z=a*x - пересечение множеств а и х; i, k, s - переменные, значения которых принадлежат интервалу 1..36. Случайное число из этого интервала генерируется оператором: s:=random(35)+l. Программа сначала выводит на экран сообщение о выигрышных номерах, затем определяет величину выигрыша.
Программа 15
program lottery;
type mn = set of 1 . . 36;
var x,a, z: nm; i, k, s: 0 . . 36;
begin
writeln; a:=[];
for i:=l to 5 do
begin write('введите ',i,' -тое число '); readin(k);a:=a+[k] end;
randomize;
k:=0; x:=[];
while k<5 do
begin
s:random (35) +1;
if not(s in x) then begin k:=k+l; x:=x+[s]
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий