|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.05.2010, 21:35 | #1 |
Регистрация: 15.05.2010
Сообщений: 3
|
подредьте прогу на тему строки. выполняется в консоле
program Project19;
{$APPTYPE CONSOLE} uses SysUtils; var t:textfile; s:string; d,m,y,d1,m1,y1:integer; begin assignfile (t,'C:\Documents and Settings\Admin\Рабочий стол\input.txt'); reset(t); while not eof do begin readln(t,s); d:=strtoint(copy(s,1,2)); m:=strtoint(copy(s,1,2)); y:=strtoint(copy(s,1,2)); case m of 3..5: if (y<y1) or(y=y1)and(m<m1) or(y=y1)and(m=m1)and(d<d1) then begin y1:=y; m1:=m; d1:=d; end; 6..8: if (y<y1) or(y=y1)and(m<m1) or(y=y1)and(m=m1)and(d<d1) then begin y1:=y; m1:=m; d1:=d; end; 9..11: if (y<y1) or(y=y1)and(m<m1) or(y=y1)and(m=m1)and(d<d1) then begin y1:=y; m1:=m; d1:=d; end; 12,1,2: if (y<y1) or(y=y1)and(m<m1) or(y=y1)and(m=m1)and(d<d1) then begin y1:=y; m1:=m; d1:=d; end; end; end; closefile(t); if y1=9999 then writeln('no spring') else writeln(d1:2,'\',m1:2,'\',y1); readln; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Графика в консоле VC++ | MadHead86 | Общие вопросы C/C++ | 2 | 14.09.2012 15:48 |
Кто сможет помоч написать прогу на паскале или делфи на тему базы данных "Зоопарк" | DeluxeSan | Помощь студентам | 6 | 08.12.2009 19:32 |
Assembler TASM/ Разработать прогу:разбивающую каждое слово текстовой строки на две части | levis07 | Фриланс | 5 | 20.11.2009 10:34 |
Помогите решить задачу ан тему: Указатели, строки, функции обработки строк | Chel | Общие вопросы C/C++ | 3 | 11.10.2009 19:48 |
Псевдографика в консоле | Spice | Общие вопросы .NET | 2 | 23.12.2008 13:41 |