Задание 1. Оператор цикла с предусловием

Составить программу на языке Turbo Pascal для вывода значений функции на отрезке [a, b] с шагом h, используя цикл с предусловием.

Блок-схема предложенной задачи будет иметь вид (рис.2):

1. Запустите Turbo Pascal.

2. В окне редактирования наберите текст программы:

Program Tab_1;

var a, b, h, x, y: real;

begin

Writeln ('Введите значения a, b, h');

Read (a, b, h);

x:=a;

While (x<=b) Do

Begin

y:=x*(1+exp(-x*x));

Writeln ('x=', x: 6: 2, ' y=', y: 6: 2);

x:=x+h

End;

end.

Рис. 2.

3. Откомпилируйте программу.

4. Запустите программу на выполнение. Сохраните программу на диске.

Задание 2. Программа "Угадай число"

Проиллюстрируем работу оператора While на примере программы, моделирующей игру "Угадай число". Первый игрок должен задумать число. Второй игрок должен угадать это число с нескольких попыток. При каждой попытке первый игрок должен сообщать второму о том, больше или меньше названное число задуманного.

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

Для "задумывания" числа будем использовать функцию:

Random (i),

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

Обозначим через z задуманное число (это число можно получить с помощью оператора присваивания z:=random(1000)), а через р – число, вводимое пользователем с клавиатуры. Тогда на каждом шаге угадывания числа р и zдолжны сравниваться между собой до тех пор, пока они не совпадут, т.е. не станет справедливым равенство р = z.

Таким образом, вся программа может быть записана так:

Program Ugaday;

var p, z: integer;

begin

z:=random(1000);

writeln ('Угадай число!');

read(p);

while p<>z do

begin

if p<z then writeln(' меньше')

else writeln(' больше');

read(p)