Гарфилд 2013-08-31

Turbo Pascal 16

Строки

1. Даны строка S и натуральные числа k, n. Удалить в заданной строке n символов, начиная с позиции k.
2. Даны строки А, В и натуральное число k. Вставить символы строки А в строку В, начиная с k-ой позиции.
3. Определить и вывести номера позиций и количество повторений во введенной строке заданного символа.
4. Дан текст. Выяснить, является ли он десятичной записью введенного числа.
5. В введенной строке подсчитать количество слов и букв в каждом слове (слова отделяются пробелами).
*6. Дан текст. Отсортировать символы строки по возрастанию (сортировка в соответствии с кодами в таблице ASCII).

Гарфилд. 2013-08-30

Turbo Pascal 15

Двумерные массивы

1. Дан двумерный массив nxm. Найти сумму и произведение элементов каждой строки.
2. Дан двумерный массив nxn. Поменять местами в первой строке первый и последний элементы, во второй – второй и предпоследний и т.д. То есть поменять элементы главной и побочной диагоналей местами.
3. Дан двумерный массив nxn. Транспонировать его. То есть поменять местами строки и столбцы: 1 строка меняется с первый столбцом, вторая строка – со вторым и т.д.

Гарфилд. 2013-08-29

Turbo Pascal 14

Сортировка массива

1. Дан одномерный массив a(n). Отсортировать его по возрастанию методом простого обмена.
2. Дан одномерный массив b(n). Отсортировать его по убыванию методом простого выбора.
3. Дан одномерный массив c(n). Отсортировать его по возрастанию методом простого включения.

Гарфилд. 2013-08-28

Turbo Pascal 13

Одномерные массивы

1. Заполнить массив Vec(n) квадратом индекса элемента.
2. Найти сумму четных элементов заданного случайным образом (значения элементов массива в диапазоне –10..10) массива Mas(10).
3. Дан массив Т. Найти количество нулевых элементов и вывести на экран их номера.
4. Поменять местами максимальный и минимальный элементы массива A(n). Элементами массива являются случайные числа в диапазоне от 0 до 100.
*. Дан массив А из n вещественных чисел. Вывести в порядке следования все отрицательные числа, а затем все положительные числа.

Гарфилд. 2013-08-27

Turbo Pascal 12

Использование стандартных процедур break и continue

1. Дано натуральное число n. Определить, используется ли в его записи 0.
2. Дано натуральное число n. Определить, является ли оно палиндромом, т.е. таким, десятичная запись которого читается одинаково слева направо и справа налево.

Гарфилд. 2013-08-26

Turbo Pascal 11

Операторы циклов while и repeat

1. Вычислить значение функции y = x – 10 sinx в x принадлежит [-1,1] с шагом 0,1.
2. Известна сумма вклада в банке n и число k, обозначающее величину процентов, начисляемых ежегодно. Определить, через сколько лет сумма вклада превысит m.
3. Дано натуральное число n. Определить количество цифр в этом числе.
4. Дано натуральное число n. Поменять порядок цифр числа n на обратный.

Гарфилд. 2013-08-25

Turbo Pascal 10

Оператор цикла с параметром for

1. Дано натуральное число n. Найти сумму всех четных и нечетных чисел от 1 до n.
2. Дано натуральное число n. Вычислить n! (n!=1×2×3×…×n).
3. Дано натуральное число n. Вычислить 1! + 2! + … + n!.
4. Дано натуральное число n. Вычислить – n корней.

Гарфилд. 2013-08-24

Turbo Pascal 09

Оператор выбора case

1. Дано натуральное число n (n < 100), определяющее возраст человека (в годах). Дать для этого числа наименования "год", "года" или "лет".
2. По введенному натуральному числу n (n < 100), обозначающему количество ворон, вывести надпись "На дереве n ворон", где ворона склоняется соответственно n: "ворон", "ворона", "вороны". В случае n, превышающего 100, вывести надпись "Ветка обломилась".
3. Дано целое положительное число n в диапазоне от 1 до 999. Определить его текстовый эквивалент. Например, при n = 124 необходимо вывести "сто двадцать четыре".

Гарфилд. 2013-08-23

Turbo Pascal 08

Условный оператор if

