Простейшие конструкции при програмировании в среде Турбо-Паскаль

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Министерство образования Российской федерации

Государственное образовательное учреждение высшего профессионального образования

Ивановская государственная архитектурно-строительная академия

Кафедра высшей и прикладной математики

Методические указания и контрольные задания по информатике

для студентов заочного отделения

Простейшие конструкции при программировании в среде Турбо-Паскаль

Составители:

Волкова Н.В., Слизнева Т.Е.

Иваново 2003



Методические указания содержат информацию для выполнения контрольной работы №1, которая состоит из 6 задач. Каждое задание содержит 10 вариантов. Номер варианта соответствует последней цифре зачетной книжки.

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

Методические указания предназначены для студентов всех специальностей заочного отделения.



ОГЛАВЛЕНИЕ

1. Алгоритмы линейной структуры. Вычисление арифметических выражений

2. Программирование алгоритмов разветвляющейся структуры

3. Программирование алгоритмов циклической структуры

3.1 Вычисление суммы и произведения

3.2 Программирование алгоритмов со структурой вложенных циклов

3.2 Итерационные циклы

3.3.1 Табулирование функции

3.3.2 Вычисление суммы членов бесконечного ряда с заданной точностью

Библиографический список



1. Алгоритмы линейной структуры. Вычисление арифметических выражений

Алгоритм линейной структуры - такой алгоритм, в котором все предписания выполняются друг за другом в естественном порядке следования.

При описании таких алгоритмов в ТУРБО-ПАСКАЛЕ могут быть использованы следующие операторы:

1) Оператор присваивания

а: = V;

где а - переменная;

v - переменная, константа или выражение.

Например, если записано х:=0,5; у:=х * х - 6 * sin (х): то это значит, что переменной х присваивается значение константы 0,5, а переменной у -значение выражения х2 -б sin х (в данном случае при х = 0,5; у = -2,89).

Допустима также запись z: = z + х; которая называется рекурентной формулой, и читается как "новое значение переменной z становится равным старому значению переменной z плюс значение переменной х".

2) Операторы ввода и вывода данных

Write (< список вывода >);

Writeln (< список вывода >);

Read (< список ввода >);

Readln (< список ввода >);

<Список вывода> может содержать идентификаторы (имена переменных или констант) или текстовые константы (один или несколько символов, заключенных в апострофы), разделенные запятыми, а также форматы.

Например, оператор

Writeln (Полученное значение y =, y:8:2);

выведет полученное значение у = -2,89 с новой строчки, а оператор Write с тем же списком вывода осуществит аналогичный вывод с текущей позиции (без перевода каретки).

Оператор Writeln; с пустым списком вывода обеспечит пропуск пустой строки и перевод каретки.

< Список ввода > состоит из одного или нескольких идентификаторов, разделенных запятыми.

Если в программе стоит оператор Readln (x, у); то во время выполнения программы происходит приостановление и компьютер будет ожидать ввода двух чисел, разделенных пробелом, т.е. надо набрать

0.5_2.3<Enter>.

Оператор Readln, с пустым <списком ввода> вызовет останов программы до нажатия какой-либо клавиши.

3) Составной оператор

В некоторых случаях (мы рассмотрим их позднее) полезно несколько операторов объединять вместе и рассматривать их как один оператор. Такая последовательность операторов заключается в begin-end (операторные скобки) и называется составным оператором.

Например,

Begin

x:=0,5

y:=x * x - 6 * sin(x)

End;

Рассмотрим алгоритм линейной структуры на конкретном примере.

Пример 1.1

Вычислить:



y=² -.

где i = 55; K - любое целое, x - любое число, вводимое с клавиатуры (заметим, однако, что если вы попытаетесь ввести x < = O, то получите сообщение об ошибке. Почему?)

Прежде всего, заметим, что в выражении дважды встречается одна и та же константа

.

Обозначим ее C ₁ и перепишем исходное выражение

Y=

Далее, в Турбо-Паскале нет функции tgx и отсутствует операция возведение в степень, поэтому tgC1, представим как

- как

ProgramFl;

{Раздел описания констант}

Const Cl=(13+8/ll-(5+21/92))/2.9; ,I=55

K: Integer=28; { Типизированная константа }

{ Раздел описания переменных }

Var x, у : Real;

{ Тело программы - обязательная часть }

Begin

