8 класс

Паскаль – универсальный язык программирования, получивший свое название в честь выдающегося ученого Блеза Паскаля.

В языке Паскаль используются различные типы данных: целочисленный (integer), вещественный (real), символьный (char), строковый (string), логический (boolean) и другие.

В программе, записанной на языке Паскаль, можно выделить:

Заголовок программы

Описание используемых данных

Описание действий по преобразованию данных (программный блок).

Для ввода в оперативную память значений переменных используются операторы ввода read и readln.

Для вывода данных из оперативной памяти на экран монитора используются операторы вывода write и writeln.

Ввод исходных данных и вывод результатов должны быть организованы понятно и удобно; это обеспечивает дружественность пользовательского интерфейса.

Физминутка

IV.Закрепление изученного

Выполнение заданий в рабочей тетради

V.Итог урока

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

VI. Домашнее задание п.3.1.- 3.2.- изучить

Урок 1. Программирование линейных алгоритмов.

Линейным называется алгоритм, в котором результат получается путем однократного выполнения заданной последовательности действий при любых значениях исходных данных. Операторы программы выполняются последовательно, один за другим, в соответствии с их расположением в программе.

Пример1: Определить расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1) и M2(x2,y2)

Этапы решения задачи:

Математическая модель: расстояние на плоскости между двумя точками M1(x1,y1) и M2(x2,y2) высчитывается по формуле

Составим схему алгоритма:

Уточним содержимое блока "Вычисление и печать расстояния":

Дальнейшая детализация не требуется. Переводим блок-схему на язык Паскаль.

program example1;

var x1, x2, y1, y2: integer;

d:real;

begin

write('x1= '); readln(x1);

write('y1= '); readln(y1);

write('x2= '); readln(x2);

write('y2= '); readln(y2);

d:=sqrt(sqr(x2-x1)+sqr(y2-y1));

writeln('d=',d);

end.

Доработаем программу, так чтобы она обладала некоторым интерфейсом:

program example1;

var x1, x2, y1, y2: integer;

d:real;

begin

writeln('Эта программа вычисляет расстояние между двумя точками на плоскости');

writeln('Введите координаты двух точек:');

write('x1= '); readln(x1);

write('y1= '); readln(y1);

write('x2= '); readln(x2);

write('y2 ='); readln(y2);

d:=sqrt(sqr(x2-x1)+sqr(y2-y1));

writeln('d= ',d);

writeln('нажмите Enter для завершения работы программы');

readln;

end.

Отвеч

Вложенные операторы if.

Логические операции not, and, or.

Оператор варианта case

Самостоятельная работа

Флеш ролик

Условный оператор IF

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

Признаком разветвляющегося алгоритма является наличие операций проверки условия. Различают два вида условий - простые и составные.

Простым условием (отношением) называется выражение, составленное из двух арифметических выражений или двух текстовых величин (иначе их еще называют операндами), связанных одним из знаков:

< - меньше, чем...

> - больше, чем...

<= - меньше, чем... или равно

>= - больше, чем... или равно

<> - не равно

= - равно

В общем случае полная форма конструкции условного оператора имеет вид:

if <логическое выражение> then <оператор 1> else <оператор 2>

if

читается "иф"

переводится "если"

then

читается "зэн"

переводится "то"

else

читается "элз"

переводится "иначе"

Условный оператор работает по следующему алгоритму.

Сначала вычисляется значение логического выражения, расположенного за служебным словом IF. Если его результат истина, выполняется <оператор 1>, расположенный после слова THEN, а действия после ELSE пропускаются; если результат ложь, то, наоборот, действия после слова THEN пропускаются, а после ELSE выполняется <оператор 2>.

Рассмотрим пример.

Задача.

Вывести на экран большее из двух данных чисел.

Var

x, y : integer; {вводимые числа}

Begin

writeln('Введите 2 числа '); {вводим два целых числа через пробел}

readln(x,y);

if x>y

then

writeln (x) {если х больше y, то выводим х}

else

writeln (y) {иначе выводим y}

End.

Можно также использовать и сокращенную (неполную) форму записи условного оператора.

Эта форма используется тогда, когда в случае невыполнения условия ничего делать не надо.

Неполная форма условного оператора имеет следующий вид.

if <логическое выражение>

then

<оператор>

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

Управляющая структура if может показаться негибкой, так как выполняемые действия могут быть описаны только одним оператором. Иногда может потребоваться выполнение последовательности операторов. В этом случае хотелось бы заключить всю последовательность в воображаемые скобки. В Паскале предусмотрен этот случай.

Если в качестве оператора должна выполниться серия операторов, то они заключаются в операторные скобки begin-end. Конструкция Begin ... End называется составным оператором.

