Дистанционное обучение по программированию на языке Паскаль
план-конспект занятия по информатике и икт (8 класс) на тему

  где А и В результат операции отношения.

  Приоритеты логических операций: 1) not; 2) and; 3) or; 4) xor.

  Примеры логических выражений:
  a) (0  b) (a=0) OR (abs(x)<5)
  c) NOT (x=y)

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

  Из переменных, констант, сравнений, логических операций и скобок можно строить логические выражения.

  Рассмотрим следующую задачу:
  Имеется прямоугольное отверстие со сторонами а и b и кирпич с ребрами х, у, z. Требуется определить пройдет ли кирпич в отверстие.

  Решение.
  Кирпич имеет три грани, каждую из которых мы можем повернуть на 90 градусов, т.е. для каждой грани надо проверит два случая. Итого шесть. Получаем условие:

  (a>x)and(b>y) or (b>x) and (a>y) or
  (a>x) and(z>y) or (z>x) and(a>y) or
  (b>x) and(z>y) or (z>x) and(b>y)

  Код программы:
  Program prim_8;
  Var a,b,x,y,z:integer;
      F:boolean;
  Begin
    Write('введите размеры отверстия');
    Readln(a,b);
    Write('введите размеры кирпича');
    Readln(x,y,z);
    If (a>x)and(b>y) or (b>x)and(a>y) or (a>x)and(z>y) or
       (z>x)and(a>y) or (b>x)and(z>y) or (z>x)and(b>y)
    then Writeln ('Кирпич пролезет в отверстие')
      Else Writeln ('Кирпич не пролезет в отверстие');
    Readln
  End

Тренировочные задания к 8 уроку.
1. Установить, истинны или ложны следующие условия:
   (A=0) and not (B=0) or not (a=0) and (B=0) при
  a) А=0, В=0
  b) А=0, В=1

2. Ввести три числа. Выбрать и напечатать наибольшее из них.

3. Написать программу, которая требует ввода времени дня и, в зависимости от введенного значения, желает доброго утра, доброго дня, доброго вечера или спокойной ночи.

4. Даны три числа. Найдите наибольшее значение их суммы и произведения.

5. Даны три числа а, b, с. удвойте эти числа, если они являются упорядоченными по возрастанию.

6. Проверьте, есть ли среди трех заданных чисел равные.

7. Дано двузначное число. Определить:
  a) какая из его цифр больше, первая или вторая;
  b) одинаковы ли его цифры.

8. Известны площади круга и квадрата. Определить:
  a) Уместится ли круг в квадрате;
  b) Уместится ли квадрат в круге.

9. Дано трехзначное число. Выяснить, является ли оно палиндромом ("перевертышем"), т.е. таким числом, десятичная запись которого читается одинаково слева направо и справа налево.

Урок 9

Целочисленная арифметика и условный оператор.

Задача.
Дано трехзначное число. Определить:
  a) Является ли сумма его цифр двузначным числом;
  b) Является ли произведение его цифр трехзначным числом;
  c) Больше ли числа А произведение его цифр;
  d) Кратна ли пяти сумма его цифр;
  e) Кратна ли сумма его цифр числу А.

Код программы.

Program prim;
Var a,x1,x2,x3:integer;
    x,s,p:longint;   
