Essays.club - Получите бесплатные рефераты, курсовые работы и научные статьи
Поиск

Лабораторная работа по "Информатике"

Автор:   •  Июль 9, 2019  •  Лабораторная работа  •  443 Слов (2 Страниц)  •  12 Просмотры

Страница 1 из 2

МИНИСТЕРСТВО ОБЩЕГО И ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

УФИМСКИЙ ГОСУДАРСТВЕННЫЙ НЕФТЯНОЙ ТЕХНИЧЕСКИЙ

УНИВЕРСИТЕТ

Кафедра прикладной математики и механики

ЛАБОРАТОРНАЯ  РАБОТА

ПО ИНФОРМАТИКЕ

№3

Выполнил: студент гр. БПГ-16-03                                Зарипов И.И..

                                                                              Вариант 70

Принял:                                                                         Ращепкин А. К.

Уфа 2017


3. Программирование алгоритмов разветвляющейся структуры

Вычислить значение функции:

n = [pic 1][pic 2][pic 3][pic 4]

а)  с использованием условного оператора if-then-else

[pic 5][pic 6][pic 7][pic 8][pic 9][pic 10][pic 11][pic 12][pic 13][pic 14][pic 15][pic 16][pic 17][pic 18][pic 19][pic 20][pic 21][pic 22][pic 23][pic 24][pic 25][pic 26][pic 27][pic 28][pic 29][pic 30][pic 31]

    конец

начало

        Паскаль-программа

Program lab3;

uses crt;

var n,s,t:real;

k:integer;

begin

writeln('введите t');

readln(t);

s:=exp((1/3)*ln(5.76))/(sqrt(673.8)*cos(t));

if (s*t)<=0 then begin

n:=(s-(2*t))/((2*s)+(5*t*t));

k:=1; end else

if ((s*t)>1)and((s*t)<2.5) then

begin

n:=sqr(s);

k:=2;; end else begin

n:=sqrt(s*t); k:=3; end;

writeln('S=',s:5:2,'  n=',n:5:2,'  k=',k,'  s*t=',s*t:5:2);

end.

Результат

Введитеt=1.2

S=0.19 n=0.48 k=3 S*t=0.23

б)  c использованием оператора выбора  case

Паскаль-программа[pic 32][pic 33][pic 34][pic 35][pic 36][pic 37][pic 38][pic 39][pic 40][pic 41][pic 42][pic 43][pic 44][pic 45][pic 46][pic 47][pic 48][pic 49][pic 50][pic 51][pic 52][pic 53][pic 54][pic 55][pic 56][pic 57][pic 58][pic 59][pic 60][pic 61][pic 62][pic 63][pic 64][pic 65][pic 66][pic 67][pic 68][pic 69][pic 70][pic 71][pic 72][pic 73][pic 74][pic 75][pic 76][pic 77][pic 78][pic 79][pic 80]

...

Скачать:   txt (2.5 Kb)   pdf (191.1 Kb)   docx (60.2 Kb)  
Продолжить читать еще 1 страницу »
Доступно только на Essays.club