Знаходження коренів нелінійних рівнянь

Автор работы: Пользователь скрыл имя, 10 Июня 2014 в 10:10, курсовая работа

Краткое описание

Як і деякі мови Турбо Паскаль дозволяє писати добре структуровані програми (завдяки в ньому процедур і функцій). У структурованих програмах звичайно легко просліджується основний алгоритм, їх неважко зрозуміти будь-якому читачу, вони простіше в налагодженні і менш чуттєві до помилок програмування. Усі ці властивості є наслідком важливої особливості процедур (функцій), кожна з який являє собою багато в чому самостійний фрагмент програми, зв'язаний з основною програмою лише з допомогою декількох параметрів. Самостійність процедур (функцій) дозволяє локалізувати в них деталі програмної реалізації тієї чи іншої алгоритмічної дії і тому зміна цих деталей, наприклад, у процесі налагодження звичайно не приводить до зміни основної програми. Розбивка основної програми на ряд незалежних одна від одної частин це ще і засіб економії пам'яті : кожна підпрограма існує в програмі в єдиному екземплярі, у той час як звертатися до неї можна багаторазово з різних місць програми.

Содержание

ВСТУП
4
1 ПОСТАНОВКА ЗАДАЧІ
6
2 АНАЛІЗ ЗАВДАННЯ ТА РОЗРОБКА МЕТОДУ ВИРІШЕННЯ ЗАДАЧІ
7
3 ОПИС ПРОГРАМИ
11
3.1 Алгоритм на основі якого написана програма
11
3.2 Використання бібліотеки CRT
12
3.3 Опис змінних
13
3.4 Вхідні і вихідні дані
13
4 ОПИС ЗАСТОСУВАННЯ
14
ВИСНОВОК
15
СПИСОК ВИКОРИСТАНИХ ДЖЕРЕЛ

Скачать полностью (56.69 Кб) Сколько стоит заказать работу?
Прикрепленные файлы: 1 файл

Курсова2.doc

— 235.00 Кб (Скачать документ)

 

ВИСНОВОК

 

У ході написання курсової роботи був закріплений матеріал по дисципліні «Комп’ютерні технології та програмування» надбаний раніше, а також були вивчені більш глибокі можливості мови програмування високого рівня Турбо Паскаль. Як видно, ядро мови дуже компактне і відрізняється простотою і надійністю.

Розглянута в пояснювальній записці програма “знаходження коренів рівнянь”, є демонстраційною і  носить науково - дослідницький характер. Виходячи з того, що програма не відрізняється високим професіоналізмом, вона не здатна конкурувати в реальному житті з програмними додатками подібного типу. Її практичне застосування обмежується лише наочною демонстрацією деяких можливостей середовища програмування Turbo Pascal і її скромними демонстраційними здібностями.

 

 СПИСОК ВИКОРИСТАНИХ ДЖЕРЕЛ

 

  1. Пономарева В.И. Практикум по программированию в среде Turbo Pascal. – Сімферополь.: Таврида,1998. –256с.
  2. Немнюгин С.А. Turbo Pascal. – СПб: Издательство «Питер», 2000. – 496 с.
  3. Зуєв Е.А. Язык программирования Turbo Pascal. -М.:Унитех, 1992.-298с.
  4. Фаронов В.В. Turbo Pascal 7.0-начальный курс.- М.: Нолидж, 2001. –575с.  
  5. Фаронов В.В. Turbo Pascal 7.0 Практика програмування. – М.: Нолидж, 1999. –415с.
  6. Васильєв П.П. Turbo Pascal. - М.: Комп'ютер, ЮНИТИ, 1995.-96с.
  7. Марченко А.И., Марченко Л.А:.Під ред. Тарасенко В.П. Программирование в среде Turbo Pascal 7.0. – М.: Бином Универсал, К.: Юниор, 1997. – 496с.

 

 

 

 

 

 

 

Додаток А

Program KURSOVA;

var x0,x1,e,x2:real;

 

begin

 

writeln('vv/otrezok s kornem');

 

readln(x0);readln(x1);

 

writeln('tochnost');

 

read(e);

 

repeat

 

x2:=(x0+x1)/2;

 

if ((arctan(x0)-1/(3*x0*x0*x0))*(arctan(x2)-1/(3*x2*x2*x2))<0) or

 

((arctan(x0)-1/(3*x0*x0*x0))*(arctan(x2)-1/(3*x2*x2*x2))=0)

 

then begin x0:=x0 ; x1:=x2; end else

 

if((arctan(x1)-1/(3*x1*x1*x1))*(arctan(x2)-1/(3*x2*x2*x2))<0)

 

or ((arctan(x1)-1/(3*x1*x1*x1))*(arctan(x2)-1/(3*x2*x2*x2))=0)

 

then begin x0:=x2;x1:=x1; end;

 

until abs(arctan(x2)-1/(3*x2*x2*x2)) <e;

 

writeln(' rez x*=',x2:5:3);

 

end.

 

 

 

Додаток Б

Результати:

 

Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International

 

vv. otrezok

0

2

tochnost 0.001

rez x*=0.778


Информация о работе Знаходження коренів нелінійних рівнянь