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

Turbo Pascal 46

1. Вычислить значение функции y = ax³+bx²+с для значений х, изменяющихся от –3 до 1 с шагом 0,1.
2. Написать функцию обработки строки, которая удаляет в заданной строке пробелы в начале строки, пробелы в конце строки и повторяющиеся пробелы (рядом стоящие).
3. Дан массив А(n) и натуральное k (k < n). Произвести циклический сдвиг его элементов на k позиций вправо (влево).

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

Turbo Pascal 45

1. Создать файл с 10 записями, содержащими информацию об автомобилях (название, марка, год выпуска, объем двигателя, цвет). После считывания записей из файла требуется вывести на экран
- информацию обо всех автомобилях;
- информацию об автомобилях с заданным годом выпуска.
2. Компоненты типизированного файла – массивы, состоящие из 10-ти вещественных чисел. Вывести на экран максимальные элементы всех массивов.
3. Написать функцию нахождения наибольшего общего делителя двух натуральных чисел.

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

Turbo Pascal 44

1. Дан текст, определить, содержит ли он символы, отличные от букв и пробелов.
2. Дана строка символов. Преобразовать ее, удалив из нее повторные вхождения каждой литеры.
3. Дан текстовый файл. Провести его анализ – определить и вывести следующие данные: количество символов, количество строк и количество слов.
Для подсчета слов использовать функцию получающую строку и возвращающую количество слов в ней (слова разделяются пробелом).

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

Turbo Pascal 43

1. Дан текст. Отсортировать символы строки по возрастанию (сортировка в соответствии с кодами в таблице ASCII).
2. Дан некоторый текст. Переставить в нем все буквы "а" в начало, а буквы "я" – в конец. Пример: "саяны" ——» "асныя".
3. Дана строка S. Найти символ, встречающийся в этой строке максимальное количество раз.

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

Turbo Pascal 42

1. Дан массив А(n,m). Требуется найти максимальное и минимальное по величине числа.
2. Дана матрица А(n,n). Найти сумму элементов над (под) главной и над (под) побочной диагоналями (включительно с элементами диагоналей).
3. В введенной строке подсчитать количество слов и букв в каждом слове (слова отделяются пробелами).

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

Turbo Pascal 41

1. Задан массив А(n). Расположить его элементы в обратном порядке
2. Дан массив А(n), состоящий из вещественных чисел. Определить, образуют ли его элементы монотонно возрастающую или убывающую последовательность.
3. В массиве чисел А(n) найти число, повторяющееся максимальное количество раз (если их несколько, то одно из них).

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

Turbo Pascal 40

1. Найти цифровой корень заданного натурального числа n (если сложить все цифры числа, затем – все цифры полученной суммы и повторять это до тех пор, пока не получится однозначное число, то такое однозначное число называется цифровым корнем числа).
2. Даны целые числа A и B (A<B). Вывести все целые числа от A до B включительно; при этом число A должно выводиться 1 раз, число A+1 должно выводиться 2 раза и т.д.

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

Turbo Pascal 39

1. Дано натуральное число k. Напечатать "Да" или "Нет" в зависимости от того, является ли оно степенью числа 3 или нет.
2. Даны целые положительные числа A и B. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B≠0; НОД(A, 0) = A, где «mod» обозначает операцию взятия остатка от деления.
3. Дано натуральное число n. Определить разрядность (количество цифр) этого числа.

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

Turbo Pascal 38

1. Даны два целых числа A и B (A<B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел.
2. Известна сумма вклада в банке n и число k, обозначающее величину процентов, начисляемых ежегодно. Определить, через сколько лет сумма вклада превысит m.
3. Даны натуральные числа m и n, представляющие числитель и знаменатель некоторой дроби. Сократить эту дробь.

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

Turbo Pascal 37

1. Дан номер месяца – целое число в диапазоне 1-12 (1 – январь, 2 – февраль и т. д.). Определить количество дней в этом месяце для невисокосного года.
2. Вычислить значение функции y = 4x³ – 2x² + 5 для значений х, изменяющихся от –3 до 1 с шагом 0,1.
3. Дано целое положительное число n. Вычислить .

Гарфилд. 2013-09-20

Turbo Pascal 36

1. Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число», «положительное нечетное число» и т. д.
2. В старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, быка, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи (1984 год – год зеленой крысы – был началом очередного цикла). Написать программу, которая вводит номер года нашей эры с клавиатуры и выводит его название по старояпонскому календарю.
3. Дано целое число в диапазоне 1-7. Вывести строку – название дня недели, соответствующее данному числу (1 – «понедельник», 2 – «вторник» и т. д.).

Гарфилд. 2013-09-19

Turbo Pascal 35

1. Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами a, b, c является прямоугольным».
2. Даны числа х1, y1, х2, у2, х3, у3 – координаты трех каких-то вершин прямоугольника. Вычислить и напечатать координаты четвертой вершины.
3. Дан номер года (положительное целое число). Определить количество дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный – 366 дней. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 – являются).

