«Решения задач на Pascal Множества» - Контрольная работа

Содержание

3.4. Лабораторная работа 3

Тема: Множества

Вариант Задания

1 1. Заданы имена девочек. Определить, какие из этих имен встречаются во всех классах данной параллели, которые есть только в некоторых классах и какие из этих имен не встречаются ни в одном классе.

2 1. Задан некоторый набор товаров. Определить для каждого из товаров, какие из них имеются в каждом магазине и каких товаров нет ни в одном магазине.

2. Дан текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские гласные буквы (а, е, и, о, у, ы, э, ю, я), входящие в этот текст.

1.

4 1. Имеется множество, содержащее натуральные числа из некоторого диапазона . Сформировать два множества, первые из которых содержит все простые числа из данного множества, а второе – все составные.

2. Известны марки машин, изготовляемых в данной стране и импортируемых за рубеж. Даны некоторые К стран. Определить для каждой из марок, какие из них были:1) доставлены во все страны; 2) доставлены в некоторые из стран; 3) не доставлены ни в одну страну.

1.

6 1. В озере водится несколько видов рыб. Три рыбака поймали рыб, представляющих некоторые из имеющихся видов. Определить: какие рыбы есть в озере, но нет ни у одного их рыбаков.

2. Дан текст из строчных латинских букв и цифр. Определить чего – букв или цифр – больше в этом тексте.

7 1. В N колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня. Определить культуры: возделываемые во всех колхозах; возделываемые только в некоторых колхозах.

2. Подсчитать количество различных цифр в десятичной записи натурального числа.

8 1. Есть список игрушек, некоторые из которых имеются в n детских садах. Определить игрушки из списка: которых нет ни в одном из детсадов; которые есть в каждом из детсадов.

2. Напечатать в порядке убывания все цифры , входящие в запись данного натурального числа.

9 1. Составить программу, которая вычисляет сумму тех элементов двумерного массива, номера строк и столбцов которых принадлежат соответственно непустым множествам S1иS2

2. Задан год рождения. Определить, сколько человек в списке жильцов студенческого общежития родились в этот год.

10 1. Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает.

2.

Выдержка из текста работы

es crt;

type

setbyte=set of byte;

var

z:integer;

procedure readset(var n:setbyte);

var

k:byte;

s:setbyte;

begin

s:=[];

read(k);

s:=s+[k];

read(k);

until k=0;

n:=s;

end;

var

w:byte;

tov:array[1.100] of setbyte;

p,i,j,k,l:integer;

q:array[1.100] of string[20];

ot2,ot1:setbyte;

procedure Initriba;

begin

q[1]:='1- PRIKOL';

q[2]:='2- OCHKO';

q[3]:='3- NFS';

q[4]:='4- BBS';

q[5]:='5- MATRESKA';

q[6]:='6- BASKET';

q[7]:='7- TACHKA';

q[8]:='8- NARDI';

end;

procedure writeset(n:setbyte);

var

j:integer;

begin

for j:=1 to 8 do

if j in n then writeln(q[j]);

end;

begin

clrscr;

Initriba;

writeln('GEMES');

writeset([1,2,3,4,5,6,7,8]);

writeln;

k:=0;

write('n=');

readln(z);

repeat

k:=k+1;

write('SAD N~',k:2,': ');readset(tov[k]);

writeset(tov[k]);

until k=z;

for j:=1 to 8 do

begin

p:=0;

for i:=1 to k do

begin

if j in tov[i] then p:=p+1;

end;

if p=0 then ot1:=ot1+[j];

if p=k then ot2:=ot2+[j];

end;

writeln('----------------------');

writeln('NET NI GDE: ');

writeln('----------------------');

writeset(ot1);

writeln('----------------------');

readln;

end.

Заключение

uses crt;

type

num = set of 0 .9;

var

T, M, T_M : num;

k,i:integer;

begin

clrscr;

k:=0;

T := [0.3];

for i:=0 to 9 do

if ((i in T) and not(i in M)) or ((i in m) and not(i in T)) then k:=k+1;

writeln;

Writeln(k);

readln

end.

Список литературы

1. Зуев Е.А. Язык программирования Турбо- Паскаль 6.0. – М., Унитех, 1992.

2. Немнюгин С.А. Турбо- Паскаль. – СПб.: Питер, 2000.

3. Федоренко Ю. Алгоритмы и программы на Turbo Pascal. Учебный курс.- СПб: Питер, 2001.

4. Семакин И. Г., Шестаков А. П. Основы программирования. – М.; Мастерство, 2002.

5. Могилев А.В. и др. Информатика: учебное пособие для ВУЗов. – М.; Изд. Центр «Академия», 2002.

Примечания

Готовые решения задач на языке Паскаль

К работе прилагается все исходники с расширением .pas.