Среда программирования PASCAL (стр. 4 )

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

Блок-схема

begin

оператор 1;

оператор 2;

end.

Пример

Задано число x. Вычислить функцию y, при a=1,5 .

Программа

program lin_1;

uses crt;

const a=1.5;

var x, y: real;

begin

writeln (‘Введите x’);

readln (x);

y:=a*sqr(x)+abs(x+11)-a;

writeln (‘Ответ y=’,y);

end.

Самостоятельное задание

1)  Написать программу вычисления объема цилиндра. Ниже представлен рекомендуемый вид экрана во время работы программы.

Введите исходные данные:

Радиус основания (см) – 5

Высота цилиндра (см) – 10

Объем цилиндра 1570.80 куб. см.

2)  Дан диаметр окружности d. Найти её длину L=π×d. В качестве π использовать 3.14.

3)  Дана длина ребра куба а. Найти объём куба V=a3 и площадь его поверхности S=6×a2.

4)  Даны длины рёбер a, b, c прямоугольного параллелепипеда. Найти его объём V=a×b×c и площадь поверхности S=2×(a×b+b×c+a×c).

5)  Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу с и периметр Р:

, P=a+b+c.

6)  Даны два круга с общим центром и радиусами R1 и R2 (R1>R2). Найти площади этих кругов S1 и S2, а также площадь S3 кольца, внешний радиус которого равен R1, а внутренний радиус равен R2.

S1=π×(R1)2, S2=π×(R2)2 S3= S1- S2. В качестве π использовать 3.14.

7)  Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x1- x2|.

Тема: «Разветвляющиеся процессы»

Цель: познакомить учащихся с условными операторами Турбо Паскаля; расширить знания учащихся о возможности систем программирования; научить применять операторы в практической деятельности.

Определение Разветвляющийся процесс – процесс, в котором в зависимости от выполнения некоторого логического или арифметического условия нужно выполнить либо одно действие (оператор 1), либо другое действие (оператор 2).

Блок-схема

I. Условный оператор if…then

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

Вариант 1

if условие

then

begin

{Эти инструкции выполняются, }

{если условие истинно}

end

else

begin

{Эти инструкции выполняются, }

{если условие ложно}

end;

Вариант 2

if условие

then

begin

{Эти инструкции выполняются, }

{если условие истинно}

end;

Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.

II. Оператор безусловного перехода goto

Оператор безусловного перехода goto нарушает нормальное выполнение программы и переводит его на указанную метку, которая описывается в разделе объявления меток, начинающемся зарезервированным словом label.

goto метка строки;

Пример 1

Определить, являются ли введённые три числа А, В, С углами треугольника (значения задаются в градусах).

Программа

program raz_1;

uses crt;

var ______________________________

begin

if (a>0) and (b>0) and (c>0) and (a+b+c=180) then

writeln(‘___________________________________’)

else writeln(‘___________________________________’);

readln;

end.

Пример 2

Написать программу, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введённых пользователем данных и, если они неверные (делитель равен нулю), выдавать сообщение об ошибке. Ниже представлен рекомендуемый вид экрана во время работы программы.

Вычисление частного.

Введите в основной строке делимое и делитель,

затем нажмите <Enter>

12 0

Вы ошиблись! Делитель не должен быть равен нулю.

Программа

program raz_2;

uses crt;

var ______________________________

begin

if ___________ then begin

c:=a/b;

writeln(‘_____________________________________’);

end

else writeln(‘_____________________________________’);

readln;

end.

Пример 3

Написать программу вычисления площади кольца. Программа должна проверять правильность исходных данных. Ниже представлен рекомендуемый вид экрана во время работы программы.

Вычисление площади кольца.

Введите исходные данные:

Радиус кольца (см) – 3.5

Радиус отверстия (см) – 7

Ошибка! Радиус отверстия не может быть больше радиуса кольца.

Для завершения работы программы нажмите <Enter>.

Программа

program raz_3;

uses crt;

var r1,r2: real; {радиус кольца и отверстия}

s: real; {площадь кольца}

begin

if r1>r2 then

begin s:=____________________;

writeln(‘Площадь кольца ’,___,‘ кв. см’);

end

else

writeln(‘___________________________________________’);

writeln(‘______________________________________________’);

readln;

end.

Пример 4

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

Вычисление сопротивления электрической цепи.

Введите исходные данные:

Величина первого сопротивления (Ом) – 15

Величина второго сопротивления (Ом) – 27.3

Тип соединения (1 – последовательное, 2 – параллельное) – 2

Сопротивление цепи: 9.68.

Программа

program raz_4;

uses crt;

var r1,r2: real; {величины сопротивления цепи}

r: real; {суммарное сопротивление}

t: integer; {тип соединения: 1 – последовательное, 2 – параллельное}

begin

end.

Пример 5

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

* Решение квадратного уравнения *

Введите в одной строке значения коэффициентов и нажмите <Enter>.

1 5 –4

Корни уравнения:

x1=–1.798

x2=–8.202

Программа

program raz_5;

uses crt;

var a, b, c: real; {коэффициенты уравнения}

x1,x2: real; {корни уравнения}

d: real; {дискриминант}

begin

if d>0 then