case

[GreenDay]

Ох тыж лысый ежик, как давно я тут не был. Здравствуйте.
Ребят, подскажите, как можно переобразовать данный код, так чтобы получилось ветвей в кейсе не больше 7... Я что то упустил этот момент, была идея с помощью цикла накрутить, но нет, сказали не там рою...

program fjgbn;
uses crt;
var n:integer;
begin
  clrscr;
  write('Vvedite echislo elekronov: ');
  readln(n);
  if n<18 then
    case n of
      1:   write('H 1s^1');
      2:   write('He 1s^2');
      3:   write('Li 1s^2');
      4:   write('Be 1s^2 2s^2');
      5:   write('B 1s^2 2s^2 2p^1');
      6:   write('C 1s^2 2s^2 2p^2');
      7:   write('N 1s^2 2s^2 2p^3');
      8:   write('O 1s^2 2s^2 2p^4');
      9:   write('F 1s^2 2s^2 2p^5');
      10:  write('Ne 1s^2 2s^2 2p^6');
      11:  write('Na 3^1');
      12:  write('Mg 3s^2');
      13:  write('Al 3s^2 3p^1');
      14:  write('Si 3s^2 3p^3');
      15:  write('P 3s^2 3p^4');
      16:  write('S 3s^2 3p^5');
      17:  write('Cl 3s^2 3p^5');
      {18:  write('Ar 3s^2 3p^6');}
    end
  else
 write('Znachenie ne korrektno.');
 readkey;
end.

[Serge_Bliznykov]

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

program fjgbn;
uses crt;

Const
  CountOfElement = 18;  
  NameOfElement : array[1..CountOfElement] of string =
    ('H 1s^1','He 1s^2','Li 1s^2','Be 1s^2 2s^2','B 1s^2 2s^2 2p^1','C 1s^2 2s^2 2p^2',
     'N 1s^2 2s^2 2p^3','O 1s^2 2s^2 2p^4','F 1s^2 2s^2 2p^5','Ne 1s^2 2s^2 2p^6',
     'Na 3^1','Mg 3s^2','Al 3s^2 3p^1','Si 3s^2 3p^3','P 3s^2 3p^4','S 3s^2 3p^5',
     'Cl 3s^2 3p^5','Ar 3s^2 3p^6');

var n:integer;

begin
  clrscr;
  write('Vvedite echislo elekronov  (ot 1 do ',CountOfElement:1,': ');
  readln(n);
  if (n>0) and (n<CountOfElement) 
    then Write(NameOfElement[n])
    else
      write('Znachenie ne korrektno.');
 readkey;
end.

[unbanned]

если исключить названия элементов, то можно обойтись 5ю ветвями... т.е. 6ю...

var
  n: integer;

begin
  
  write('Vvedite echislo elekronov: ');
  readln(n);
  
  if n < 18 then
    case n of
      1..3: writeln('1s^', n);
      4: writeln('1s^2 2p^2');
      5..10: writeln('1s^2 2s^2 2p^', n - 4);
      11..12: writeln('3s^', n - 10);
      13..18: writeln('3s^2 3p^', n - 10);
    end
  else
    write('Znachenie ne korrektno.');
end.

по другому кол-во ветвей не уменьшить или придется создавать массив строк с названиями элементов... тогда логичнее сделать как указано выше

[Serge_Bliznykov]

если исключить названия элементов, то можно обойтись 5ю ветвями... т.е. 6ю...

1..3: writeln('1s^', n);

уже при n=3 будет неверно...

 3:   write('Li 1s^2');

ДОБАВЛЕНО
Впрочем, если обратить внимание на n=11, то у автора топика явно пропущено s
скорее всего, и в случае n=3 - у автора опечатка!

[unbanned]

сейчас только обратил внимание
действительно при 3х электронах будет 1s^2 2s^1

var
  n: integer;

begin
  
  write('Vvedite echislo elekronov: ');
  readln(n);
  
  if n < 18 then
    case n of
      1..2: writeln('1s^', n);
      3..4: writeln('1s^2 2s^', n-2);
      5..10: writeln('1s^2 2s^2 2p^', n - 4);
      11..12: writeln('3s^', n - 10);
      13..18: writeln('3s^2 3p^', n - 12);
    end
  else
    write('Znachenie ne korrektno.');
end.

P.S.
у автора при 14-17 электронах тоже непонятно....