Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

лабораторная работа / Отчёт 2 лаба

.docx
Скачиваний:
47
Добавлен:
10.02.2014
Размер:
20.1 Кб
Скачать

Цель работы: знакомство с основами алгоритмизации и программирования разветвляющейся структуры на языке 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)

Соседние файлы в папке лабораторная работа