1. Даны числа с, h, p, t, обозначающие длины четырех стержней. Можно ли составить из этих стержней параллелограмм?
2. Даны действительные положительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами а, b, с в прямоугольное отверстие со сторонами х и у. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из ребер было параллельно или перпендикулярно каждой из сторон отверстия.
3. Заданы координаты вершин треугольника A(x₁,y₁), В(х₂,у₂), С(х₃,у₃) и точка O(х,у). Определить, принадлежит ли точка О треугольнику АВС. Погрешностями вычислений пренебречь.
4. Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми: первое число – номер вертикали (при счете слева направо), второе – номер горизонтали (при счете снизу вверх). Даны натуральные числа k, l, m, n, каждое из которых не превосходит восьми. Выяснить может ли ладья с поля (k, l) одним ходом попасть на поле (m, n).

Гарфилд. 2013-08-22

Turbo Pascal 07

Условный оператор if

1. Музыкальный диск стоит х рублей п копеек. У вас имеется а рублей b копеек. Хватит ли вам денег на покупку диска? В программе предусмотрите вывод слов "Да" или "Нет". В случае недостатка, определите, сколько денег нужно добавить.
2. Прием на работу идет на конкурсной основе. Условия приема требуют 20 лет рабочего стажа и возраста не более 42 лет. Определите, будет ли человек принят на работу.
3. Даны произвольные числа а, b, с. Напечатать 3, 2 или 1 в зависимости от того, равносторонний это треугольник, равнобедренный или какой-либо другой.
4. Даны действительные числа х₁, у₁, х₂, у₂ и r (r > 0). Определить, лежит ли точка с координатами x₁, y₁ вне круга радиуса r с центром в точке x₂, y₂.
5. Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1..10).

Гарфилд. 2013-08-21

Turbo Pascal 06

Стандартные функции.

1. Дано положительное вещественное число k. Определить n-ую цифру дробной части числа k.
2. Даны три действительных числа. Найти среднее арифметическое их модулей и выполнить округление результата до целого.
3. Заданы уравнения двух пересекающихся прямых на плоскости: y₁=k₁x+b₁, y₂=k₂x+b₂. Напишите программу, вычисляющую угол между ними в градусах, используя формулу tg φ= .

Turbo Pascal 05

Вещественный тип данных

1. Даны два действительных числа х и у. Получить .
2. Вычислить координаты точки, делящей отрезок А₁А₂ в отношении n₁:n₂ по формулам:
; .
где ; x₁, y₁ – координаты точки A₁; х₂, у₂ – координаты точки А₂.
3. Вычислить координаты центра тяжести трех материальных точек с массами m₁, m₂, m₃ и координатами (x₁,y₁), (x₂,y₂), (х₃,у₃) по формулам:
; .
4. Даны действительные числа х, у, z. Вычислить а и b
a = (3x³ + 12z² + 2,4y)² × y – 3z + 10, b = |x + 4| – |z⁴ – 8y + 7| – 4.
5. Даны действительные числа х, у, z. Вычислить а и b
, .

Turbo Pascal 04

Целые типы данных

1. Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного целого положительного числа.
2. Идет k-ая секунда суток. Определить, сколько полных часов и полных минут прошло к этому моменту.
3. Дана некоторая сумма денег. Разменять эту сумму банкнотами 1, 3, 5, 10, 20 так, чтобы количество банкнот было минимальным.
4. Даны целых числа х, у (х не равно у). Меньшее из этих двух чисел заменить их к полусуммой, а большее – их удвоенным произведением.

Turbo Pascal 03

Линейные задачи

1. Даны три действительных числа x, y, z. Найти среднее их арифметическое.
2. Определить площадь кольца, если заданы радиусы внешней и внутренней окружностей.
3. Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь.
4. Вычислить расстояние между двумя точками с координатами x₁, y₁, x₂, y₂.

Turbo Pascal 02

Простые алгоритмы

1. Даны стороны треугольника a, b, c. Найти периметр (P) и площадь (S) треугольника.
P = a + b + c
, где p = P/2 (полупериметр)
Предусмотреть корректность ввода: a, b, c – положительные вещественные величины

2. Вычислить площадь заштрихованной фигуры. Предусмотреть корректность ввода: a – натуральная величина.


3. Вычислить площадь заштрихованной фигуры. Предусмотреть корректность ввода: r – радиус вписанной в квадрат окружности – положительная величина.

Turbo Pascal 01

Простые алгоритмы

1. Даны a и b. Обменять значения a и b местами.
2. Даны a и b. Обменять значения a и b местами, не используя промежуточную переменную.
3. Даны a и b. Найти минимальное и максимальное значения с помощью ветвления.  

4. Даны a и b. Найти минимальное и максимальное значения, не используя ветвления.