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. |
Пример оформления отчета
Национальный Технический Университет
“Харьковский Политехнический Институт”
Кафедра колесных и гусеничных машин
им. А.А.Морозова
Выполнил:
Студент группы ТМ-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
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.