46403

Составление программ циклической структуры

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

Информатика, кибернетика и программирование

Изучить основные операторы для организации циклов. Разработать алгоритм решения задачи. Составить программу решения задачи. Вычислить на ЭВМ значение интеграла на отрезке. Число разбиений отрезка интегрирования равен 100, метод интегрирования – метод трапеций.

Русский

2014-10-19

64 KB

3 чел.

КОМИТЕТ ПО ОБРАЗОВАНИЮ МОСКОВСОЙ ОБЛАСТИ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧЕРЕЖДЕНИЕ СРЕДНЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ МОСКОВСКОЙ ОБЛАСТИ

«СЕРПУХОВСКИЙ ТЕХНИЧЕСКИЙ КОЛЛЕДЖ»

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

По дисциплине «Основы программирования»

Составление программ циклической структуры.

Выполнил:

Студент 2-го курса 2-П гр

Исаев Валентин

Принял:

Преподаватель Щербаков К.В.

Серпухов 2013

Цель работы:

1. Изучить основные операторы для организации циклов.

2. Разработать алгоритм решения задачи.

3. Составить программу решения задачи.

Оборудование:

1. Персональный компьютер

2. Программа Turbo Pascal 

Задание 1.

Вычислить значение функций F(x)=tg2x-3 на отрезке [-П/4;П/4] с шагом

h=(b-a)/n, n=10. Результат представить в виде таблицы, первый столбец – значение аргумента, второй – соответствующие значения функции.

Блок-схема программы.   

                                                                                                 

 

Листинг программы.

Program Project1;

uses

  CRT;

var

  a,b,h,x,n,y:real;

begin

     a:=-PI/4;

     b:=PI/4;

     n:=10;

     h:=(b-a)/n;

     x:=a;

while (x<=b) do

begin

     y:=tan(2*x)-3;

  write('x=', x:1:3, ' '); writeln('y=', fx:1:3);

     x:=x+h;

end;

  readkey();

end.

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

Задание 2.

Вычислить на ЭВМ значение интеграла на отрезке [-2;1]. Число разбиений отрезка интегрирования равен 100, метод интегрирования – метод трапеций.

Блок-схема программы.

  

 

Листинг программы:

Program Project1;

uses

  CRT;

var

  a,b,S,h,integ: real;

  i,n: integer;

function f(x: real): real;

begin

     f:=(3*x*x)/(x+4);

end;

begin

     a:=-2;

     b:=1;

     n:=100;

     h:=(b-a)/n;

for i:=1 to n-1 do

begin

     S:=s+f(a + h*i);

  integ:=h*((f(a)+f(b))/2+S);

  write('n=',i,' '); writeln('i=', integ:1:3);

end;

  readkey();

end.

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

Вывод:

Изучил основные операторы для организации циклов.

Разработал алгоритм решения задачи.

Составил программу решения задачи.


 

А также другие работы, которые могут Вас заинтересовать

34659. Графические возможности Delphi, система координат 407.3 KB
  Методы вывода графических примитивов рассматривают свойство Cnvs как некоторую поверхность на которой можно рисовать. Координаты области вывода Метод построения графического примитива в общем случае имеет следующий синтаксис...
34660. Динамические структуры данных. Стеки, очереди. Списки. Бинарные деревья 178.5 KB
  При создании дерева вызывается рекурсивная процедура следующего вида: procedure Insertvr Root: TTree; X: T; { Дополнительная процедура создающая и инициализирующая новый узел } procedure CreteNodevr p: TTree; n: T; begin Newp; p^.Right := nil end; begin if Root = nil Then CreteNodeRoot X { создаем новый узел дерева } else with Root^ do begin if vlue X then InsertRight X else if vlue X Then InsertLeft X else { Действия производимые в случае повторного...
34661. Доступ к системным ресурсам. Определение переменной как Absolute. Предопределенные массивы MEM. Прерывания. Обработка прерываний 66 KB
  Прерывания. Прерывания Прерывание это особое состояние вычислительного процесса. В момент прерывания нарушается нормальный порядок выполнения команд программы и управление передается специальной процедуре которая входит в состав ДОС и называется процедурой обработки прерывания. В архитектуре центрального процессора ПК предусмотрены прерывания двух типов аппаратные и программные.
34662. Введение. История развития языков программирования 38.76 KB
  На занятиях по дисциплине АО мы будем изучать язык Паскаль. Паскаль язык программирования который относительно прост в изучении довольно ясен и логичен и будучи первым изучаемым языком программирования приучает к хорошему стилю. Паскаль стал наследником Алгола. Время рождения языка Паскаль начало 70х годов.
34663. Итерационные алгоритмы 41 KB
  Особенностью итерационного цикла является то что число повторений операторов тела цикла заранее неизвестно. Выход из итерационного цикла осуществляется в случае выполнения заданного условия. Особенностью же нашей конкретной задачи является то что число слагаемых а следовательно и число повторений тела цикла заранее неизвестно. Поэтому выполнение цикла должно завершиться в момент достижения требуемой точности.
34664. Основы комбинаторики 56 KB
  При выборе m элементов из n различных элементов принято говорить что они образуют соединение из n элементов по m. Перестановка Соединение каждое из которых содержит n различных элементов взятых в определенном порядке называются перестановками из n элементов n=m. Сочетание Соединения отличающиеся друг от друга каждое из которых содержит m элементов взятых из n элементов называется сочетанием из n элементов по m n m. Размещение с повторением Размещение из n элементов в каждое из которых входит m элементов причем один и тот же...
34665. Компоненты страницы Win32, их назначение, свойства, примеры применения 1.34 MB
  Свойства компонента: property DisplyRect: TRect; Определяет рабочую зону компонента предназначенную для размещения других компонентов. Клиентская часть компонента содержит зону закладок и рабочую зону property HotTrck: Boolen; Если содержит True название закладки автоматически выделяется цветом при перемещении над ней указателя мыши property Imges: TCustomImgeList; Определяет объект хранилище изображений которые будут прорисовываться слева от текста property MultiLine: Boolen; Разрешает расположение закладок в несколько рядов. Если...
34666. Массивы: определение, описание, размещение в памяти, использование 55 KB
  Структурная схема массива. Type имя типа = RRY [ тип индекса ] OF тип элементов VR имя переменной : имя типа ; При таком способе описания в разделе Type описывается тип массива который будет использоваться в программе то есть его размер и тип элементов. С отдельным элементом массива можно делать все что с любой переменной. Обращаться к элементу массива надо указывая имя переменной с номером элемента в квадратных скобках.
34667. Метод пошаговой детализации в программировании 407.08 KB
  Полностью закончив детализацию всех блоков получаем решение задачи в целом. Детализируем операцию определения x: Определить x Определить x1 такое что fx1 =y Определить x2 такое что fx2 =y Определить x на интервале [x1 x2] Все. Таким образом определим значение x1 удовлетворяющее данному условию: Определить x1: x1:=1 цикл пока fx1 y x1:=x1 2 Все цикл Все 4 этап. Определить x2: x2:=1 цикл пока fx2 y x2:=x22 Все цикл Все.