Метод половинного деления

Автор работы: Сергей Лищинский, 01 Июня 2010 в 16:18, курсовая работа

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

Паскаль − один из наиболее распространенных процедурно-ориентированных языков программирования 80 - 90-х годов, имеет свою достаточно интересную историю, начало которой положило объявление в 1965 г. конкурса по созданию нового языка программирования - преемника Алгола - 60. Участие в конкурсе принял швейцарский ученый Николаус Вирт, который работал на факультете информатики Стэндфордского университета. Проект, предложенный им, был отвергнут комиссией в 1967 г. Но Вирт не прекратил работу. Вернувшись в Швейцарию, совместно с сотрудниками Швейцарского федерального института технологии в Цюрихе, он уже в 1968 г. разработал новую версию языка Паскаль, названного так в честь великого французского математика и механика Блеза Паскаля, создавшего в 1642 г. первую счетную машину. В 1971 г. Н. Вирт выпустил описание своего языка, а в 1975 г. было разработано руководство для пользователей версии Паскаля, которая практически легла в основу стандарта языка. Но стандарт языка появился только в 1982 г.

Содержание работы

введение 4
1. постановка задачи 5
2. метод половинного деления 6
3 .соответствие между переменными, принятыми при описании задачи и в програме 9
4. структурная схема программ и ее описание 12
5. листинг програмы 20
6. контрольный пример и анализ результата 21
7. инструкция пользователя 26
заключение 27
список литературы 28
приложения 29
приложение а 30
приложение б. 32
приложение д. 33

Содержимое работы - 1 файл

Курсовой метод половинного деления.doc

— 1.02 Мб (Скачать файл)

end;

{===============================}

Procedure Vvod;

begin

  Clrscr;

  Writeln('Vvedite levuju granicu intervala');

  Readln(a);

  Writeln('Vvedite pravuju granicu intervala');

  ReadLn(b);

  Writeln('Vvedite tochnost');

  ReadLn(e);

end;

{===============================}

Procedure Vivrez;

begin

  Clrscr;

  PolDel(a,b,e,x);

  Writeln('Uravnenie x^2-x-6 na intervale (',a:0:2,',',b:0:2,')');

  Writeln('Imeet reshenie ',x:0:2);

  ReadKey

end;

{===============================}

Procedure Save;

var

  f:text;

  S:string;

begin

  Clrscr;

  Writeln('Vvedite nazvanie faila');

  ReadLn(S);

  Assign(f,s);

  {$I-}

  ReWrite(f);

  {$I+}

  PolDel(a,b,e,x);

  Writeln(f,'Uravnenie x^2-x-6 na intervale (',a:0:2,',',b:0:2,')');

  Writeln(f,'Imeet reshenie ',x:0:2);

  Close(f)

end;

{===============================}

var

  Key:Char;

Begin

  repeat

    Clrscr;

    Writeln('1-Vvesti dannie');

    Writeln('2-Otobrazit rezultat');

    Writeln('3-Sohranit rezulat v fail');

   Writeln('0-Vihod');

    Key:=ReadKey;

    Case Key of

    '1':Vvod;

    '2':VivRez;

    '3':Save;

    end;

  until Key='0'; 

end. 
 

 

      

ПРИЛОЖЕНИЕ Б.

МЕНЮ  ПРОГРАММЫ

        

 

      

ПРИЛОЖЕНИЕ Д.

ДИСКЕТА С ПРОГРАММОЙ

Информация о работе Метод половинного деления