Turbo Pascal для начинающих

         

Функции

Приступая к решению задач этого раздела, следует вспомнить, что:

  • для передачи данных в функцию надо использовать только параметры (глобальные переменные, т. е. переменные, объявленные вне функции, применять не рекомендуется);
  • среди выполняемых инструкций функции обязательно должна быть инструкция присваивания значения функции;
  • тип каждого фактического параметра (константы или переменной) в инструкции вызова функции должен быть таким же, как тип соответствующего формального параметра, указанного при объявлении функции;
  • если в инструкции объявления функции перед именем формального параметра не стоит слово var, то при вызове функции можно использовать в качестве формального параметра константу или переменную соответствующего типа. Если слово var указано, то формальным параметром может быть только переменная;
  • если параметры функции используются для возврата результата в программу, вызвавшую функцию, то в объявлении функции перед именем соответствующего параметра должно присутствовать слово var.

176. Написать функцию, которая вычисляет объем цилиндра. Параметрами функции должны быть радиус и высота цилиндра.
177. Написать функцию, которая возвращает максимальное из двух целых чисел, полученных в качестве аргумента.
178. Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного из знаков: >, < или =.
179. Написать функцию, которая вычисляет сопротивление цепи, состоящей из двух резисторов. Параметрами функции являются величины сопротивлений и тип соединения (последовательное или параллельное). Функция должна проверять корректность параметров: если неверно указан тип соединения, то функция должна возвращать -1.
180. Написать функцию, которая вычисляет значение аь. Числа а и ь могут быть любыми дробными положительными числами.
181. Написать функцию Procent, которая возвращает процент от числа, полученного в качестве аргумента.
182. Написать функцию Dohod, которая вычисляет доход по вкладу. Исходными данными для функции являются: величина вклада, процентная ставка (годовых) и срок вклада (количество дней).
183. Написать функцию Giasn, которая возвращает значение True, если символ, полученный функцией в качестве аргумента, является гласной буквой русского алфавита.
184. Написать функцию LTrim, которая удаляет начальные пробелы из строки, полученной в качестве аргумента.
185. Написать функцию Sogi, которая возвращает True, если символ, полученный функцией в качестве аргумента, является согласной буквой русского алфавита.
186. Написать функцию, которая возвращает преобразованную к верхнему регистру строку, полученную в качестве аргумента. Обратите внимание, если эту функцию назвать upCase (т. е. так, как называется функция языка Turbo Pascal, решающая подобную задачу для символов латинского алфавита), то функция программиста подменит функцию Turbo Pascal.
187. Написать функцию вычисления факториала (факториалом целого числа п называется число, равное произведению целых чисел от 1 до п).

Факультатив

188. Написать функцию для решения квадратного уравнения. Параметрами функции должны быть коэффициенты и корни уравнения. Значение функции должно использоваться для передачи в вызывающую ее программу информации о наличии корней уравнения: 2 — два разных корня, 1 — корни одинаковые, 0 — уравнение не имеет решения. Кроме того, функция должна проверять корректность исходных данных. Если исходные данные неверные, то функция должна возвращать -1.
189. Написать функцию, обеспечивающую ввод с клавиатуры целого положительного двухзначного числа. При нажатии пользователем какой-либо клавиши соответствующий ей символ должен появляться на экране только в том случае, если этот символ является цифрой. Функция должна позволять пользователю редактировать введенное число при помощи клавиши <BackSpace>. Если пользователь ввел хотя бы одну цифру, то при нажатии клавиши <Enter> функция должна завершать работу и возвращать введенное пользователем число вызвавшей ее процедуре.


Содержание раздела