Лекции по Turbo Pascal (стр. 5 )

then begin writeln (‘большее из данных чисел ’, x)

else

if y>z then writeln (‘большее из данных чисел ’, y)

else writeln ( ‘большее из данных чисел ’,z);

Задание: Написать полностью программы для разобранных выше примеров.

Задачи:

1.  Рассчитать значение y при заданном значении x:

2.  Дано целое число. Определить:

а) является ли оно чётным;

б) оканчивается ли оно цифрой 7;

в) оканчивается ли оно чётной цифрой. Составное условие не использовать.

3.  Дано двузначное число. Определить:

а) какая из его цифр больше: первая или вторая;

б) одинаковы ли его цифры?

4.  Дано двузначное число. Определить:

а) кратна ли трём сумма его цифр;

б) кратна ли сумма его цифр числу A?

5.  Дано трёхзначное число. Определить, равен ли квадрат этого числа сумме кубов его цифр.

6.  Дано трёхзначное число. Определить:

а) является ли сумма его цифр двузначным числом;

б) является ли произведение его цифр трёхзначным числом;

в) больше ли числа A произведение его цифр;

г) кратна ли пяти сумма его цифр;

д) кратна ли сумма его цифр числу A.

7.  Дано трёхзначное число.

а) верно ли, что все его цифры одинаковые?

б) определить, есть ли среди его цифр одинаковые?

8.  Дано четырёхзначное число. Определить:

а) равна ли сумма двух первых его цифр сумме двух его последних цифр;

б) кратна ли трём сумма его цифр;

в) кратно ли четырём произведение его цифр;

г) кратно ли произведение его цифр числу A.

9.  Составить программу для вычисления значения функции y(x):

10.  Дано натуральное число.

а) Верно ли, что оно заканчивается нечетной цифрой?

б) Верно ли, что оно заканчивается четной цифрой?

11.  Дано вещественное число x. Вычислить y(x), если

12.  Определить, является ли число A делителем числа B, или наоборот. Ответом должны служить сообщения: "да, одно из чисел является делителем другого" или "нет, ни одно из чисел не является делителем другого".

13.  Год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400 (например, 1700, 1800 и 1900 – не високосные года, 2000 – високосный). Дано натуральное число N. Определить, является ли високосным год с таким номером.

14.  Дано четырехзначное число. Определить:

а) входит ли в него цифра 4; б) входит ли в него цифра B.

15.  Дано четырехзначное число. Определить:

а) входят ли в него цифры 4 или 7; б) входят ли в него цифры 3, 6 или 9.

16.  Дано натуральное число n (n £ 9999).Выяснить, различны ли все четыре цифры этого числа (если оно записано четырьмя цифрами). Например, в числе 3678 все цифры различны, в числе 0023 – нет.

17.  Определить, является ли заданное шестизначное число счастливым. (Счастливым называют такое шестизначное число, у которого сумма его первых трех цифр равна сумме его последних трех цифр).

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

19.  Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз.

20.  Даны три целых числа. Вывести на экран те из них, которые являются четными.

21.  Даны три вещественных числа. Возвести в квадрат те из них, значения которых неотрицательны.

22.  Даны три вещественных числа. Вывести на экран:

а) те из них, которые принадлежат интервалу (1,6 – 3,8);

б) те из них, которые принадлежат интервалу (0,7 – 5,1).

23.  Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти.

24.  Даны четыре целых числа. Определить сумму тех из них, которые кратны трем.

25.  Составить программу для вычисления значения функции z(a):

26.  Дано вещественное число x.Вычислить f(x), если:

27.  Даны вещественные числа a, b, c (a ≠ 0).Выяснить, имеет ли уравнение ax2+bx+c=0 вещественные корни. Если такие корни имеются, то найти их. В противном случае ответом должно служить сообщение, что вещественных корней нет.

28.  Вывести на экран номер четверти координатной плоскости, которой принадлежит точка с координатами (x, y), при условии, что x ≠ 0 и y ≠ 0.

29.  Для натурального числа k напечатать фразу “мы нашли k грибов в лесу“, согласовав окончание слова “гриб” с числом k.

Самостоятельная работа на условный оператор.

Оператор выбора.

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

Оператор выбора case является обобщением оператора If – он дает возможность выполнять одно из нескольких действий в зависимости от значения переключателя.

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

Синтаксис инструкции case:

case выражение of

список констант_1 : begin

{последовательность инструкций 1};

end;

список констант_2 : begin

{последовательность инструкций 2};

end;

список констант_n : begin

{последовательность инструкций n};

end

else begin

{последовательность инструкций, выполняемая в случае, если выражение не попало ни в один из списков констант};

end;

end;

Где выражение – это выражение, от значения которого зависит дальнейший ход программы (одна из последовательностей инструкций, которая должна быть выполнена).

Список констант – константы, разделенные запятыми. Если константы представляют диапазон чисел, то вместо списка можно указать первую и последнюю константу диапазона, разделив их двумя точками. Например список 1, 2, 3, 4, 5, 6 может быть заменен диапазоном 1..6.

При выполнении инструкции case происходит следующее: вычисляется значение выражения оператора case, затем полученное значение последовательно сравнивается с константами из списков констант. Если значение выражения совпадает с константой из списка, то выполняется соответствующая этому списку последовательность инструкций, и на этом выполнение инструкции case завершается. Если значение выражения не совпадает ни с одной константой из всех списков, то выполняется последовательность инструкций идущих после else. Синтаксис инструкции case позволяет не использовать else и соответствующую последовательность инструкций. В этом случае, если значение выражения не совпадает ни с одной константой из всех списков, то выполняется следующая за cаse команда.

Примеры:

Case day of Case day of Case day of

1, 2, 3, 4, 5: write (‘ рабочий день’); 1..5: write (‘ рабочий день’); 6: write (‘суббота’);

6: write (‘суббота’); 6: write (‘суббота’); 7: write (‘воскресенье’)

7: write (‘воскресенье’); 7: write (‘воскресенье’); else write (‘ рабочий день’);

end; end; end;

Задание: При выводе числовой информации с пояснительным текстом возникает проблема согласования выводимого значения и окончания пояснительного текста. Например, рубль, рубля или рублей, либо год, года, лет. Составить программу, запрашивающую количество лет и выводящую сообщение: «Вам …лет».

Задачи:

1) Составить программу, которая в зависимости от порядкового номера месяца (1, 2, …, 12) выводит на экран его название (январь, февраль, …, декабрь).

2) Составить программу, которая в зависимости от порядкового номера месяца (1, 2, …, 12) выводит на экран количество дней в этом месяце. Рассмотреть 2 случая:

а)  год не является високосным (см. задачу 13);

б)  год високосный (информация об этом вводится с клавиатуры).

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

Циклы.

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

Оператор цикла for.

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

Синтаксис оператора цикл for:

For i:=n1 to n2 do

begin

{последовательность операторов};

end;

Либо:

For i:=n2 downto n1 do

begin

{последовательность операторов};

end;

Где i – это счетчик цикла, который обязательно должен быть объявлен в разделе var, и иметь целочисленный тип;

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

n2 – конечное значение счетчика, которое является выражением, определяющим конечное значение переменной – счетчика циклов.