Методические указания по выполнению лабораторных работ по курсу "Эксплуатация и обслуживание ГКМ", страница 15

1   

programlab5;

2   

uses crt;

3   

var i,n,a,b:integer;

4   

s:real;

5   

function nt(a:integer;n:integer):integer;

6   

var s:integer;

7   

begin

8   

  s:=1;

9   

  for i:=1 to n do

10   

  s:=s*a;

11   

  nt:=s;

12   

end;

13   

begin

14   

writeln('n');

15   

readln(n);

16   

S:=1;

17   

for i:=2 to n do

18   

S:=S+nt(-1,i)/(nt(3,i)*(2*i-1));

19   

writeln(s:7:3);

20   

readln

21   

end.


Пример оформления отчета

Министерство образования и науки Украины

Национальный Технический Университет

“Харьковский Политехнический Институт”

Кафедра колесных и гусеничных машин

им. А.А.Морозова

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

«Линейные алгоритмы»

Выполнил:

Студент группы ТМ-30Б

Марков А.Ю.

Проверил:

доц. Сериков В.И.

Харьков, 2006


Условие задания:

Задание 1. Составить программу вычисления функции  при заданном значении аргумента:

.

Блок-схема алгоритма:


Текст программы на языке Паскаль:

Program Lab1;{Заголовок программы с названием}

Var {секция описания переменных }

y,x:real;{описываем переменные вещественного типа}

Begin {начало тела программы}

writeln ('vveditex'); { оператор вывода данных для вывода сообщения-комментария для пользователя}

readln (x); {оператор прочитает введенное пользователем значение переменной Х}

y:=sqrt(abs(exp(x)-(sin(x)/cos(x)))); {вычисление значения Y согласно условию задания}

writeln (y:3:8); {вывод значения переменной Y в форматированном виде}

readln; {оператор для остановки программы до нажатия пользователем клавиши Enter. }

End.


СПИСОК ЛИТЕРАТУРЫ

1. Глушаков С.В., Мельников И.В. Персональный компьютер. Учебный курс. - Харьков : Фолио; М.: ООО “Издательство АСТ”, 2000. – 520с.

2. Фигурнов В.Э. IBM PC для пользователя. Краткий курс. – М.: ИНФРА – М, 2001. – 479с.

3. Методические указания к лабораторным работам по курсу "Вычислительная техника и программирование " (раздел "Вычислительные и графические возможности ПК. Алгоритмический язык Turbo Pascal") для студентов очного и заочного обучения специальности 07.092201 "Электрические системы и комплексы транспортных средств". /Сост. С.Н.Воронцов, И.В.Костяник, В.И.Сериков. – Харьков: НТУ «ХПИ», 2006. – 72с. – Рус. яз.


Навчальне видання

МЕТОДИЧНІ ВКАЗІВКИ

до виконання контрольних робіт з курсу "Обчислювальна техніка та програмування" (розділ " Обчислювальні та графічні можливості ПК. Алгоритмічна мова Turbo Pascal ")

для студентів денного та заочного відділення спеціальності 07.092201 "Електричні системи та

комплекси транспортних засобів"

Російською мовою

Відповідальний за випуск проф. Є.Є. Александров

Роботу рекомендував до видання проф. В.К. Бєлов

В авторській редакції

План 2006 р., поз.    ___/____

Підписано до друку __.__.__. Формат 60´84 1/16. Папір офсетний.

Друк – ризографія. Гарнітура Times New Roman. Ум. друк. арк.      .

Обл. вид. арк.      . Наклад 50 прим. Зам №         . Ціна договірна.

Видавничий центр НТУ “ХПІ”.

Свідоцтво про державну реєстрацію ДК №116 від 10.07.2000 р.

61002, Харків, вул. Фрунзе, 21

Друкарня НТУ “ХПІ”

61002, Харків, вул. Фрунзе, 21