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

[IvanDormov]

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

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

 

[Vladimir_S]

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

 

[IvanDormov]

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

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

 

[Vladimir_S]

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

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

 

[Евгений]

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]

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.

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