Задача: разделить одну простую дробь на другую - получить результат Программа на языке Паскаль для вычисления результата деления одной простой дроби на другую является примером реализации линейного вычислительного алгоритма. Программа начинается с заголовка (служебное слово 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 : INTEGERa, b, c, d, m, n () ; a, b, c, d ; END. ()m :=:= ma d BEGIN ; :=:= nb c ; WRITELN ; ()n a b c d : = ad bc = m n алг Деление дробей PROGRAMDivision ;

Задача: разделить одну простую дробь на другую - получить результат Раздел описания переменных, начинается со слова 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 a b c d : = ad bc = m n PROGRAM READLN WRITELN () Division ; a, b, c, d ; END. ()m :=:= ma d BEGIN ; WRITELN ; ()n :=:= nb c ; VAR : INTEGERa, b, c, d, m, n ; цел a, b, c, d, m, n a bc d mn mn

Задача: разделить одну простую дробь на другую - получить результат Служебное слово 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 a b c d : = ad bc = m n PROGRAM VAR READLN WRITELN : INTEGERa, b, c, d, m, n () ; Division ; a, b, c, d ; END. ()m :=:= ma d ; WRITELN ; ()n :=:= nb c ; BEGIN нач a bc d mn mn

Задача: разделить одну простую дробь на другую - получить результат По оператору 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 a b c d : = ad bc = m n PROGRAM VAR WRITELN : INTEGERa, b, c, d, m, n ; Division ; END. ()m :=:= ma d BEGIN ; WRITELN ; ()n :=:= nb c ; READLN()a, b, c, d ; ввод a, b, c, d a bc d mn mn

Задача: разделить одну простую дробь на другую - получить результат m : = a d начало конец ввод a, b, c, d вывод m вывод n n : = b c алг Деление дробей цел a, b, c, d, m, n ввод a, b, c, d нач кон вывод m вывод n a b c d : = ad bc = m n PROGRAM VAR READLN WRITELN : INTEGERa, b, c, d, m, n () ; Division ; a, b, c, d ; END. ()m BEGIN WRITELN ; ()n В данном разделе программы с помощью операторов присваивания организован процесс вычисления значений переменных m и n по исходным данным a, b, c, d, значения которых были предварительно введены в компьютер с клавиатуры. :=:= ma d ; :=:= nb c ; m : = a d n : = b c a bc d mn n

Задача: разделить одну простую дробь на другую - получить результат начало конец ввод a, b, c, d вывод m вывод n n : = b c алг Деление дробей цел a, b, c, d, m, n ввод a, b, c, d нач кон вывод m вывод n a b c d : = ad bc = m n PROGRAM VAR READLN WRITELN : INTEGERa, b, c, d, m, n () ; Division ; a, b, c, d ; END. ()m BEGIN WRITELN ; ()n В данном разделе программы с помощью операторов присваивания организован процесс вычисления значений переменных m и n по исходным данным a, b, c, d, значения которых были предварительно введены в компьютер с клавиатуры. :=:= ma d ; :=:= nb c ; m : = a d n : = b c a bc d mn m : = a d

Задача: разделить одну простую дробь на другую - получить результат 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 a b c d : = ad bc = m n PROGRAM VAR READLN : INTEGERa, b, c, d, m, n () ; Division ; a, b, c, d ; END. :=:= ma d BEGIN ; WRITELN()n Вывод результата на экран по оператору WRITE (WRITELN). На этом шаге производится вывод значения переменной m ( 65 ) :=:= nb c ; WRITELN()m ; вывод m a bc d mn

Задача: разделить одну простую дробь на другую - получить результат 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 a b c d : = ad bc = m n PROGRAM VAR READLN WRITELN : INTEGERa, b, c, d, m, n () ; Division ; a, b, c, d ; END. ()m :=:= ma d BEGIN ; ; :=:= nb c ; Вывод результата на экран по оператору WRITE (WRITELN). На этом шаге производится вывод значения переменной n ( 63 ) WRITELN()n вывод n a bc d mn

Задача: разделить одну простую дробь на другую - получить результат 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 a b c d : = ad bc = m n PROGRAM VAR READLN WRITELN : INTEGERa, b, c, d, m, n () ; Division ; a, b, c, d ; ()m :=:= ma d BEGIN ; WRITELN ; ()n Замыкающая операторная скобка END, означающая КОНЕЦ ПРОГРАММЫ. Используется вместе с другой операторной скобкой BEGIN (начало). Между этими служебными словами размещается программа на языке Паскаль. После слова END (в самом конце программы) ставится точка. :=:= nb c ; END. кон