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

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

Проиллюстрируем использование оператора цикла с предусловием:

PROGRAM TEST(OUTPUT);

VAR KsINTEGER;

BEGIN К:=0;

WHILE K< =10 DO

BEGIN

K:=K+2; WRITE(Ks3>

END

END.

Врезультате отпечатаются четные числа от 2 до

12.Заметим, что сначала отпечатается число 12, а за­

на оператор цикла с предусловием, но условие вычис­ ляется и проверяется после выполнения операторов, составляющих тело цикла. Общий вид оператора цик­ ла с постусловием:

REPEAT A1;A2;...;AN

UNTIL В

ще A lrA2,...,ANоператоры тела цикла; В-выражение булевского типа.

Оператор цикла с постусловием начинается с вы­ полнения операторов внутри цикла. Затем вычисляется выражение В, и если получается истинное значение, то осуществляется выход из цикла. Если же значение

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

Ниже приведена программа, осуществляющая те же действия, что и в предыдущем примере, но с ис-

3.План отладки, тесты, результаты отладки на тестах.

4.Анализ допущенных ошибок.

М е т о д и ч е с к и е у к а з а н и я

1.Программа должна правильно выполняться при лю­ бых значениях начальных данных.

2.Правильность работы всех ветвей программы долж­ на быть проверена на тестах.

3.При отсутствии решения или бесчисленном множе­ стве решений должен быть напечатан соответствующий

текст. Например, НЕРАВЕНСТВО РЕШЕНИИ НЕ ИМЕЕТ или ЛЮБОЕ X ЯВЛЯЕТСЯ РЕШЕНИЕМ УРАВНЕНИЯ и т. п.

В а р и а н т ы з а д а н и я

1.ах2+Ь=О

2.ах2+Ьх+с=О

3.ах2+Ь>О

4.ах2+£г^0

5.ах2 + Ьх +оО

6.ал^ + йх + с^О

7{а^х + Ъу + с ^ О \а2х + btf + с2 =О

g Га2х + 6Хi<0

\а 2х + Ь2<0

? [а2х + Ъ^i> 0 \a 2x + b2>0i

10. Га2х + ^>0 \а2х + Ь2<0

З А Д А Н И Е 2. ПОСТРОЕНИЕ ТАБЛИЦ ФУНКЦИЙ

Це л ь з а д а н и я

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

2.Знакомство с методами оптимизации программ.

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

ции F(3Q на отрезке [А,В] в точках Х/=А+£Н, ще Н=(В - А)/М, М - заданное целое число.

С о д е р ж а н и е о т ч е т а

1.Постановка задачи.

2.Текст программы.

3.Таблица результатов.

4.Анализ допущенных ошибок.

М е т о д и ч е с к и е у к а з а н и я

1.Для задания значений X и соответствующих значе­ ний функции следует использовать простые перемен­ ные.

2.Значение шага Н должно вычисляться один раз.

3.При изменении значения аргумента X использовать оператор присваивщия Х:=Х+Н, а не оператор с ис­ пользованием операции умножения Х:=А+1*Н, что су­ щественно сокращает время выполнения программы.

В а р и а н т ы з а д а н и я

З А Д А Н И Е 3. ОРГАНИЗАЦИЯ ЦИКЛОВ В ПРОГРАММЕ

Це л ь з а д а н и я

1.Получение навыков в выборе и использовании опе­

раторов цикла.

2. Знакомство с итерационными процессами-.

П о с т а н о в к а з а д а ч и Используя оператор цикла, найти сумму элемен­

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

С о д е р ж а н и е о т ч е т а

1.Постановка задачи.

2.Текст программы.

3.План отладки, тесты, результаты отладки на тестах.

4.Результат решения конкретного варианта.

5.Анализ допущенных ошибок.

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

пользовать рекуррентную формулу для получения сле­ дующего члена ряда.

Например, требуется найти сумму ряда с точностью £ =10 %общий член которого а„ = 2(п1У/(3<2п)1).

Для получения рекуррентной формулы вычислим отношение следующего члена ряда к текущему:

откуда

ал+1 = ая(п +1) / (2(2п +1))

2. Пример программы. При составлении программы будем считать, что точность достигнута, если an < g.

PROGRAM SYM(OUTPUT);

CdNST E=0.IE-3;

VAR N:INTEGER; AN ,SYMMA:REAL;

BEGIN

SYMMA:=0; N:=l; AN:=1/3;

WHILE AN>E DO

BEGIN

SYMMA:=SYMMA+AN; N:=N+1;

AN:=AN* <N+1)/2/(2*N+1)

END;

WRITELN('СУММА=',SYMMA, ПОСЛЕДНИЙ ЧЛЕН РЯДА=',АН>;

END.

П р о т о к о л р а б о т ы п р о г р а м м ы :

СУММА=4.727439Е - 01 ПОСЛЕДНИЙ ЧЛЕН РЯДА= 4.113534Е-05

В а р и а н т ы з а д а н и я

1.Найти сумму целых положительных чисел, крат­ ных 4 и меньших 100.

2.Найти сумму целых положительных четных чисел,

меньших 100.

3.Найти сумму целых положительных нечетных чи­ сел, меньших 200.

4.Найти сумму целых положительных чисел, боль­

а„ = л!/л".

З А Д А Н И Е 4. ИСПОЛЬЗОВАНИЕ СЛОЖНЫХ ОПЕРАТОРОВ ДЛЯ ОРГАНИЗАЦИИ СИМВОЛЬНОЙ ОБРАБОТКИ

Це л ь з а д а н и я

1.Закрепление навыков в использовании операторов цикла.

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

3.Освоение алгоритма перевода чисел из произволь­ ной системы счисления в десятичную.

П о с т а н о в к а з а д а ч и Ввести последовательность символов, представляю­

щую собой запись числа в системе счисления Р. Коли­ чество N вводимых символов (разрядность исходного числа) определяется вариантом. Требуется перевести это число в десятичную систему счисления и опреде­ лить, кратно ли оно М (величина М определяется ва­ риантом). Вывести на печать число в исходной и де­ сятичной системах счисления. Если число кратно М, то напечатать TRUE, в противном случае напечатать FALSE.

С о д е р ж а н и е о т ч е т а

1.Постановка задачи.

2.Описание алгоритма перевода в десятичную систему

счисления.

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

4.Анализ допущенных ошибок.

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

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

PROGRAM СС <INPUT.OUTPUT);

VAR S:CHAR; I,Ms INTEGER;

BEGIN READLN; WRITE<'=>•>; M:=0; FOR I:=l TO 3 DO

BEGIN READ <S) ; WRITE(S);

IF <S>=*0*> AND (S<='9'> THEN M:=M*16+0RD<S>-ORP(*0*> ELSE M:=M*16+0RD(S>-OPD{ 'A ')+10

END;

WRITELN; WRITELN<'ЧИСЛО В 10-ОЙ C/C=',M:5> END.