русс | укр

Языки программирования

ПаскальСиАссемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование

Все о программировании


Linux Unix Алгоритмические языки Аналоговые и гибридные вычислительные устройства Архитектура микроконтроллеров Введение в разработку распределенных информационных систем Введение в численные методы Дискретная математика Информационное обслуживание пользователей Информация и моделирование в управлении производством Компьютерная графика Математическое и компьютерное моделирование Моделирование Нейрокомпьютеры Проектирование программ диагностики компьютерных систем и сетей Проектирование системных программ Системы счисления Теория статистики Теория оптимизации Уроки AutoCAD 3D Уроки базы данных Access Уроки Orcad Цифровые автоматы Шпаргалки по компьютеру Шпаргалки по программированию Экспертные системы Элементы теории информации

Задания для самостоятельного выполнения.


Дата добавления: 2014-11-27; просмотров: 1380; Нарушение авторских прав


1. Даны три множества X1, X2, X3, содержащие целые числа из диапазона [1..100]. Сформировать новое множество Y= (X1ÈX2)Ç(X2ÈX3), из которого выделить подмножество нечетных чисел.

2. Даны три множества X1, X2, X3, содержащие целые числа из диапазона[1..100]. Сформировать новое множество Y = (X1ÈX2)Ç(X2 \ X3) из которого выделить подмножество четных чисел.

3. Даны три множества X1, X2, X3, содержащие целые числа из диапазона [1..100]. Сформировать новое множество Y = (X1ÈX2) \ (X2ÈX3), из которого выделить подмножество чисел, кратных 3.

4. Даны три множества X1, X2, X3, содержащие целые числа из диапазона [1..100]. Сформировать новое множество Y = (X1ÇX2)Ç(X2ÈX3), из которого выделить подмножество чисел, кратных 4.

5. Даны три множества X1, X2, X3, содержащие целые числа из диапазона [1..200]. Сформировать новое множество Y = (X1\X2) Ç (X2ÈX3), из которого выделить подмножество чисел, кратных 5.

6. Даны три множества X1, X2, X3, содержащие целые числа из диапазона [1..100]. Сформировать новое множество Y= (X1ÈX2) Ç (X2ÈX3), из которого выделить подмножество чисел, кратных 6.

7. Даны три множества X1=(1,2,3...20), X2=(10,11,12...30), X3=(1,3,5...21). Сформировать новое множество Y = (X1ÈX2)Ç(X1 È X3) \ (X2ÈX3), из которого выделить подмножество чисел, не делящихся на 3 без остатка.

8. Дано множество X1содержащее целые числа из диапазона [1..255]. Сформировать новое множество Y путем выделения из множества X1 нечетных чисел и чисел, делящихся без остатка на 17.

9. Дано множество X1 содержащее целые числа из диапазона [50..100]. Сформировать новое множество Y1путем выделения из множества X1 четных чисел, множество Y2 путем выделения из множества X1, чисел, кратных 5.



10. Даны множества X1 и Х2, содержащие целые числа из диапазона [1..255].Сформировать новое множество Y =(Х1ÇХ2) и выделить из него все четные числа и числа, делящиеся без остатка на 19.

11. Дано множество X1 содержащее целые числа из диапазона [50..100]. Сформировать новое множество Y1 путем выделения из множества X1 четных чисел, множество Y2 путем выделения из множества X1 чисел, кратных 5.

12. Дано множество X1 содержащее целые числа из диапазона [1..100]. Сформировать новое множество Y1 путем выделения из множества X1нечетных чисел, множество Y2 путем выделения из множества X1, чисел, кратных 15.

13. Дано множество X1содержащее целые числа из диапазона [50..100]. Сформировать новое множество Y1 путем выделения из множества X1 нечетных чисел и множество Y2 путем выделения из множества X1 чисел, кратных 5.

14. Дано множество X1 содержащее целые числа из диапазона [1..100]. Сформировать новое множество Y1 путем выделения из множества X1четных чисел и множество Y2 путем выделения из множества X1, чисел, кратных 15.

15. Дано множество Х1, содержащее символы из диапазона [a...z]. Сформировать новое множество Y1 путем выделения из множества Х1 всех символов расположенных в алфавите позже f и раньше m и множество Y2путем выделения из множества Х1 символов, расположенных раньше g или позже j. На экран вывести множество Y3=(Y1 \ Y2).

