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


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать неотразимый комплимент Как противостоять манипуляциям мужчин? Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 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: 64; Нарушение авторских прав

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