Begin
    Write('введите трехзначное число');
    Readln(a);
    X1:=x div 100;
    X2:=(x div 10) mod 10;
    X3:= x mod 10;
    S:=x1+x2+x3;
    If (s>9) and (s<100) then writeln (' Сумма двузначное число ')    {a}
      Else Writeln('Сумма не двузначное число ');
    P:=x1*x2*x3;   
    If (p>99) and (p<1000) then writeln (' Произведение трехзначное число ')    {b}
      Else Writeln('Произведение не трехзначное число ');
    Write('Введите число А');
    Readln(a);
    If (p      Else Writeln('произведение не больше ', a);
    If s mod 5 = 0 then writeln (' сумма цифр кратна 5')         {d}
      Else Writeln('сумма цифр не кратна 5 ');
    If s mod а = 0 then writeln (' сумма цифр кратна ',a)         {e}
      Else Writeln('сумма цифр не кратна ', a);
    Readln
End.

Тренировочные упражнения.
1. Дано трехзначное число.
   a. Верно ли, что все его цифры одинаковы?
   b. Определить, есть ли среди его цифр одинаковые.
2. Дано четырехзначное число. Определить:
   a. Равна ли сумма двух первых его цифр сумме двух его последних цифр;
   b. Кратна ли трем сумма его цифр;
   c. Кратно ли четырем произведение его цифр;
   d. Кратно ли произведение его цифр числу А.
3. Дано натуральное число.
   a. Верно ли, что оно заканчивается нечетной цифрой?
   b. Верно ли, что оно заканчивается четной цифрой?
4. Является ли число А делителем числа В? А наоборот?
5. Дано четырехзначное число N. Выяснить:
   a. Является ли число палиндромом?
   b. Верно ли, что все 4 цифры этого числа различны.
6. Трамвайный билет имеет шестизначный номер. Выяснить, является ли билет "счастливым". Билет назовем "счастливым", если сумма первых трех цифр равна сумме последних трех цифр. Примечание. Так как шестизначное число больше 32767(тип Integer), необходимо номер билета определит как тип Longint( до 10 знаков).
7. Выяснить пройдет ли кирпич в круглое отверстие.

Урок 10

  Цикл - это замечательное изобретение, которое, в сущности, и делает компьютеры такими ценными. Он позволяет многократно повторить любую часть программы. Цикл не может выполняться вечно, он заканчивается по какому-либо условию. Проверка этого условия может производиться в начале каждого повторяющегося шага, в этом случае цикл называется ПОКА. При проверке условия в конце каждого шага цикл называется ДО. Разновидностью цикла ДО является цикл ПЕРЕСЧЕТ.

10.1.Оператор цикла WHILE (цикл ПОКА).

  Формат оператора:
  WHILE логическое выражение DO;

  Оператор будет повторятся пока истинно логическое выражение. Перед каждым повторением оператора значение логического выражения вычисляется заново. Если необходимо повторить несколько операторов, их следует объединить в составной оператор, т.е. заключить в операторные скобки begin ... end. Этот цикл может не выполниться ни разу, если условие при входе в него оказалось ложным. Таким образом, цикл ПОКА содержит условие повторения цикла.

Пример 1. Программа подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N.

Program Summa;
Var S:real;
    N:integer;
Begin
  S:=0;N:=0;
  While n<1000 do
  Begin
    N:=n+1;
    S:=s+1/n
  End;
  Writeln(s);
  Readln
End.

Пример 2. Вычислить наибольший общий делитель двух натуральных чисел А и В.

  Воспользуемся для этого алгоритмом Евклида: будем уменьшать каждый раз большее из чисел на величину меньшего до тех пор, пока оба числа не станут равны.

Program NOD;
Var  a,b:integer;
Begin
  Write ('введите два натуральных числа')
  Readln(a,b)
  While a<>b do If a>b then a:=a-b else b:=b-a;
  Writeln('НОД=',a);
  Readln
End.

Пример 3 . Начав тренировки, лыжник в первый день пробегал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить в какой день он пробежит больше 20 км, в какой день суммарный пробег за все дни превысит 100км.

Program prim_10;
Var S:real;
    N:integer;
Begin
  S:=10;N:=1;
  While s<20 do
  Begin
    N:=n+1;
    S:=s*0.1
  End;
  Writeln(' дневной пробег больше 20 км на ',n,' день');
  S:=10;N:=1;
  While s<100 do
  Begin
    N:=n+1;
    S:=s+s*0.1 {накапливаем суммарный пробег}
  End;
  Writeln('за ',n,' пробежит больше 100 км');
  Readln
End.

Тренировочные задания.
1. Даны целые числа а и b (а>b). Определить:
   a. Результат целочисленного деления a на b, не используя стандартную операцию целочисленного деления;
   b. Остаток от деления а на b не используя стандартную операцию вычисления остатка.

2. Известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку "5"?. Условный оператор не использовать.

3. Напечатать минимальное число, большее 200, которое нацело делится на 17.

4. Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить: за какой месяц величина ежемесячного увеличения вклада превысит 30 руб.; через сколько месяцев размер вклада превысит 1200 руб.

5. *В некоторой стране используются денежные купюры достоинством в 1, 2, 4, 8, 16, 32 и 64. дано натуральное число N. Как наименьшим количеством таких денежных купюр можно выплатить сумму N (указать количество каждой из используемых для выплаты купюр)? Предполагается, что имеется достаточно большое количество купюр всех достоинств.

Урок 11

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

11.1.Оператор цикла REPEAT (цикл ДО).

  Формат оператора:
  REPEAT оператор; оператор;...оператор UNTIL логическое условие;

  Часть программы, заключенная между служебными словами REPEAT и UNTIL, повторяется до тех пор, пока не станет истинным логическое выражение, стоящее после слова UNTIL. Между словами REPEAT (повторить) и UNTIL(до тех пор, пока) можно записать любое количество операторов без использования операторных скобок.
  В отличие от оператора WHILE вычисление логического выражения происходит не до, а после очередного повторения цикла. Из-за этого цикл REPEAT обязательно выполнится хотя бы раз, а цикл WHILE может не выполнится ни разу. Если условие в цикле ПОКА является условием продолжения повторений, то условие в цикле ДО - условием выхода из цикла, его завершения. Поэтому для одной и той же задачи эти условия противоположны.

Пример 1. Составить программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N используя оператор цикла REPEAT.

Program Summa;
Var   S:real;
      N:integer;
Begin
  S:=0;N:=0;
  repeat
    N:=n+1;
    S:=s+1/n
  Until n>1000;
  Writeln(s);
  Readln
End.

11.2.Поиск наибольшего числа.

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

1. Ввести первое число в переменную Max.
2. Ввести следующее число в переменную Next.
3. Если Next>Max, то Max:=Next.
   Пункты 2 и 3 повторять, пока не будут введены все числа.
4. Вывести значение переменной Max.

  Действительно ли будет напечатано наибольшее из N чисел? Докажем это.

  После выполнения первого пункта в переменной Max находится наибольшее из уже введенных чисел. Это справедливо, т.к. введено лишь одно число.
  Повторение пунктов 2 и 3, в сущности, представляет собой цикл, который выполняется, пока не будут введены все числа. Если перед очередным повторением цикла в Max находится наибольшее из введенных чисел, то после выполнения пунктов 2 и 3 там снова будет наибольшее из введенных чисел.
  В последнем пункте значение Max будет выведено.

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

Program maximum;
Var    N, max, next, k: integer;
Begin
  Write('Введите количество чисел'); Readln(n);
  Write('Введите число'); Readln(max);
  k:=1;
  repeat
    Write('Введите число'); Readln(next);
    K:=k+1;
    If next>max then max:=next
  Until k=n;
  Writeln(max);
  Readln
End.

Тренировочные задания.
1. Введите с клавиатуры 6 чисел и определите их среднее арифметическое.
2. Напишите программу, которая вводит целые числа с клавиатуры и складывает их, пока не будет введено число 0.
3. Напечатайте 20 первых степеней числа 2.
4. Найдите минимальное из N чисел.
5. Дано натуральное число. Выяснить, является ли оно простым, т.е. делится только на 1 и на само себя.

Урок 12

  Вычислительные машины имеют дело не только с числами. Едва ли не больше времени они бывают заняты обработкой текста. В Паскале для этого есть специальный тип данных, который называется CHAR (от слова character - символ).

12.1.Тип CHAR (символьный или строковый или литерный).
  Его значениями являются отдельные символы: буквы, цифры, знаки. Символьные константы заключаются в кавычки, например, 'A', 'B', 'C', '4', '7', ' '(пробел).

  Символьные переменные описываются предложением:

  Var имя переменной: char;

  Символьные значения можно вводить и выводить, присваивать, сравнивать. Ниже приведен пример, где выполняются все эти действия.

Var  x,y:char;
Begin
  Write('Введите символ');   
  Readln(x);
  Y:='A';
  If x  {на экран буде выдан символ хранящийся в переменной
  Х или Y в зависимости от проверки условия}
  Readln;
End.

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

'A'<'B'<...<'Z'
'a'<'b'<...<'z'
'0'<'1'<...<'9'
'а'<'б'<...<'я'
'А'<'Б'<...<'Я'

Для символов допустимы все шесть операций сравнения: =, <=,>=,<,>,<>.

12.2.Стандартные символьные функции.
  В Паскале имеются стандартные символьные функции:

  CHR(N) - возвращает в программу символ с кодом N,
  ORD(S) - возвращает код символа S,
  PRED(S) -возвращает предыдущий символ
  SUCC(S) - возвращает следующий символ

  Примеры:
  CHR(128) = Б
  ORD(':') = 58
  PRED('Б') = А
  SUCC('Г') = Д

  Каждый символ имеет свой уникальный двоичный код. Коды всех символов сведены в таблицу. Первая половина таблицы стала международным стандартом, который называется ASCII - American Standard Code Information Interchange ( читается "аски код") в ней кроме прочего содержится латинский алфавит, вторая имеет разные варианты для разных языков. Кириллица (русский алфавит) имеет несколько стандартов. В Паскале используется стандарт КОИ-8.

Пример использования переменной символьного типа.
  Составить программу, по которой компьютер многократно вычисляет сумму А+В при различных значениях А и В. в конце каждого этапа появляется запрос о продолжении или прекращении вычислений: "Завершить программу?(Д/Н)".

Var A,B:real; { PROGRAM имя; не обязательное предложение}
    C : char;
Begin
  repeat
    Write('Введите два числа'); Readln(a,b);    
    Writeln(a+b:0:2);
    Writeln('Завершить программу?(Д/Н)');
    Readln(с);
  Until с='Д'; {программа завершит работу если будет введено Д}
  Readln
End.

Тренировочные задания.
1. Что вернет функция CHR(ORD(X))?
2. Определить значения следующих функций (как правило таблица аски кодов есть в любом справочнике по программированию):
   CHR(68)
   ORD('d')
   PRED(1)
   SUCC('Я')
3. С клавиатуры вводится два числа. Составить программу сравнивающую эти числа и в зависимости от результата сравнения выводящую на экран нужный знак. Например: 3<5 или 3=3 или 3>2. Процедуру WRITE для вывода результата разрешается использовать только один раз.
4. Составить программу, по которой компьютер находит произведение нечетных чисел, начиная с единицы, и до тех пор, пока на вопрос, задаваемый после каждого шага вычислений: "Продолжить вычисления? (Д/Н)", отвечают 'Д'.

Урок 13

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

  13.1. Цикл ПЕРЕСЧЕТ (прямой).
  Формат оператора:

  FOR переменная := выражение 1 ТО выражение 2 DO оператор;

  Переменная должна быть порядкового типа. Порядковыми называются все простые типы, значения которых можно расположить в возрастающем порядке. Из известных нам это: INTEGER, WORD, LONGINT, BYTE, CHAR. Выражение 1 и Выражение 2 должны быть того же типа, что и переменная. Чтобы цикл выполнился хотя бы раз выражение1 должно быть не больше выражения2.

  Выполнение начинается с вычисления значений выражения1 и выражения2. затем переменная получает значение выражения1 и делается проверка, не превышает ли значение переменной выражения2. Если не превышает, выполняется оператор стоящий после служебного слова DO. После завершения оператора переменная получает следующее по порядку значение, и все повторяется, начиная с проверки.

  Когда значение переменной становится равным выражению2, оператор выполняется последний раз.

ПРИМЕР 1. Напечатать ряд из повторяющихся чисел 20 в виде:
20 20 20 20 20 20 20 20 20 20

Код программы:

var  i: byte;
begin
  for I:=1 to 10 do write(20,' ');
  readln;
end.

ПРИМЕР 2. Напечатать числа следующим образом:
10 10.4
11 11.4
. . .
25 25.4

Код программы (переменная используется не только для управления циклом но и для вывода на экран в качестве результата):

var  i: byte;
begin
  for I:=10 to 25 do write(I,' ',I+0.4:0:1);
  {при сложении целого I и вещественного 0.4 получаем
  вещественный результат, значит надо выполнить его
  форматирование при выводе на экран}
  readln;
end.

13.2. Цикл ПЕРЕСЧЕТ (обратный).
  Возможен вариант оператора, когда переменная принимает последовательно убывающие значения.
  Формат оператора:
 
  FOR переменная := выражение 1 DOWNТО выражение 2 DO оператор;

  В этом случае, чтобы цикл выполнился хотя бы раз, выражение1 должно быть не меньше выражения2. Например:

  For c:='z' downto 'а' do writeln(с);

Тренировочные задания.
1.Напечатать столбиком:
  а) все целые числа от 20 до 35;
  б) квадраты всех целых чисел от 10 до b (значение d вводится с клавиатуры; b>=10);
  в) третьи степени всех целых чисел от а до 50 (значение а вводится с клавиатуры; а<=50);
  г) все целые числа от а до b (значения а и b вводятся с клавиатуры; d>=a).

