Контрольнi завдання№1:
Скласти програму обчислення функції, Z=f(x,y), використовуючи звернення до підпрограми. Вигляд функції Z та функції, до якої звертатись за допомогою підпрограми, задано в таблиці:
-
№
Вид функції
Підпрограма
1.
2.
p=cu
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Приклад№ 3
Програма, що виконує три дії: введення координат вершин трикутника, обчислення довжин його сторін і виведення результатів.
Program Pr8_2;
uses WinCrt;
Var
x1,y1,x2,y2,x3,y3:real; d1,d2,d3:real;
function Distance(a1,b1,a2,b2:real):real;
begin
Distance:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
procedure Init;
begin
writeln('enter coordinates');
write('x1,y1= '); readln(x1,y1);
write('x2,y2= '); readln(x2,y2);
write('x3,y3= '); readln(x3,y3);
end;
procedure Solution;
begin
d1:= Distance(x1,y1,x2,y2);
d2:= Distance(x2,y2,x3,y3);
d3:= Distance(x1,y1,x3,y3);
end;
procedure Browse;
begin
writeln('l1=',d1:6:2) ;
writeln('l2=',d2:6:2) ;
writeln('l3=',d3:6:2) ;
end;
begin
Init;
Solution;
Browse;
End.
Контрольні завдання№2:
Написати підпрограму функцію, що обчислює об'єм циліндра. Параметрами функції повинні бути радіус і висота циліндра.
Написати підпрограму функцію, що повертає максимальне з двох цілих чисел, отриманих як аргумент.
Написати підпрограму функцію, що порівнює два цілих числа й повертає результат порівняння у вигляді одного зі знаків: >, < або =.
Написати підпрограму функцію, що обчислює значення
.
Числа
а
й b можуть
бути будь-якими цілими позитивними
числами.Написати підпрограму функцію Procent, що повертає відсоток від отриманого як аргумент числа.
Написати підпрограму функцію Dohod, що обчислює дохід по внеску. Вхідними даними для функції є: величина внеску, процентна ставка (річних) і строк внеску (кількість днів).
Написати підпрограму функцію , що повертає P, якщо число, отримане функцією як аргумент, є парним і нуль - у противному випадку.
Написати підпрограму функцію , що повертає NP, якщо число, отримане функцією як аргумент, є непарним, і нуль - у противному випадку.
Написати підпрограму функцію, що виводить на екран рядок, що складається із зірочок. Довжина рядка (кількість зірочок) є параметром функції.
Написати підпрограму функцію, що виводить рядок, що складається з однакових символів. Довжина рядка й символ є параметрами функції.
Написати підпрограму функцію, що обчислює об'єм і площу поверхні паралелепіпеда.
Написати підпрограму функцію, що по номері N визначає відповідну назву дня тижня.
Написати підпрограму функцію, що по заданій ознаці забезпечує пошук або більшого, або меншого із двох цілих чисел.
Написати підпрограму функцію, що обчислює об'єм і площу поверхні трикутної піраміди.
Написати підпрограму функцію, що обчислює об'єм куба.