Контрольная работа
«Решения задач на Pascal Множества»
- 15 страниц
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.
Тема: | «Решения задач на Pascal Множества» | |
Раздел: | Программирование, Базы данных | |
Тип: | Контрольная работа | |
Страниц: | 15 | |
Цена: | 400 руб. |
Закажите авторскую работу по вашему заданию.
- Цены ниже рыночных
- Удобный личный кабинет
- Необходимый уровень антиплагиата
- Прямое общение с исполнителем вашей работы
- Бесплатные доработки и консультации
- Минимальные сроки выполнения
Мы уже помогли 24535 студентам
Средний балл наших работ
- 4.89 из 5
написания вашей работы
682 автора
помогают студентам
23 задания
за последние сутки
10 минут
среднее время отклика
Тест
«Ответы на тест Основы искусственного интеллекта»Дипломная работа
«Изучение текстовых задач на уроках математики в начальных классах»ВКР
«Управление учебной деятельностью обучаящихся по овладению методами решения геометрических задач»Курсовая работа
«Решение задачи «Планирование поставок газированных напитков» с помощью MS Excel»Дипломная работа
«Многокритериальная оптимизация»