3.2. Процедуры

3.2. Процедуры

Пример 1.8: Процедура вычисляет корни квадратного уравнения

AX2+BX+C=0

PROGRAM KU (INPUT, OUTPUT);

VAR A, B, C, D, X1, X2 : REAL;

PROCEDURE KVUR (A, B, C: REAL; VAR D, X1, X2: REAL);

BEGIN

D:=SQR (B) -4*A*C;

IF D = 0 THEN X1:= (-B) / (2*A)

ELSE

IF D> 0 THEN

BEGIN

X1:= ((-B) – SQRT (D)) / (2*A);

X2:= ((-B) + SQRT (D)) / (2*A)

END

END;

BEGIN

WRITE (‘Введите A=’);

READLN (A);

WRITE (‘Введите B=’);

READLN (B);

WRITE (‘Введите C=’);

READLN (C);

KVUR (A, B, C, D, X1, X2);

IF D <0 THEN WRITELN (‘Действительных корней нет’)

ELSE

IF D = 0 THEN WRITELN (‘X=’, X1)

ELSE

BEGIN

WRITELN (‘X1=’, X1);

WRITELN (‘X2=’, X2)

END;

READLN;

READLN

END.

Где SQR – квадрат числа, а SQRT – корень квадратный.

Поделитесь на страничке

Следующая глава >

Похожие главы из других книг

8.1.7.2 Процедуры

Из книги Информационная технология ПРОЦЕСС СОЗДАНИЯ ДОКУМЕНТАЦИИ ПОЛЬЗОВАТЕЛЯ ПРОГРАММНОГО СРЕДСТВА автора Автор неизвестен


12.21 Процедуры верификации ПО

Из книги ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ВСТРОЕННЫХ СИСТЕМ. Общие требования к разработке и документированию автора Госстандарт России


2. Процедуры в Pascal

Из книги Информатика и информационные технологии: конспект лекций автора Цветкова А В

2. Процедуры в Pascal Каждое описание процедуры содержит заголовок, за которым следует программный блок. Общий вид заголовка процедуры следующий: Procedure <имя> [(<список формальных параметров>)]; Процедура активизируется с помощью оператора процедуры, в котором


Процедуры создания

Из книги Основы объектно-ориентированного программирования автора Мейер Бертран

Процедуры создания Все до сих пор рассмотренные инструкции создания основывались на инициализации по умолчанию. В некоторых случаях инициализация, определенная в языке, может нас не устраивать - хотелось бы обеспечить создаваемый объект специфической информацией. В


15.17.2 Процедуры NFS

Из книги TCP/IP Архитектура, протоколы, реализация (включая IP версии 6 и IP Security) автора Фейт Сидни М

15.17.2 Процедуры NFS Существуют процедуры NFS, обеспечивающие клиенту доступ, чтение или запись удаленного файла. Клиент может узнать структуру и реальную емкость удаленной файловой системы либо запросить атрибуты удаленного файла. Допустимо удалять и переименовывать


Каркас процедуры

Из книги VBA для чайников автора Каммингс Стив

Каркас процедуры Вот два примера процедур, по одной каждого из типов (Sub и Function): Public Sub Субмарина() MsgBox Поднять перископ! End Sub Public Function ФункШин(ДатаРождения As Date) ФункШин = DateDiff (yyyy, ДатаРождения, Date) End Function Как видите, каждая из процедур имеет начинающий процедуру


Процедуры типа Sub

Из книги Фундаментальные алгоритмы и структуры данных в Delphi автора Бакнелл Джулиан М.

Процедуры типа Sub Термин процедура типа Sub кажется мне довольно неуклюжим, но он достаточно точно отражает суть дела. В некоторых языках программирования суб процедурам и, или подпрограммами, называются процедуры, вызываемые главными процедурами. В VBA, хотя процедуры типа


Процедуры сравнения

Из книги Firebird РУКОВОДСТВО РАЗРАБОТЧИКА БАЗ ДАННЫХ автора Борри Хелен

Процедуры сравнения Само действие поиска элемента в наборе элементов требует возможности отличать элементы друг от друга. Если мы не можем различить два элемента, то не имеет смысла искать один из таких элементов. Таким образом, первая трудность, которую нам потребуется


Хранимые процедуры

Из книги Русский справочник по Win32 API автора Сорока Тарас

Хранимые процедуры Язык процедур Firebird (PSQL) реализует расширения его языка SQL, предоставляя логику условий, структуры управления потоками выполнения, обработку исключений (как встроенных, так и определенных пользователем), локальные переменные, механизм событий и


Выполняемые процедуры

Из книги Конец холивара. Pascal vs C автора Кривцов М. А.

Выполняемые процедуры Когда вы работаете с языком хранимых процедур Firebird и структурами программных модулей, необходимо различать процедуры, которые выполняются с целью изменения данных, и процедуры, которые собираются возвращать виртуальную таблицу вызвавшему


Оконные процедуры

Из книги автора

Оконные процедуры WindowProc Функция WindowProc является определяемой приложением функцией обратного вызова, которая обрабатывает отправленные окну сообщения. LRESULT CALLBACK WindowProc ( HWND hwnd , // дескриптор окна UINT uMsg , // идентификатор сообщения WPARAM wParam , // первый параметр сообщения LPARAM lParam


3.2. Процедуры

Из книги автора

3.2. Процедуры Пример 1.8: Процедура вычисляет корни квадратного уравненияAX2+BX+C=0PROGRAM KU (INPUT, OUTPUT);VAR A, B, C, D, X1, X2 : REAL;PROCEDURE KVUR (A, B, C: REAL; VAR D, X1, X2: REAL); BEGIN D:=SQR (B) -4*A*C; IF D = 0 THEN X1:= (-B) / (2*A) ELSE IF D> 0 THEN BEGIN X1:= ((-B) – SQRT (D)) / (2*A); X2:= ((-B) + SQRT (D)) / (2*A) END END; BEGINWRITE (‘Введите A=’);READLN (A);WRITE (‘Введите