Writeln ('Введите x > O);

Readln (x);

y:=K/(i * sin(Cl)/cos(Cl)) * sqr(x);

y:=y-exp(l/3 * LN(Cl))/(LN(x) + 2);

Writeln (`x = __', x, `K = __', K, `y= _', у);

End.

После того, как вы набрали текст программы и выполнили ее, вставьте следующие операторы:

1) сразу после BeginWriteln(`Cl=_',Cl); и убедитесь, что константа C1 уже вычислена и имеет значение

2) перед End

K: = 7;

K: = 7.58;

I: = 7.58;

I: = 7;

Какие из этих четырех операторов будут выполняться, а какие нет? Почему?

Задания к теме 1

B заданиях "а" выделить постоянную часть и вычислить ее в константном выражении до выполнения программы; вычислить значение выражения при всех конкретно заданных значениях переменных (если для какой-либо переменной заданы два значения, то это значит, что программа должна выполниться дважды, сначала с одним значением, затем с другим; каждое из них должно вводиться с клавиатуры).

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

Например, в выражении y = arcsin3x + arcsin ³3x удобно вычислить сначала z = arctg , а затем y = z +z³.

Задачи 1-10

1) а) z = j·ln +2cos ,

где j = 3; j = 1/3; x - любое число;

б) p = tg+ , x=0,2.

2) а) K=, где x=2,7; x=18; y-любое число;

б) С =

3) а) С =,

где a - любое число (а0), x=3.51; x=6.9;

б) = 0,58e^1/x - tg arcsin2x

4) а) y = ,



где K- любое целое; С = 5,9; С = 1,2; x = -8;

б) u = 3xarcos lnx.

5) а) y = ,

где x=7; x=11; a - любое число;

б) d = .

6) а) z = ,

где К = 6.983, x -любое число;

б) b = arcsin³arcos ln x^.

7) а) q =arctg

где x=0,7; x=92,8; a-любое число;

б) W = tg.

8) а) y = ,

где z - любое целое (z0); x=5,38; x=1,09;

б) z =.

9) a) z = ,

где t - любое целое; x=2,34; x=5,12;

б) q = .

10) а) y = ,

где а=9; x=0,92; x=5,04;

б) P = .

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

Для чего нужны разделы описания переменных и констант?

Что такое тип? Какие типы данных Вы знаете?

Чем отличаются переменные и константы?

Что такое типизированная константа?

Правила записи арифметических выражений.

Приоритет арифметических операций.

Какие существуют способы задания значений переменным и константам?



2. Программирование алгоритмов разветвляющейся структуры

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

Оператор перехода имеет общий вид записи: GOTO N ;

где N - метка оператора.

Условный оператор имеет два вида записи:

IF b THEN a; IF b THEN a, ELSE а2;

где b - логическое выражение (имеющее значение "истина" или "ложь"), а,а1,а2- операторы простой или составной. Оператор выбора имеет вид:

CASE <переключатель> OF

константа 1: оператор 1:

константа 2: оператор 2;

………

константа N; оператор N

END;

Пример 2.1

Найти действительные корни квадратного уравнения ах² + bx + с = O Уравнение имеет решение, если дискриминант D = b² - 4ac не является отрицательным.. Если D > O, то уравнение имеет корни

Если D = O, то x₁ = х₂

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

PROGRAM KOREN;

VAR A, B, C, D, Xl,X2 : REAL;

LABEL 100,200;

BEGIN

WRITELN (` INPUT A, B, C' );

10READLN (A, B, C);

D: = B*B-4 *A*C

IF D < 0.0 THEN GOTO 100

ELSE BEGIN

Xl: = (-B + SQRT(D))/(2 * A);

X2: = (-B - SQRT(D))/(2*A);

WRITELN (`Корни уравнения'); WRITELN (`X1=', Xl', X2=', X2)

END;

GOTO 200;

100: WRITELN (`уравнение не имеет решения')

200: END.

B данной программе условный оператор содержит составной оператор для фразы ELSE.

Для лучшего понимания передачи управления в программе используется режим трассировки (пошаговое выполнение). Для этого выберите команду RUN / Тгасе Into (или нажмите F7). Первый оператор в теле программы begin (строка 4) будет подсвечен (исполняющая полоса).

Теперь нажмите F7 еще раз, чтобы перейти к исполнению программы. Следующая исполняемая строка программы - оператор WRITELN в строке 5.

Снова нажмите F7. Ваш экран мигнет, затем высветит программу с исполняющей полоской на операторе READLN в строке 6. Произошло следующее: ТУРБО-ПАСКАЛЬ переключился на экран исполнения (экран, на котором высвечиваются результаты), выполнил первый оператор WRITELN и возвратился на редактирующий экран.

Снова нажмите F7. Вы опять окажетесь на исполняющем экране. Напечатайте три числа вещественного типа через пробел и нажмите Enter. Вы снова окажетесь на редактируемом экране с исполняющей полоской на строке 7 с оператором присваивания.

Нажмите клавишу F7 еще несколько раз. Проследите, куда передается управление и какие операторы выполняются.

Когда исполняющая полоска окажется на последнем операторе End, нажмите F7, и выполнение программы закончится. Заметьте, что исполняемая полоска исчезла.

Пример 2.2

Вычислить значение функции

Из математической формулировки задачи видно, что вычислительный процесс имеет три ветви. Ho есть значение аргумента (в данном случае x = b), при котором функция z не определена. Поэтому добавляется еще одна, четвертая ветвь.

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



Программа имеет вид:

PROGRAM USL;

VAR X, Y, Z: REAL ;

LABEL 11,22;

BEGIN

WRITELN (`INPUT X, A, B');

READLN (X, A, B) ;

IF X< = A THEN BEGIN

Z:=LN(x+l);

GOTO 11

END;

IF (X > A) AND (X < B) THEN BEGIN

Z:=COS(X)+SQR(SIN (X));

GOTO 11

END;

IF X > B THEN BEGIN

Z:=EXP(X)+6;

GOTO 11

END;

WRITELN (`Функция не определена'),

GOTO 22;

ll:WRTTELN(`Z= `,Z)

22: END.

Пример 2.3

Определить, попадает ли точка A с координатами Ха и Ya внутрь круга с радиусом R. Центр круга совпадает с началом координат.

Очевидно, что точка A находится внутри круга, если ее расстояние от начала координат, равное , будет меньше радиуса R, т.е. если

,< R ИЛИ .

Тогда программа этой задачи может быть такой: PROGRAM KRUG;

VAR XA, YA, R, L : REAL;

BEGIN

WRITELN (`INPUT XA, YA, R');

READLN (XA,YA,R);

L:=SQR (XA)+SQR(YA);

IFL<SQR(R)

THEN WRITELN (`Точка А внутри круга') ELSE WRITELN (`Точка A

вне круга')

END.

Задания к теме 2

Задачи 11-20

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

11) ,

12)

13) В = ,

14)

15)

