информ.лаба №4. 1 курс .игхту
.docxЛАБОРАТОРНАЯ РАБОТА № 4
ВАРИАНТ № 27
СОСТАВЛЕНИЕ, ВВОД, ТРАНСЛЯЦИЯ И ВЫПОЛНЕНИЕ ПРОГРАММ ЛИНЕЙНОЙ И РАЗВЕТВЛЯЮЩЕЙСЯ СТРУКТУРЫ
-
Разработать, ввести в ЭВМ и отладить программу для расчѐта объѐма и площади поверхности конуса, если известны высота фигуры и радиус основания.
начало начало
r,
h
S,V
конец
PROGRAM formulka__1;
var S,V,h,r:real;
begin
write ( 'радиус основания -');read(r);
write ( 'высота фигуры - ');read(h);
S:=pi*r*sqrt(sqr(r)+sqr(h));
V:=1/3*pi*sqr(r)*h;
writeln(' площадь поверхности-',S, ' объем-',V);
end.
-
Составить программу для вычисления x и y по формулам
начало начало
X,Y
конец
a,b,c
program formulka_3;
var a, b, c, x,d, y:real;
begin
write ('введите b='); read(b);
write ('введите a='); read(a);
write ('введите c='); read(c);
y:=sqrt((sqr(sin(a)))+sqr(sqr(cos(b))));
d:= a+0.96*(exp(ln(10))*(-3))*(b)*(c);
x:=ln(abs(d));
writeln(' x=',x, ' y=',y);
end.
-
Составить программу для вычисления
начало
начало
program formulka_4;
var x,y,f,c,h:real;
x,y
begin
write('x='); read(x);
write('y='); read(y);
if x>0.5*(x)*(y)+(1) then
нет
да
begin
c:=x+sin(y);
f:=2*ln(abs(c));
end
else
if x=0.5*(x)*(y)+(1) then
f:=sin(2*x*y)/cos(2*x*y)
else
h:=abs(cos(x));
f:=exp(sqrt(h))+2;
writeln('x=',f,'y=',f);
end.
конец
-
Написать программу решения следующей задачи: Определить, какая из точек A(x1,y1,z1) или B(x2,y2,z2) расположена дальше от точки C(x3,y3,z3).
начало
начало
program formulka_2;
x1,x2,x3,y1,y2,y3,z1,z2,z3
var x1,x2,x3,y1,y2,y3,z1,z2,z3, A,B:real;
begin
write ('введите X1='); read(X1);
write ('введите X2='); read(X2);
write ('введите X3='); read(X3);
write ('введите Y1='); read(Y1);
write ('введите Y2='); read(Y2);
write ('введите Y3='); read(Y3);
A>B
write ('введите Z1='); read(Z1);
write ('введите Z2='); read(Z2);
ДА
НЕТ
write ('введите Z3='); read(Z3);
A:= sqrt((sqr(x3-x1))+(sqr(y3-y1))+(sqr(z3-z1)));
A
B
B:= sqrt((sqr(x3-x2))+(sqr(y3-y2))+(sqr(z3-z2)));
if A>B then write('A')
else write('B')
конец
end.
