Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Проверьте, образуют ли числа, хранящиеся в списке https://www.cyberforum.ru/ turbo-pascal/ thread1112493.html Пусть дан список вещественных чисел. Проверьте, образуют ли числа, хранящиеся в списке, арифметическую или геометрическую прогрессию.	Turbo Pascal Распечатать десятичные цифры введенного натурально числа начиная с младшей Задача 1. Распечатать десятичные цифры введенного натурально числа начиная с младшей. Задача 2. Подсчитать сумму цифр введенного натурального числа. Задача 3. Найти максимальную десятичную цифру числа. Задача 4. Распечатать десятичные цифры введенного натурально числа начиная со старшей.
Turbo Pascal Осуществите циклический сдвиг компонент заданного вектора A(N) влево на одну позицию, то есть получите вектор А = (a2 , a3 , ., aN , a1 ) https://www.cyberforum.ru/ turbo-pascal/ thread1112455.html Помогите пожалуйста. Осуществите циклический сдвиг компонент заданного вектора A(N) влево на одну позицию, то есть получите вектор А = (a2 , a3 , ..., aN , a1 ).	Turbo Pascal В заданном массиве найдите наибольший элемент из отрицательных В заданном массиве A(N),найдите: а) наибольший элемент из отрицательных; б) наименьший элемент из положительных; в) второй по величине элемент. uses crt; var a:arrayof integer; i,n,maxotr,minpol,max,max2:integer; begin clrscr; randomize; write('n='); read(n); https://www.cyberforum.ru/ turbo-pascal/ thread1112424.html
Списки Turbo Pascal 1. Написать операции работы с заданной структурой данных, включив их в один модуль (файл). К основным операциям (см. таблицу 1) добавить операцию, показывающую содержимое структуры после выполнения какого-либо действия с ней. Эту операцию реализовать на основе базовых операций: а) основные операции над статическим стеком; б) основные операции над динамическим стеком; в) операция...	Turbo Pascal Списки Даны две разреженные квадратные матрицы A и B порядка n ( разреженная матрица это матрица высокого порядка с большим количеством нулевых элементов ). Получить матрицу C = A+B. Для представления разреженной матрицы использовать двусвязный циклический список. Каждое звено списка состоит из пяти полей : - поле с номером строки ненулевого элемента, - поле с номером столбца... https://www.cyberforum.ru/ turbo-pascal/ thread1112412.html
Turbo Pascal Нужно поправить меню Проблема с меню В общем не знаю как так сделать чтобы видило процедуры. Uses crt; Type uchenik=Record fio: String; otc: Array of Integer; end; Var f: File of uchenik; https://www.cyberforum.ru/ turbo-pascal/ thread1112408.html	Turbo Pascal Модуль. Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N) Подсчитайте число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N). Uses crt; Var a:Array of Integer; i,s,n,p:integer; Begin ClrScr; s:=0; p:=0; Writeln('Введите число N'); Readln(n); Writeln('Заполните массив 1..',n);
Turbo Pascal Найти максимальный элемент и поменять его местами с первым элементом массива https://www.cyberforum.ru/ turbo-pascal/ thread1112337.html Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Найти максимальный элемент и поменять его местами с первым элементом массива. Массив вывести в виде таблицы. Задачу необходимо решить с помощью процедур и функций. Я ее решил обычным методом( 3 переменную добавилб массив, макс=а и т.д.), но я без понятия, как ее оформить в виде этих непонятных процедур и функций....	Turbo Pascal Преобразовать одноместный массив вещественных чисел, занеся в каждый элемент сумму всех предыдущих Всем привет. Вот начал изучать массивы, решил уже много не сложных задач, все вроде как получалось пока не дошел до этой. Преобразовать одноместный массив вещественных чисел, занеся в каждый элемент сумму всех предыдущих ( в первый элемент необходимо поместить значение 0) Прошу напишите данную программу, а то всю голову себе сломал. Буду очень благодарен ;) https://www.cyberforum.ru/ turbo-pascal/ thread1112318.html
Turbo Pascal C(n,m)=n!/m! . Вычисление факториалов числа оформить как рекурсивную функцию Составьте программу вычисления числа сочетаний по формуле: C(n,m)=n!/m! . Вычисление факториалов числа оформить как рекурсивную функцию.	Turbo Pascal Математические графы Написать программу для нахождения наикратчайшего пути в математических графах граф задается с помощью матрицы https://www.cyberforum.ru/ turbo-pascal/ thread1112290.html

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

06.03.2014, 14:41

Проиллюстрировать основные операции над множествами на примере символьных множеств - Turbo Pascal - Ответ 5866504

06.03.2014, 14:41. Показов 1883. Ответов 1

Метки (Все метки)

Сообщение было отмечено как решение

Решение

Pascal

uses crt;
type mnz=set of char;
procedure init(n:byte;var m:mnz);
var i:byte;
    c:char;
begin
m:=[];
for i:=1 to n do
 begin
  repeat
   c:=char(48+random(75));
  until(c in ['0'..'9','A'..'Z','a'..'z'])and not (c in m);
  m:=m+[c];
 end;
end;
procedure print(m:mnz;s:string);
var c:char;
begin
writeln('Множество ',s);
for c:='0' to 'z' do
if c in m then write(c);
writeln
end;
var a,b,c,d,e:mnz;
begin
clrscr;
init(20,a);
init(30,b);
print(a,'A');
print(b,'B');
//объединение
c:=a+b;
print(c,'A+B');
//рересечение
d:=a*b;
print(d,'A*B');
//разность
e:=a-b;
print(e,'A-B');
readln
end.

Вернуться к обсуждению:
Проиллюстрировать основные операции над множествами на примере символьных множеств Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

06.03.2014, 14:41

Готовые ответы и решения:

Основные операции теории множеств над двумя числовыми множествами
Здравствуйте! Напишите пожалуйста, программу, которая реализует основные операции теории множеств...

Используя массивы, реализовать основные операции над множествами
Здравствуйте, помогите решить задачку: Используя массивы, реализовать основные операции над...

	06.03.2014, 14:41

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

06.03.2014, 14:41

Помогаю со студенческими работами здесь

Используя массивы, реализовать основные операции над множествами
Здравствуйте, помогите, пожалуйста, решить задачку:

Операции над множествами
Выполнить операции над заданными множествами (A Δ B) ∩ C, где A Δ B = (A U B) \ (A ∩...

Операции над множествами
Помогите плиз. №1 A \ C \subseteq №2 B \subseteq A \Rightarrow (A \ B ) \bigcup B=A ...

Операции над множествами
Здравствуйте уважаемые. Нужно найти объединение, пересечение и разницу множеств А и В. a). A =...

Наверх