Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Январь 2011   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на языке Pascal


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты данной рассылки

Орловский Дмитрий
Статус: Профессор
Рейтинг: 3661
∙ повысить рейтинг » 		Boriss
Статус: Академик
Рейтинг: 2666
∙ повысить рейтинг » 		Абаянцев Юрий Леонидович aka Ayl
Статус: Профессионал
Рейтинг: 2275
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)

Номер выпуска:1158
Дата выхода:11.01.2011, 20:30
Администратор рассылки:Boriss (Академик)
Подписчиков / экспертов:182 / 176
Вопросов / ответов:1 / 1

Вопрос № 181771: Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос: Дан файл x, содержащий различные даты. Каждая дата – это число, месяц и год. Найти: а) год с наименьшим номером; б) все весенние даты; в) самую позднюю дату.

Вопрос № 181771:

Здравствуйте, уважаемые эксперты! Прошу Вас ответить на следующий вопрос:
Дан файл x, содержащий различные даты. Каждая дата – это число, месяц и год. Найти:
а) год с наименьшим номером;
б) все весенние даты;
в) самую позднюю дату.


Спасибо!

Отправлен: 06.01.2011, 19:52
Вопрос задал: Никита Николаевич Святов (Посетитель)
Всего ответов: 1
Страница вопроса »

Отвечает Абельхарисов Руслан/Marked One (Профессионал) :
Здравствуйте, Никита Николаевич Святов!
Код программы(для хранения дат используется текстовой файл input.txt, даты должны быть в формате дд.мм.гггг):
Код:
uses
 CRT;

type
  TDate = record
    y,
m, d: integer;
  end;

const
  vesna = [3..5];

function StrToDate(str: string): TDate;
var
  t: TDate;
  i: integer;
  ts: string;

begin
  Val(str[1] + str[2], t.d, i);
  Val(str[4] + str[5], t.m, i);
  val(str[7] + str[8] + str[9] + str[10], t.y, i);
  StrToDate := t;
end;

var
  year: integer;
  f: text;
  ts: string;
  last, tmp_date: TDate;


begin
  clrscr;
  assign(f, 'input.t
 xt');
  reset(f);

  year := maxint;
  last.y := 0;
  last.d := 0;
  last.m := 0;

  writeln('Весенние даты: ');
  while not eof(f) do
    begin
      readln(f, ts);
      tmp_date := StrToDate(ts);
      if tmp_date.m in vesna then
        write(ts, '  ');
      if tmp_date.y < year then
        year := tmp_date.y;
      if (tmp_date.y >= last.y) and (tmp_date.m >= last.m) and (tmp_date.d > last.d) then
        last := tmp_date;

   end;

  writeln;
  writeLn('Год с наим. номером: ', year);
  writeLn('Самая поздняя дата: ', last.d, '.', last.m, '.', last.y);
  readln;

  close(f);
end.

Пример работы:

Удачи!!!

Ответ отправил: Абельхарисов Руслан/Marked One (Профессионал)
Ответ отправлен: 06.01.2011, 21:00
Номер ответа: 265272
Россия
ICQ # 436075880

Оценка ответа: 5
Комментарий к оценке:
Спасибо.

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 265272 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Ответ поддержали (отметили как правильный): 1 чел.

    Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2011, Портал RFPRO.RU, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Калашников О.А. | Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2011.6.26 от 05.01.2011
    В избранное