Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Пример выполнения работы. Условие: Вычислить наибольший элемент массива х1, х2, , хn и его порядковый номер; n£30




 

Условие: Вычислить наибольший элемент массива х1, х2,..., хn и его порядковый номер; n£30.

 

Программа:

{Лабораторная работа №5}

{Обработка одномерных массивов}

{Выполнена Ф.И.О.}

{Группа }

program lab5;

uses crt;

const nn=30;

var n,i,imax:integer;

xmax:real;

x:array[1..nn] of real;

begin

clrscr;

write('Введите размерность массива n=');

readln(n);

writeln('Введите элементы массива ');

for i:=1 to n do

readln(x[i]);

xmax:=x[1];

imax:=1;

for i:=2 to n do

if x[i]>xmax then

begin

xmax:=x[i];

imax:=i;

end;

writeln;

writeln('Максимальный элемент массива xmax=',xmax:6:3);

writeln('Его порядковый номер imax=',imax:3);

end.

 

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

Введите размерность массива n= 10

Введите элементы массива

1.3243

78.9078

32.65431

34.8765

255.876

90.09876

2.654

786.9875

435.98

325.0981

Максимальный элемент массива xmax= 786.987

Его порядковый номер imax= 8

 

Контрольные вопросы

 

1. Указать особенности программ, использующих массивы.

2. Какие операторы языка можно использовать для описания массивов?

3. В чем состоит особенность организации цикла при обработке массивов?

4. В чем состоит особенность использования приемов программирования при обработке массивов?

5. Указать особенности ввода и вывода массивов.

 

Лабораторная работа №6 «Программирование алгоритмов со структурой вложенных циклов»

 

Цель работы – овладение навыками алгоритмизации и программирования вычислительных структур с вложенными циклами.

 

Задание к работе

1. Вычислить с заданной точностью e значение определенного интеграла , приведенного в табл. 5 (в соответствии с вариантом задания). Исходными данными для решения считать значения интервала интегрирования [a,b], точность вычисления e и метод численного решения. Включить в программу вычисление точного значения интеграла, оценить абсолютную погрешность метода.

2. Вычислить с заданной точностью e экстремум функции, приведенной в табл.8 (в соответствии с вариантом задания). На печать вывести таблицу значений аргумента х и функции y=f(x) только при «грубом» значении шага изменения аргумента, а также вычисленное конечное значение экстремума и значение аргумента, при котором оно достигается.

Таблица 8

Вариант задания Вид функции y=f(x) Вид экстремума хэкстр Диапазон изменения аргумента [a,b] «Грубое» значение шага h Точность вычисления экстремума e
  Максимум 0,5 [0;1,0] 0,15 10-5
  Минимум 1,0 [0,2;1,5] 0,25 0,5×10-4
  Минимум 0,0 [-0,8;0,4] 0,25 [10-5]
  Максимум 0,333333 [0,1;0,6] 0,1 10-5
  Максимум 1,0 [0,2;1,5] 0,3 10-5
  Минимум 3,0 [2;4] 0,3 0,5×10-5
  Минимум 0,0 [-2;0,8] 0,15 10-4
  Минимум 1,4 [1;2] 0,15 0,5×10-4
  Минимум 0,75 [0,1;1,2] 0,2 10-5
  Максимум 1,0 [0,1;1,5] 0,25 10-5
  Максимум 7,389 [6;8] 0,15 10-5
  Минимум 1,0 [0,1;1,5] 0,2 10-4
  Максимум 1,0 [0,15;1,5] 0,2 10-5
  Максимум –1,0 [-2;-0,5] 0,15 10-5
  Минимум 1,0 [0,1;1,9] 0,2 10-4



Поделиться с друзьями:


Дата добавления: 2014-12-25; Просмотров: 469; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.012 сек.