Ввести исходный и вспомогательный (с разрешёнными элементами) массивы. Определить и вывести на экран, сколько элементов исходного массива имеют разрешенные значения
Категория: Delphi/Pascal
2012-01-13 20:15:19
Ввести размер прямоугольной матрицы и значения ее элементов. Построить вектор В, где В(i) - максимальное значение в i-ом столбце
Категория: Delphi/Pascal
2012-01-13 20:13:19
Задан вектор Х[1:20]. Сформировать из него матрицу А[1:4;1:6]. Недостающие элементы в последней строке заполнить нулями
Категория: Delphi/Pascal
2012-01-13 20:10:45
Дан вектор V[1:16]. Если среднеарифметическое значение элементов с четными индексами больше или равно среднеарифметическому значению элементов с нечетными индексами, то все элементы вектора увеличить в 5 раз и сформировать из них матрицу W[1:4;1:4]
Категория: Delphi/Pascal
2012-01-13 20:08:40
Иначе удалить из вектора минимальный элемент, все элементы вектора возвести в квадрат, и сформировать из них матрицу Z[1:5;1:3].
Вычислить Z – сумму значений функций Z= f(a, b)+ f(a2, b2) + f(a2 – 1, b ) + f (a-b, b) + f(a2 + b2, b2 –1)
Категория: Delphi/Pascal
2012-01-13 20:06:12
Где
f(u,t) = u2 + t2, если u>0, t>0
u+t2, если u<0 t<0
f(u,t) = u-t, если u>0, t<0
u+t, если u<0, t>0
Даны две строки. Составить процедуру, которая размещает первую строку в середине второй строки
Категория: Delphi/Pascal
2012-01-13 19:59:41
Даны файлы f и g, компоненты которых целые числа. В файл s записать сумму компонентов файлов (поэлементно), а в файл r их разность
Категория: Delphi/Pascal
2012-01-12 23:24:54
База данных любителя игр. Создайте базу данных, содержащую сведения об имеющихся играх на компакт дисках
Категория: Delphi/Pascal
2012-01-12 23:23:18
Составить программу управления базой данных с операциями: Добавление, Поиск, Редактирование, Просмотр всех записей в сортированном виде, Выход.
Одна игра содержит 4 сведения: наименование игры, сколько она весит, параметры для игры (в 1 строку параметры), название компании разработчиков.
Записать строки файла f в файл g, поменяв порядок их следования на противоположный
Категория: Delphi/Pascal
2012-01-12 23:20:23
При этом, если строка короче 50 символов, удлинить её, вставляя равномерно между всеми словами пробелы, пока длина не достигнет 50 символов.
Дан текстовый файл FileIn. Составить процедуру RemWord(FileIn, FileOut), которая удаляет в файле слова и фразы, выделенные кавычками (включая сами кавычки), и помещает результат в FileOut
Категория: Delphi/Pascal
2012-01-12 23:18:31