16. Дано множество Х1, содержащее символы из диапазона[А...Я]. Сформировать новое множество Y1путем выделения из множества Х1 всех символов расположенных в алфавите раньше Е или позже Ф и множество Y2 путем выделения из множества Х1 символов, расположенных позжеКи раньше Р. На экран вывести множество Y3=(Y1 U Y2).

17. Ввести с клавиатуры множество - последовательность символов из диапазона от А до Я. Определить число различных (без повторений) букв, входящих в данную последовательность.

18. Подсчитать во введенном текстовом отрывке отдельно количество цифр и латинских букв.

19. Дано множество Х1, содержащее символы из диапазона [А...Я]. Сформировать новое множество Y1 путем выделения из множества Х1всех символов расположенных в алфавите позже Е и множество Y2 путем выделения из множества Х1 символов, расположенных раньше К или позже Р. На экран вывести множество Y3=(Y1 n Y2).

20. Дано множество, состоящее из различных символов. Исключить из заданной последовательности символы, не являющиеся буквами.

21. Дано множество, состоящее из различных символов. Возвратить строку с упорядоченными по алфавиту символами.

22. Разработать программу для определения, какому алфавиту принадлежит введенный с клавиатуры символ. После каждого ввода символа выводить сообщение.

23. Подсчитать во введенном текстовом отрывке отдельно количество знаков математических операций и знаков препинания.

24. Дано множество, состоящее из различных символов. Исключить из заданной последовательности символы, не являющиеся цифрами.

Тема 13. Записи.

 

Написать программу обработки записей в соответствии c условием задания. Обработка записей должна быть реализована в подпрограммах. Исходные записи задаать в главной программе и сохранить в типизированном файле. Имя файла ввести с клавиатуры в главной программе. Результат обработки вывести в главной программе.

Пример 1.Разработать базу данных "Сотрудники" (Код, Фамилия, Пол). Записать ее содержимое в типизированный файл. Получить данные по сотрудникам - мужчинам.

 

program pr13;

uses crt;

type Tsotr = record

code: string;

fam: string;

pol: char

end;

TsotrAr = array[1..20] of Tsotr;

procedure proc(sotr: TsotrAr; nzap: byte;

var mans: TsotrAr; var nman: byte);

var i, j: byte;

zap: Tsotr;

begin

j:= 0;

for i:= 1 to nzap do

if sotr[i].pol = 'м' then begin

inc(j);

zap:= sotr[i];

with mans[j] do begin

code:= zap.code;

fam:= zap.fam;

pol:= zap.pol

end

end;

nman:= j

end;

var

i, ns, nm: byte;

sot: TsotrAr;

man: TsotrAr;

fl: file of Tsotr;

s: string;

begin clrscr;

write('Введите имя файла -> ');

readln(s);

assign(fl, s);

rewrite(fl);

i:=1;

while true do begin

with sot[i] do begin

writeln(i,'-й',' сотрудник:');

write('введите код -> '); readln(code);

if code = 'z' then break;

write('введите фамилию -> ');

readln(fam);

write('введите пол -> ');

readln(pol);

write(fl, sot[i]);

inc(i)

end;

end;

ns:= i;

proc(sot, ns, man, nm);

writeln(':');

writeln(' код фамилия пол');

writeln('==================');

for i:= 1 to nm do

with man[i] do

writeln(code:3, fam: 10, pol:3);

close(fl);

readkey;

end.

 



<== предыдущая лекция | следующая лекция ==>
Задания для самостоятельного выполнения. | Задания для самостоятельного выполнения.


Карта сайта Карта сайта укр


Уроки php mysql Программирование

Онлайн система счисления Калькулятор онлайн обычный Инженерный калькулятор онлайн Замена русских букв на английские для вебмастеров Замена русских букв на английские

Аппаратное и программное обеспечение Графика и компьютерная сфера Интегрированная геоинформационная система Интернет Компьютер Комплектующие компьютера Лекции Методы и средства измерений неэлектрических величин Обслуживание компьютерных и периферийных устройств Операционные системы Параллельное программирование Проектирование электронных средств Периферийные устройства Полезные ресурсы для программистов Программы для программистов Статьи для программистов Cтруктура и организация данных


 


Не нашли то, что искали? Google вам в помощь!

 
 

© life-prog.ru При использовании материалов прямая ссылка на сайт обязательна.

Генерация страницы за: 0.866 сек.