лабораторная работа / Отчёт 2 лаба
.docxЦель работы: знакомство с основами алгоритмизации и программирования разветвляющейся структуры на языке Turbo Pascal.
Задание 1. Вычислить и вывести на экран значение заданной функции:
c=0.5; n=10.
Текст программы.
Program lab_21;
Const c=0.5; n=10;
Var z,i:real;
Begin
Writeln('Введите i');
Read(i);
If cos((sqr(i)+1)/n)>=0 then z:=c*cos((sqr(i)+1)/n)
else z:=sin((sqr(i)+1)/n);
Writeln('z=',z:8:3);
End.
Блок-схема алгоритма.
Начало
i
Введите i
z:=sin((sqr(i)+1)/n)
cos((sqr(i)+1)/n)>=0
z:=c*cos((sqr(i)+1)/n)
да
нет
Z
Начало
Задание 2. Элементы равнобедренного прямоугольного треугольника пронумерованы следующим образом: 1-катет a, z-гипотенуза.
С=a*(2)1/2:3 – высота h, опущенная на гипотенузу (n=c/2); 4-площадь S=c*h/2. Дан номер одного из элементов и его значение. Вывести значение остальных элементов данного треугольника.
Текст программы.
Program lab_22;
Var a,c,h,s,x,i:integer;
Begin
write('Введите номер элемента');
Readln(i);
Write('Введите его значение');
read(x);
Case i of
1:Writeln('a=',x,'c=',x*sqrt(2),'h=',x*sqrt(2)/2,'s=',sqr(x)/2);
2:writeln('c=',x,'a=',x/sqrt(2),'h=',x/2,'s=',sqr(x)/4);
3:writeln('h=',x,'c=',2*x,'a=',2*x/sqrt(2), 's=',sqr(x));
4:writeln('s=',x,'h=',sqrt(x),'c=',2*sqrt(x),'a=',2*sqrt(x)/sqrt(2));
end;
end.
Блок-схема алгоритма.
Начало
i
Введите номер элемента
1
x
Введите его значение
2
3
4
x,x*sqrt(2),x*sqrt(2)/2, sqr(x)/2
x,x/sqrt(2),x/2, sqr(x)/4
x, 2*x,2*x/sqrt(2), sqr(x)
x,sqrt(x),2*sqrt(x),2*sqrt(x)/sqrt(2)