Зайцев М. Г. / Отчет по лаб 1 Зайцев 2 семестр

Отчет

Задание№1:

1. Вычислите значение функции

program ex1;

{$APPTYPE CONSOLE}

uses

SysUtils, windows;

var y, x1, x2: real;

begin

SetConsoleCP(1251);

SetConsoleOutputCP(1251);

write('введите x1= '); readln(x1);

write('введите x2= '); readln(x2);

y:=(exp(-x1)+exp(-x2))/2;

writeln('ответ y=',y:6:2);

readln;

end.

Тестовые наборы:

Номер теста	Исходные данные	Ожидаемый результат	Примечание
1	х1=1; х2=2	у=0,25
2	х1=0; х2=0	у=1

Задание№2: Вычислить площадь треугольника со сторонами a, b, c по формуле Герона:

program ex2;

{$APPTYPE CONSOLE}

uses

SysUtils, windows;

var a, b, c, p, S: real;

begin

SetConsoleCP(1251);

SetConsoleOutputCP(1251);

write(' введите сторону a= '); readln(a);

write(' введите сторону b= '); readln(b);

write(' введите сторону c= '); readln(c);

p:=(a+b+c)/2;

S:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln ('площадь треугольника равна S= ', S:6:2);

readln;

end.

Тестовые наборы:

Номер теста	Исходные данные	Ожидаемый результат	Примечание
1	a=3; b=4; c=5	S=6	Вычисляем площадь
2	a=5; b=7; c=9	S=17.41

Задание№3:

Вычислить высоты треугольника со сторонами a, b, c по формулам

program ex3;

{$APPTYPE CONSOLE}

uses

SysUtils, windows;

var a, b, c, p, S, ha, hb, hc: real;

begin

SetConsoleCP(1251);

SetConsoleOutputCP(1251);

write(' введите сторону a= '); readln(a);

write(' введите сторону b= '); readln(b);

write(' введите сторону c= '); readln(c);

p:=(a+b+c)/2;

S:=sqrt(p*(p-a)*(p-b)*(p-c));

ha:= 2*S/a;

hb:= 2*S/b;

hc:= 2*S/c;

writeln ('высота к стороне а равна ha= ', ha:6:2);

writeln ('высота к стороне b равна hb= ', hb:6:2);

writeln ('высота к стороне c равна hc= ', hc:6:2);

readln;

end.

Тестовые значения:

Номер теста	Исходные данные	Ожидаемый результат	Примечание
1	a=3; b=4; c=5	ha=4; hb=3; hc=2	Вычисляем высоты к сторонам
2	a=5; b=7; c=9	ha=6.96; hb=4.47; hc=3.87

Задание№4: Вычислите площадь поверхности и объём усечённого конуса, используя функцию возведения в квадрат SQR.

program ex4;

{$APPTYPE CONSOLE}

uses

SysUtils, windows;

Var

R, r1, l, S, V, h: real;

begin

SetConsoleCP(1251);

SetConsoleOutputCP(1251);

write(' введите радиус нижнего основания R= '); readln(R);

write(' введите радиус верхнего основания r1= '); readln(r1);

write(' введите высоту h= '); readln(h);

l:= SQRT(SQR(R-r1)+SQR(h));

S:= pi*(R+r1)*l+pi*SQR(R)+pi*SQR(r1);

V:=(1/3)*(SQR(R)+SQR(r1)+R*r1)*h;

writeln (‘площадь поверхности равна S= ‘, S:6:2);

writeln (‘объем усеченного конуса равен V= ‘,V:6:2);

readln;

end.

Тестовые значения:

Номер теста	Исходные данные	Ожидаемый результат	Примечание
1	R=3; r1=1; h=5	S=99.09 V=21.67	Вычисляем площадь поверхности и объем усеченного конуса
2	R=4; r1=2; h=6	S=182.05 V=56.00

Задание№5: Вычислите значение функции, используя функцию возведения e в заданную степень EXP и функцию SIN

program ex5;

{$APPTYPE CONSOLE}

uses

SysUtils, windows;

var a,w,f,x,y: real;

begin

SetConsoleCP(1251);

SetConsoleOutputCP(1251);

write(' введите a= '); readln(a);

write(' введите w= '); readln(w);

write(' введите f= '); readln(f);

x:=(pi/2-f);

y:=a*exp(-a*w*x)*sin(w*x);

writeln ('ответ y= ',y:6:2);

readln;

end.

Тестовые значения:

Номер теста	Исходные данные	Ожидаемый результат	Примечание
1	a=1; w=1; f=1	Y=0.31	Вычисляем значение функции
2	a=2; w=0.5; f=1	Y=0.32

2. Задание№6: Выведите третий справа разряд целого числа, содержащего не менее трёх разрядов. Для решения используйте операции mod, div.