Контрольные вопросы.

1. Что такое файл?

2. Что такое массив?

3. Запись операторов ввода-вывода.

4. Как можно обратиться к элементам массива?

5. Управление выводом на экран.

6. Как можно вывести на элемент массива на экран?

Лабораторная работа № 3

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

Цель: Изучить виды алгоритмов, операторы условного и безусловного перехода, организацию циклов в языке программирования Паскаль.

1. Краткие теоретические сведения

Виды алгоритмов:

По структуре все программы можно разделить на 3 основные группы: линейные, разветвляющиеся и циклические.

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

11

присваивания.

Выполнение разветвляющегося алгоритма происходит по одной из нескольких заранее запланированных ветвей в зависимости от выполнения или невыполнения некоторого условия. Например, алгоритм решения квадратного уравнения зависит от знака дискриминанта.

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

Разветвляющиеся алгоритмы. Операторы ветвления.

Для записи разветвляющихся алгоритмов в языке Паскаль предусмотрены два оператора ветвления if и Case.

Оператор if осуществляет ветвление по двум направлениям и в общем виде выглядит так:

If Логическое выражение then Оператор1 else Оператор2;

При выполнении оператора if сначала вычисляется значение логического выражения. Если оно приняло значение true выполняется Оператор1, в противном случае — оператор2.

Допускается сокращенный вариант оператора if:

If Логическое выражение then Оператор1;

Тогда при истинности логического выражения выполняется Оператор1, в противном случае выполняется следующий после if оператор.

Если по смыслу задачи вместо первого или второго оператора необходима последовательность из нескольких операторов, то их заключают в так называемые операторные скобки:

begin

Оператор11;

Оператор12;

12

…

Оператор1N:

end;

Полученная конструкция называется составным оператором.

Пример. Даны длины трёх сторон треугольника. Если такой треугольник существует, вычислить его площадь.

Программа:

Program Treug;

Var a,b,c,p,s : Real;

Begin

WriteLn(‘Введите длины строн треугольника:’);

ReadLn(a,b,c);

If (a+b<c)or(a+c<b)or(b+c<a)

then WriteLn(‘Такого треугольника не существует’)

else begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

Writeln(‘Площадь треугольника равна ’,s:6:2);

end;

end.

Циклические алгоритмы. Операторы цикла.

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

1) Оператор с предусловием While. While (Условие) do Оператор;

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

13

такого цикла может ни разу не выполниться.

Пример. Дано 100 вещественных чисел, вводимых с клавиатуры. Найти разность между максимальным и минимальным из них.

Program Primer;

Var x,min,max : real;

j : integer;

Begin

WriteLn('Вводите числа!');

ReadLn(x); min:=x; max:=x;

j:=1;

While (j<=100) do

begin

ReadLn(x);

If x<min then min:=x;

If x>max then max:=x;

j:=j+1;

end;

WriteLn('Искомая разность равна ',max-min:9:3);

End.