2. Напечатать числа следующим образом
25 25.5 24.8
26 26.5 25.8
. . .
35 35.5 34.8

3. Распечатать в столбик таблицу умножения на 7.

4. Вывести столбиком следующие числа: 2,1 2,2 2,3 . . . , 2,8

5. Вывести столбиком следующие числа: 2,2 2,4 2,6 . . . , 4,0 4,2

6. Вывести столбиком следующие числа: 4,4 4,6 4,8 . . . , 6,2 6,4

Урок 14

Задача 1.
  Дано натуральное число N. Определить, является ли оно простым, т.е. делится нацело только на 1 и на само себя. (Мы решали эту задачу в 12 уроке, но я хочу предложить вам другой алгоритм решения.)
  Для решения необходимо проверить, делится ли исходное число на числа от 2 до N-1. Если число делится хотя бы на одно из чисел без остатка, то число N не будет простым. Мы можем уменьшить интервал проверяемых делителей так, как наибольший из возможных, это N/2. Введем так же дополнительную переменную F, она будет принимать значение 1, если обнаружится хотя бы один из делителей для исходного числа. Первоначально присвоим F значение 0, т.е. предположим, что число простое.
  Переменные:
N - исследуемое число;
I - переменная цикла;
F - вспомогательная переменная.

Код программы.

