|
PROGRAM6380.PAS |
|
{* Задачи *}{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }Case User Of- 'Задача 450' : Uses zadach450.pas; { Задан одномерный массив a(n). Найти номер последнего элемента меньшего заданного числа betta. Количество положительных элементов и сумму элементов, больших 3 ... }
- 'Задача 451' : Uses zadach451.pas; { Дано два массива a(n), b(n). Найти сумму элементов двух массивов, больших 1 (используя один цикл). ... }
- 'Задача 452' : Uses zadach452.pas; { Дан массив а из n элементов. Вычислить сколько элементов данного массива больше последующего за ним элемента. ... }
- 'Задача 453' : Uses zadach453.pas; { Дан двумерный массив а, размером . Переставить первый и случайно выбранный столбец. ... }
- 'Задача 454' : Uses zadach454.pas; { Дан двумерный массив А . Найти количество элементов больших 5 в последнем столбце матрицы. ... }
- 'Задача 455' : Uses zadach455.pas; { Дан одномерный массив. Циклически сдвинуть все элементы массива на 3 позиции влево ... }
- 'Задача 456' : Uses zadach456.pas; { Дан двумерный массив а, размером (NxM). Циклически сдвинуть на две позиции вверх все строки матрицы. ... }
- 'Задача 457' : Uses zadach457.pas; { Дан двумерный массив а, размером (n x m) и одномерный массив x(m). Последние 2 строки матрицы заменить массивами х. ... }
- 'Задача 458' : Uses zadach458.pas; { ... }
- 'Задача 459' : Uses zadach459.pas; { Дано число x. Сформировать двумерный массив A (n x m) , так, чтобы каждый элемент матрицы был равен: aij=Sin(x(i+j)). ... }
- 'Задача 46' : Uses bgg46.pas; { Файл input.dat содержит несколько строк текста. Слова в текс-
те могут разделяться пробелами и знаками препинания. Переписать
текст в файл output.dat, удалив из текста сл ... }
- 'Задача 460' : Uses zadach460.pas; { Дан двумерный массив а, размером (n x n) (или квадратная матрица а). Найти среднее геометрическое элементов, нижней треугольной матрицы, расположенной ниже побочной диаг ... }
- 'Задача 461' : Uses zadach461.pas; { Дан двумерный массив а, размером (n x n) (или квадратная матрица а). Найти среднее арифметическое положительных элементов ее побочной диагонали. ... }
- 'Задача 462' : Uses zadach462.pas; { Определить комбинированный тип, описывающий окружность и состоящий из двух полей: «радиус» и «центр». Поле «центр» в свою очередь состоит еще из двух полей: «координата Х ... }
- 'Задача 463' : Uses zadach463.pas; { Определить комбинированный тип для представления анкеты жителя, состоящей из его фамилии, названия города, где он проживает, и городского адреса. Адрес состоит из полей: ... }
- 'Задача 464' : Uses zadach464.pas; { Сформировать массив, каждый элемент которого имеет следующую структуру: пассажир=фамилия:string; имя:string; номер рейса:integer; количество вещей:integer; общий вес:inte ... }
- 'Задача 465' : Uses zadach465.pas; { Дан файл вещественных чисел a.txt. Найти количество положительных элементов и сумму положительных элементов. ... }
- 'Задача 466' : Uses zadach466.pas; { Дано 2 файла вещественных чисел a1.txt и a2.txt. Найти количество нулевых элементов в двух файлах. ... }
- 'Задача 467' : Uses zadach467.pas; { Определить комбинированный тип для представления анкеты ребенка, состоящей из его имени, пола и роста. Дан файл kids.txt с информацией о детях. Вывести средний рост мальч ... }
- 'Задача 468' : Uses zadach468.pas; { Отобразить на экране разноцветные прямоугольники, расположенные следующим образом: ... }
- 'Задача 469' : Uses zadach469.pas; { Создать на экране имитацию передвижения (анимацию) прямоугольника (без изменения цвета) указанным образом (при необходимости учесть его увеличение или уменьшение). ... }
- 'Задача 47' : Uses ggipetro47.pas; { Петя любит играть со своими кубиками, которые выкладывает в ряд и затем с интересом разглядывает свое творение. Однако недавно друзья решили
подшутить над Петей и постави ... }
- 'Задача 470' : Uses zadach470.pas; { Создать на экране имитацию передвижения текста «Компьютер» снизу вверх по правому краю. ... }
- 'Задача 471' : Uses zadach471.pas; {
Описать функцию DegToRad(D) вещественного
типа, находящую величину угла в радианах, если дана его величина D в
градусах (D – вещественное число, 0<D<360). Воспо ... }
- 'Задача 472' : Uses zadach472.pas; { Дано 3 одномерных массива a, b, d длиной 20 элементов каждый. Описать подходящую функцию для облегчения решения задачи. Вычислить: ... }
- 'Задача 473' : Uses zadach473.pas; {
Описать
подпрограмму-процедуру, определяющую координаты центра тяжести (точку О(x0, y0)) системы
материальных частиц с координатами Mi(xi, yi) и с массами mi (должны ... }
- 'Задача 474' : Uses zadach474.pas; {
Описать процедуру DigitCountSum(K, C, S), находящую
количество C цифр целого положительного числа
K, а также их сумму S (K – входной, C и S – выходные
параметры цело ... }
- 'Задача 475' : Uses zadach475.pas; { Дано два одномерных массива x и y одинаковой длины n. Описать процедуру, которая присваивает третьему массиву z разность векторов x и y. Применить прцедуру для двух разны ... }
- 'Задача 476' : Uses zadach476.pas; {
Даны две матрицы А(n x n), В(n x n). Определить можно ли отражением относительно главной
диагонали преобразовать одну в другую. Описать процедуру отражения матрицы
от ... }
- 'Задача 477' : Uses zadach477.pas; { Имеются две коробки, в которых могут быть одинаковые наборы карандашей. После длительного употребления определить карандаши какого цвета имеются в наличии. ... }
Else writeln( 'Ничего не выбрано!'); End;Program pas2123;
Program pas2123..
|