if <логическое выражение>

then

begin

оператор 1;

оператор 2;

...

end

else

begin

оператор 1;

оператор 2;

...

end;

Определение. Составной оператор - объединение нескольких операторов в одну группу. Группа операторов внутри составного оператора заключается в операторные скобки (begin-end).

begin

оператор 1;

оператор 2;

end;

Перед служебным словом Else разделитель (точка с запятой) не ставится.

Примеры программ с IF

Составить программу, которая предлагает Ивану-Царевичу выбрать правильное направление пути.

У Ивана-Царевича есть три варианта дальнейшего пути:

направо, - «Коня потеряешь»

налево, - «Голову сложишь»

вперед. - «Невесту найдешь»

Var p :string;

Begin

WriteLn (‘Куда путь держишь?’);

ReadLn (p);

If p=‘направо’ then writeLn (‘Коня потеряешь’);

If p=‘налево’ then writeLn (‘Голову сложишь’);

If p=‘прямо’ then writeLn (‘Невесту найдешь’);

ReadLn;

End.

пример выполнения программы

Куда путь держишь?

прямо

Невесту найдешь

Куда путь держишь?

направо

Коня потеряешь

Заданы длины сторон треугольника, определить, является ли этот треугольник прямоугольным.

Program sum3;

Var a, b, c: real;

Begin

Readln ( a, b,с );

If a*a + b*b = c*c then writeln (‘треугольник прямоугольный’)

else writeln (‘не прямоугольный’);

Readln;

End.

пример выполнения программы

Длина первой стороны

3

Длина второй стороны

4

Длина третьей стороны

5

треугольник прямоугольный

Вложенные операторы if.

При решении задач часто приходится рассматривать не два, а большее количество вариантов. Это можно реализовать, используя несколько условных операторов. В этом случае после служебных слов Then и Else записывается новый условный оператор.

Итак, когда оператор if появляется внутри другого оператора if, они считаются вложенными. Такое вложение используется для уменьшения числа необходимых проверок. Этот метод часто обеспечивает большую эффективность, однако одновременно он уменьшает наглядность программы. Не рекомендуется использовать более одного-двух уровней вложения if. За вторым уровнем вложения становится трудно восстановить последовательность проверки условий каждым условным оператором.

Пример

Снаряд должен попасть в промежуток между 30 и 40 км.

Если он попадает в данный промежуток то появляется надпись «Попал», иначе если не долетел «Недолет» или «Перелет»

if x >= 30 then

if x <= 40 then

writeln (‘Попал') - вложенный условный оператор

else writeln (‘Перелет')

else

writeln ('Недолет');

var a,b :integer;

imya : string;

d :char;

begin

Writeln ('Как тебя звать?');

Readln (imya);

Writeln ('Чем займемся ',imya,' сложением или умножением?');

Readln (d);

If d='+' then

begin

Writeln ('Введите первое число');

Read(a);

Writeln ('Введите второе число');

Read(b);

Writeln ('Сумма чисел = ',a+b);

end

else

begin

Writeln ('Введите первое число');

Read(a);

Writeln ('Введите второе число');

Read(b);

Writeln ('Произведение чисел = ',a*b);

end;

end.

Диалог с компьютером

Компьютер : «Как тебя звать?»

Пользователь: «Вася»

Компьютер: Чем займемся Вася сложением или умножением?»

Пользователь вводит знак «+» или «*»

Если «+»:

Компьютер: «Введите первое число»

а

Компьютер: «Введите второе число»

b

Компьютер: Сумма чисел = ……»

Если «*»:

Компьютер: «Введите первое число»

а

Компьютер: «Введите второе число»

b

Компьютер: Произведение чисел = ……»

program qq;

var x: integer;

begin

writeln('Введите возраст');

read ( x );

if x >= 25 then

if x <= 40 then

writeln ('Подходит')

else writeln ('Не подходит')

else

writeln ('Не подходит');

Фирма набирает сотрудников от 25 до 40 лет включительно. Ввести возраст человека и определить, подходит ли он фирме (вывести ответ «подходит» или «не подходит»).

Сложные условия

Логические операции not, and, or.

Сложное условие – это условие, состоящее из нескольких простых условий (отношений), связанных с помощью логических операций:

not – НЕ (отрицание, инверсия)

and – И (одновременное выполнение условий)

or – ИЛИ (выполнение хотя бы одного из условий)

Порядок выполнения (приоритет = старшинство)

выражения в скобках

not

and

or

<, <=, >, >=, =, <>

Особенность – каждое из простых условий обязательно заключать в скобки.

Пример

if not (a > b) or (c <> d) and (b <> a)

then begin

...

end