Var  I,n,f:word;   
Begin
  Write('Введите натуральное число');
  Readln(n);
  F:=0;
  For I:=2 to n div 2 do if n mod I=0 then f:=1;   
  If f=1 then writeln('число',n:6,' не простое')
  Else writeln('число',n:6,' простое');
  Readln
End.

  Количество выполнения циклов можно еще уменьшить. Ведь на самом деле если число N делится на какое-то число А без остатка (кроме 1 и самого себя), то оно имеет и второй делитель В=N/A, т.е. если число не простое то его всегда можно записать как N=A*B. При возрастании первого делителя, значение второго будет уменьшаться. Получается, что достаточно проверить все числа от 2 до SQRT(n), но так как результат вычисления корня вещественный, а параметр цикла должен иметь целое значение, применим функцию определения целой части числа TRUNC, и получим:

For I:=2 to trunc(sqrt(n)) do if n mod I=0 then f:=1;

Задача 2.
  Даны натуральные числа M и N. Определить, являются ли они взаимно простыми. Взаимно простые числа не имеют общих делителей, кроме 1.

  Для решения задачи:
- вводим натуральные числа М и N;
- в цикле от 2 до наименьшего числа порождаем I и проверяем, является ли оно одновременно делителем М и N;
- в зависимости от значения F выводим результат.

Var  k,m,n,f:word; 
Begin
  Write('Введите 2 натуральных числа');
  Readln(n,m);
  F:=0;
  if n>m then k:=m else k:=n; {k - наименьшее из 2-х чисел }
  for I:=2 to k do if (n mod I=0) and (m mod I = 0) then f:=1;
  If f=1 then writeln('числа не взаимно простые')
    Else writeln('числа взаимно простые');
  Readln
End.

Тренировочные задания.

1. Дан интервал натуральных чисел от N до М. Определить все простые числа в этом интервале.
2. Дано натуральное число N. Определить все простые числа не превосходящие N.
3. Дано натуральное число N. Разложить его на простые множители.
4. Дано натуральное число N. Определить, является ли оно совершенным. Совершенное число N равно сумме всех своих делителей, не превосходящих само N.
5. Дано натуральное число N. Определить, является ли оно автоаморфным. Автоаморфное число N равно последним разрядам квадрата этого числа: 5<->25, 6<->36, 25<->625.

Урок 15

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

Задача 1.
Вводится последовательность из N целых чисел. Найти сумму всех отрицательных чисел.
Код программы.

Var  I,n,x,sum:integer;
Begin
  Write('Введите длину последовательности N=');
  Readln(n);
  Sum:=0;
  For I:=1 to n do
  Begin
    Write('Введите число');
    Readln(x);
    if x<0 then sum:=sum+x
  end;   
  If sum=0 then writeln('отрицательных чисел нет')
    Else writeln('сумма отрицательных чисел =', sum);
  Readln
End.

Задача 2.
Вводится последовательность ненулевых чисел, 0 - конец последовательности. Определить, сколько раз последовательность меняет знак.

Var  old, new: real;
     K: integer;
