по списку календарных дат найте те, которые являются понедельниками (в Delphi)

[zheka21]

Программа согласна которая списку дат одного плана,определит, скока дней приходится в нем на понедельник. 1 сентября 1986 был понедельник.еще стоит отметить, что 1987 г не высокосный

a.in                               a.out 
5                                       2
08.09.1986                         
13.09.1986
22.09.1986
01.04.1987
05.04.1987

_________
1. теме нужно давать ОСМЫСЛЕННОЕ название.
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

2. Для учебных задач предназначен раздел форума "Помощь студентам"

Прошу учесть на будущее...

Модератор.

[zheka21]

плз срочно помогите

[Serge_Bliznykov]

Сообщение от zheka21

плз срочно помогите

Ого! Даже так!
Сколько платите?!



я на 99% уверен в том, что Вам нужно решение не на Delphi, а на Паскале.
вы спросите в чём отличие? Так в том, что в Delphi уже имеется куча готовых библиотек. Есть и такие, которые позволяют работать с календарными датами.

на Delphi решение вашей задачи может выглядеть так:

program DateCount;

{$APPTYPE CONSOLE}

uses
  SysUtils, DateUtils;

var i, n, kMon : integer;
  s : string;
begin
  reset(input, 'a.in');
  rewrite(output, 'a.out');
  readln(n);
  kMon := 0;
  for i := 1 to n do begin
    Readln(s);
    s := trim(s);
    if DayOfTheWeek(
        EncodeDate(
          StrToInt(copy(s,7,4)),
          StrToInt(copy(s,4,2)),
          StrToInt(copy(s,1,2)))) = 1 then
                inc(kMon);

  end;
  WriteLn(kMon);
end.

[Sciv]

Че там помогать-то, две строчки написать. В Хелп Дельфи слазить лень?

const n=5;
      d: array [1..n] of string=('08.09.1986','13.09.1986','22.09.1986','01.04.1987','05.04.1987');

var i: integer;

begin
  For i:=1 to n do
    if DayOfWeek(StrToDate(d[i]))=2 then WriteLn(i);
  ReadLn;
end.

[Serge_Bliznykov]

Sciv

я предпочитаю использовать DayOfTheWeek

цитирую:

DayOfWeek returns the day of the week 
of the specified date as an integer between 1 and 7, 
where Sunday is the first day of the week and Saturday is the seventh. 

Note:  DayOfWeek is not compliant with the ISO 8601 standard, 
which defines Monday as the first day of the week. 
For an ISO 8601 compliant version, use the DayOfTheWeek function instead. 

[Sciv]

Это-то я знаю. Но в данном случае непринципиально, разве нет?

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

[Serge_Bliznykov]

Сообщение от Sciv

Это-то я знаю. Но в данном случае непринципиально, разве нет?

абсолютно непринципиально. Просто у нас как то принято, что первый день недели понедельник, а седьмой день недели - воскресение. Но, по сути, согласен, если помнить про то, что возвращает конкретная функция - можно легко пользоваться любой (тем более, в данной задаче, где нужно только сравнить с заданным днём!)

Сообщение от Sciv

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

Ага. Это так. я видел. не стал Вам ничего говорить. Как и то, что данные должны считываться из текстового файла, а не задаваться в программе.

Ибо:
1) есть полностью мой рабочий код постом выше.
2) если у человека не хватит смекалки и сообразительности исправить в вашей задаче выдачу номеров на подсчёт количества, то ему лучше вообще ничего не программировать, ибо не его это...


а вот то, что автор темы молчит, меня немного огорчает...