Подсчитать количество частиц «не», пишущихся раздельно в предложении.

(читать всё…)

Дано расписание движения автобусов. Всего 18 пригородных автобусов отправляются со станции. Определить количество автобусов, отправляющихся со станции в период времени с 17.00 до 20.30. (Время отправления задается одномерным массивом.)
Сформировать пользовательский тип данных, перечислимый, в котором указаны все возможные значения времени отправления: 00.00, 00.30, 01.00, 01.30…23.00, 23.30.

(читать всё…)

Как распечатать текст из Memo?

(читать всё…)

Как записать данное выражение в Delphi?
S=(-1)^n* ((x^2n+1)/(2n+1))

(читать всё…)

Я посылаю запросы php скрипту в таком виде:

LoginInfo:TStringList;

LoginInfo:=TStringList.Create;
LoginInfo.Add('login='+St_login);
LoginInfo.Add('passw='+St_pass);
str:=idhtp1.Post(server+'yyy.php',LoginInfo);

Если сервер не доступен вылетает ошибка.
Как правильно выловить ошибку?
Т.е. если ошибка есть то сделать то то, нету другое и не останавливало программу.

Знаю про IdHTTP1.ResponseCode но как его применить не знаю.

(читать всё…)

Последовательность чисел задаётся следующими формулами:
A1 = 3; A2 = 5; An = 2*Fn-1 + Fn-2
Найдите наименьшее целое n, при котором An будет больше одного миллиона.

(читать всё…)

Какая кодировка текста у редактора кода среды Borland Delphi 7?
И, если я установлю такую же кодировку в notepad++, то при вставке в него скопированного текста из редактора кода будут ли правильно отображаться русские символы ?

Если я открываю *.pas файл в notepad++, то русские символы распознаются правильно, но иногда бывает нужно прямое копирование из IDE в текстовый редактор; открытие *.pas в notepad++ — это уже обходной путь.

Можно ли как то обойтись без обходного пути ?

(читать всё…)

Помогите решить прогрессию на Паскале:

(читать всё…)

Нужно создать окно, которое будет сразу развернуто на весь экран. В CreateWindow указываю стиль — WS_OVERLAPPEDWINDOW or WS_VISIBLE or WS_MAXIMIZE, но окно создаётся обычным — на часть экрана с указанным размером. Приходят сообщения WM_RESIZE и WM_PAINT. В моём случае, происходит ресайз битмапа и его отрисовка.
Когда окно полностью отрисовалось и появилось на экране, приходится вызывать SendMessage(MyWND,WM_SYSCOMMAND,SC_ MAXIMIZE,0), чтобы развернуть окно. Но тогда операции ресайза и отрисовки повторятся снова.
В результате, в два раза больше действий, чем нужно.
Как сделать, чтобы окно было развёрнуто сразу при создании, без вызова SendMessage(MyWND,WM_SYSCOMMAND,SC_ MAXIMIZE,0)?

(читать всё…)

Вычитание. Получить правильную разность двух многозначных чисел (более 15 знаков).
В Турбо Паскаль, вычитать из строки строку, числа идут целые, первое число больше 2-го, буквы отсутствуют.

(читать всё…)