Begin
  Write('введите число');
  Readln(old);
  Write('введите число');
  Readln(new);
  K:=0;
  Repeat
    If new*old<0 then k:=k+1;
    Old:=new;
    Write('введите число');
    Readln(new);
  Until new=0;
  If k>0 then writeln ('Последовательность меняет знак ',k,' раз')
    else writeln ('Последовательность не меняет знак ');
  readln;
end.

Тренировочные задания.
1. Вводится последовательность из n произвольных чисел. Определить, сколько раз последовательность меняет знак.
2. Вводится последовательность чисел, 0-конец последовательности. Определить, содержит ли последовательность хотя бы два равных соседних числа.
3. Вводится последовательность чисел, 0-конец последовательности. Найти два наименьших числа.
4. Вводится последовательность из N целых чисел. Найти наибольшее из всех отрицательных чисел.
5. Вводится последовательность из N целых чисел. Найти, сколько в ней нулей.

Урок 16

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

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

Var    x: byte;
Begin
  Write(' введите число от 1 до 7');
  Readln(x);
  If x=1 then writeln('понедельник');
  If x=2 then writeln('вторник');
  If x=3 then writeln('среда');
  If x=4 then writeln('четверг');
  If x=5 then writeln('пятница');
  If x=6 then writeln('суббота');
  If x=7 then writeln('воскресенье');
  Readln
End.

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

  В таком случае лучше подойдет оператор ВАРИАНТА (или ВЫБОРА).

  Если условный оператор напоминает дорожную развилку, то оператор выбора - это разделение пути на множество дорог, по одной из которых пойдет выполнение программы.

  Формат оператора:

  CASE выражение OF
    P1:<оператор 1>;
    P2:<оператор 2>;
    . . .
    PN:<оператор N>;
      ELSE <оператор N+1>
  END;

  Выражение порядкового типа вычисляется, и его значение отыскивается в одном из списков констант. После этого выполняется соответствующий оператор. Если значение выражения не совпало ни с одной из меток, то выполняется оператор из строки ELSE. Cокращенная форма оператора не содержит ELSE. Метки оператора варианта могут быть константами любого типа, но их тип должен совпадать с типом выражения.

  Тогда код нашей программы будет выглядеть иначе:

Var  x: byte;
Begin
  Write(' введите число от 1 до 7'); Readln(x);
  Case x of
    1: writeln('понедельник');
    2: writeln('вторник');
    3: writeln('среда');
    4: writeln('четверг');
    5: writeln('пятница');
    6: writeln('суббота');
    7: writeln('воскресенье');
  end;
  Readln
End.

  Если при выборе альтернативы необходимо выполнение нескольких операторов, то нужно заключить их в операторные скобки BEGIN . . . END;, т.е. использовать составной оператор.
  При использовании оператора CASE можно использовать диапазон допустимых значений параметра. Например, чтобы определить, введена ли как символьная переменная цифра, можно написать:

  CASE I OF
    '0'..'9':writeln('цифра');
    ELSE writeln ('не цифра')
  END;

Задача. Для целого числа K от 1 до 99 напечатать фразу "Мне k лет", учитывая при этом, что при некоторых значениях K слово "лет" надо заменить на слово "год" или "года". Например, 11 лет, 22 года, 51 год. (Данное решение можно улучшить используя дополнительно условный оператор. Попробуйте.)

var k:byte;
begin
  write('Введите число лет'); readln(k);
  case k of
    1,21,31,41,51,61,71,81,91:writeln('Мне ',k,' год');
    2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94:writeln('Мне ',k,' года');
    else writeln('Мне ',k,' лет');
  end;
  readln;
end.

Тренировочные задания:
1. Составить программу, которая в зависимости от порядкового номера месяца (1, 2, ..., 12) выводит на экран его название (январь, февраль, ..., декабрь).
2. Написать программу, которая бы по введенному номеру месяца выдавала соответствующее этому месяцу время года.
3. Составить программу, которая читает натуральное число N в десятичном представлении (N<=10000), а на выходе выдает это же число в десятичном представлении и на естественном языке. Например: 7 - семь, 204 - двести четыре, 52 - пятьдесят два.

Задачи на повторение:
4. Дано натуральное число. Определить, является ли разность его максимальной и минимальной цифр четным числом.
5. Дано натуральное число. Определить, сколько раз в нем встречается цифра, равная старшей.

Урок 17

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

Например:
Составить программу, по которой компьютер печатает последовательность вида:

10, 100, 1000, ..., 10^n (n<10)

Код программы:
var i,n,s:longint;
begin
  write('Введите значение n<10');
  readln(n);
  s:=1;
  for i:=1 to n do
  begin
    s:=s*10;{находим степень}
    write(s,' ');
  end;
  readln;
end.

  Если не сделать защиту, то при вводе числа больше 9 программа выполнится, но ответ будет абсурдным (так как пойдет переполнение допустимого значения переменной S). Попробуйте! А если сделать проверку входного данного, то программа не будет выполняться, пока не будет введено допустимое значение.

var i,n,s:longint;
begin
  repeat {Цикл закончится если n<10}
    write('Введите значение n<10');
    readln(n);
  until n<10;
  s:=1;
  for i:=1 to n do
  begin
    s:=s*10;{находим степень}
    write(s,' ');
  end;
  readln;
end.

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

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

