Решение типовой задачи
Задача 1:
Даны действительные числа S,t Получить:
f(t,-2*S,1.17)+f(2.2, t, S-t) ,
где f(a,b,c)=(2*a-b-sin(c))/(5+c );
Программа
Program fun;
Uses Crt;
Var S,t,f1: real;
Function f(a,b,c:real):real;
Begin
F:= (2*a-b-sin(c))/(5+abs(c));
End;
Begin
Clrscr;
Writeln('Введите S,t');
Readln(S,t);
f1:= f(t,-2*S,1.17)+f(2.2, t, S-t);
Writeln('f1=',f1:5:2);
Readln;
End.
Задача 2: Дан пятиугольник АBCDE .Определить площадь пятиугольника
определив процедуру нахождения площади треугольника.
Блок-схема подпрограммы Ptreug
|
Блок-схема основной программы
|
Программа
Program Plo;
Uses Crt;
Var a,b,c,d,e,k,m,S: real;
Procedure Ptreug(x,y,z:real; Var Str:real);
Var p:real;
Begin
p:=(x+y+z)/2;
Str:=sqrt(p*(p-x)*(p-y)*(p-z));
End;
Begin
Clrscr;
Writeln('Введите a,b,c,d,e,k,m');
Readln(a,b,c,d,e,k,m);
Ptreug(a,b,k,S1);
Ptreug(k,c,m,S2);
Ptreug(m,d,t,S3);
S:=S1+S2+S3;
Writeln('S1=',S1:5:2, ' S2=',S2:5:2, ' S3=',S3:5:2, ' S=',s:5:2);
Readln;
End.
Варианты заданий с подпрограммами - функциями:
1.Даны действительные s и t. Получить f(t,-2s,1.17)+f(2.2,t,s-t),где
подпрограмма
– функция.
2..Даны действительные а, b, с. Получить
,
где max(x,y)
подпрограмма – функция.
3. Даны действительные числа S и t. Получить
f(t,-3*s,2.5-t)+f( 5.2,3*t,s-t), где
подпрограмма
– функция.
4. Даны действительные числа S и t. Получить
f(1.5*t,2*s)+f(t,3-s)-f(2*s-3,t+s), где
подпрограмма
– функция.
5. Даны действительные числа S и t.
Получить
h(s,t)+max(h2 (s-t,s*t),h4 (s-t,s+t))+h(1,1), где
и
max(x,y)
подпрограммы – функции.
6. Даны действительные числа a, b. Получить:
Y=min(a,b), Y1=min(min(a*b,a+b), min(a2 –b*a,b3-3*a)), Y2=min(Y12+Y,5.25),
где min(x,x1) определить как функцию, х и х1 ее аргументы.
Даны действительные числа S и t. Получить
f(t,4*s,2.5*t)+f( 5,2*t,s+t),
где
подпрограмма – функция.
8. Даны действительные числа S и t. Получить
h(s,t)+min(h3 (s-t,s*t),h2 (s-t,s+t))+h(1,1), где
подпрограмма
– функция.
9. Даны действительные числа a,b,c. Получить
max(x,x1) определить как функцию, где х и х1–аргументы.
10. Вычислить К=(М1+М2+М3)/3, где М1, М2, М3 - максимальные элементы массивов Х(30), Y(15), Z(20). Использовать подпрограмму – функцию.
11. Два треугольника заданы координатами своих вершин. Вычислить их площади по формуле S=1/2((Х2-Х1)(Y3-Y1)-(X3-X1)(Y2-Y1)) и определить, какой из них имеет большую площадь. Использовать подпрограмму – функцию.
12. В порт в среднем приходят 3 корабля в день. Какова вероятность того, что в день придет 2 корабля, 4 корабля? Вероятность вычислять по формуле:
Р=3*е-3/к!. Использовать подпрограмму – функцию.
13. Вычислить Z=(v1+v2+v3)/3, где v1,v2,v3 – объемы шаров с радиусами r1, r2, r3 соответственно. Объем шара вычислять по формуле V=4/3*Пi*R3. Использовать подпрограмму – функцию.
14. Четырехугольник задан координатами своих вершин. Найти его периметр. Использовать подпрограмму – функцию.
Определить число сочетаний из n по m (n>m), по формуле С=n!/m!(n-m). Использовать подпрограмму – функцию.
Вычислить Z=(m1+m2)/2, где m1 и m2 - наименьшие элементы массивов Х(20) и Х(35). Использовать подпрограмму – функцию.
Вычислить среднее арифметическое значение положительных элемен
тов для массивов Р(к), L(m), Q(n). Использовать подпрограмму – функцию.
Составить программу вычисления значения функции
S= x2+y2+sin(2*x2*y2) + x+z+sin(2*x*z) + y2+z2+sin(2*y2*z2) , используя функцию вида: a+b+sin(2*a*b).
Сформировать массив А(n), где а1=1!, а2=2!,...,аn=n!. Использовать подпрограмму – функцию.
Даны две квадратных матрицы Х(5,5) и Y(7,7).Определить сумму элементов, расположенных на главных диагоналях. Использовать подпрограмму – функцию.
Написать программу вычисления суммы факториалов всех четных чисел от 2 до 100, используя подпрограмму вычисления факториала. Использовать подпрограмму – функцию.