Функція Power:
Програма:
Program Ex_func;
var x,y: real;
Function Power(a,b:real):real;
begin
if a>0 then
Power:=exp(b*ln(a))
else
if a<0 then
Power:= - exp(b*ln(abs(a)))
else
if b=0 then
Power:=1
else Power:=0
end;
BEGIN
repeat
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
writeln(' Power(x,y)= ',Power(x,y):12:10,
' Power(x,-y)= ',Power(x,-y):15:10)
until Eof {Ctrl+z}
END.
В розглянутому прикладі x,y - фактичні параметри, a,b - формальні параметри.
ПРИКЛАД 2. Розробити процедуру, яка підносить число в квадрат. Якщо значення квадрата числа перевищує 100, то прийняти його рівним 100. При цьому необхідно встановлювати глобальний флаг (ознаку).
Б
лок-схема:
Основна програма:
Процедура GetSqr
Програма:
Program Ex_proc;
var
GlobalFlag: boolean;
procedure GetSqr(x: real; var sq: real);
const
SqrMax=100;
begin
x:=x*x;
GlobalFlag:=(x>SqrMax);
if GlobalFlag then x:=SqrMax;
sq:=x
end;
var
SqGlobal: real;
BEGIN
GetSqr(5,SqGlobal);
Writeln('SqGlobal= ', SqGlobal:0:2, ' Флаг: ',GlobalFlag)
END.
Варіанти індивідуальних завдань
1) Знайти всі тризначні прості числа за допомогою функції, що дозволяє розпізнавати прості числа.
Дано дві послідовності цілих чисел: а1, а2, … , аn і b1, b2, … , bn. Знайти
кількість парних чисел у першій з них і кількість непарних у другій за допомогою функції, що дозволяє розпізнавати парні числа.
Одержати усі шестизначні щасливі номера. Щасливим називають таке
шестизначне число, у якому сума його перших трьох цифр дорівнює сумі його останніх трьох цифр. Визначити функцію для розрахунку суми цифр тризначного числа.
Знайти значення виразу
,
визначивши функцію розрахунку
факторіала натурального числа.
Дано два натуральних числа. З’ясувати, у якому з них сума цифр більше,
визначивши функцію для розрахунку суми цифр натурального числа.
Дано два натуральних числа. З’ясувати у якому з них більше цифр,
визначивши функцію для розрахунку кількості цифр натурального числа.
Дано два речення. У якому з них доля (у відсотках) входжень букв “б”
більше? При вирішенні визначить функцію для розрахунку долі входжень деякої букви в речення.
Дано три слова. З’ясувати, чи є хоч одне з них паліндромом, тобто чи
читається воно однаково зліва праворуч і справа ліворуч. При вирішенні визначити функцію, що дозволяє розпізнавати слова-паліндроми
Дано два речення. Знайти загальну кількість букв “н” у них, визначивши
функцію для розрахунку кількості букв “н” у реченні.
Скласти програму для знаходження загальної кількості входжень заданої
букви в трьох заданих реченнях, визначивши функцію для розрахунку кількості входжень деякої букви в речення.
Скласти програму для обчислення значення:
,
визначивши функцію
Оформити процедурою визначення найбільшого числа з трьох чисел.
Записати у вигляді процедури визначення максимального числа в числовому масиві.
Написати програму, що генерує координати вершин декількох трикутників та визначає номер трикутника, що має найбільшу площу. Визначення площ оформити у вигляді процедури.
Дано сторони двох трикутників. Знайти суму їхніх периметрів і суму їхніх площ, визначити процедури для розрахунку периметра і площі трикутника за його сторонами.
Дано основи і висоти двох рівнобічних трапецій. Знайти суму їх периметрів і суму їх площ, визначивши процедуру для розрахунку периметра і площі рівнобічної трапеції за її основою та висотою.
Знайти суму цифр заданого натурального числа. Оформити у вигляді процедури.
Написати функцію Simm(S,i,j), що перевіряє, чи є симетричною частина рядка S, що починається і-м і закінчується j-м її елементами.
Скласти програму для знаходження числа, що утвориться з даного натурального числа при записі його цифр у зворотному порядку. Наприклад, для числа 1234 одержуємо результат 4321.
Логічна функція повертає значення true, якщо її аргумент – просте число.
Дано три квадратні матриці. Вивести на друк ту з них, норма котрої найменша (нормою матриці є максимум з абсолютних значень її елементів).
Дано дійсні числа s, t. Отримати:
24) Дано дійсні числа s, t. Отримати:
Дано дійсні числа a, b, c. Отримати:
Дано дійсні числа a, b. Отримати:
u=min (ab), v=min (ab, a+b), f= min (u+v2,3.14)
Дано натуральні числа n, m, цілі числа a1, a2, ..., an, b1, ..., bm, c1, ..., с10. Отримати: L = min (b1, …, bm) + min (a1, …, am ) + min (c1, …, c10).
Дано натуральні числа k, l, m, дійсні числа x1, ..., xk, y1, ..., yl, z1, ..., zm. Отримати L = max(y1,…, yl) + max(z1,…, zm), якщо max(x1,…, xk) > 30.
Дано натуральне число n. Серед чисел 1, 2, 3, ..., n знайти всі ті, котрі можна представити у вигляді сум квадратів двох натуральних чисел. Визначити процедуру, що дозволяє розпізнавати повні квадрати.
Скласти процедуру, що заміняє в вихідному рядку символів усі одиниці нулями і усі нулі одиницями. Заміна повинна виконуватися, починаючи із заданої позиції рядка.
СПИСОК ЛІТЕРАТУРИ
1. Фаронов В.В. ТУРБО ПАСКАЛЬ 7.0. Начальный курс. Учебное пособие. – Москва, 2000. – 573 c.
2. Климова Л.М. Pascal 7.0. Практическое программирование. Решение типовых задач. – Москва, 2000. – 493 c.
3. Поляков Д.Б., Круглов И.Ю. Программирование в среде Турбо Паскаль. – Москва, 1991. – 568 c.
4. Офицеров Д.В., Долгий А.Б., Старых В.А. Программирование на персональных ЭВМ. Практикум. Учебное пособие. – Минск, 1991. – 253 c.
5. Андрей Ставровский. Турбо Паскаль 7.0. Учебник. Киев, BHV,Ирина, 2000, 394с.
6. Немнюгин С.А. Turbo Pascal. Учебник. Санкт-Петербург-Москва-Харьков-Минск, 2001с.
7. .Немнюгин С.А. Turbo Pascal. Практикум. Санкт-Петербург-Москва-Харьков-Минск, 2001с.