Помогите с задачкой на Паскале

nik542 · 28.05.2011, 00:05

1)))Дан массив записей, содержащий различные даты. Каждая дата представлена записью из трех полей: число, месяц и год. Определить самую позднию лению дату.

спс за помощ))) желательно ответ с блок схемой отправить на nikolaj-t@mail.ru

П.С. на :cx: паскале!)

Vladimir_S · 28.05.2011, 09:25

Цитата:

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

самую позднию лению дату

Какую, простите, дату?

nik542 · 29.05.2011, 21:04

блин даже незнаю как сказать...=))

короч там надо вводить несколько дат( число месяц год ) а он потом выдает самую позднию..... я ващщще ничего в этом несмыслю)))

а ссесию здавать надо..... ( на эконом. учуся

)))

Vladimir_S · 29.05.2011, 22:11

Цитата:

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

я ващщще ничего в этом несмыслю

Угу. Равно как, я вижу, и в родном языке. Бедная, бедная Россия, у руля которой встанут такие, короч ващщще, экономы. Здадут ее, несчастную, в утиль. Поскольку несмыслят. Ващщще. Ох, ну да ладно:

Код:

TYPE
 Dt=Record
     Year:Word;
     Month:Byte;
     Date:Byte;
    End;
VAR
 DD:Array[1..100] of Dt;
 i,Max_Month,Max_Date,N:Byte;
 Max_Year:Word;
BEGIN
 Write('Enter the number of dates: ');
 Readln(N);
 For i:=1 to N do
  with DD[i] do
   begin
    Write('Year = ');
    Readln(Year);
    Write('Month (1..12) = ');
    Readln(Month);
    Write('Date (1..31) = ');
    Readln(Date);
    Writeln;
   end;
 Max_Year:=0;
 For i:=1 to N do
  If DD[i].Year>Max_Year then Max_Year:=DD[i].Year;
 Max_Month:=0;
 For i:=1 to N do
  If (DD[i].Year=Max_Year) and
     (DD[i].Month>Max_Month) then Max_Month:=DD[i].Month;
 Max_Date:=0;
 For i:=1 to N do
  If (DD[i].Year=Max_Year) and
     (DD[i].Month=Max_Month) and
     (DD[i].Date>Max_Date) then Max_Date:=DD[i].Date;
 WriteLn('The latest date is ',Max_Date,'.',Max_Month,'.',Max_Year);
 Readln
END.

28.05.2011, 00:05	#1 (permalink)
nik542 Новичок Регистрация: 27.05.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите с задачкой на Паскале 1)))Дан массив записей, содержащий различные даты. Каждая дата представлена записью из трех полей: число, месяц и год. Определить самую позднию лению дату. спс за помощ))) желательно ответ с блок схемой отправить на nikolaj-t@mail.ru П.С. на :cx: паскале!)

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

29.05.2011, 21:04	#3 (permalink)
nik542 Новичок Регистрация: 27.05.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	блин даже незнаю как сказать...=)) короч там надо вводить несколько дат( число месяц год ) а он потом выдает самую позднию..... я ващщще ничего в этом несмыслю))) а ссесию здавать надо..... ( на эконом. учуся )))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070