Как сделать удваивание букв, мне нужно что-бы при вводе буква к удалялась, а все остальные буквы удваивались, код на удаление буквы к у меня есть, только нужно удвоение букв.
Если кто-то знает код на удвоение букв, то подскажите пж.

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

Стоимость доставки самолетом 1 кг груза составляет 30 гривен. Для каждого из N пассажиров введите вес багажа, который он перевозит, подсчитайте, сколько каждый пассажир должен заплатить за перевозку своего багажа. Вычислите также общий вес груза, перевозимого пассажирами.

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

Подскажите пожалуйста возможно ли сделать компонент Panel на 40% (либо на 100%) прозрачным и чтобы вокруг него была красная граница?

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

Как построить график бесконечности на форме?
ссылка на формулу

Имеется формула, но я не могу её преобразовать, что бы она рисовалась у меня на форме.

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

В одномерный массив введены цифры целого положительного числа М в восьмеричной системе счисления. Количество цифр в числе известно и дано N (N- не более 10). Напечатать восьмеричное представление числа М+7. Предусмотреть проверку правильности ввода информации.

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

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

Var S,h,K,a,b:Real;
begin
S:=StrToFloat(edt2.Text);
h:=StrToFloat(edt1.Text);
K:=

Вот к данному K присвоить цифру выбранную в радибаттоне, все радиобаттоны расположены в GroupBox.

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

Вопрос такой, имеется Edit1 с текстом, когда пользователь кликает по Edit1, данный текст пропадает, и в поле можно ввести любой текст…
Вопрос вот какой, как выловить условие, что Edit1 потерял фокус?

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

Если у CheckBox стоит галочка, то в таблицу записывается: «Пополнение в группу», если не стоит, то ничего не записывается.
На Form есть CheckBox и Button, программу запустили нажали на него, т. е. поставили галочку, нажали кнопочку «ок», в таблицу в определенное поле записалась эта фраза: «Пополнение в группу».

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

Проверить симметрична ли матрица А (7,7) относительно главной диагонали.

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

Дано натуральное число n. Вычислите сумму s=2*2+3*4+4*6+5*8+6*10+…+n*2+*(n-1).

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