1. Дано натуральное число N. Определить, является ли оно палиндромом. Число палиндром можно читать справа налево и слева направо: 4, 88, 121, 767767 и т.д.
2. Вводится последовательность из N целых чисел. Найти наибольшее число.
3. Дано натуральное число. Найти:
   a. Число, получаемое при прочтении его цифр справа налево;
   b. Число, получаемое в результате приписывания по двойке в начало и конец записи исходного числа;
   c. Число, получаемое удалением из исходного всех цифр А;
   d. Число, получаемое из исходного перестановкой его первой и последней цифр;
   e. Число, образованное из исходного приписыванием к нему такого же числа.

Урок 18

  В уроке 12 вы уже познакомились с символьным типом данных CHAR, который позволяет работать с отдельными символами текста. Для обработки более крупных текстовых единиц - строк введен тип данных, который называется STRING (строка).

  Значениями этого типа являются строки любых символов длиной до 255.
  Переменные строки должны быть описаны предложением:

    VAR имя: STRING

  Строки можно присваивать, сравнивать, вводить, выводить и соединять. Соединение обозначается знаком "+". Вот примеры некоторых операций сравнения над строками:

  'стол'<= 'столик '    true
  'ABC' <'ADBA'         true
  '12' <'2'             true
  'пар'+ 'о' +'воз'     'паровоз'

  На основе этих примеров сформулируйте правила сравнения строк.

  Среди всевозможных значений строк есть пустая строка. Она изображается двумя апострофами (одинарными кавычками), между которыми ничего нет. Чтобы ввести этот символ в состав строки, надо повторить его дважды. Например, оператор

  write('об''явление')
 
  выведет на экран: об'явление.

  Программисту доступны отдельные символы строковой переменной, для этого кроме имени переменной надо указать порядковый номер символа в строке. Например, если описана переменная X:STRING, то X[1] - это первый символ строки, X[2] - второй и т.д.

  У X[0] особая роль - хранить длину строки. Значением X[0] является символ, код которого равен количеству символов в строке. Но для определения длины строковой переменной обычно используется функция

  LENGTH(строковая переменная).

  Например, если N:=LENGTH(x); - N присвоится значение равное числу символов в строке.

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

Var
  a,b:string[4];
begin
  write('введите слово');
  readln(a);
  write(a);
  readln
end.

  Если при выполнении этой программы ввести слово КУКУРУЗА, то программа выведет КУКУ.

  ЗАПОМНИТЕ. Если при выполнении программы необходимо ввести значение для нескольких строковых переменных, для каждой из них должен быть указан свой оператор ввода READLN. Например,

Var
  a,b,c:string;
begin
  readln(a);
  readln(b);
  readln(c);
  write(a+b+c);
  readln
end.

Проверьте, что произойдет, если записать READLN(a,b,c); или READ(a,b,c).

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

Var
  a,b:string;
begin
  readln(a);
  readln(b);
  if length(a)>length(b) then write(a) else write(b);
  readln
end.

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

Var  x,y:byte;
     a,b:string;
begin
  readln(a);
  readln(b);
  x:=length(b); {определяем длину слова b, чтобы узнать номер последнего символа}
  if a[1]=b[x] then write('верно') else write('неверно');
  readln
end.

Тренировочные задания.
1. Дано название города. Определить, четно или не четно количество символов в нем.
2. Дано слово. Вывести на экран его третий символ и дважды его последний символ.
3. Дано слово. Верно ли, что оно начинается и оканчивается на одну и ту же букву?
4. Дано слово. Получить и вывести на экран буквосочетание, состоящее из его третьего и последнего символа.
5. Составить программу которая запрашивает название футбольной команды и повторяет его на экране со словами: "Это чемпион!".

Урок 19

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

Пример 1.
Дано слово, состоящее из четного числа букв. Вывести на экран его первую половину.

Var  i,x:byte;
     a:string;
begin
  repeat
    write('Введите слово из четного числа букв');
    readln(a);
    x:=length(a); {определяем длину слова}
  until (x mod 2 = 0);
  x:= x div 2; {применяем целочисленное деление}
  for i:=1 to x do write(a[i]);
  readln
end.

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

Var  i,x:byte;
     a:string;
begin
  write('Введите слово ');
  readln(a);
  x:=length(a);{определяем длину слова}
  for i:=x downto 1 do write(a[i]);
  readln
end.

Пример 3.
Дано предложение. Определить число пробелов в нем.

Var  i,x,k:byte;
     a:string;
begin
  write('Введите предложение');
  readln(a);
  x:=length(a); {определяем длину слова}
  k:=0;
  for i:=1 to x do if a[i]=' ' then k:=k+1;
  writeln(k);
  readln
end.

Пример 4.
Дано предложение. Определить порядковый номер первой встреченной буквы 'к'. Если такой буквы нет, сообщить об этом.

Var  i,x,k,f:byte;
     a:string;
begin
  write('Введите предложение');
  readln(a);
  x:=length(a);{определяем длину слова}
  k:=0; I:=0; f:=0;
  repeat
    I:=I+1;
    if a[i]<>'к' then k:=k+1 else f:=1;
  until (I=x)or( a[i]='к' );
  if f=1 then writeln(k) else writeln(' Нет такой буквы');
  readln
end.

