Технический форум - Лабораторная по Pascal

Технический форум (http://www.tehnari.ru/index.php)

- Помощь студентам (http://www.tehnari.ru/forumdisplay.php?f=41)

- - Лабораторная по Pascal (http://www.tehnari.ru/showthread.php?t=269673)

IvanDormov

06.11.2020 20:10

Лабораторная по Pascal

Ребята, помогите, пожалуйста! Нужно сделать задачу!
Пусть А и В – множества, базовый тип которых интервал 0...50. Множество А – подинтервал базового типа с произвольно заданными границами, В – множество из 10 произвольных неравных элементов. Подсчитать сумму элементов множества В , входящих в А, затем минимальное число из множества А, которое не принадлежит множеству В.
Осуществить просмотр содержимого множеств, затем искомых результатов.

Vladimir_S

06.11.2020 20:20

На выходных посмотрю.

IvanDormov

06.11.2020 20:42

Цитата:

Сообщение от Vladimir_S (Сообщение 2728970)

На выходных посмотрю.

Здравствуйте. А Вы могли бы посмотреть сегодня? Просто мне необходимо завтра сдать эту работу

Vladimir_S

06.11.2020 21:21

Цитата:

Сообщение от IvanDormov (Сообщение 2728974)

Здравствуйте. А Вы могли бы посмотреть сегодня? Просто мне необходимо завтра сдать эту работу

Ну Вы даёте! Нет, сегодня не мог бы. Сожалею.

Евгений

06.11.2020 23:48

Код:

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.

IvanDormov

08.11.2020 12:12

Цитата:

Сообщение от Евгений (Сообщение 2729018)

Код:

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.

Большое спасибо за ответ

Часовой пояс GMT +4, время: 06:46.