Создать файл, содержащий записи о дате: день (1..31), месяц (1..12), год (1950..2002).

@zilipupa · Регистрация: 24.04.2011

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

условие:
Создать файл, содержащий записи о дате: день (1..31), месяц (1..12), год (1950..2002). переписать этот файл в два текстовых файла, дату представить в виде дд.мм.гг. В одну строку включить одну дату. В один текстовый файл включить даты для летних месяцев, в другой – для зимних.

наброски есть.
только нужно сделать в делфи.
помогитедополнить или лучшить эту задачку.)
заранее спасибо!

Delphi

uses crt;
 var
 date,summer,winter : text;
 d,s : string;
 begin
 assign(date, 'd:\date.txt');
 assign(summer, 'd:\summer.txt');
 assign(winter, 'd:\winter.txt');
 rewrite(summer);
 rewrite(winter);
 reset(date);
 while not EOF(date) do
 begin
 readln(date,d);
 
s:=copy(d,4,2);
 if (s='12') or (s=' 1') or (s=' 2') then
 begin
 While Pos(' ', d) > 0 Do d[Pos(' ', d)]:='0';
 writeln(winter,d);
 end;
 if (s=' 6') or (s=' 7') or (s=' 8') then
 begin
 While Pos(' ', d) > 0 Do d[Pos(' ', d)]:='0';
 writeln(summer,d);
 end;
 end;
 close(date);
 close(summer);
 close(winter);
 end.

@freeba · 24.04.2011, 09:07

Не по теме:

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

только нужно сделать в делфи.

Жжете сэр.

@chessman1 · 24.04.2011, 09:46

zilipupa Вам не в этот форум - здесь только C# обсуждаем

@freeba Неадекват 1492 / 1230 / 246 Регистрация: 02.04.2010 Сообщений: 2,789
	24.04.2011, 09:07	2
	Не по теме: Сообщение от zilipupa только нужно сделать в делфи. Жжете сэр. 0

@chessman1 167 / 96 / 23 Регистрация: 13.03.2011 Сообщений: 402
	24.04.2011, 09:46	3
	zilipupa Вам не в этот форум - здесь только C# обсуждаем 0