Гарфилд. 2013-09-18

Turbo Pascal 34

1. Дано натуральное число n. Определить, является ли значение квадратного корня числа n – целым числом.
2. Даны числа x, y. Определить в какой координатной четверти лежит точка с координатами x и y.
3. В школу танцев принимаются юноши и девушки, имеющие рост не ниже 168 см и не выше 178 см. Их вес должен соотноситься с ростом по формуле: значение веса значение роста – 115. Определите, будет ли поступающий принят в школу?

Гарфилд. 2013-09-17

Turbo Pascal 33

1. Вычислить расстояние между двумя точками с координатами x1, y1 и x2, y2.
2. Найти сумму цифр четырехзначного целого положительного числа n.
3. В девятиэтажном доме на каждом этаже расположено по 4 квартиры. Составить программу, которая по номеру этажа n (1 < n < 9) выводит номера квартир на этом этаже.

Гарфилд. 2013-09-16

Turbo Pascal 32

1. Скорость первого автомобиля V1 км/ч, второго — V2 км/ч, расстояние между ними S км. Определить расстояние между ними через T часов, если автомобили первоначально движутся навстречу друг другу.
2. Дан размер файла в байтах. Используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт = 1024 байта).
3. В магазине продаются компьютеры 3-х наименований, цена их равна а, b и c тенге соответственно. Определить, сколько компьютеров каждого из наименований можно купить на сумму n.

Гарфилд. 2013-09-15

Turbo Pascal 31

1. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в C, C – в B, B – в A, и вывести новые значения переменных A, B, C.
2. Дано значение угла α в градусах (0 < α < 360). Определить значение этого же угла в радианах, учитывая, что 180=π радианов. В качестве значения π использовать 3.14.
3. Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U < V). Время движения лодки по озеру T1 ч, а по реке (против течения) – T2 ч. Определить путь S, пройденный лодкой (путь = время · скорость). Учесть, что при движении против течения скорость лодки уменьшается на величину скорости течения.

Гарфилд. 2013-09-14

Turbo Pascal 30

1. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, то есть квадратный корень из их произведения: .
2. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.
3. Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x2 - x1|.

Гарфилд. 2013-09-13

Turbo Pascal 29

1. Дан диаметр окружности d. Найти ее длину L = πd. В качестве значения π использовать 3.14.
2. Дана длина ребра куба a. Найти объем куба V = a³ и площадь его поверхности S = 6∙a².
3. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = a∙b∙c и площадь поверхности S = 2∙ (a∙b + b∙c + a∙c).

Гарфилд. 2013-09-12

Turbo Pascal 28

Рекурсия

1. Выполнить необходимую обработку, при этом описать рекурсивную процедуру или функцию, исходя из условия задачи. Исходные данные задать самостоятельно, учитывая специфику задачи.
Даны натуральные числа а, b, обозначающие стороны некоторого прямоугольника. Найти наименьшее количество квадратов, необходимых для его заполнения.

Записи и обработка файлов

2. Задав массив записей, реализовать его обработку, как указано в варианте. В программе должны быть предусмотрены процедуры: чтения из файла данных и размещения в массиве записей; обработки массива записей и вывода, исходя из условия варианта. Данные о работниках располагаются в файле file.in. Файл может быть типизированным или текстовым. В случае текстового файла, каждая строка содержит следующие данные, разделенные запятыми: фамилию, имя, отчество, пол, дату рождения, адрес, телефон, оклад. Результаты поиска, данные о работниках, записать в файл file.out в аналогичном формате.
Отобрать работников-мужчин.

Гарфилд. 2013-09-11

Turbo Pascal 27

Организация циклов и работа с одномерными массивами

1. Задав одномерный массив целочисленных данных А в одном из заданных форматов (Byte, Word, Shortint, Integer или Longint), реализовать обработку массива, как указано в варианте. Длина массива N <= 20. Исходные данные задать самостоятельно, учитывая формат элементов массива A. Исходные данные должны вводиться с проверкой на область допустимых значений. Тип результата определяется из контекста задачи.

Integer. Найти сумму квадратов всех положительных элементов массива A={a[i]}.

Строковый тип

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

Дана строка S. Подсчитать в ней количество пробелов.

Подпрограммы и обработка матриц

3. Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику задачи. В программе должны быть предусмотрены процедуры ввода-вывода элементов массива А и его обработки.

Задана квадратная матрица A размером n^xn (n≤10), состоящая из действительных элементов. Найти сумму всех ее положительных и произведение всех ее отрицательных элементов.

Гарфилд. 2013-09-10

Turbo Pascal 26

Вычисление арифметических выражений

1. Вычислить заданное смешанное арифметическое выражение для данных в форматах Real (переменные a, b) и Integer (остальные переменные).

Организация ветвлений

2. Вычислить заданное целочисленное выражение для данных a, b в формате Integer, используя оператор IF. Результат Х - вещественный.

X=

Организация циклов

