Задания для практических занятий

1. Составить программу, которая по номеру дня недели выводит на экран расписание уроков в вашей группе в соотвествующий день.

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

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

4. Предприятие, практикующее почасовую оплату, выплачивает ее каждую неделю в соотвествии с почасовым тарифом, к которому применяется коэффициент k, получаемый по следующей таблице:

Первые 39 часов	k=1
С 40 – го по 44-й час	k=1,2
С 45-го по 49 – й час	k=1,5
После 49 – го часа	k=1,8

Составить программу определения недельной зарплаты по сумме отработанных часов, считая, что почасовой тариф равен 2грн/час.

5. Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми: первое число – номер вертикали (при счете слева направо), второе – номер горизонтали (при счете снизу вверх). Составитьпрограмму определения:

• Может ли ладья, расположенная на поле (i, j), за один ход переместиться на поле (i₁, j₁).

• Может ли слон, расположенный на поле (i, j), за один ход переместиться на поле (i₁, j₁).

• Может ли король, расположенный на поле (i, j), за один ход переместиться на поле (i₁, j₁).

• Бъет ли ферзъ, расположенный на поле (i, j), фигуру соперника, стоящую на поле (i₁, j₁).

• Можно ли королю, расположенному на поле (i, j), объявить шах ходом коня, стоящего на поле (i₁, j₁).

• Одного ли цвета два заданных поля шахматной доски;

• Угрожают ли две ладьи противника королю. Если да, то какова ситуация для короля – шах или мат?

Раздел 6.3 Алгоритмическая структура - циклы

Цикл – последовательность операторов, которая выполняется неоднократно.

В Паскале реализуются три структуры циклических процессов:

• цикл с параметром;

• цикл с предусловием;

• цикл с постусловием.

Оператор цикла For . . .do - оператор цикла с параметром:

For i: =N1 to N2 do

< Тело цикла>,

где i – переменная цикла, которая должна быть перечисляемого типа (целая, символьная и.т.д); N1 – начальное значение переменной цикла; N2 – конечное значение переменной цикла.

Безусловный цикл выполняется заданное количество раз. Чтобы прервать выполнение цикла досрочно

1. Необходимо увеличить I до конечного значения (I:=N2);

2. Использовать процедуру Break, которая прерывает выполнение цикла;

3. Процедура Continue начинает новую итерацию цикла, даже если предыдущая не была завершена.

Оператор цикла, в котором происходит уменьшение значения переменной:

For i: =N1 downto N2 do

< Тело цикла>

Примеры:

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

Program prim;

Var i, p: integer;

Begin

p:=1;

For i:=1 to 10 do

p: = p*i;

Writeln (‘p=’, p);

End.

Вывести все символы от Z do A

Program simvol;

Var i: char;

Begin

For i: =’z’ downto ‘a’ do

Writeln (i, ‘ ‘ );

End.

Оператор цикла с предусловием WHILE . . .Do

Проверка истинности выполнения условия проводится до начала очередной итерации:

While <условие> do

<тело цикла>;

Пример:

Дана последовательность чисел, оканчивающаяся 0. Найдите максимальное число и его номер.

Program ggg;

Uses crt;

Var i, k: integer;

X, max: real;

Begin

Clrscr;

Writeln (‘Введите число’);

Readln (x);

Max: = x; k:=1;

Writeln (‘Введите следующее число’);

Read (x);

I:=2;

While x<>0 do

Begin

If x>max then

Begin

Max: =x;

K: = i;

End;

Writeln (‘ Введите текущее число’)

Readln (x);

I:=I+1

End;

Writeln (‘Наибольшее число’, Max:10:2, ‘ его номер - ’, k);

Readln;

End.