|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
06.11.2020, 20:10 | #1 (permalink) |
Новичок
Регистрация: 06.11.2020
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Лабораторная по Pascal
Пусть А и В – множества, базовый тип которых интервал 0...50. Множество А – подинтервал базового типа с произвольно заданными границами, В – множество из 10 произвольных неравных элементов. Подсчитать сумму элементов множества В , входящих в А, затем минимальное число из множества А, которое не принадлежит множеству В. Осуществить просмотр содержимого множеств, затем искомых результатов. |
06.11.2020, 20:10 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно вы моментально найдете решение своей задачи ознакомившись с этими ссылками Открытая лабораторная (openlaba ) Лабораторная работа PowerShell |
06.11.2020, 23:48 | #5 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Код:
uses Crt; var A,B:set of 0..50; i,n,m,k:byte; begin ClrScr; Randomize; repeat Write('0<=N<50 ='); Readln(n); until (n>=0)and(n<50); repeat Write('n<M<=50 ='); Readln(m); until (n<m)and(m<=50); Writeln; Writeln('Mnozhestvo A: '); Writeln; A:=[]; for i:=n to m do begin A:=A+[i]; Write(i:4); end; Writeln; Writeln; Writeln('Mnozhestvo B: '); Writeln; B:=[]; for i:=1 to 10 do begin repeat k:=Random(51); until ([k]*B)=[]; b:=b+[k]; end; for i:=0 to 50 do if i in B then Write(i:4); Writeln; Writeln; k:=0; for i:=0 to 50 do if i in B then if i in A then k:=k+i; Writeln('Summa = ',k); Writeln; for i:=n to m do if ([i]*B)=[] then begin k:=i; Break; end; Writeln('Min = ',k); Readkey; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
08.11.2020, 12:12 | #6 (permalink) | |
Новичок
Регистрация: 06.11.2020
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
pascalabcnet |
Опции темы | |
Опции просмотра | |
|
|