16) d = ,

17)

18) y = ,

19) K = ,

20) m =

Задачи 21-30

Выяснить, принадлежит ли точка с координатами X, Y замкнутой области, заданной уравнениями. Область показать на графике.

21)

22)

23)

24)

25)

26)

27)

28)

29)

30)

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

Что такое вычислительный процесс разветвляющейся структуры?

Каковы две формы записи условного оператора?

B чем разница по смыслу между полной и кратной формой записи условного оператора?

Может ли условный оператор содержать в себе другие условные операторы?

Может ли условный оператор содержать оператор перехода?

Как выполняется программа при наличии в ней оператора перехода?

Для чего предназначен оператор выбора?

Можно ли в примере 2.3 вместо условного оператора использовать оператор выбора?

алгоритм разветвляющийся циклический итерационный



3. Программирование алгоритмов циклической структуры

Циклическая структура программы позволяет производить многократные вычисления группы операторов при изменении одного или нескольких параметров одновременно. B языке ТУРБО-ПАСКАЛЬ имеются три оператора цикла.

Оператор цикла FOR используется для организации цикла с известным числом повторений.

Общий вид записи:

- при увеличении значения параметра

FOR I:= m1 TO m2 DOS;

- при уменьшении значения параметра

FOR I:=m1 DOWNTO m2 DO S;

где I - параметр цикла;

m1 - начальное значение параметра;

m2 - конечное значение параметра;

S - тело цикла, состоящее из простого или составного оператора.

Оператор цикла WHILE используется для организации цикла с неизвестным числом повторений. Общий вид записи оператора цикла с предварительным условием:

WHlLE b DO S;

где b - логическое выражение; S - тело цикла, состоящее из простого или составного оператора.

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

REPEAT S UNTIL b;

где S - тело цикла, состоящее из одного или нескольких простых операторов; b - логическое выражение.

B отличие от оператора WHILE в операторе REPEAT проверка условия выполняется в конце оператора, поэтому он обеспечивает хотя бы одно вычисление при значении логического выражения TRUE (истина).

3.1 Вычисление суммы и произведения

Если необходимо вычислить сумму значений некоторой функции у = f(x) при различных значениях аргумента, то целесообразно организовать цикл, в котором не только вычисляются текущие значения функции, но и накапливается их сумма путем сложения полученного слагаемого с суммой предыдущих. Формула, используемая для накопления, имеет вид

При первом выполнении цикла вычисляется значение S₁ = S₀ + у₁, которое должно быть равно y₁. Поэтому начальному значению суммы перед циклом следует присвоить значение ноль.

