Оператор присваивания, процедуры ввода-вывода.

Отчет

по лабораторным работам

по дисциплине «Информатика»

 

Вариант 1

 

Выполнил:

студент гр. ________ __________________________ (Ф.И.О. студента)

 

Проверил:

доц., к.т.н. кафедры ПМиФИ_____________________(Ф.И.О. преподавателя)

 

 

Омск-2017

 

 

ОГЛАВЛЕНИЕ

 

Лабораторная работа №_1. 4

Лабораторная работа №_2. 5

Лабораторная работа №_3. 6

Лабораторная работа №_4. 7

Лабораторная работа №_5. 8

Лабораторная работа №_6. 9

Лабораторная работа №_7. 10

 

 

Лабораторная работа №1

Основы программирования в среде Турбо Паскаль.

Оператор присваивания, процедуры ввода-вывода.

Вычислить значение функции при заданных значениях констант и переменной х.

№	x1	x2	a	b	c	Вычислить
1	2	3	4	5	6	7
			1.5		-0.7

 

Текст программы

 

program LAB1;

const a=1.5; b=2; c=-0.7; {Описание констант}

var x, w, y:real; {Описание переменных}

 

begin

write('‚Введите X '); {Ввод данных}

 

readln(x);

w:= exp(ln(abs(c))*5); {вычисление степени числа}

 

if c<0 then w:=-w;

w:= w+ a*exp(-sqrt(x))*cos(b*x);{вычисление w}

writeln('W = ',w:15:7); {вывод результатов}

readln;

 

end.

 

Результат выполнения программы

Рис. 1. Результат выполнения лабораторной работы №1

Рис. 2. Проверка в Microsoft Excel

 

Лабораторная работа №2

Программирование разветвлённых алгоритмов.

Операторы передачи управления

 

Вычислить значение функции в зависимости от интервала, в который попадает вводимый с клавиатуры аргумент:

 

1. Для t [0,3], at²lnt при 1 ,

где a=-0.5,b=2 z= 1 при t<1,

e^atcosbt при t>2,

Текст программы

 

program Lab2;

 

const a=-0.5; b=2; { Описание констант }

var t,z:real; { Описание переменных }

 

begin

 

write('Ввести t ');{ Ввод данных }

 

readln(t);

 

if (t>=0) and (t<=3) then begin

if t>2 then z:=exp(a*t)*cos(b*t){ вычисление z }

else if (t<1) and (t<=3) then z:=1

else z:=a*t*t*ln(t);

writeln('z = ',z:10:2); { вывод результатов}

end

else Writeln('При данном t функция не определена');

 

end.

 

Результат выполнения программы

Рис. 3. Результат выполнения лабораторной работы №2

 

Лабораторная работа №3

Программирование циклических алгоритмов

С заданным числом повторений

 

Вычислить значения двух функций в n равномерно расположенных в диапазоне a<x<b точках. Результаты оформит в виде таблицы.

№ п/п	a	b	n	F1(х)	F2(х)
		2		sin x cos x	sin x + cos x -1

 

 

Текст программы

 

Program Lab3;

Uses CRT;

const a=0; b=2*pi; { Описание констант}

n=10;

var f1, f2: real; { Описание переменных }

x, dx:real;

i:integer;

Begin

clrscr;

dx:=abs((b-a)/(n-1)); {шаг по х

x:=a;

writeln('-----------------------------------');

writeln('| I | X | F1 | F2 |');

writeln('|-------|-------|--------|--------|');

for i:=1 to n do begin

f1:=sin(x)*cos(x);

f2:=sin(x)+cos(x)-1;

writeln('| ',I:3,' |',x:7:3,'|',f1:8:4,'|',f2:8:4,'|');

x:=x+dx;

end;

writeln('-----------------------------------');

readkey;

End.

 

Результат выполнения программы

Рис. 4. Результат выполнения лабораторной работы №3

 

Лабораторная работа №4

Отчет

по лабораторным работам

по дисциплине «Информатика»

 

Вариант 1

 

Выполнил:

студент гр. ________ __________________________ (Ф.И.О. студента)

 

Проверил:

доц., к.т.н. кафедры ПМиФИ_____________________(Ф.И.О. преподавателя)

 

 

Омск-2017

 

 

ОГЛАВЛЕНИЕ

 

Лабораторная работа №_1. 4

Лабораторная работа №_2. 5

Лабораторная работа №_3. 6

Лабораторная работа №_4. 7

Лабораторная работа №_5. 8

Лабораторная работа №_6. 9

Лабораторная работа №_7. 10

 

 

Лабораторная работа №1

Основы программирования в среде Турбо Паскаль.

Оператор присваивания, процедуры ввода-вывода.

Вычислить значение функции при заданных значениях констант и переменной х.

№	x1	x2	a	b	c	Вычислить
1	2	3	4	5	6	7
			1.5		-0.7

 

Текст программы

 

program LAB1;

const a=1.5; b=2; c=-0.7; {Описание констант}

var x, w, y:real; {Описание переменных}

 

begin

write('‚Введите X '); {Ввод данных}

 

readln(x);

w:= exp(ln(abs(c))*5); {вычисление степени числа}

 

if c<0 then w:=-w;

w:= w+ a*exp(-sqrt(x))*cos(b*x);{вычисление w}

writeln('W = ',w:15:7); {вывод результатов}

readln;

 

end.

 

Результат выполнения программы

Рис. 1. Результат выполнения лабораторной работы №1

Рис. 2. Проверка в Microsoft Excel

 

Лабораторная работа №2