В любой программе все переменные делятся на глобальные и локальные. Глобальные переменные – это переменные из раздела описания основной части программы, а локальные - из раздела описания процедур и функций. Локальные переменные существуют только в течение времени работы процедуры, определяются при ее вызове и исчезают после завершении работы процедуры.
| №
| Задание 1 (определение функции)
Задание 2 (определение процедуры)
|
|
| Для следующей программы написать функцию, которая определяет выполняется ли теорема Пифагора для трех величин.
READLN(A, B, C);
IF (PIF(A, B, C)=0) AND (PIF(B, C, A)=0) AND (PIF(A, C, B)=0) THEN WRITELN(‘НЕ ПРЯМОУГОЛЬНЫЙ» ELSE WRITELN(‘ПРЯМОУГОЛЬНЫЙ’);
|
| Ввести три числа. У каждого числа поменять знак, использовать свою процедуру замены числа на такое же значение с изменением знака.
|
|
| Ввести два числа. Определить в каком из них сумма цифр больше, используя функцию вычисления суммы цифр одного числа.
|
| Ввести пять слов. В каждом слове заменить буквы А на О. Использовать процедуру замены в строке букв А на О.
|
|
| Вычислить 4! +7! +2!, используя функцию вычисления факториала.
|
| Ввести три числа. Вывести первые цифры чисел. использовать процедуру замены числа на его первую цифру.
|
|
| Вычислить НОД(A, B)+НОД(C, B)+НОД(A, C), используя функцию нахождения НОД (наибольшего общего делителя) для двух чисел.
|
| Ввести три числа. Каждое число заменить на остаток от деления числа на 8. Использовать процедуру замены числа остатком от деления на 8 (mod не использовать).
|
|
| В пятиугольнике известны стороны и диагонали. Найти площадь пятиугольник, используя функцию вычисления площади треугольника по трем сторонам.
|
| Ввести три числа. Каждое число заменить на целую часть от деления на 3. Использовать процедуру замены числа целой частью от деления на 3 (div не использовать).
|
|
| Получить все шестизначные счастливые числа. Счастливым называют такое число, для которого сумма первых трех его цифр равна сумме последних трех его цифр. Использовать функцию определения суммы цифр трехзначного числа.
|
| Ввести два числа. Найти сумму чисел из первых двух цифр каждого числа, используя процедуру, которая оставляет только первые две цифры числа. Например, даны 1234 и 5432, результат 12+54=66.
|
|
| Ввести два числа. Найти количество цифр в двух числах, используя функцию вычисления количества цифр в одном числе.
|
| Ввести четыре цифры. Из цифр получить наименьшее число, которое можно получить из этих цифр, используя процедуру перестановки местами значений двух величин.
|
|
| Найти tg(2x)+tg(3x)/tg(x2), используя функцию вычисления тангенса.
|
| В учебном заведении три компьютерных класса. Ввести площадь каждого класса и количество компьютеров в нем. Для каждого класса вывести сообщение нарушены или не нарушены требования (на 1 ПК не менее 6 кв.м). использовать свою процедуру проверки и вывода сообщения.
|
|
| Ввести стороны четырехугольника и его диагональ. Найти площадь четырехугольника, используя в качестве процедуры вычисление площади треугольника по трем сторонам (формула Геррона)
|
| Ввести три слова. В каждом слове заменить буквы О на У. Использовать процедуру замены в строке букв О на У.
|
|
| Вычислить 53+34+27, используя функцию возведения числа в степень
|
| Отсортировать одномерный массив по убыванию, используя процедуру перестановки местами значений двух величин.
|
|
| Даны стороны двух треугольников. Найти сумму их площадей, используя функцию вычисления площади треугольника по его сторонам
|
| Разработать программу перестановки значений переменных A, B, C в порядке убывания возрастания, т.е. так, чтобы A> B> C, используя процедуру перестановки двух значений.
|
|
| Вычислить s=min(a, b, c)+max(b, c)/min(a, c).
|
| Ввести четыре числа. Каждое число заменить на остаток от деления числа на 7. Использовать процедуру замены числа остатком от деления на 7(mod не использовать).
|
|
| В круглой заготовке радиуса R вырезаны два круглых отверстия радиусы которых R1 и R2. Найти площадь круглой заготовки, используя функцию вычисления площади окружности
|
| Ввести три целых числа каждое число заменить его модулем, используя свою процедуру замены числа на его модуль. (встроенной функцией ABS не пользоваться).
|
|
| Вычислить z=min(a, 3b)*min(2a, -b, 2b), используя функцию вычисления минимума из двух значений.
|
| Ввести пять чисел. В каждом числе удалить «хвостовые» цифры 5. (например, дано 2355, результат 23). Использовать процедуру замены исходного числа на значение, полученное после удаления «хвостовых» 5.
|
|
| Ввести два числа. Найти сумму всех цифр первого и второго числа, используя функцию нахождения суммы одного числа.
|
| Разработать программу перестановки значений переменных A, B, C, D в порядке возрастания, т.е. так, чтобы A< B< C< D.
|
|
| Ввести пять чисел. Найти сумму максимального и минимального, используя две функции: нахождения минимума из двух значений и максимума из двух значений.
|
| Ввести три цифры. Из цифр получить наименьшее число, которое можно получить из этих цифр, используя процедуру перестановки местами значений двух величин.
|
|
| Вычислить НОД(A, B, C)+НОД(A, B, C, D), используя функцию нахождения НОД (наибольшего общего делителя) для двух чисел.
|
| Ввести три числа. Найти сумму первых цифр каждого числа, используя процедуру, которая оставляет только первую цифру числа.
Например, даны 12, 520, 231, результат 1+5+2=8
|
|
| Вычислить s=max(a, b)/min(a, c)+max(b, c).
|
| Ввести три числа. Вывести последние цифры чисел. Использовать процедуру замены числа на его последнюю цифру.
|
|
| Вычислить Y=MIN(A, 3B)*MIN(2A-B, 2B), используя функцию нахождения минимума для двух чисел.
|
| Ввести три даты (день, месяц). Для каждой даты вывести сообщение правильно ли дата определена (не существует 32 дня и 13 месяца). Использовать свою процедуру проверки и вывода сообщения.
|
|
| Даны шесть чисел. Найти максимальное, используя функцию нахождения максимума из двух значений
|
| Ввести четыре числа. В каждом числе удалить «хвостовые» единицы. (например, дано 2311, результат 23). Использовать процедуру замены исходного числа на значение, полученное после удаления «хвостовых» единиц.
|
|
| Вычислить  , используя функцию вычисления 
|
| Ввести три даты (день, месяц). Для каждой даты вывести дату предыдущего дня. Использовать свою процедуру замены введенной даты на дату предыдущего дня.
|
|
| Вычислить 3! +6! +4!, используя функцию вычисления факториала.
|
| Ввести четыре слова. В каждом слове заменить буквы Е на Н. Использовать процедуру замены в строке букв Е на Н.
|
|
| Вычислить z=sign(x)+sign(y), где
Sign(a)= 
|
| Отсортировать одномерный массив по возрастанию, используя процедуру перестановки местами значений двух величин.
|
|
| Ввести десять чисел. Найти минимальное, используя функцию нахождения минимума из двух значений.
|
| Ввести пять вещественных чисел. Каждое число округлить до ближайшего целого. Использовать процедуру замены числа результатом его округления (встроенной функцией ROUND не пользоваться).
|
|
| Ввести два числа. Определить в каком числе больше цифр, используя функцию определения количества цифр для натурального числа.
|
| Ввести три цифры. Из цифр получить наибольшее число, которое можно получить из этих цифр, используя процедуру перестановки местами значений двух величин.
|
|
| Ввести шесть различных чисел. Найти максимальное, используя функцию нахождения максимума из двух значений.
|
| Ввести три числа. Вывести сумму цифр каждого числа. Использовать процедуру замены числа на сумму его цифр.
|
|
| Даны три квадратных уравнения AX2+BX+C=0
BX2+AX+C=0
CX2+AX+B=0
Определить, сколько из них имеют вещественные корни, используя функцию вычисления корней квадратного уравнения.
|
| Ввести четыре цифры. Из цифр получить наибольшее число, которое можно получить из этих цифр, используя процедуру перестановки местами значений двух величин.
|
|
| Вычислить A3+B4+C7, используя функцию возведения числа в целую степень
|
| Разработать программу перестановки значений переменных A, B, C, D в порядке убывания возрастания, т.е. так, чтобы A> B> C> D.
|
|
| Вычислить  , используя функцию вычисления 
|
| Ввести три числа – номера месяцев. Вывести количество дней в каждом месяце. Использовать свою процедуру замены номера месяца на количество дней в нем
|
|
| Вычислить tg(x)+tg2(5x)/tg(x2), используя функцию вычисления тангенса.
|
| Ввести три числа. Каждое число заменить на целую часть от деления на 3. Использовать процедуру замены числа целой частью от деления на 3 (div не использовать).
|
|
| Вычислить s=max(a, b)+min(a, b, c)+max(a, c)
|
| Ввести три числа. В каждом числе удалить «хвостовые» нули. (например, дано 2300, результат 23). Использовать процедуру замены исходного числа на значение, полученное после удаления «хвостовых» нулей.
|
|
| Ввести восемь чисел. Найти максимальное, используя функцию нахождения максимума из двух значений.
|
| Ввести три даты (день, месяц). Для каждой даты вывести дату следующего дня. Использовать свою процедуру замены введенной даты на дату следующего дня.
|
