Задача: разделить одну простую дробь на другую - получить результат Программа

результат
Программа на языке Паскаль для вычисления результата деления одной простой

дроби на другую является примером реализации линейного вычислительного алгоритма.
Программа начинается с заголовка (служебное слово PROGRAM). За служебным словом следует произвольное имя, придуманное программистом. В конце заголовка ставится точка с запятой.

m := a  d

начало

конец

ввод a, b, c, d

вывод m

вывод n

n := b  c

цел a, b, c, d, m, n

ввод a, b, c, d

нач

кон

вывод m

вывод n

m := a  d

n := b  c

VAR

READLN

WRITELN

:

INTEGER

a, b, c, d, m, n

(

)

;

a, b, c, d

;

(

)

m

:=

m

a  d

BEGIN

;

:=

n

b  c

;

WRITELN

;

(

)

n

Линейные алгоритмы на Паскале

алг Деление дробей

PROGRAM

Division

;

результат
Раздел описания переменных, начинается со слова VAR, за которым следует

список имен однотипных переменных через запятую. Идентификаторы переменных составляются из латинских букв и цифр (первый символ обязательно должен быть буквой. Тип указывается через двоеточие.
В нашем примере все переменные имеют целый тип (INTEGER). В конце описания каждого типа необходимо ставить разделитель – точку с запятой

m := a  d

начало

конец

ввод a, b, c, d

вывод m

вывод n

n := b  c

алг Деление дробей

ввод a, b, c, d

нач

кон

вывод m

вывод n

m := a  d

n := b  c

PROGRAM

READLN

WRITELN

(

)

Division

;

a, b, c, d

;

(

)

m

:=

m

a  d

BEGIN

;

WRITELN

;

(

)

n

:=

n

b  c

;

Линейные алгоритмы на Паскале

VAR

:

INTEGER

a, b, c, d, m, n

;

цел a, b, c, d, m, n

1

3

2

5

m

n

результат
Служебное слово BEGIN (начало) является операторной скобкой и с него

начинается раздел операторов. Используется вместе с другой операторной скобкой - END (конец). Между этими служебными словами помещаются все операторы, из которых складывается программа.

m := a  d

начало

конец

ввод a, b, c, d

вывод m

вывод n

n := b  c

алг Деление дробей

цел a, b, c, d, m, n

ввод a, b, c, d

кон

вывод m

вывод n

m := a  d

n := b  c

PROGRAM

VAR

READLN

WRITELN

:

INTEGER

a, b, c, d, m, n

(

)

;

Division

;

a, b, c, d

;

(

)

m

:=

m

a  d

;

WRITELN

;

(

)

n

:=

n

b  c

;

Линейные алгоритмы на Паскале

BEGIN

нач

1

3

2

5

m

n

результат
По оператору READ (READLN) происходит ввод данных с клавиатуры. При

выполнении команды ввода компьютер ожидает действий пользователя, который должен набрать на клавиатуре значения переменных в том порядке, в котором они указаны в списке, отделяя их друг от друга пробелами. Одновременно с набором данных на клавиатуре они появляются на экране (пример: 5, 9, 7, 13). В конце набора нажимается клавиша ВВОД (Enter).

m := a  d

начало

конец

ввод a, b, c, d

вывод m

вывод n

n := b  c

алг Деление дробей

цел a, b, c, d, m, n

нач

кон

вывод m

вывод n

m := a  d

n := b  c

PROGRAM

VAR

WRITELN

:

INTEGER

a, b, c, d, m, n

;

Division

;

(

)

m

:=

m

a  d

BEGIN

;

WRITELN

;

(

)

n

1 3 2 5

:=

n

b  c

;

Линейные алгоритмы на Паскале

READLN

(

)

a, b, c, d

;

ввод a, b, c, d

результат
m := a  d
начало
конец
ввод a, b, c, d
вывод m
вывод

n

n := b  c

алг Деление дробей

цел a, b, c, d, m, n

ввод a, b, c, d

нач

кон

вывод m

вывод n

PROGRAM

VAR

READLN

WRITELN

:

INTEGER

a, b, c, d, m, n

(

)

;

Division

;

a, b, c, d

;

(

)

m

BEGIN

WRITELN

;

(

)

n

В данном разделе программы с помощью операторов присваивания организован процесс вычисления значений переменных m и n по исходным данным a, b, c, d, значения которых были предварительно введены в компьютер с клавиатуры.

Линейные алгоритмы на Паскале

:=

m

a  d

;

:=

n

b  c

;

m := a  d

n := b  c

1 3 2 5

результат
начало
конец
ввод a, b, c, d
вывод m
вывод n
n := b 

c

алг Деление дробей

цел a, b, c, d, m, n

ввод a, b, c, d

нач

кон

вывод m

вывод n

PROGRAM

VAR

READLN

WRITELN

:

INTEGER

a, b, c, d, m, n

(

)

;

Division

;

a, b, c, d

;

(

)

m

BEGIN

WRITELN

;

(

)

n

В данном разделе программы с помощью операторов присваивания организован процесс вычисления значений переменных m и n по исходным данным a, b, c, d, значения которых были предварительно введены в компьютер с клавиатуры.

Линейные алгоритмы на Паскале

:=

m

a  d

;

:=

n

b  c

;

m := a  d

n := b  c

1 3 2 5

m := a  d

1

3

2

5

5

6

результат
m := a  d
начало
конец
ввод a, b, c, d
вывод m
вывод

n

n := b  c

алг Деление дробей

цел a, b, c, d, m, n

ввод a, b, c, d

нач

кон

вывод n

m := a  d

n := b  c

PROGRAM

VAR

READLN

:

INTEGER

a, b, c, d, m, n

(

)

;

Division

;

a, b, c, d

;

:=

m

a  d

BEGIN

;

WRITELN

(

)

n

Вывод результата на экран по оператору WRITE (WRITELN).

На этом шаге производится вывод значения переменной m ( 65 )

:=

n

b  c

;

Линейные алгоритмы на Паскале

WRITELN

(

)

m

;

вывод m

1 3 2 5
5

результат
m := a  d
начало
конец
ввод a, b, c, d
вывод m
вывод

n

n := b  c

алг Деление дробей

цел a, b, c, d, m, n

ввод a, b, c, d

нач

кон

вывод m

m := a  d

n := b  c

PROGRAM

VAR

READLN

WRITELN

:

INTEGER

a, b, c, d, m, n

(

)

;

Division

;

a, b, c, d

;

(

)

m

:=

m

a  d

BEGIN

;

;

:=

n

b  c

;

Вывод результата на экран по оператору WRITE (WRITELN).

На этом шаге производится вывод значения переменной n ( 63 )

Линейные алгоритмы на Паскале

WRITELN

(

)

n

вывод n

1 3 2 5
5
6

результат
m := a  d
начало
конец
ввод a, b, c, d
вывод m
вывод

n

n := b  c

алг Деление дробей

цел a, b, c, d, m, n

ввод a, b, c, d

нач

вывод m

вывод n

m := a  d

n := b  c

PROGRAM

VAR

READLN

WRITELN

:

INTEGER

a, b, c, d, m, n

(

)

;

Division

;

a, b, c, d

;

(

)

m

:=

m

a  d

BEGIN

;

WRITELN

;

(

)

n

Замыкающая операторная скобка END, означающая КОНЕЦ ПРОГРАММЫ. Используется вместе с другой операторной скобкой BEGIN (начало). Между этими служебными словами размещается программа на языке Паскаль. После слова END (в самом конце программы) ставится точка.

:=

n

b  c

;

Линейные алгоритмы на Паскале

кон

1 3 2 5
5
6