Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Полный цикл работы с программой в системе программирования Turbo Pascal
Цель работы: Освоение работы в интеллектуальной интегрированной среде системы программирования Turbo Pascal. Методика выполнения работы
1. Запустите интегрированную среду Паскаль. 2. Смените при необходимости рабочий каталог, установленный по умолчанию: File → Change dir. 3. Откройте новое окно для набора текста программы: File → New. Наберите в окне редактора программу, написанную на языке Паскаль, предназначенную для вычисления корней квадратного уравнения по следующему алгоритму:
, если d ≥0 и , где , , если d<0.
Рис.5.1. Блок-схема алгоритма вычисления корней квадратного уравнения
Программа на языке Паскаль, реализующая этот алгоритм Текст в фигурных скобках – это комментарий, его можно не набирать.
Program KwUr; {Имя программы} Uses crt; {Использование библиотечного модуля CRT} Var a, b, c, d, w, z, x 1, x 2: Real; {Объявление переменных} otvet: Char; Begin {Начало основного блока программы} Clrscr; {Очистка экрана} Writeln (‘ Программа вычисления корней уравнения a * x ^2 + b * x + c = 0’); Repeat {Начало итерационного цикла с постусловием} Write (‘Введите значение a =’); ReadLn (a); {Ввод коэффициента а} If a=0 Then Writeln(‘ Уравнение не квадратное ’) Else Begin Write (‘Введите значение b =’); ReadLn (b); Write (‘Введите значение c =’); ReadLn (c); d:= b*b-4*a*c; z:=-b/(2*a); w:=sqrt(abs(d))/(2*a); Writeln(‘ При а = ’,a:5:2,’ b= ’,b:5:2,’ c= ’,c:5:2); If d<0 Then Begin Writeln(‘x1= ‘,z:6:3,’+j*’,w:5:3); Writeln(‘x2= ‘,z:6:3,’-j*’,w:5:3); End Else Begin x1:=z+w;x2:=z-w; Writeln(‘x1= ‘,x1:5:2,’ x2= ‘,x2:5:2); End End; Writeln (‘Желаете продолжить работу? (y/n)’); Readln(otvet); Until otvet <>’ y ’; {Повторять, пока переменная otvet примет значение отличное от y} Writeln (‘Спасибо, До свидания!’) End.
4. Используя команду Save пункта меню File, запишите набранную Вами программу на диск под именем KwUr1. Откомпилируйте исходную программу, нажав комбинацию клавиш < Alt > + < F 9> или при помощи мыши выполните пункт меню Compile. Исправьте допущенные ошибки, если они будут обнаруживаться транслятором при компиляции. После исправления ошибок процесс компиляции надо повторять. При отсутствии ошибок будет выдано сообщение: Compile successful: Press any key. В ответ надо нажать любую клавишу и запустить программу на выполнение: < Ctrl > + < F 9> или пункт меню Run.
5. Для того чтобы, находясь в окне с исходной программой, посмотреть, при необходимости, результаты расчетов, надо нажать < Alt > + < F 5>. Повторное нажатие этих клавиш снова откроет окно с программой. 6. Проведите серию расчетов для набора значений коэффициентов a, b и c так, чтобы работали все ветви данной программы. Проверьте полученные результаты путем подстановки найденных корней в исходное уравнение. 7. Окончание работы – выход из Паскаля: < Alt > + < X > или с помощью мыши: File → Exit.
Лабораторная работа № 2
|
|||||
Последнее изменение этой страницы: 2021-11-27; просмотров: 71; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 18.191.192.241 (0.005 с.) |