Автор работы: Сергей Лищинский, 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
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.
МЕНЮ ПРОГРАММЫ
ДИСКЕТА С ПРОГРАММОЙ