Пример 3.1.1

Составить программу для вычисления функции

PROGRAM SYMMA,

VAR I: INTEGER;

W:REAL; CONST N = 10;

BEGIN

W: = O; {начальное значение суммы}

FOR I: = 1 TO N DO

W: = W + cos( I) /I;

WRITELN (`SUMMA =' , W: 7 : 4)

END

Аналогично накапливается и произведение, с той лишь разницей, что для его накопления используется формула Pj = P_i-l · у_i, а начальное значение произведения должно быть равно единице.

3.2 Программирование алгоритмов со структурой вложенных циклов

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

Пример 3.2.1 Составить программу для вычисления функции

(символом "П"обозначено накопление произведения).



PROGRAM PROIZV;

VOR I, J: BYTE ;

Z: REAL;

BEGIN

Z: = 1

FOR I: = 1 TO 10 DO

FOR J: = 1 TO 5 DO

Z: = Z * ABS (SIN(I) * COS(J)) / (I + J) ; WRITELN(`PROIZVEDENIE=',

Z: 8: 4)

END.

Задания к теме 3

Задачи 31-40

Вычислить сумму и произведение:

31) а) б)

32) а) б)

33) а) б)

34) а) б)

35) а) б)

36) а) б)

37) а) б)

38) а) б)

39) а) б)

40) а) б)

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

Каково назначение операторов цикла?

Укажите отличительные особенности каждого из трех операторов цикла.

Будет ли выполняться циклическая часть программы, если логическое выражение является ложным с самого начала в операторе цикла WHILE?

Чему равен шаг изменения параметра цикла в операторе FOR?

Будет ли выполняться циклическая часть программы, если логическое выражение истинно с самого начала в операторе REPEAT?

Как изменяются параметры внешнего и внутреннего циклов во вложенных циклах?

3.3 Итерационные циклы

3.3.1 Табулирование функции

Задача табулирования функции на интервале от Хнач до Хкон с шагом h является очень распространенной.

Пример 3.3.1

Вычислить и вывести на печать значения функции



при значении x, изменяющемся от O до 3 с шагом 0,1.

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

где x_k и X_n - конечное и начальное значение аргумента;

h - шаг изменения аргумента;

скобки ] [ означают, что берется целая часть от деления.

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

PROGRAM TABULl ;

VAR XN, XK, HX, A, X, Y: REAL

I, N: ENTEGER;

BEGIN

READLN (XN, XK, HX, A) ;

N:=TRUNC(XK-XN) / HX) + 1; {Выделение целой части числа} X:=XN;

FOR I:=1 TO N DO

BEGIN

Y:=(A * A * A) / (SQR(A)+X * X);

WRITELN (X, Y);

X:=X+HX

END

END.

При использовании других операторов цикла для реализации данной задачи будут отсутствовать описания переменных целого типа I, N и оператор присваивания, вычисляющий число повторений N. Т.к. заранее неизвестно число повторений, то здесь имеет место итерационный цикл. Выход из цикла выполняется по некоторому критерию. B данном случае критерием выхода из цикла будет являться условие сравнения текущего значения аргумента X с его конечным значением X к.

Программа, использующая оператор цикла WHILE:

PROGRAM TABUL2 ;

VAR XN, XK, HK, A, X, Y: REAL;

BEGIN

READLN(XN, XK, NX, A); X:=XN;'

WHILE X<=XK DO

BEGIN

Y:=(A* A* A) / (SQR(A)+X * X);

WRITELN(X, Y);

X:=X+HX

END

END.

Программа, использующая оператор цикла REPEAT:

PROGRAM TABUL3;

VAR XN, XK, HX, A, X, Y: REAL;

BEGIN

READLN(XN, XK, HK, A);

X:=XH;

REPEAT

Y:=(A* A * A) / (SQR(A) + X * X);

WRITELN(X, Y);

X:=X + HX

UNTIL X>XK

END.

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

Ниже приводится программа, содержащая операторы управления и реализующая пример 3.3.1.

PROGRAM TABUL4;

VAR XN, XK, HX, A, Y: REAL;

LABEL 10;

BEGIN

READLN (XN, XK, HK, A);

X:=XN;

10: Y:=(A*A*A)/(SQR(A) + X*X); WRITELN(X:4:1, Y:8:4);

X:=X + HX;

IF Х<=ХК THEN GOTO 10

END.

3.3.2 Вычисление суммы членов бесконечного ряда с заданной точностью

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

Пример 3.3.2.1

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

Здесь имеет место итерационный цикл, т.к. заранее неизвестно, при каком n выполняется условие .

