Несколько задач

[Degster]

1)вывести фамилии,имена и отчества всех студентов мужского пола,не сдавших более двух экзаменов(предметы:физика,математик а и информатика)
2)заданы имена девочек. определить,какие из этих имен встречаются во всех классах данной параллели,которые есть только в некоторых классах и какие их этих имен не встречаются ни в одном классе.
3)а)определить радиус и центр окружности,на которой лежит наибольшее число точек заданного на плоскости множества точек
б)если к сумме цифр двузначного числа прибавить квадрат этой суммы,то снова получится это двузначное число.найти все такие числа.

[Stilet]

Наработки есть?

[Degster]

есть только для второго задания, но она почему то не работает(

Uses Crt;
type
names = (anya,masha,lyuba,olya,kolya,zhenya);

Var
a,b,c : set of names;
mas : array[0..4] of string = ('anya','masha','lyuba','olya','kolya');
i : integer;
k : names;

Begin
ClrScr;
a := [anya,masha,lyuba];
b := [anya,masha,olya];
c := [anya,masha,kolya];
{----------}
writeln('Est vo vseh klassah: ');
for k := anya to zhenya do
begin
if (k in a) and (k in b) and (k in c) then
write(mas[ord(k)],' ');
end;
writeln;
writeln;
writeln('Net ni v odnom klasse: ');
for k:=anya to zhenya do
begin
if not (k in a) and not (k in b) and not (k in c) then
write(mas[ord(k)],' ');
end;
writeln;
writeln;
writeln('tolko v klasse A: ');
for k:=anya to zhenya do
begin
if (k in a) and not (k in b) and not (k in c) then
write(mas[ord(k)],' ');
end;

Readln
END.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) иницилизировать переменные при объявлении нельзя.
Это допустимо только для типизированных констант.
(смотри мой вариант решения ниже)

2) в массиве имён mas Вы Женю потеряли.

3) Вам не нужно решать задачу "tolko v klasse A:" (такое не спрашивается в условиях.

4) с множествами допустимы операции пересечений и объединений.
поэтому, найти имена, которые есть в каждом классе можно так
if (k in a * b * c) then
в принципе, в данном случае это не принципиально (Ваш вариант тоже будет работать правильно.
НО! Когда нужно решать задачу "которые есть только в некоторых классах "
вот тогда вместо целого огорода условий, достаточно:
if (k in a + b + c) and not (k in a*b*c) then

ну и последнее.
А что это за девочка с именем "kolya"? Намяется она по жизни с таким именем...

вот решение:

uses Crt;
type
  names = (anya, masha, lyuba, olya, Lena, zhenya);

const
  mas: array[0..5] of string = ('anya', 'masha', 'lyuba', 'olya', 'Lena', 'zhenia');

var
  a, b, c: set of names;
  i: integer;
  k: names;

begin
  ClrScr;
  a := [anya, masha, lyuba];
  b := [anya, masha, olya];
  c := [anya, masha, Lena];
{----------}
  writeln('Est vo vseh klassah: ');
  for k := anya to zhenya do
  begin
    if (k in a * b * c) then
      write(mas[ord(k)], ' ');
  end;
  writeln;
  writeln;

  writeln('Net ni v odnom klasse: ');
  for k := anya to zhenya do
  begin
    if not (k in a + b + c) then
      write(mas[ord(k)], ' ');
  end;
  writeln;
  writeln;


  writeln('Est tolko v nekotoryh klassah: ');
  for k := anya to zhenya do
  begin
    if (k in a + b + c) and not (k in a*b*c) then
      write(mas[ord(k)], ' ');
  end;
  writeln;
  writeln;

  Readln
end.