1.11 Примеры решения задач

Задание:

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

Программа:

uses crt;

var

a, b, x, y: real;

begin

clrscr;

writeln('Введите значение Х ');

readln(x);

writeln('Введите значение A ');

readln(a);

a:=sin((sqrt(abs(exp(5*ln(x))+a))))/(exp(-x)+exp(9))/cos(sqrt(abs(exp(5*ln(x))+a)))/(exp(-x)+exp(9));

y:=3.14*(a)-1.65*exp(-x*a)+0.33*ln((sqr(x)+1)/(sqr(x)+pi));

writeln('Значение Y ', y:3:3);

readkey;

end.

Блок-схема:

Задание:  

Найти площадь сегмента.

sin

2



Расчетная формула:

)

(

R

2

1

S

сегм











где S_сегм —площадь сегмента, см²;

R —радиус круга, см;

a —дуга сегмента, рад.

Исходные данные для расчета приведены в таблице.

Параметры расчета	R	a
Числовые значения	220,0	161,3

Ход программы

Program zadacha5_1;

Var r,a,s:real;

Begin

Write('ввудите радиус круга в см. r =');

Readln(r);

Write('введите дугу сегмента в рад а=');

Readln(a);

s:=1/(2*r*r*(a-sin(a)));

Writeln('Площадь сегмента s=',s:17:13);

end.

Блок-схема

2 Циклы

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

Циклы принадлежат к числу управляющих операторов.

Рассмотрим задачу на вычисление суммы большого числа слагаемых:

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

1. Разделить единицу на знаменатель.

2. Прибавить частное к ранее полученной сумме.

3. Увеличить на 1 значение знаменателя.

Следовательно, задачу можно решить, например, так:

1. Присвоить переменной Sum значение, равное 0 (Sum := 0).

2. Присвоить переменной i значение, равное 1 (i := 1).

3. Добавить к сумме значение 1 / i (Sum := Sum + 1 / i).

4. Увеличить i на 1 (i := i + 1).

5. Повторить шаги 3 и 4.

Повторив операции 3 и 4 99 раз, мы получим требуемую сумму. Это пример алгоритмической конструкции «цикл».

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

• цикл со счетчиком (цикл «для» — for ... to / downto);

• цикл с предусловием (цикл «пока» — while);

• цикл с постусловием (цикл «до тех пор, пока» — repeat.until).

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