Обозначим переменные: Е - заданная точность, S - сумма ряда, N -номер члена ряда, Y - значение члена ряда.

PROGRAM SUMMA1;

VAR Y, S, E: REAL;

N: MTEGER;

LABEL 10, 20;

BEGIN

READLN (E);

S:=0;

N:=0; 10:Y:=l/(EXP(5*LN(N)); {Y=l/N^5}

S:= S + Y:

IF ABS(Y)<E THEN GOTO 20;

N:=N+ 1;

GOTO 10;

20: WRITELN (`SUMMA=', S:10:5,`N=`, N)

END.

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

PROGRAM SUMMA2;

VAR Y, S: REAL;

N: INTEGER,

ВЕGIN

READLN (E);

S:=0;

N:=0;

REPEAT

Y:=l/EXP(5*LN(N));

S:=S + Y;

N:=N + 1

UNTIL Y<E;

WRITELN(`SUMMA=', S, `N=', N)

END.

Пример 3.3.2.2

Определить количество членов ряда C₁=1; C_n=4n+C_n-1 (n=2, 3,...), которые не превышают 180.

Параметром, изменяющимся в этом цикле, является номер члена ряда n. Переменную C будем считать простой переменной. Тогда формула для вычисления текущего члена ряда имеет вид C = 4n +C. Чтобы использовать эту формулу для вычисления второго члена ряда, необходимо задать перед циклом начальное значение C равное 1.

PROGRAM KOLICH;

VAR C, N: ITEGER;

CONST M=180;

BEGIN

C:=1;

N:=1;

WRITE (C);

REPEAT

N:=N+1;

C:=4*N+C;

WRITE (C)

UNTIL C>180;

WRITELN;

WRTTELN(`KOLICH=', N)

END.

Задачи 41-50

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

Таблица 1

№ варианта	Функция	Условие	Исходные данные	Диапазон и шаг изменения аргумента
1	2	3	4	5
41		t2 t>2	а = -0,5 b = 2	t[0,2;3] t =0,15
42			a=l,5	x[0,8;2] x = 0,1
43			а = 2,8 b = -0,3	x [l;2] х = 0,05
44		xl,4 x>l,4	а= 1,65	х [0,7; 2] х = 0,1
45		x2 х>2	а = 2,3	х [0,2; 2,8] х = 0,2
46		x>a ха	а = 2,5	x [l;5] x = 0,5
47		bx<l bx1	b=l,5	x [0,l;l] х = 0,1
48		x>3 x3,5	а =1,2	x [2;5] х = 0,25
49		x>l xl	а =20,3	х [0,5; 2] x =0,1
50		x 0,5 x>0,5	t = 2,2	x [0,2;2] x = 0,2

Задачи51-60

51. Вычислить сумму ряда, члены которого находятся по формуле

и превышают 0,01, где c= 10; i=l,2,....

52. Определить сумму членов ряда а₁, =1 a_k =a_k-1·5k, (где k = 2,3,...), которые не превышают 200.

53. Определить, через сколько итераций члены ряда , (где a = 47; i= 1,2,...) станут меньше 1.

54. Найти сумму членов ряда ( где i = 1, 2, ..,), меньших 1.

Вычислить сумму членов для следующих рядов с точностью до члена ряда, меньшего E (заданная точность):

55. E=0,001; x=1,726.

56. , E=0,0021; х=0,374.

57. E=0,002; х=0,118.

58. E=0,002; х=0,241.

59. E=0,001; х=0,645.

60. E=0,0001; ч=0,103.



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

1. Что такое итерационный циклический процесс? Его отличия от цикла с заданным числом повторений.

Каково условие выхода из цикла при вычислении значения суммы бесконечного ряда?

Почему при вычислении значения текущего члена по формуле a_n = a_n-1 + 3n используется простая переменная, а не индексная?

Какой цикл лучше использовать для реализации следующей задачи?

Задача

C клавиатуры вводятся произвольные числа. После ввода каждого числа нажимается клавиша Enter. Выбрать среди введенных чисел наибольшее 29 (наименьшее, найти среднее арифметическое, сумму квадратов чисел и т.д.). Критерием окончания ввода чисел является число 9999.



БИБЛИОГРАФИЧЕСКИЙ СПИСОК

Фараонов В.В. Программирование на ПЭВМ в среде ТУРБО-ПАСКАЛЬ. -M., 1992.

Епанешников A.M., Епанешников B.A. Программирование в среде TP версия 7.0.- М., 1998.

Поляков Д.Б., Круглое И.Ю. Программирование в среде TP. - M., 1992.

Размещено на Allbest.ru