Записи

[sklaim]

Добрый день, помогите пожалуйста решить задачу на записи.
Задача:
Дан массив А, компонентами которого являются полями типа-записи (фамилия, имя, дата рождения). Найдите компоненты этого массива, содержащие сведения о людях, родившихся в последние дни любого месяца.

[Serge_Bliznykov]

ну и как, есть мысли, как Вы собираетесь эту "сложную" задачу решать?

для начала, можете поиском по форуму пройтись, посмотреть чужие примеры...

[sklaim]

я попытался ее решить, но не очень-то получилось

const x = 1;
Type people = Record
   f,n:String;
   d,m,y:integer;
   End;
 Var
 All: Array [1..x] of people;
 i: integer;
Begin
    For i:=1 to  x do
     with All[i] do
        begin 
            Writeln('Введите фамилю, имя и дату рождения');
            Readln(f);
            Readln(n);
            Readln(d,m,y);
            Case d of 
     29: if (m=2) then writeln('Этот человек родился в последний день данного месяца ');
     30: if (m=4) or (m=6) or (m=9) or (m=11) then  writeln('Этот человек родился в последний день данного месяца ');   
     31: if (m=1) or  (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then  writeln('Этот человек родился в последний день данного месяца ');
     else Writeln('...');
                   end; 
          end;
     Readln;
     End.

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

[netpolice]

Что не так то? Вроде как вы более-менее правильно сделали.

Правда вы попытались всех обмануть (и себя видимо тоже).

И проверяете все сразу.

Я бы посоветовал бы вам следующий код вынести в отдельный цикл:

Case d of
29: if (m=2) then writeln('Этот человек родился в последний день данного месяца ');
30: if (m=4) or (m=6) or (m=9) or (m=11) then writeln('Этот человек родился в последний день данного месяца ');
31: if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then writeln('Этот человек родился в последний день данного месяца ');
else Writeln('...');
end;

[Mad_Cat]

Case d of

я бы все таки

case m of

запилил, короче бы получилось)

case m of
2: if (d=28) then writeln('Last day of this month');// тут как бы от года зависит високосный не високосный)
4,6,9,11: if d=30 then writeln('Last day of this month');
1,3,5,7,8,10,12: if d=31 then writeln('Last day of this month');
end;

[s-andriano]

            Case d*100 + m of 
     2902, 2802: writeln('Этот человек родился в последний день данного месяца ');
     3004, 3006, 3009, 3011: writeln('Этот человек родился в последний день данного месяца ');   
     3101, 3103, 3105, 3107, 3108, 3110,3112: writeln('Этот человек родился в последний день данного месяца ');

[Serge_Bliznykov]

s-andriano, а зачем в вашем пример ТРИ ветки с одним и тем же оператором?!
тогда уже так:

Case d*100 + m of 
  2902, 2802,
  3004, 3006, 3009, 3011,
  3101, 3103, 3105, 3107, 3108, 3110,3112 : writeln('Этот человек родился в последний день данного месяца ');   
end;

[s-andriano]

А там что, одно и то же сообщение? Ж8( )
Я как-то даже не удосужился прочитать, и решил, что раз ветки три, то и сообщения три разных.
Кстати, раз уж сообщение одно, я бы рекомендовал воспользоваться не case а фактом вхождения в множество. Правда, для этого нужно привести выражение к диапазону byte.
Например, так:

if m*10 + (d-28) in [20, 21, 42, 62, 92, 112, 13, 33, 53, 73, 83, 103, 123] then

Да, прочитал условие (узнал много интересного), - думаю, там нужно начать с определения, в високосном году родился человек или нет.
И уже тогда проверять на принадлежность одному из множеств:
[20, 42, 62, 92, 112, 13, 33, 53, 73, 83, 103, 123]
или
[21, 42, 62, 92, 112, 13, 33, 53, 73, 83, 103, 123]