Лабораторная работа №6
.docxЗадание №1
Вариант №4
Задание: Разработать, ввести в ЭВМ и отладить программу для расчёта длинны окружности и площади круга по данному радиусу.
Блок
– схема алгоритма решения: 
Алгоритм работы программы:
Program L06_01;
uses wincrt;
var Pi,R,l,S: real;
begin
write('Pi='); readln(Pi);
write('R='); readln(R);
l:=(2*Pi*R);
S:=(Pi*R*R);
writeln ('l=',l:12:4);
writeln ('S=',S:12:4);
end.
Пример результата работы программы :
Задание №2
Вариант №4
Задание: Написать программу решения следующей задачи: Определить, какая из двух фигур (круг или квадрат) имеет большую площадь. Сторона квадрата и радиус круга заданы. Вывести на печать имя минимальной величины и её значение.
Блок
– схема алгоритма решения: 
Алгоритм работы программы:
Program L06_02;
uses wincrt;
var a, b: integer; s1, s2: real;
begin
writeln ('введите радиус круга');
readln (a);
writeln ('введите длинну стороны квадрата');
readln (b);
s1:=3.14*sqr(a);
s2:=sqr(b);
if s1>s2 then writeln ('площадь круга больше площади квадрата: ', s1, '>', s2)
else writeln ('площадь квадрата больше площади круга: ', s1, '<', s2);
end.
Пример результата работы программы :
Задание №3
Вариант №4
Задание: Составить программу для вычисления x и y по формулам
;
.
Блок – схема алгоритма решения:
Алгоритм работы программы:
Program L06_03;
uses wincrt;
var a,b,c,x,y,e:real;
begin
Writeln ('для вычисления x и y, введите значения a,:');
Write('a='); Readln(a);
Writeln ('введите значение b:');
Write('b='); Readln(b);
Writeln ('введите значение c:');
Write('c='); Readln(c);
Writeln ('введите значение e:');
Write('e='); Readln(e);
x:=e*(exp(sin(a*c)*sin(a*c)))+cos(b*b*b);
y:=exp((1/2)*(ln(abs(a))+2*b+3*c)/(cos(3.14/2*b)*cos(3.14/2*b)));
Writeln;
Writeln('x=',x:10:3);
Writeln('y=',y:10:3);
Readln(x);
Readln(y);
end.
Пример
результата работы программы :
Задание №4
Вариант №4
Задание:
Составить
программу для вычисления
Блок – схема алгоритма решения:
Алгоритм работы программы:
Program l06_04;
uses wincrt;
Var a,b,z:real;
Begin
Writeln('dly vychislenie funkzii,vvedite znachenie a:');
Write('a=');Readln(a);
Writeln('znachenie b:');
Write('b='); Readln(b);
If a>b then
{begin}
z:=4*a+b*b-sin(a*b);
{end;}
If a=b then
{begin}
z:=3*ln(a*a);
{end;}
If a<b then
{begin}
z:=b*b*b-exp((1/2)*sin(a)*sin(a));
{end;}
Writeln('pri dannyh znacheniyah z ravna:');
Write('z=',z:10:3);
end.
Пример результата работы программы :
