Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать неотразимый комплимент Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?

Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Program pr_1a;





uses crt;

var n1,x,x2,x4,x5,chis,znam,y,y0,y1,y2,f : real;

Begin

clrscr;

write('x='); readln(x);

n1:=sqrt(2);

x2:=sqr(x);

x4:=sqr(x2);

x5:=x4*x;

writeln('x=',x:6:2,' x2=',x2:6:2,' x4=',x4:6:2,' x5=',x5:6:2);

chis:=x5+x4-x2*n1+2;

znam:=x4-x2*n1+1;

y:=chis/znam;

y0:=sqrt(y);

writeln('chis=',chis:6:2,'znam=',znam:6:2,'y=',y:6:3,'y0=',y0:6:3);

y1:=sin(pi/2)+abs(sin(x/6)/cos(x/6));

y2:=exp(0.1*x);

f:=y0+y1+y2;

writeln('y0=',y0:6:3,'y1=',y1:6:3,'y2=',y2:6:3,' f=',f:6:3);

readln;

End.

{ Протокол роботи програми

для трьох запусків на виконання з різними значеннями х

x=5

x= 5.00 x2= 25.00 x4=625.00 x5=3125.00

chis=3716.64 znam=590.64 y= 6.293 y0= 2.508

y0= 2.508 y1= 2.101 y2= 1.649 f= 6.258

 

x=10

x= 10.00 x2=100.00 x4=10000.00 x5=100000.00

chis=109860.58 znam=9859.58 y=11.143 y0= 3.338

y0= 3.338 y1=11.399 y2= 2.718 f=17.455

 

x=20

x= 20.00 x2=400.00 x4=160000.00 x5=3200000.00

chis=3359436.31 znam=159435.31 y=21.071 y0= 4.590

y0= 4.590 y1= 1.194 y2= 7.389 f=13.173}

6. Варіанти індивідуальних завдань до лабораторної роботи

 

Розрахункова формула   Розрахункова формула
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

Лабораторна робота N 2

Тема: Розробка і реалізація алгоритмів, що містять розгалуження і цикли






Date: 2015-09-18; view: 105; Нарушение авторских прав

mydocx.ru - 2015-2019 year. (0.007 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию