PascalKurs (Разработка программы на языке Турбо Паскаль), страница 2

e, {точность вычисления}

x,k: real; {рабочие переменные}

way: string; {путь к файлу}

f: file of real; {файл с данными}

symbol: char; {рабочая переменная}

BEGIN

{Установка режима экрана}

textbackground(1);

textcolor(14);

clrscr;

{Вывод заголовка}

gotoXY(1,3);

writeln(' ’:15,'╔══════════════════════════════════════════════════╗');

writeln(' ':15,'║ Решение уравнения x*x*x+x*x-3=0 методом итераций ║');

writeln(' ':15,'╚══════════════════════════════════════════════════╝');

writeln;

textcolor(15);

{Обращение к пользователю}

1: writeln(' ':20,'Откуда будем брать исходные данные?');

textcolor(13);

write(' ':25,'1 ');

textcolor(15);

writeln('- Из файла');

textcolor(13);

write(' ':25,'2 ');

textcolor(15);

writeln('- C клавиатуры');

gotoXY(35,whereY);

textcolor(13);

readln(k);

textcolor(15);

if k=1

then

{Ввод данных из файла}

begin

writeln(' ':15,'Введите, пожайлуста, путь к файлу с данными');

gotoXY(33,whereY);

textcolor(13);

readln(way);

textcolor(15);

{Подключение файла и установка курсора в начало}

assign(f,way);

reset(f);

{Чтение исходных данных из файла}

{и вывод их на экран}

read(f,x1);

write(' ':19,'Приближенное значение корня ');

textcolor(12);

writeln('x1=',x1:5:2);

textcolor(15);

read(f,e);

write(' ':22,'Точность вычислений ');

textcolor(12);

writeln('e=',e:8:5);

textcolor(15);

close(f);

end

else if k=2 then

{Ввод данных с клавиатуры}

begin

writeln(' ':15,'Введите, пожайлуста, приближенное значение корня x1: ');

gotoXY(35,whereY);

textcolor(13);

readln(x1);

textcolor(15);

writeln(' ':17,'Введите, пожайлуста, точность вычислений e: ');

gotoXY(33,whereY);

textcolor(13);

readln(e);

textcolor(15);

writeln;

end

else goto 1;

{Задание начальных значений}

n:=0;

x:=3*e;

{Цикл вычисления корня}

while abs(x)>=e do

begin

x2:=(3-x1*x1*x1-x1*x1)/9+x1;

x:=x2-x1;

n:=n+1;

x1:=x2;

end;

{Вывод результатов вычичлений}

writeln;

textcolor(10);

write(' ':19,'Корень ');

textcolor(12);

write ('x=',x2:8:5);

textcolor(10);

writeln(' получен за ',n,' итераций.');

{Запрос о записи в файл}

writeln;

textcolor(15);

write(' ':22,'Записать результат в файл ');

textcolor(13);

write('(Y/N)');

textcolor(15);

writeln('? ');

writeln(' ':25,'(или вывести на принтер)');

gotoXY(35,whereY);

textcolor(13);

readln(symbol);

textcolor(15);

if symbol='y'

then

{Запись в файл}

begin

writeln(' ':22,'Введите, пожайлуста, путь к файлу');

writeln(' ':19,'или название порта подключенного принтера');

gotoXY(33,whereY);

textcolor(13);

readln(way);

textcolor(15);

assign(f,way);

rewrite(f);

write(f,x2);

close(f);

end;

{Задержка результатов}

delay(3000);

END.

Инструкция по использованию

Данная программа предназначена для нахождения с некоторой заданной точностью методом итераций корня уравнения х³ + х² – 3=0. Для того, чтобы запустить программу вычисления корня необходимо сначала запустить интегрированную инструментальную оболочку Турбо Паскаль 7.0 (ИИО ТП 7.0). Затем из неё загружается файл «Curs.pas » . После загрузки и вывода заголовка «Решение уравнения x*x*x+x*x-3=0 методом итераций» на экране возникает запрос к пользователю «Откуда будем брать исходные данные? 1 - из файла. 2 – с клавиатуры.» Пользователь должен ввести соответственно «1», если он хочет взять исходные данные из заранее приготовленного на ИИО ТП 7.0 файла, содержащего два вещественных числа: приближенное (грубое) значение корня x1 и точность вычисления e. (Для создания такого файла можно использовать результат выполнения лабараторной работы №8, которая содержится в файле «Lab8.pas».) Для этого пользователь должен ввести путь к файлу с исходными данными в ответ на запрос об этом. Программа считывает приближенное значение корня x1 и точность вычисления e из файла и выводит их значения на экран. Если же пользователь хочет ввести исходные данные вручную, то он должен ввести «2 ». Тогда надо ввести два действительных числа с клавиатуры после запроса программы: «Введите приближенное значение корня x1 и точность вычисления e ». При этом для корректного выполнения программы x1 должен принадлежать интервалу [0,6; 1,4], а e для получения более точных результатов желательно должна быть много меньше x1. После ввода данных программа вычисляет уточнённый корень x2 уравнения и выводит его на экран вместе с количеством итераций, за которое корень был уточнён. Затем на экране возникает запрос к пользователю, хочет ли он записать результат в файл или отпечатать его на принтере. Если пользователь, соглашаясь, нажимает «Y », то ему следует ввести потом путь к файлу или имя порта, к которому подключён принтер. После записи в файл результата или его печати на принтере и задержки в 3 сек. выполнение программы оканчивается.

Заключение

Тестирование программы показало, что она функционирует нормально. В качестве исходных данных были введены грубое значение корня x1 = 1 и точность вычислений e = 0.00001. В результате за 9 итераций было получено уточнённое значеие корня уравнения х³ + х² – 3=0 x2 = 1.17456. Это соответствует значению корня полученному в результате построения графика функции F(x) = х³ + х² – 3 в MathCad.

В ходе выполнения курсового проектирования по дисциплине “Введение в информатику” у меня сформировалась система знаний и умений по средствам и технологии программирования на языке Паскаль, включая такие этапы решения задачи, как:

• мотивация задачи программирования;

• конкретизация постановки задачи программирования;

• разработка алгоритма решения задачи;

• редактирование и отладка текста программы в среде программирования;

• документирование.

Список литературы

1. Единая система программной документации. Схемы алгоритмов, программ, данных и систем. ГОСТ 19. 701-90. Условные обозначения и правила выполнения. Издательство стандартов, 1991.

2. Фролов В.В. Турбо Паскаль (в трёх книгах). Книга 1. Основы Турбо Паскаля. -М.: Учебный центр “МВТУ - ФЕСТО ДИДАКТИК”, 1992 - 304 с.

3. Турбо Паскаль 7.0 - К.: Издательская группа BHV, 1999 - 448 с.

4. Штернберг Л.Ф. Разработка и отладка программ. - М.: Радио и связь, 1984 - 88 с.

5. Гудман С., Хидетниеми С. Введние в разработку и анализ алгоритмов. - М.: Мир, 1981 - 368 с.

Содержание