Лекция 4 ОПЕРАТОРЫ ЯЗЫКА ПАСКАЛЬ Программа

Лекция 4 ОПЕРАТОРЫ ЯЗЫКА ПАСКАЛЬ

Программа = данные + алгоритм

СТРУКТУРА ПРОГРАММЫ program <имя программы>; uses <имя 1, имя 2, . . . >; label <имя 1, . . . >; const <идентификатор> = <значение>; type <имя типа> = <значения типа>; var <идентификатор, . . . > : <тип>; procedure <имя>; <тело процедуры> function <имя>; <тело функции> begin <операторы> end. раздел операторов раздел описаний

Пример Var a, b, proizved : integer; Begin Write('Введите значение целого числа А'); Readln (a); Write('Введите значение целого числа В'); Readln (b); proizved : = a * b; Write('Произведение чисел a и b=', proizved); end. Var a, b, proizved : integer; Begin Write('Введите значения целых чисел А, В'); Readln (a, b); proizved : = a * b; Write('Произведение чисел a и b=', proizved); end.

ОПЕРАТОРЫ

Оператор присваивания <идентификатор переменной>: =<выражение> Пример А: = 8; S: = A * В; S: =2*S+A*Sin (x); F: =True;

Процедура ВВОДА данных (чтения с клавиатуры и запись в ОЗУ) Read (XI, X 2, . . . , Xn); Read. Ln (XI, X 2, . . . , Xn); Xl, X 2, . . . , Xn — переменные допустимых типов данных значения которых набираются на клавиатуре через пробел и высвечиваются на экране. Пример Read (А, В); Sum 1 : = А + В; Readln (С); Readln (D); Sum 2 : = С + D;

Процедура ВЫВОДА данных (чтения данных из ОЗУ на экран) Write (Y 1, Y 2, . . . , Yn) ; Write. Ln (Y 1, Y 2, . . . , Yn) ; Y 1, Y 2, . . . , Yn - список выражений, переменных, констант или значений допустимых типов данных. Пример Write(Sum 1, Sum 2); Write(‘Summa=‘, S); Writeln;

Форматы вывода <идентификатор переменной: N: M> , где N- число позиций для всех символов числа, М- число позиций для символов десятичной части числа. Примеры A=511. 04 Write(A: 8: 4); 511. 0400 A=-46. 78 Writeln(A: 10: 2) _ _- 46. 78 A=-46. 78 Writeln(A: 10: 4) _ _- 46. 7800 B=46 Write(B: 6); _ _ 46

Оператор безусловного перехода Goto < имя метки>

label Metka; var A: integer; begin … Readln(А); Writeln(A); … Goto Metka; А: =4; … Metka: Writeln(A); … end. label 1234; var A: integer; begin … Readln(А); Writeln(A); … Goto 1234; А: =4; … 1234: Writeln(A); … end.

Составной оператор Begin <один оператор или группа операторов> end;

Полная форма оператора If : if <условие> then <оператор1> else <оператор2>; нет да условие оператор2 оператор1

Сокращенная форма оператора If : if <условие> then <оператор1>; нет да условие оператор1

Пример var А, В : integer; S: real; Begin Write('Введите значение делимого А '); Read(A); начало Ввод А Write('Введите значение делителя В '); Read(В); if B=0 then Writeln ('Ha нуль делить нельзя') else begin S : = А / В; Writeln (‘Результат = ', S); end. Ввод В Нет В=0 Да ошибка S= A/B Вывод S конец

Оператор множественного выбора CASE case <выражение-селектор> of < список 1 >: < оператор 1 >; < список 2 >: < оператор 2 >; < список 3 >: < оператор 3 > else < оператор 4> end;

Блок-схема оператора CASE Условие 1 да оператор 1 нет Условие 2 да оператор 2 нет да Условие 3 нет оператор 4 оператор 3

Блок-схема примера a=1 да вывод ‘понедельник’ нет да a=2 вывод ‘вторник’ нет да а=3 … нет вывод ‘воскресенье’ вывод ‘среда’

ПРИМЕР Case a of 1 : Writeln 2 : Writeln 3 : Writeln 4 : Writeln 5 : Writeln 6 : Writeln else Writeln end; (‘понедельник'); (‘вторник'); (‘среда'); (‘четверг'); (‘пятница'); (‘суббота') (‘воскресенье')

Самостоятельная работа 1 вариант 2 вариант