Вычисление числа на которое приходится день учителя...

@ypaxapa · Регистрация: 17.11.2009

Author24 — интернет-сервис помощи студентам

День учителя ежегодно отмечается в первое воскресенье октября. Дано натуральное число n, означающее номер года. Определить число, на которое в октябре указанного года приходится День учителя. Народ помогите пожалуйста...

@conn · 18.11.2009, 00:46

так сойдет?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  found:boolean;
  day:byte;
  year:string;
begin
  found:=false;
  day:=1;
  year:=Edit1.text;
  while not found do
    begin
      if DayOfWeek(StrToDate(IntToStr(day)+'.10.'+year))=7 then
        found:=true;
      inc(day)
    end;
  ShowMessage(IntToStr(day));
end;

в uses подключить DateUtils

@new_in_net · 18.11.2009, 01:21

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

так сойдет?
............
в uses подключить DateUtils

Чтоб обойтись без цикла можно так:

Delphi

var
  TeachersDayDate: TDateTime;
begin
  TeachersDayDate := StrToDate(IntToStr(day)+'.10.'+year);
  Inc(TeachersDayDate, 7 - DayOfWeek(TeachersDayDate));
 
  return TeachersDayDate;
end;

@ypaxapa · 18.11.2009, 16:15 **[ТС]**

народ а попроще можно... подобные команды использовать нельзя... нельзя даже массивы(...

@new_in_net · 18.11.2009, 17:21

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

народ а попроще можно... подобные команды использовать нельзя... нельзя даже массивы(...

Так ты сразу скажи что можно, а что нельзя.
Совсем без ничего не вычислишь.

Вот здесь обсуждалась похожая проблема
Вычислить номер дня в не вискокосном году по заданным числу и месяцу.

может Julian date разрешен

@ypaxapa · 18.11.2009, 17:49 **[ТС]**

нет не разрешён... разрешены к сожалению только условия и циклы. Ну всякие там операторы присваивания ввода вывода в расчёт не беру... М-да кстати, написать надо на делфи, но так чтоб потом в Паскале работало, препод так и сказал...

@new_in_net · 18.11.2009, 18:03

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

нет не разрешён... разрешены к сожалению только условия и циклы. Ну всякие там операторы присваивания ввода вывода в расчёт не беру... М-да кстати, написать надо на делфи, но так чтоб потом в Паскале работало, препод так и сказал...

А что из функций разрешено?
Ведь в ручную определить просто по дате какой день недели невозможно не основываясь на умозаключениях. Хотя бы надо знать какой день недели было ХХХ числа, чтоб от этого считать вперед или назад, при этом помня о високосных годах и о том, что в разных месяцах разное кол-во дней.

Функция DayOfWeek() по заданной дате выдает день недели, если ее нельзя использовать то вам надо написать свою - без нее не получится

@ypaxapa 0 / 0 / 0 Регистрация: 17.11.2009 Сообщений: 5
		1
	Вычисление числа на которое приходится день учителя... 17.11.2009, 16:43. Показов 2147. Ответов 6 Метки нет (Все метки) День учителя ежегодно отмечается в первое воскресенье октября. Дано натуральное число n, означающее номер года. Определить число, на которое в октябре указанного года приходится День учителя. Народ помогите пожалуйста... 0

@ypaxapa 0 / 0 / 0 Регистрация: 17.11.2009 Сообщений: 5
	18.11.2009, 16:15 [ТС]	4
	народ а попроще можно... подобные команды использовать нельзя... нельзя даже массивы(... 0

@new_in_net 283 / 262 / 32 Регистрация: 11.11.2009 Сообщений: 605
	18.11.2009, 17:21	5
	Сообщение от ypaxapa народ а попроще можно... подобные команды использовать нельзя... нельзя даже массивы(... Так ты сразу скажи что можно, а что нельзя. Совсем без ничего не вычислишь. Вот здесь обсуждалась похожая проблема Вычислить номер дня в не вискокосном году по заданным числу и месяцу. может Julian date разрешен 0

@ypaxapa 0 / 0 / 0 Регистрация: 17.11.2009 Сообщений: 5
	18.11.2009, 17:49 [ТС]	6
	нет не разрешён... разрешены к сожалению только условия и циклы. Ну всякие там операторы присваивания ввода вывода в расчёт не беру... М-да кстати, написать надо на делфи, но так чтоб потом в Паскале работало, препод так и сказал... 0

@new_in_net 283 / 262 / 32 Регистрация: 11.11.2009 Сообщений: 605
	18.11.2009, 18:03	7
	Сообщение от ypaxapa нет не разрешён... разрешены к сожалению только условия и циклы. Ну всякие там операторы присваивания ввода вывода в расчёт не беру... М-да кстати, написать надо на делфи, но так чтоб потом в Паскале работало, препод так и сказал... А что из функций разрешено? Ведь в ручную определить просто по дате какой день недели невозможно не основываясь на умозаключениях. Хотя бы надо знать какой день недели было ХХХ числа, чтоб от этого считать вперед или назад, при этом помня о високосных годах и о том, что в разных месяцах разное кол-во дней. Функция DayOfWeek() по заданной дате выдает день недели, если ее нельзя использовать то вам надо написать свою - без нее не получится 0