Тренировочные задания.
1. Дано слово. Получить его часть, образованную идущими подряд буквами, начиная с m-й и кончая n-й (m2. Дано слово из четного числа букв. Поменять местами его половины.
3. Дано слово. Перенести первые k его букв в конец.
4. Получить строку, состоящую из пяти эвездочек, т.е. символов "*".
5. Дано предложение. Напечатать все его буквы "и".

Урок 20

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

20.1 Функция копирования строки или ее части.

  S:=COPY(строка, позиция, N);

  Функция копирования называется также "вырезкой". Результатом выполнения функции будет часть строки начиная с указанной позиции длиной N.

  Код программы для решения задачи из 19 урока будет выглядеть иначе с применением данной функции.

Пример 1.
Дано слово, состоящее из четного числа букв. Вывести на экран его первую половину.

Var  x:byte;
     a:string;
begin
  repeat
    write('Введите слово из четного числа букв');
    readln(a);
    x:=length(a);         {определяем длину слова}
  until (x mod 2 = 0);
  x:= x div 2;         {применяем целочисленное деление}
  write(copy(a,1,x); {вместо оператора цикла}
  readln
end.

20.2 Функция поиска подстроки в строке.

  N:=POS(подстрока, исходная строка)

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

  Рассмотрим задачу из 19 урока.
  Дано предложение. Определить порядковый номер первой встреченной буквы 'к'. Если такой буквы нет, сообщить об этом.

Var  x:byte;
     a:string;
begin
  write('Введите предложение');
  readln(a);
  x:=pos('к',a);
  if x=0 then writeln(' Такой буквы нет') else writeln(x);
  readln
end.

20.3.Процедура удаления части строки

  DELETE(строка, начальный номер, количество символов)
 
  Удаляет из исходной строки указанное количество символов.

  Пример из 19 урока.
  Дано слово, состоящее из четного числа букв. Вывести на экран его первую половину.

Var  i,x:byte;
     a,p:string;
begin
  repeat
    write('Введите слово из четного числа букв');
    readln(a);
    x:=length(a);         {определяем длину слова}
  until (x mod 2 = 0);
  x:= x div 2;         {применяем целочисленное деление}
  delete(a,x+1,x);
  write(а);
  readln
end.

20.4.Процедура вставки подстроки в строку

  INSERT(строка1, строка2, позиция);

  Строка1 вставляется в строку2 начиная с указанной позиции.

Тренировочные задания.

1. Дано предложение. Определить число вхождений в него некоторого символа.
2. Дано предложение. Заменить в нем все вхождения буквосочетания "ах" на "ух".
3. Дано слово. Проверить, является ли оно "перевертышем", т.е. читается одинаково как с начала, так и с конца.
4. Дано слово:
   a. удалить из него первую из букв "о", если такая буква есть;
   b. удалить из него последнюю из букв "т", если такая буква есть.
5. Дано предложение. Удалить из него все буквы "с".

Урок 21

21.1. Преобразование числового значения в строковое.

  STR(K, S);

  Процедура преобразовывает числовое значение величины K в строку S. После числа К может записываться формат, аналогично формату вывода. Если в формате указано недостаточное для вывода количество разрядов, поле вывода автоматически расширятся до нужной длины.

21.2.Преобразование строки в число.

  VAL(S, K, Code);

  Процедура преобразует значение S в величину целочисленного или вещественного типа и помещает результат в K. Значение S не должно содержать незначащих пробелов в начале и в конце строки. Code - целочисленная переменная, если преобразование невозможно, то содержит номер позиции первого ошибочного символа, если все нормально, то значение Code равно нулю.

21.3.Преобразование строчной буквы в прописную.

  UpCase(ch);

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

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

var s:string;
    I:byte;
begin
  Write(' Введите слово');
  Readln(s);
  For I:=1 to Length(s) do s[I]:=UpCase(s[I]);
  Writeln(s);
end.

  Решим следующую задачу используя стандартные функции.
  Дано слово. Переставить первые три и последние три буквы, сохранив порядок их следования.

var  x:byte;
     a:string;
begin
  repeat
    write('Введите слово не менее шести букв');
    readln(a);
    x:=length(a);         {определяем длину слова}
  until (x>=6);
  a:=copy(a,x-2,3)+copy(a,4,x-6)+copy(a,1,3);
  writeln(a);
  readln
end.

Тренировочные задания.
1. Вычислите длину самого короткого слова в предложении из трех слов, разделенных пробелами.
2. Заданы фамилия, имя и отчество учащегося, разделенные пробелом. Напечатайте его фамилию и инициалы.
3. Даны два слова. Составте программу, определяющую можно или нет из букв слова А составить слово В.
4. Даны два слова. Определить, сколько начальных букв первого слова совпадает с начальными буквами второго слова.
5. Дан текст. Верно ли, что в нем есть пять идущих подряд одинаковых символа?

Урок 22.

Переменные типа массив. Виды массивов

Рассмотрим следующую задачу: Надо ввести три целых чисел с клавиатуры и из них найти минимальное по значению число. Результат вывести на экран.

Для решения можно предложить следующую программу:

program Primer_7;

var

  Chislo1,Chislo2,Chislo3,Resultat:Integer;

procedure Init;

begin

  Write('Insert chislo1 -');

  Readln(Chislo1);

  Write('Insert chislo2 -');

  Readln(Chislo2);

  Write('Insert chislo3 -');

  Readln(Chislo3);

end;

procedure Work;

begin

  if (chislo1<=chislo2) and (chislo1<=chislo3) then           resultat:=chislo1;

  if (chislo2<=chislo1) and (chislo2<=chislo3) then           resultat:=chislo2;

  if (chislo3<=chislo1) and (chislo3<=chislo2) then           resultat:=chislo3;

end;

procedure Exit;

begin

  writeln(resultat);

end;

begin

  Init;

  Work;

  Exi;

end.

В результате работы программа выведет на экран одно из чисел первое, второе или третье, то которое будет минимальным. Изменим условие, вместо трех чисел, допустим, надо найти минимальное число среди 10 или 40 чисел. Используя предыдущий подход нам надо завести 10 или 40 переменных с различными именами. Более того, возрастет объем текста в процедуре Work, для выявления минимального числа. Как быть в этом случае? Можно ли упростить текст программы? Да, можно!

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

Если список, состоит из записей, которые характеризуются  своим месторасположением в списке он называется линейным списком.

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

Одномерный массив (вектор). Элемент массива определяется своей позицией. В простейшем случае – это отсчет смещения от начала массива. Примером одномерного массива является список учеников в классном журнале.

Фамилии учеников это элементы массива, а номер указывает на положение данного элемента в этом массиве. В данном случае, можно присвоить этому массиву имя "Ученик", тогда значением первого элемента (Ученик[1]), этого массива, будет "Лутковский", а четвертого элемента (Ученик[4]) - "Никитин".

 Однако позиция элемента может определяться в координатной системе более чем одного измерения. Таким образом, элемент определяется несколькими индексами, например А[4,3,8]. Число индексов, требующихся для определения элемента, называется размерностью или, как принято говорить в математике, рангом  массива.

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

Описание массива

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

Описание массива, как и всех переменных, производится в блоке описания Var. Для этого используется зарезервированное слово array. Описание массива выглядит так:

Одномерный массив

        Massiv1        : array [n1..n2] of тип переменной;

Двухмерный массив

        Massiv2        : array [m1..m2,n1..n2] of тип переменной;

Трехмерный массив

        Massiv3: array [m1..m2,n1..n2,p1..p2] of тип переменной;

Где         Massiv1, Massiv2, Massiv3 – имена массивов,

m1..m2,n1..n2,p1..p2 – пределы изменения индексов массива,

тип переменной – тип элементов массива.

Имя массива является единым для всех его элементов.

Нижний предел изменения индексов, как правило, принимают за 1.

Одномерный массив

        Massiv1        : array [1..n] of тип переменной;

Двухмерный массив

        Massiv2 : array [1..m,1..n] of тип переменной;

Трехмерный массив

        Massiv3        : array [1..m,1..n,1..p] of тип переменной;

Разность между верхним и нижним индексом плюс 1 и есть максимально возможное количество элементов с данным индексом.

Тип элемента массива может быть как любым простым типом (real, integer, char,..), так и составным типом (массивом, записью,..).

Общее количество памяти, выделяемое для данного массива, есть произведение объема памяти, занимаемой одним элементом массива, в зависимости от его типа, на общее количество элементов массива, которое определяется как произведение максимально возможного количества элементов по всем индексам

Нахождение максимального элемента в массиве

Попробуем решить нашу задачу, поставленную в параграфе 2.7.1.  Для начала нам надо описать массив чисел, который вы будете вводить с клавиатуры. Как мы говорили числа целые и их не более 40. Выделим память для хранения переменных: счетчика, конкретного количества чисел которое вы будете вводить и значения минимального элемента.

Program  Primer_8; {программа нахождение минимального по величине числа в массиве}

var

Chislo :array [1..40] of integer;

i,n, resultat: integer;

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

procedure init;

begin

    write ('input n -');

    readln (n);        {ввод количества чисел}

    for i:=1 to n do

       begin

            write ('input Chislo[',i,']=');

            readln (Chislo[i]);

       end;

end;

Обратите внимание на процедуру write('input Chislo[',i,']=') , использование такой конструкции позволяет выводить не только приглашение ввода нового элемента, но и за счет изменения значения счетчика помогает не запутаться с вводом значения конкретного элемента.

После ввода исходных данных, приступим к основной работе: поиску элемента с минимальным значением. Для этого воспользуемся искусственным приемом: Будем считать, что первый элемент и является элементом с минимальным значением. Действительно, если в массиве нет других элементов, то так оно и есть. В переменную с именем resultat поместим значение первого элемента. Если элементов в массиве несколько сравним значение переменной resultat со значением второго элемента массива. Если значение второго элемента меньше значения переменной resultat , то поместим в переменную resultat значение второго элемента, иначе оставим значение resultat без изменения. Будем повторять эти действия, пока не просмотрим все элементы массива:

procedure work;

begin

 resultat:= Chislo[1];

 for i:=2 to n do

         if Chislo[i]< resultat then

                    resultat:= Chislo[i];

end;

Нам остается вывести результат на экран, в этом затруднений, наверное, не будет. Текст модуля такой же, как и для программы Primer_7. Текст тела программы так же не изменился.

Задание

1. Что надо изменить в программе " Primer_5" для того, что бы программа находила максимальное по значению число?

2. Напишите программу, которая не только находит минимальное по значению число, но и определяет номер (индекс) этого числа. Программу сохраните в файле " Primer_7".

3. Напишите программу, которая находит минимальное по значению число в двухмерном массиве и определяет номер (индекс) этого числа. Максимальная размерность массива [1..10,1..10]. Программу сохраните в файле " Primer_8".

4. Напишите программу которая находит минимальное по значению число в трехмерном массиве и определяет номер(индекс) этого числа. Максимальная размерность массива [1..10,1..10,1..10]. Программу сохраните в файле " Primer_9".