ВУЗ:
Составители:
const n = 10000;
type mas = array [1..n] of integer;
procedure sort (var a : mas);
var i, j, dop: integer;
begin
for i:=2 to n do
begin
j:=i;
dop:=a[j];
while (j>1) and (a[j-1]>dop) do
begin
a[j]:=a[j-1]; j:=j-1;
end;
a[j]:=dop;
end;
end;
Примечание 4
1. При запуске программы засечь время сортировки, для чего в основной программе предусмотреть вывод на экран
сообщений "Начало сортировки" (перед обращением к процедуре sort) и "Конец сортировки" (после обращения).
2. Сохранить на своем носителе в папке lab_26:
• тексты программы соответственно под именами program1.pas, program2.pas и program3.pas;
• копии экрана с результатами сортировки соответственно под именами rez1.bmp, rez2.bmp и rez3.bmp;
• ответы к заданиям, содержащие тексты программы и рисунки, соответственно под именами zadach1.doc,
zadach2.doc и zadach3.doc.
3. Сводную таблицу со временем сортировки для каждого метода сохранить на своем носителе в папке lab_26 под
именем tabl.doc.
Отчет по работе № 26
1. Демонстрация преподавателю:
• текстов программ program1.pas – program3.pas и результатов их работы в Pascal;
• файлов zadach1.doc – zadach3.doc, содержащих тексты программ, а также значения входных и выходных перемен-
ных к заданиям 1 – 3 в виде графических файлов rez1.bmp – rez3.bmp – копий экрана с результатами выполнения программ.
2. Распечатка файлов zadach1.doc – zadach3.doc и файла со сводной таблицей tabl.doc.
Лабораторная работа 27
(2 часа)
ЧИСЛЕННЫЕ МЕТОДЫ
Цель работы: научиться составлять программы на языке Pascal для поиска и уточнения нулей трансцендентных функ-
ций методом половинного деления.
Задание 1
Построить графики функций в Excel и определить интервалы, содержащие нули функции:
1.
≤+−−
≤<
>−
=
0,34
,20,3
,2,06,05cos
)(
2
xxx
xx
xxx
xf
на отрезке [–2; 4,5] с шагом 0,5;
2. f (x) = –30,2 sin (13x + 2) + 0,1x
2
на отрезке [– 8; 6] с шагом 1;
3. f (x) = ln (32x
2
+ 7) – 2x
2
на отрезке [– 4; 6] с шагом 0,5.
Примечание
1. Разместить данные на листе Excel для построения графика функции: в столбце A – значения аргумента x, в столбце B –
значения функции f (x):
• задать в ячейке A2 начальное значение аргумента;
• заполнить столбец A значениями аргумента, используя режим автозаполнения, задав конечное значение аргумента и
шаг;
• заполнить столбец B соответствующими значениями функции, записав в ячейку B2 формулу и скопировав ее в ос-
тальные ячейки столбца B.
2. Построить график функции f (x) (см. Информатика. Ч. 1, с. 58, лаб. работа 11, задание 1, п. 9).
3. Определить по графику интервалы, каждый из которых содержит только один нуль функции f (x).
Страницы
- « первая
- ‹ предыдущая
- …
- 33
- 34
- 35
- 36
- 37
- …
- следующая ›
- последняя »