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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.942 RSS
←   Апрель 2005   →
 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


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


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

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

Статистика

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

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


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 46
от 20.04.2005, 10:30

Администратор:Калашников О.А.
В номере:Вопросов: 1, Ответов: 4

Вопрос № 19751: zdrasti!!! vot takii u menea voprosi: 1) kak uznati datu,mesets,god i vremea. 2) kak delat' replace na slova (oct. ((posle replace)) = octomber) spasiba zaranie!!!...

Вопрос № 19751
zdrasti!!!
vot takii u menea voprosi:
1) kak uznati datu,mesets,god i vremea.
2) kak delat' replace na slova (oct. ((posle replace)) = octomber)
spasiba zaranie!!!
Отправлен: 15.04.2005, 10:26
Вопрос задал: Gavrilita,Adrian,Vasile (статус: Посетитель)
Всего ответов отправлено: 4
Отвечает: sir henry
Здравствуйте, Gavrilita,Adrian,Vasile!
1. В смысле системные дату и время?
Для этого есть процедуры GetDate() и GetTime().
2. То что Вы привели называется конкатенация, т.е. сложение двух строк:
Const
s1 = 'oct';
s2 = 'omber';
var
s: string;
Begin
s:=s1+s2;
WriteLn(s); {Будет выведено octomber}
End.
Если Вы пишете именно о замене, т.е. 'octo' заменить на 'septe', то это делается с помощью последовательных процедур Поиск_подстроки (POS()) -> Удаление_подстроки (Delete()) -> Вставки (Insert()):
Const
s1 = 'octo';
s2 = 'septe';
var
s: string;
i: integer;
Begin
s:='octomber';
i:=Pos(s1, s); {Нахождение позиции подстроки в строке}
Delete(s, i, Length(s1)); {Удаление подстроки из строки}
Insert(s2, s, i); {Вставка другой подстроки в строку}
End.
Ответ отправил: sir henry (статус: Профессор)
Отправлен: 15.04.2005, 11:09
Оценка за ответ: 5
Комментарий оценки:
Good!!!
Отвечает: Malish
Здравствуйте, Gavrilita,Adrian,Vasile!
Windos.tpu
procedure GetTime(var Hour, Minute, Second, Sec100: Word);
{ SetTime sets the time in the operating system. Valid }
{ parameter ranges are: Hour 0-23, Minute 0-59, Second 0-59 and }
{ Sec100 (hundredths of seconds) 0-99. If the time is not }
{ valid, the function call is ignored. }
procedure GetDate(var Year, Month, Day, DayOfWeek: Word);
{ SetDate sets the current date in the operating system. Valid }
{ parameter ranges are: Year 1980-2099, Month 1-12 and Day }
{ 1-31. If the date is not valid, the function call is ignored. }
Выставить месяцы можно через
case Month of
1: Writeln('Yanvar');
2: Writeln('Fevral');
.
.
.
end;
Ответ отправил: Malish (статус: 10-ый класс)
Отправлен: 15.04.2005, 11:12
Оценка за ответ: 5
Комментарий оценки:
Good
Отвечает: DSota
Здравствуйте, Gavrilita,Adrian,Vasile!
1. GetDate(Year, Month, Day, DayOfWeek);
2. Стандартной процедуры поиска -замены нет, можно использовать следующую:

Приложение:

Ответ отправил: DSota (статус: Студент)
Отправлен: 15.04.2005, 11:12
Оценка за ответ: 5
Комментарий оценки:
Good
Отвечает: CJ
Здравствуйте, Gavrilita,Adrian,Vasile!
1) GetDate, GetTime.
2) Используй if else, например if s='oct' then s1:='october';
и так далее.
Ответ отправил: CJ (статус: Студент)
Отправлен: 15.04.2005, 13:45
Оценка за ответ: 4
Комментарий оценки:
narmalina!!!

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

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus		 Отписаться
В избранное