Используя операторы циклов, организовать необходимый поиск и вычисления. Тип результата определяется из контекста задачи.
Дано натуральное число n. Среди чисел от 1 до n найти все такие, запись которых совпадает с последними цифрами записи их квадрата.

Гарфилд. 2013-09-09

Turbo Pascal 25

Модуль CRT

1. Написать программу вывода на экран вашего имени в случайной позиции, случайным цветом. Вывод происходит до нажатия любой клавиши:

Гарфилд, 2013-09-08

Turbo Pascal 24

Файлы

1. Пусть даны два файла целых чисел. Определите, равны ли они.
2. Дан текстовой файл my.txt. Вывести его содержимое на экран (с организацией постраничных пауз вывода). Подсчитать в нем количество слов, символов, абзацев (считать, что абзац заканчивается признаком конца строки). Вывести статистику в текстовой файл stat.txt.

Гарфилд. 2013-09-07

Turbo Pascal 23

Рекурсия и опережающее описание

1. Дано действительное число а, натуральное число k. Не пользуясь стандартной операцией возведения в степень, найти а^k.
2. Дано натуральное число n. Определить количество цифр в этом числе.
3. Дано натуральное число n. Определить сумму его цифр.
4. Дано натуральное число n. Вычислить (n корней).
5. Даны натуральные числа а и b, обозначающие стороны некоторого прямо­угольника. Найти наименьшее количество квадратов, необходимых для его заполнения.

Гарфилд. 2013-09-06

Turbo Pascal 22

Параметры подпрограмм

1. Вывести все числовые палиндромы (десятичная запись читается одинаково слева направо и справа налево) в диапазоне от 1 до n. Реализовать подпрограмму, для определения, является ли число палиндромом.
2. Доработать программу с массивом (пример 2), дополнительно реализовав:
- вычисление суммы элементов массива (функция);
- вычисление произведения элементов массива (функция);
- вычисление среднего арифметического элементов массива (функция);
- циклический сдвиг на указанное число элементов (процедура);
- расположение элементов массива в обратном порядке (процедура).
*3. Реализовать подпрограмму (процедуру или функцию), выполняющую сортировку символов строки по возрастанию (сортировка в соответствии с кодами в таблице ASCII).

Гарфилд. 2013-09-05

Turbo Pascal 21

Процедуры

1. Дано натуральное число n. Вывести все делители каждого числа от 1 до n, в виде:
1 – 1
2 – 1, 2
3 – 1, 3
4 – 1, 2, 4
5 – 1, 5
6 – 1, 2, 3, 6
...
Вывод числа и его делителей реализовать в виде процедуры, в которую передается само число.
2. Написать процедуру вывода текстового эквивалента трехзначного числа (например, для 124 – "сто двадцать четыре"). Организовать ввод в программу числа (в диапазоне 1..999) и вывод словесной записи:
- самого числа;
- суммы его цифр;
- его обратной записи цифр.

Гарфилд. 2013-09-04

Turbo Pascal 20

Функции

1. Дано натуральное число n. Вычислить 1! + 2! + … + n!, используя определенную в примере функцию.
2. Дано натуральное число n. Найти все совершенные числа от 1 до n. Совершенное число – это такое число, которое равно сумме всех своих делителей (т.е. делителей, отличных от самого числа). Реализовать функцию нахождения суммы делителей числа.

Гарфилд. 2013-09-03

Turbo Pascal 19

Модульное программирование

1. Даны два натуральных числа. Определить, равны ли их цифровые корни (если сложить все цифры числа, затем - все цифры полученной суммы, и повторять это до тех пор, пока не получится однозначное число, то такое однозначное число называется цифровым корнем числа). Реализовать функцию вычисления цифрового корня натурального числа.
2. Дана строка, выяснить является ли она палиндромом («перевертышем»). Для решения задачи реализовать функцию получения обратной строки из заданной.

Гарфилд. 2013-09-02

Turbo Pascal 18

Записи

1. Описать записи, содержащие информацию о:
1) точке: координаты на плоскости и цвет;
2) окружности: координаты центра окружности, радиус и цвет;
3) прямоугольнике: координаты левого верхнего и правого нижнего углов и цвет.
Организовать ввод и вывод данных о геометрических объектах на экран.
2. Описать запись следующего вида:

3. Создать массив из ста записей. Элемент массива – запись, содержащая информацию о точке (координаты X и Y). Случайным образом заполнить массив этих точек, причем для координат используются следующие ограничения:
0 ≤ X < 640
0 ≤ Y < 480

Гарфилд. 2013-09-01

Turbo Pascal 17

Множества

1. Пусть дан текст. Подсчитайте общее число вхождений английских букв в текст.
2. Написать программу, осуществляющую ввод текста, состоящего из неповторяющихся символов.
3. Дана строка символов. Преобразовать ее, удалив из нее повторные вхождения каждой литеры.
*. Дана строка S. Подсчитать в ней наибольшее количество идущих подряд цифр (для решения задачи использовать множества).
*. Дана строка S. Найти символ, встречающийся в этой строке максимальное количество раз.