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 – корень квадратный.

Данный текст является ознакомительным фрагментом.



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

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

15.17.2 Процедуры NFS

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

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


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 (‘Введите


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

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

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


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

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

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


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

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

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


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

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

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


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

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

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


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

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

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


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

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

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


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

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

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