Операторы языка Pascal (задания)

Лабораторная работа № 1. Операторы языка Pascal

Вариант 1

1.Определить, является ли треугольник, заданный длинами его сторон, остроугольным.

2.Возвести натуральное число в квадрат, используя следующую закономерность:

12= 1

22 = 1 + 3

З2 = I + 3 + 5 42 =1+3 + 5 + 7

п2 =1 ... + (2n-1)

3.Подсчитать k – число цифр в десятичной записи целого неотрицательного числа n.

4.Приписать по единице в начало и конец записи числа n. Например,

было n – 3456, стало n – 134561.

Вариант 2

1.Определить, есть ли среди цифр заданного трехзначного числа одинаковые цифры.

2.Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N.

3.Вычислить s – сумму всех чисел Фибоначчи, которые не превосходят 1000.

4.Поменять местами первую и последнюю цифры числа.

Лабораторная работа № 1. Операторы языка Pascal

Вариант 3

1.Даны три произвольных числа. Определить, можно ли построить треугольник с такими длинами сторон.

2.Вычислить суммы кубов чисел от 25 до 125.

3.Не используя операции деления, построить возрастающую последовательность трехзначных чисел, в десятичной записи которых нет одинаковых цифр.

4.Поменять порядок цифр числа на обратный. Например, было 12345, стало 54321.

Вариант 4

1.Даны координаты (как целые от 1 до 8) двух полей шахматной доски. Определить, может ли конь за один ход перейти с одного из полей на другое.

2.Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13.

3.Можно или нет натуральное число п представить в виде суммы трех полных квадратов.

4.Найти количество четных цифр целого положительного числа.

Вариант 5

1.На поле (к, 1) шахматной доски расположен ферзь. Угрожает ли он полю (m, n)?

2.Найти такие двузначные числа, для которых сумма цифр этого числа + квадрат этой суммы равняется этому числу.

3.Даны n – натуральное число и вещественные пары х1, у1 ,..., хn, уn. Определить радиус наименьшего круга с центром в начале координат, внутрь которого попадают эти точки.

4.Найти самую большую цифру целого числа.

Лабораторная работа № 1. Операторы языка Pascal

Вариант 6

1.Выяснить, являются ли поля (к, 1) и (m, n) шахматной доски полями одного цвета.

2.Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. Найти такие числа.

3.Дано 10 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к целому числу.

4.Найти сумму цифр целого числа, больших 5.

Вариант 7

1.Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.

2.Найти четырехзначные числа, которые при делении на 133 дают в остатке 125, а при делении на 134 дают в остатке 111.

3.Дано 10 целых чисел. Найти все из них, принимающие максимальное значение.

4.Определить, сколько раз данная цифра встречается в целом числе.

Вариант 8

1.Даны числа а1 b1 с1, а2 b2, c2. Определить взаимное расположение прямых, заданных уравнениями а1х + b2у = с1, а2х + b2 у = с2, то есть найти координаты точки пересечения прямых, или сообщить, что прямые совпадают, не пересекаются или вообще не существуют.

2.Найти сумму положительных нечетных чисел, меньших 100.

3.Вычислить количество точек с целочисленными координатами, попадающих в круг радиуса R.

4.Получить сумму нечетных отрицательных элементов последовательности целых чисел а1, а2..., аn

Лабораторная работа № 1. Операторы языка Pascal

Вариант 9

1. Даны три целых числа, найти среднее из них, то есть число, которое больше наименьшего из данных чисел, но меньше наибольшего.

2. Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных Aw В вводятся с клавиатуры).

3. Не используя стандартных функций, вычислить tg x.

4. Дано натуральное число n. Вычислить выражение: 1 х 2 + 2 х 3 х 4 + ... + n х (n + 1)х ...х2n.

Вариант 10

1.По координатам концов трех отрезков определить вид треугольника (если данные отрезки позволяют его построить).

2.Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2, 4 или 8.

3.Подобрать всевозможные варианты размена произвольной > 6 руб. суммы с помощью 2- и 5-рублевых монет.

4.Определить, является ли заданное натуральное число совершенным, то есть равным сумме своих положительных делителей, кроме самого этого числа.

Вариант 11

1.Задать координаты точки X, Y. Сообщить номер квадранта на плоскости с этой точкой.

2.Вывести таблицу умножения.

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

4.Найти НОД трех чисел (НОД (а,Ь,с) - НОД(НОД(a,b),с)).

Лабораторная работа № 1. Операторы языка Pascal

Вариант 12

1.Указать знаки X, Y, Z в зависимости от октанта в пространстве.

2.Вывести последовательности: ABBCCC...ZZZ...Z, ZYYXXX...AAA...A, ABC...Z BC...Z C...Z ... Z.

3.Найти сумму цифр числа.

4. Найти	наименьшее общее кратное (НОК) чисел n и т
	n m
НОК		.
	НОД(n, m)

Вариант 13

1.Перевести в шестнадцатеричную систему счисления число из диапазона от 0 до 20.

2.Вычислить значение функции на заданном интервале с заданным шагом.

3.Найти первую цифру числа.

4.С помощью алгоритма Евклида и соотношений НОД(2a, 2b) =

=2НОД(a, b); НОД(2a, b) = НОД(а, b), при нечетном b, найти наибольший общий делитель двух чисел, не используя деления с остатком, применяя только деление на 2 и проверку четности.