Задача на Паскале. Дан текст, удалить слова, у которых нет повторяющихся букв.

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

Как данные из Edit1.text, Edit2,text записать в текстовый документ?

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

Есть текстовый файл:

4310139A000PB9;ГАЛИНА;АЛЕКСАНДРОВНА;КОШЕЛЬ;19390131;MH;0010330;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400826;34;16;;137
4010139A000PB0;ОЛЬГА;ТИХОНОВНА;ДИВИНА;19390101;MH;0010359;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400724;34;22;;28
4190639A000PB6;НИНА;АЛЕКСЕЕВНА;КАЗАЗЯН;19390619;MH;0010355;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11401062;34;74;2;14
4240439A000PB8;ТАМАРА;СЕМЁНОВНА;ЗОЛОТАРЁВА;19390424;MH;0010365;17/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400173;34;70;;86
4260839A000PB2;ОЛЬГА;АНАТОЛЬЕВНА;ТКАЧЕНКО;19390826;MH;0010092;16/03/1995;ПЕРВОМАЙСКИЙ РОВД Г.МИНСКА;
11200001;8;0;1;0;29;11100001;35;11906424;7;11700003;38;11400161;34;6;;32

Нужно первые 7 значений (каждое из которых разделено знаком «;») записать в свою переменную. Остальные данные не нужны.

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

Составить алгоритм и программу для вычисления в цикле суммарного результата.
Найти суммарную площадь n прямоугольных треугольников, если длина меньшего катета треугольника равна квадратному корню из длины большего, а длины больших катетов равны b, b/2,…b/n

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

Подскажите,как можно указать, что если у покупателя сегодня день рождения-скидка составляет 15% от товара.

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

Написать приложение, состоящее из 2-х форм. На первой расположить:
— два текстовых поля, в которых задаются размеры второй формы;
— кнопку «Форма 2», при нажатии на которую открывается вторая форма заданного размера;
— кнопку «Изменить», при нажатии на которую Форма 2 то увеличивает, то уменьшает размеры до определенных пределов.

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

Дан массив, например 1,2,3,4,5
Найти умножение этих чисел.

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

Найти номера нечетных элементов, стоящих на четных местах массива, в консоли.

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

Нужен код пузырьковой сортировки рандомных значений массива.

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

Необходимо написать функцию, которая б возвращала объект класса из i-го элемента массива.

Перед этой функцией есть другая функция, которая заносит объект класса в i-й элемент массива:

void Group::PutPerson(int i, Person& map)
{
	if (i>= 0 && i < 10) p_array[ i] = map;
}

Group — созданный класс,
Person& map — объект класса типа Karta (другого созданного класса)
p_array — указатель на динамический массив объектов

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