14. Привести пример полного условного оператора, неполного, составного, полного условного оператора со сложным условием.
    
    

15. Найти ошибку:

    1. if a>10 then b:=5;
       else b:=-5;
       
       

    2. if x:=true then a:=8;
       
       

    3. if p=false then
       d:=k/2;
       a:=(d+c)*l;
       end;
       
       

16. Решить задачи, предварительно составив блок-схему и алгоритм:

    1. Определить, хватит ли вам времени загрузить компьютер.

    2. Определить, нужно ли вам докупить память для новой суперигры.

    3. Определить, хватит ли Юре денег, чтобы купить видео карты, блоки памяти.

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

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

    6. Определить, на каком из трех компьютеров больше памяти.

    7. Используя составной оператор, упростите следующий фрагмент программы:
       if a>b then c:=1;
       if a>b then d:=2;
       if a<=b then c:=3;
       if a<=b then d:=4;

    8. Определить значение функции:
       3, -20<x<0
       f(x)= 5*x-2, 0<x<=3
       0, x>3

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

    2. Если целое число М делится нацело на целое число N, то вывести на экран частное от деле­ния, в противном случае - сообщение "М на N нацело не делится".

    3. Найти количество положительных (отрицатель­ных) чисел среди четырех целых чисел А, В, С и D.

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

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

    6. Составьте программу вычисления выражения:
       a) max(x+y+z, xyz)+3;
       в) min(x²+y²,y²+z²)-4,
       если х, у, z введены с клавиатуры

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

15. Найти ошибку:

    1. var a,b,c:real;
       begin
       readln(a,b,c);
       case a of
       1: writeln(b+c);
       2: writeln(b*c);
       3: writeln(b/c);
       end;
       end.
       
       

    2. var p:integer;
       begin
       readln(p);
       case p
       0: writeln('ноль');
       1:writeln('один');
       2:writeln('два');
       else writeln('стоп');
       end.

14. Определить, в каких из ниже перечисленных задачах целесообразнее применить оператор case:

    1. Определить, является ли введенный день выходным?

    2. Вывести слово «каникулы!», если введенная дата (месяц и число) приходится на зимние каникулы.

    3. По номеру месяца определить время года и название месяца
       
       

15. Решить задачи из пункта 6, предварительно составив блок-схему к каждой задаче.

Пример: задача 4b

Uses crt;

Var pamyat_igra, pamyat_kompa :real;

Begin

Writeln('введите количество памяти необходимое для игры');

Readln(pamyat_igra);

Writeln('введите количество памяти компьютера ');

Readln(pamyat_komp);

If pamyat_igra >pamyat_komp writeln ('памяти не хватит') else writeln ('хватит');

End.

Проверочная работа

1. Написать формат записи операторов if и case.

2. Решить задачи:

   1. Определить, попадает ли x в промежуток от a до b.

   2. Найти наибольшее из трех введенных чисел.

   3. По номеру дня, определить день недели.

   4. Симитировать работу калькулятора.

ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ

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

ЦИКЛ. ВИДЫ ЦИКЛОВ

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

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

Цикл "С параметром". Оператор цикла с параметром

Оператор цикла с параметром имеет такую структуру:

For <имя_переменной> := <выр1> To <выр2> Do <оператор> ;

<имя переменной> - параметр цикла
<выражение1> - начальное значение параметра цикла
<выражение2> - конечное значение параметра цикла
Все три указанных выше объекта должны быть одного порядкового типа.
<оператор> - тело цикла.

Э

тот оператор цикла выполняется следующим образом:

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

Читается данная структура так: "Для переменной (далее следует ее имя) от начального значения до конечного выполнять оператор (являющийся телом цикла)". Иногда цикл с параметром даже называют "Для" или "For". В первом случае параметр с каждой итерацией увеличивается на единицу, во втором - уменьшается.

Выполняется этот цикл по следующему алгоритму:
1. переменной-параметру присваивается начальное значение;
2. выполняется тело цикла;

3. переменная-параметр автоматически увеличивается на 1 (в первом случае формата);

4. если параметр превышает конечное значение, то происходит выход из цикла, иначе - переход к пункту 2.

Примечание:

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

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

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

Цикл "ПОКА". Оператор цикла с предусловием

While <логическое выражение> Do <оператор> ;

Здесь тело цикла выполняется до тех пор, пока логическое выражение возвращает значение True.

Группа операторов, называемая "телом цикла", судя по этой схеме, будет выполняться пока истинно условие цикла. Выход из цикла произойдет, когда условие перестанет выполняться.

Если условие ложно изначально, то тело цикла не будет выполнено ни разу. Если условие изначально истинно и в теле цикла нет действий, влияющих на истинность этого условия, то тело цикла будет выполняться бесконечное количество раз. Такая ситуация называется "зацикливанием". Прервать зациклившуюся программу может либо оператор (нажав Ctrl+C), либо аварийный останов самой программы, в случае переполнения переменной, деления на ноль и т.п., поэтому использовать структуру цикла следует с осторожностью, хорошо понимая, что многократное выполнение должно когда-нибудь заканчиваться.

На языке Pascal структура цикла "Пока" записывается следующим образом:

While <условие> Do <оператор>;

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

While <условие> Do
Begin

<оператор #1>;
<оператор #2>;
<оператор #3>;
. . .

End;

Цикл "ДО". Оператор цикла с постусловием

Repeat
<операторы>
Until <логическое выражение> ;

Здесь тело цикла выполняется до тех пор, пока логическое выражение возвращает значение False.

Этот вид цикла отличается от предыдущего в основном тем, что проверка условия повторения тела цикла находится не перед ним, а после. Поэтому цикл "До" называют циклом "с постусловием", а "Пока" - "с предусловием".

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

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

Формат цикла на языке Pascal:

Repeat

<оператор #1>;
<оператор #2>;
<оператор #3>;
. . .

Until <условие>;

Читается так: "Выполнять оператор #1, оператор #2. : до выполнения условия".

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

Пример:

Найти сумму квадратов всех натуральных чисел от 1 до 100.

Решим эту задачу с использованием всех трех видов циклов.

I. С использованием цикла "С предусловием".

Program Ex1;
Var
A : Integer;
S : Longint;
Begin

A:=1; S:=0;
While A<=100 Do
Begin

S:=S+A*A;
A:=A+1

End;
Writeln(S)

End.

II. С использованием цикла "С постусловием".

Program Ex2;
Var
A : Integer;
S : Longint;
Begin

A:=1; S:=0;
Repeat

S:=S+A*A;
A:=A+1

Until A>100;
Writeln(S)

End.

III. С использованием цикла "С параметром".

Program Ex3;
Var
A : Integer;
S : Longint;
Begin

S:=0;
For A:=1 To 100 Do S:=S+A*A;
Writeln(S)

End.

ЦИКЛ С ПАРАМЕТРОМ

Повторение

1. Какие операции можно применять к пере­менным целого типа?

2. Можно ли применять операцию деления (/) к переменным целого типа? Почему?

3. Что получится в результате выполнения опе­раторов:

• Write('AB ':3); Writeln(5*2:3);

• Writeln(5:6,8:5); Writeln('KOHEЦ');

• Writeln('PE3УAbTAT', 5*3,3).

4. Что такое If, Then, Else?

5. Как выглядит полный условный оператор? Как он работает?

6. Как выглядит неполный условный оператор? Как он работает?

7. Записать на языке Паскаль следующие вы­ражения:

• « если число является четным, то вывести "ДА", иначе вывести "НЕТ";

• если число делится на 5, то вывести це­лую часть от деления.

8. Записать на языке Паскаль следующую формулу:

Задачи

1. Напишите алгоритмы решений следующих задач и составить к каждой блок-схему:

1. 1. вывести на экран слово «цикл» 10 раз.

   2. вводить 10 чисел и подсчитывать сумму этих чисел.

2. Найти ошибку:

   1. var I:real;
      begin
      for I:=1 to 10 do
      writeln('цикл');
      end.
      
      

   2. var I:integer;
      begin
      for I:=10 to 1 do
      writeln('цикл');
      end.
      
      

   3. var I:integer;
      begin
      for I:=1 to 10
      writeln('цикл');
      end.
      
      

3. Сколько раз будет выполняться тело цикла:

   1. for I:=1 to 5 do
      writeln('*');
      
      

   2. for I:=1 to 5 do;
      writeln('*');
      
      

   3. for I:=1 to 1 do
      begin
      writeln('*');
      end;
      
      

   4. for I:=1 to 0 do
      writeln('*');
      
      

4. Сколько раз будут выполнены операторы из тела циклов в следующих фрагментах программ:

• For k:=-l To I Do...

• For k:=10 To 20 Do...

• For k:=20 To 10 Do...

• k:-=5; r:=15; For i:=k+1 To r-1 Do...

• k:=5; r:=15; For i:=0 To k*r Do... .

• k:=r; For i:=k To r Do...

5. Определить значение переменной S после выполнения следующих операторов:

s:=0; n:=10 For i:=2 То n Do s:=s+100 Div i

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

1²=1

2²=1+3

3²=1+3+5

4²=1+3+5+7

…….

n² =1+3+5+7+9+...+2n-1

5. Определить количество трехзначных нату­ральных чисел, сумма цифр которых равна заданному числу N.

6. Составить программу вычисления суммы ку­бов чисел от 25 до 125.

7. Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13. От­вет: 23, 32…

8. Написать программу поиска двузначных чисел, таких, что если к сумме цифр этого числа при­бавить квадрат этой суммы, то получится это число. Ответ: 12, 42, 90.

9. Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составля­ют это число. Написать программу поиска таких чисел. Ответ: 376, 625.

10. Написать программу поиска четырехзначного числа, которое при делении на 133 дает в ос­татке 125, а при делении на 134 дает в остат­ке 111. Ответ: 1987.

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

12. Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся с клавиатуры).

13. Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и за­канчивающихся на 2, 4 или 8.

14. В каких из перечисленных задач нужно использовать операторные скобки:

    1. вывести на экран 15 звездочек в столбик.

    2. сложить число само с собой 18 раз и вывести результат на экран.

    3. умножить число само на себя 25 раз и вывести все промежуточные результаты
       
       

ЦИКЛЫ С УСЛОВИЯМИ

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

• перед первым выполнением цикла усло­вие его окончания (или продолжения) должно быть определено;

• тело цикла должно содержать хотя бы один оператор, влияющий на условие окончания (продолжения), иначе цикл бу­дет бесконечным;

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

Задачи

1. Написать алгоритмы решения следующих задач:

   1. До каких пор мама будет тратить папины деньги?.

   2. Выбирать из множества мышек мышки с com портами до тех пор, пока не встретится мышка с pc портом.

   3. Сколько карт из колоды вынет игрок, пока не встретит туза?

   4. Передвигать круг до тех пор, пока не нажата любая клавиша.
      
      

2. Найти ошибку:

   1. while a>0
      begin
      readln(a);
      s:=s+a;
      end;
      
      

   2. while (a<>0) and (b>0) do
      readln(a,b);
      writeln(b/a);
      end;
      
      

   3. while I<>10 do
      begin
      s:=s+I;
      I:=I+1;
      
      

3. Сколько раз будет выполнено тело цикла?

   1. f:=false;
      while f do
      begin
      writeln('hello');
      end;
      
      

   2. f:=true;
      while f do
      begin
      writeln('hello');
      end;
      
      

   3. while I>0 do;
      begin
      I:=I+1;
      end;

4. Что будет выведено на экране монитора после выполнения следующего фрагмента программы:
   b:=0;
   While a<>0 Do
   Begin
   b:-=b*10+a Mod 10;
   a:=a Div 10;
   End;
   Write(b);
   Если а=13305? Решение какой задачи выражает этот фрагмент программы?
   Если n=6? Решение какой задачи выражает этот фрагмент программы?

5. Определить значение переменной s после выполнения следующих операторов:

s:=0; i:=l;

Repeat s:=s+5 Div i; i:=l-J; Until i<=1;

5. Произведение N первых нечетных чисел рав­но р. Сколько сомножителей взято?

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

7. Показать, что любой оператор цикла с пре­дусловием можно записать с помощью условного оператора и оператора цикла с постусловием.

8. Показать, что любой оператор цикла с по­стусловием можно записать с помощью условного оператора и оператора цикла с предусловием.

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

10. Найти все трехзначные числа, удовлетво­ряющие каждому из условий:

    1. любые две цифры различны;

    2. число равно среднему арифметическому всех трехзначных чисел (включая данное), имеющих тот же цифровой состав.

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

12. Дано натуральное число n>=2. Составить программу разложения этого числа на простые множители:

    1. простой множитель р должен быть выведен k раз, где k - натуральное число, такое, что p делится на р^k и не делится на p^k+1;

    2. каждый простой множитель должен быть выведен ровно один раз.

13. Даны натуральные числа N и р. Получить все на­туральные числа, меньшие N, взаимно простые с р.

14. Даны целые числа р и q. Получить все дели­тели числа q, взаимно простые с р.

15. Найти наименьшее натуральное число N, представимое двумя различными способами в виде суммы кубов двух натуральных чисел x³ и у³ (x>=y).

16. Найти все простые несократимые дроби, за­ключенные между 0 и 1, знаменатели которых не превышают 7 (дробь задается двумя натуральными числами - числителем и знаменателем).

ОПЕРАТОР REPEAT

1. Чем отличается оператор REPEAT от WHILE?

2. Найти ошибку:

   1. repeat
      s:=s*a;
      
      

   2. repeat
      begin
      readln(a);
      s:=s+a;
      end;
      until a<>100;
      
      

3. Сколько раз будет выполняться тело цикла?

   1. f:=false;
      repeat;
      writeln('*');
      until f;
      
      

   2. f:=false;
      repeat
      writeln('*');
      until f;
      
      

   3. f:=true;
      repeat
      writeln('*');
      until f;

ВЛОЖЕННЫЕ ЦИКЛЫ

• Какие циклы вы знаете? В каких случаях применяется каждый из циклов?

• Составьте фрагмент программы возведения заданного числа в степень n. Поясните свое решение.

Пример

Даны натуральные числа n и k. Составить программу вычисления выражения 1^k+2^k+…+n^k.

Решение:

Для вычисления указанной суммы целесообразно организовать цикл с параметром i, в котором, во-первых, вычислялось бы очередное значение y=i^k и, во-вторых, осуществлялось бы накопление суммы прибавлением полученного слагаемого к сумме всех предшествующих (s=s+y).

Program a1;

Var n,k,y,I,s,m:integer;

Begin

Writeln('Введите исходные данные n,k');

Readln(n,k);

s:=0;

For I:=1 to n do

Begin y:=1;

For m:=1 to k do y:=y*I; {нахождение степени k числа i}

s:=s+y;

end;

writeln('Ответ: ',s);

end.

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

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

Задачи

1. Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

а:=1; b:=1;

For i:=0 To n Do Begin

For j:=1 То b Do Write('*');

WriteLn;

c:=a+b; a:=b; b:=c;

End;

если n=6? Решение какой задачи выражает этот фрагмент программы?

2. Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

b:=0;

While a<>0 Do

Begin

b:-=b*10+a Mod 10;

a:=a Div 10;

End;

Write(b);

Если а=13305? Решение какой задачи выражает этот фрагмент программы?

3. Исходное данное - натуральное число q, выражающее площадь. Написать программу для нахождения всех таких прямоугольников, площадь которых равна q и стороны выражены натуральными числами.

4. Составить программу для графического изображения делимости чисел от 7 до п (n - исходное данное). В каждой строке надо печатать число и столько плюсов, сколько делителей у этого числа. Например, если исходное данное - число 4, то на экране должно быть напечатано:

1+

2++

3++

4+++

5. Составить программу получения всех совер­шенных чисел, меньших заданного числа и. Число называется совершенным, если равно сумме всех своих положительных делителей, кроме самого этого числа. Например, 28 -совершенно, так как 28=1+2+4+7+14.

Из истории. Грекам были известны первые четыре совершенных числа: 6, 28, 496, 8128. Эти числа высоко ценились. Даже в XII веке церковь утверждала, что для спасения души необходимо найти пятое совершенное число. Это число было найдено только в XV веке. До сих пор совершенные числа полностью не исследованы - не известно, имеется ли конечное число совершенных чисел или их число бесконечно, кроме того, неизвестно ни одного нечетного совершенного числа, но и не доказано, что таких чисел нет.

6. Дано натуральное число п. Можно его представить в виде суммы трех квадратов натуральных чисел? Если можно, то:

a) указать тройку х, у, z таких натуральных чисел, что x²+ y²+ z²=n;

b) указать все тройки х, у, z таких натуральных чисел, что x²+ y²+ z²=n.

7. Найти натуральное число от 1 до 10000 с максимальной суммой делителей.

8. Даны натуральные числа а, b (а<Ь). Получить все простые числа р, удовлетворяющие неравенст­вам: а<=р<=b.

9. Даны натуральные числа п, т. Получить все меньшие и натуральные числа, квадрат суммы цифр которых равен т.

10. Даны натуральные числа п и т. Найти все пары дружественных чисел, лежащих в диапазоне от п до т. Два числа называются дружественными, если каждое из них равно сумме всех делителей другого (само число в качестве делителя не рассматривается).

11. В данном натуральном числе переставить цифры таким образом, чтобы образовалось наименьшее число, записанное этими же цифрами.

12. Составить программу, печатающую для данного натурального числа k-ю цифру последовательности:

a) 12345678910..., в которой выписаны подряд все натуральные числа;

b) 14916253649..., в которой выписаны подряд квадраты всех натуральных чисел;

c) 1123581321..., в которой выписаны подряд все числа Фибоначчи.

13. Составить программу возведения заданного числа в третью степень, используя следующую закономерность:

1³=1

2³=3+5

3³=7+9+11

4³=13+15+17+19

5³=21+23+25+27+29

14. Составить программу для нахождения всех натуральных решений уравнения n²+m²=k² в ин­тервале [1, 10].

Проверочные работы (циклы и условия)

Проверочная работа №1

Вариант № 1

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

• найти сумму цифр этого числа;

• верно ли, что число начинается и заканчивается одной и той же цифрой.

2. Найти все трехзначные числа, такие, что сумма цифр равна А, а само число делится на В (А и В вводятся с клавиатуры).

3. Дано натуральное число. Приписать к нему такое же число.

Вариант № 2

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

• найти произведение цифр числа;

• верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры).

2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.

3. Из данного натурального числа удалить все цифры А (А вводится с клавиатуры).

Вариант № 3

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

• найти количество цифр данного числа;

• верно ли, что данное число заканчивается на нечетную цифру.

2. Найти количество трехзначных чисел, сумма цифр которых равна А, а само число закан­чивается цифрой В (А и В вводятся с клавиатуры).

3. Найти все симметричные натуральные числа из промежутка от А до В (А и В вводятся с клавиатуры).

Вариант № 4

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

• найти количество четных цифр числа;

• верно ли, что данная цифра А встречается в числе более двух раз (А вводить с кла­виатуры).

2. Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.

3. Найти количество различных цифр данного натурального числа.

Проверочная работа №2

Вариант № 1

1. Найти количество делителей натурального числа. Сколько из них четных?

2. Найти все натуральные числа а, Ь и с из интервала от 1 до 20, для которых выполняется ра­венство: a²+b²=c².

Вариант № 2

1. Найти сумму нечетных делителей натурального числа.

2. Найти все равновеликие прямоугольники, стороны которых выражены целыми числами а и b, а площадь равна S (а и b принадлежат интервалу от 1 до 20, а S вводится с клавиатуры).

Вариант № 3

1. Найти все натуральные числа из промежутка от 1 до 200, у которых количество делителей равно N (N вводить с клавиатуры).

2. Найти все натуральные числа а, b и с из ин­тервала от 1 до 20, для которых выполняется ра­венство: a+b²=c².

Вариант № 4

1. Найти все натуральные числа из промежутка от 1 до 200, у которых сумма делителей равна S (S вводить с клавиатуры).

2. Найти все такие тройки натуральных чисел х, у и z из интервала от 1 до 20, для которых выполняется равенство: x²-y=z².

ПРОЦЕДУРЫ И ФУНКЦИИ

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

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

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

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

Формат описания процедуры:
Procedure <Имя процедуры> (<Имя форм. параметра 1>:<Тип>;
< Имя форм. параметра 2>:<Тип>);
<Раздел описаний>
Begin
<Тело процедуры>
End;

Раздел описаний может иметь такие же подразделы, как и раздел описаний основной программы (описание процедур и функций - в том числе). Однако все описанные здесь объекты "видимы" лишь в этой процедуре. Они здесь локальны также, как и имена формальных параметров. Объекты, описанные ранее в разделе описаний основной программы и не переопределенные в процедуре, называются глобальными для этой подпрограммы и доступны для использования.

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

Формат описания функции:
Function <Имя функции> (<Имя форм. параметра 1>:<Тип>;
< Имя форм. параметра 2>:<Тип>?) : <Тип результата>;
<Раздел описаний>
Begin
<Тело функции>
End;

В теле функции обязательно должна быть хотя бы команда присвоения такого вида: <Имя функции>:=<Выражение>;

Указанное выражение должно приводить к значению того же типа, что и тип результата функции, описанный выше.

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

<Имя процедуры>(<Фактический параметр 1>, < Фактический параметр 2>);

Типы фактических параметров должны быть такими же, что и у соответствующих им формальных.

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

Приведем простейший пример использования подпрограммы.

"Найти максимальное из трех введенных чисел".

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

Program Fn;
Var
A,B,C :Real;
Function Max(A,B:Real):Real; {Описываем функцию Max с формальными}
Begin {параметрами A и B, которая принимает }

If A>B Then Max:=A {значение максимального из них }
Else Max:=B {Здесь A и B - локальные переменные }

End;
Begin

Writeln('Введите три числа');
Readln(A,B,C);
Writeln('Максимальным из всех является ', Max(Max(A,B),C))

End.

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

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

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

Еще один классический пример.

"Расположить в порядке неубывания три целых числа".

Program Pr;
Var
S1,S2,S3 :Integer;
Procedure Swap(Var A,B: Integer);{Процедура Swap с параметрами-переменными}
Var C : Integer; {C - независимая локальная переменная}
Begin
C:=A; A:=B; B:=C {Меняем местами содержимое A и B}
End;
Begin

Writeln('Введите три числа');
Readln(S1,S2,S3);
If S1>S2 Then Swap(S1,S2);
If S2>S3 Then Swap(S2,S3);
If S1>S2 Then Swap(S1,S2);
Writeln('Числа в порядке неубывания:V',S1,S2,S3)

End.

Задачи.

1). Найти среднее арифметическое двух чисел. (PROCEDURE)

Var x,y,sr:real;

Procedure Serd(a,b:real;VAR S:REAL);…{список формальных параметров}

Begin

S:=(a+b)/2; {тело процедуры}

End;

Begin

Readln(x,y);

Sred(x,y,sr); …{список фактических параметров}

Writeln(sr);

End.

2).Найти :. (PROCEDURE)

Var x,y,z:integer:

Sr1,sr2,sr3,SR:real;

Procedure Serd(a,b:real;VAR S:REAL);…

Begin

S:=(a+b)/2;

End;

Begin

Readln(x,y);

Sred(x,y,sr1);

Sred(x,y,sr2);

Sred(x,y,sr3);

SR:=(sr1+sr2)/sr3;

Writeln(sr);

End.

3).Найти аⁿ. (PROCEDURE)

var n,a,rez:integer;

procedure step(x,y:integer; var st:integer);

var I:integer;

begin

st:=1;

for I:=1 to y do st:=st*x;

end;

begin

writeln('введите число а');

readln(a);

writeln('введите степень');

readln(n);

step(a,n,rez);

writeln(rez);

end.

4). Получить все делители введенного числа. Посчитать их количество. (PROCEDURE)

Var z,b,c,p,i:integer;

Procedure delit(n:integer; var k:integer);

Begin

Readln(n);

For I:=1 to n do begin

P:=n mod I:

If p=0 then begin

Writeln('делители',I);

K:=k+1;

End;

End;

End;

Writeln('введите n');

Readln(z);

Delit(z,b);

Writeln('количество делителей",b);

End.

5). Найти сумму двух чисел. (FUNCTION)

Var a,b:integer;

Function summa(x,y:integer):integer;

Begin

Summa:=x+y;

End;

begin

Writeln(' введите два числа');

Readln(a,b);

Writeln(summa(a,b));

End.

6). Найти площадь треугольника. . (FUNCTION)

Var x,y,z:intger; p:real;

Unction treug(a,b,c:integer):real;

Begin

P:=(a+b+c)/2;

Treug:=sqrt(p*(p-a)*(p-b)*(p-c));

End;

Begin

Read(x,y,z);

Writeln(treug(x,y,z));

End.

Процедуры: задачи

1. Определение процедуры.

2. Чем отличается процедура от функции.

3. В каком случае нужно использовать процедуру, а в каком функцию.

4. Вызов процедуры.

5. Как определить, нужно ли ставить var в описании процедуры перед переменной.

6. Дать понятие параметра-переменной, параметра-значения, внутренних переменных.

7. Найти ошибку:
   
   

1. 1. Procedure line (n:integer);
      var j:integer;
      begin
      for j:=1 to n do
      write('-');
      end;
      var p:real;
      begin
      writeln('введите длину линии');
      readln(p);
      line(p);
      end.
      
      

   2. Procedure line (var n:integer; s,s1:integer);
      var j:integer;
      begin
      for j:=1 to n do begin
      s:=s+j;
      s1:=s1*j;
      end;
      end;
      var s,s1,p:integer;
      begin
      s:=0;
      s1:=1;
      writeln('введите количество слагаемых');
      readln(p);
      line(s1,s,p);
      end.
      
      

2. Решить задачи:
   
   

1. Вычислить площадь круга и длину окружности.

2. Написать процедуру решения квадратного уравнения.

3. Организовать меню математических действий (сложения, умножения, деления, вычитания, решения квадратного уравнения, линейного.)

4. Определить, является ли число совершенным.

5. Определить, является ли число простым.

6. Среди чисел из интервала от а до в найти все простые.

7. Определить, является ли данное число аморфным. (квадрат числа заканчивается этим числом-25-625)

8. Найти все аморфные числа из промежутка от а до в.

9. Вычислить значение выражения:y=a₁* x⁴+a₂*x^з+a₃*x²+a₄*x+a₅,
   где коэффициенты a₁, a₂, a₃, a₄, a₅ и х - это числа, вводимые с клавиатуры.

10. Упорядочить значения трех переменных в порядке их возрастания.

11. Даны координаты трех вершин треугольника. Найти длины всех его сторон.

12. Дано натуральное число. Найти все его делители. Подсчитать их количество.

13. Даны два натуральных числа. Определить, является ли первое число перевертышем второго?

14. Даны координаты трех вершин треугольника а, в, с, и даны координаты четвертой точки d. Определить, является ли эта точка внутренней точкой треугольника

Функции: задачи

1. Для чего используется функция.

2. Дать понятие функции.

3. Где описывается функция, что указывается в заголовке функции, в теле функции.

4. Чем отличаются формальные переменные от фактических.

5. Как определить тип функции.

6. Найти ошибку:
   
   

1. 1. var a,b,c:integer;
      function summa (var a,b,c:integer):integer;
      begin
      summa:=a+b+c;
      end;
      begin
      readln (a,b,c);
      writeln(summa(a,b) );
      end.
      
      

   2. var a,b,c:real;
      function summa (var a,b,c:real):integer;
      begin
      summa:=a+b+c;
      end;
      begin
      readln (a,b,c);
      writeln(summa(a,b,c) );
      end.
      
      

   3. var a,b,c:integer;
      function summa (var a,b,c:real):integer;
      begin
      summa:=a+b+c;
      end;
      begin
      readln (a,b,c);
      writeln(sum(a,b) );
      end.
      
      

2. решить задачи:

   1. вычислить площадь круга.

   2. вычислить объем шара.

   3. вычислить а⁴, аⁿ, (аⁿ+ bⁿ)* cⁿ,

   4. вычислить а!, (а!+b!)/c!

   5. решить систему уравнений: (аx²+bx+c)*( (px²+kx+g)+ (аy²+by+c));
      py²+ky+g=0;

   6. Найти сумму цифр числа.

   7. Найти первую цифру числа.

   8. Найти количество делителей числа.

   9. Найти числа из промежутка от А до В, у которых больше всего делителей.

   10. Найти сумму всех делителей числа.

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

   12. Определить, является ли число простым.

   13. Среди чисел из интервала от А до В найти все простые.

   14. Составьте программу, проверяющую, является ли число палиндромом (например, число 12721 - палиндром).

   15. Определить, является ли число автоморфным, то есть квадрат этого числа заканчивается этим же числом, например, число 6, так как его квадрат 36 заканчивается на 6 или число 25 - его квадрат 625.

   16. Используя функцию из предыдущей задачи, найти все автоморфные числа из промежутка от А до В.

   17. Дано четыре числа. Вывести на экран наи­большую из первых цифр заданных чисел. Например, если а=25, b==730, c=127, d=1995, то должна напечататься цифра 7.

   18. Дано натуральное число п. Выяснить, имеются ли среди чисел п, п+1...., 2п близнецы, т.е. простые числа, разность между которыми равна двум.

   19. Вычислить значение суммы:

СТРОКОВЫЕ ОПЕРАЦИИ

До сих пор мы с вами рассматривали программы, реализующие алгоритмы обработки числовых данных. Однако хоть ЭВМ изначально и были созданы только для этой цели, по мере развития аппаратной части появилась возможность оцифровывать данные других типов, хранить их в памяти машины, перерабатывать, выводить во внешний по отношению к компьютеру мир. Проще всего можно было так поступить с текстовой информацией. Если не ставить перед машиной задачу "понимания" смысла текста, то задача оцифровки сводится к установлению правил замены символов (литер) при вводе в компьютер на их коды и обратной замены при выводе информации на экран или принтер. Такие правила, конечно же, были составлены. Как водится, сначала их было множество (вспомните разнообразие таблиц кодировки), затем весь мир остановился на ASCII.

Все языки программирования высокого уровня имеют средства работы с литерными величинами. Паскаль - не исключение. Как вам уже известно, в стандарте языка описаны два типа переменных для литерных величин. Это - String и Char. Напомню - переменная типа Char может содержать в себе только один единственный символ, тип String предназначен для хранения строковых величин до 255 символов длиною. При описании переменной типа String вы можете сами указать максимальное число символов, которое можно занести в нее. Конечно же, это число не должно превышать 255. Делается это так:

Var S : String[30];

Для чего это нужно?

Дело в том, что при компиляции для каждой переменной отводится свой участок памяти. Если мы будем выделять для всех переменных типа Strin String g по 256 байт, то это приведет к тому, что при использовании достаточно большого их количества, памяти может и не хватить. Но если в переменной мы собираемся хранить, например, фамилию пользователя, то тридцати символов (тридцати байт) для этого вполне достаточно. Таким образом, экономится память и увеличивается быстродействие программ.

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

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

Пример: S[5] - пятый символ строки S.

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

Обратите внимание на то, что нумерация символов в строке начинается с единицы. Внутри квадратных скобок вместо числа может находиться выражение, результатом которого является целое число. Главное, чтобы символ с таким номером в строке существовал. Но как же узнать, сколько символов в данный момент находится в строковой переменной? Для этого существует специальная функция, которая возвращает длину строковой переменной в символах. Это функция Length.

Ее формат: Length(S)

Здесь S - либо строковая величина, либо строковая переменная.

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

Program Str1;
Var
S : String;
Begin

Writeln('Введите последовательность символов');
Readln(S);
Writeln('Вы ввели строку из ',Length(S), ' символов')

End.

Решим задачу:

"Введенную строку вывести на экран по одному символу в строке экрана".

Program Str2;
Var

S : String;
I : Byte;

Begin

Writeln('Введите строку');
Readln(S);
For I:=1 to Length(S) do {организуем цикл, начиная с первого символа}
Writeln(S[I]) {строки, до последнего (номер последнего}
{совпадает с количеством символов строки S) }

End.

Какие же еще действия можно выполнять с переменными строкового типа?

Две строковые величины можно состыковывать. Эта операция называется конкатенацией и обозначается знаком "+".

Например, результатом выполнения следующих команд:
R:= 'kadabra';
H:= 'abra';
S:=H+R;
в переменной S будет значение 'abrakadabra'.

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

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

• та, которая длиннее?

• та, которая содержит больше заглавных букв?

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

Код символа в Паскале можно определить при помощи функции Ord.

Ее формат: Ord(C), где С - либо непосредственно указанный символ, либо переменная символьного типа, либо один символ строковой переменной. Вообще, функция Ord имеет более глубокий смысл, но об этом - позже. Есть и обратная функция, которая возвращает символ по известному коду. Это функция Chr(N), где N - выражение, приводящее к целому числу в интервале от 0 до 255 (возможные значения кода символа). Очевидно, что Chr(Ord(C))=C, Ord(Chr(N))=N.

Следующая маленькая программа выводит на экран кодовую таблицу:

Program Str3;
Var
I : Byte;
Begin

For I:=32 to 255 do
Write('VV',I:4, '-',Chr(I))

End.

Цикл в программе начинается с 32 потому, что символы с кодами от 0 до 31 являются управляющими и не имеют соответствующего графического представления.

Задача:

"Определить, является ли введенная строка "перевертышем". Перевертышем называется такая строка, которая одинаково читается с начала и с конца. Например, "казак" и "потоп" - перевертыши, "канат" - не перевертыш".

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

Program Str4;
Var
S,B : String;
I : Byte;
Begin

Writeln('Введите строку');
Readln(S);
B:=''; {Переменной B присваиваем значение "пустая строка"}
For I:=1 to Length(S) do
B:=S[I]+B; {Конкатенация. Символы строки S пристыковываются к}
{переменной B слева. Самым левым окажется последний.}
If B=S Then Writeln('Перевертыш') Else Writeln('Не перевертыш')

End.

Число, записанное в строковую переменную, естественно числом не является, но очень часто требуется его все же использовать в качестве числа. Для этого нужно произвести преобразование типа. Перевод строкового представления числа в числовое выполняет в Паскале оператор Val.

Его формат:
Val(S,X,C);

Здесь

S - строка, содержащая число,

X - числовая переменная, в которую будет помещен результат,

С - переменная целочисленного типа, в которую помещается первого встреченного в S отличного от цифры символа.

Если после выполнения оператора Val переменная С имеет значение 0, то это означает, что преобразование типа прошло совершенно успешно и в строке нецифровых символов не встретилось.

Противоположное действие осуществляет оператор Str. Формат оператора:

Str(X,S);

X - число (либо арифметическое выражение),

S - строковая переменная.

В переменную S попадает строковое представление числа X. Это нужно, например, при необходимости выводить на экран числа в графическом режиме (будет изучено позже), так как стандартные процедуры вывода на экран там работают только со строковыми величинами.

Для иллюстрации рассмотрим такую задачу:

"Найти сумму цифр введенного натурального числа".

Используя только числовые переменные, решить ее можно, но предлагаемое здесь решение, по-моему, проще.

Program Str5;
Var

S : String;
I,X,A,C : Integer;

Begin

Writeln('Введите натуральное число');
Readln(S); {Число вводится в строковую переменную}
A:=0;
For I:=1 To Length(S) Do
Begin

Val(S[I],X,C); {Цифровой символ превращается в число}
A:=A+X {Цифры суммируются}

End;
Writeln('Сумма цифр равна ',A)

End.

Теперь рассмотрим еще несколько действий над строками:

• оператор DELETE(S,I,C) из строковой переменной S удаляет C символов, начиная с I-того;

• оператор INSERT(SN,S,I) вставляет подстроку SN в строковую переменную S перед символом с номером I;

• функция COPY(S,I,C) возвращает подстроку строки S из C символов, начиная с символа с номером I;

• функция Pos(SN,S) возвращает номер символа, с которого в строке S начинается подстрока SN (позицию первого вхождения подстроки в строку). Если такой подстроки нет, то возвращается ноль.

Пример их использования:

"Во введенной строке заменить все вхождения подстроки 'ABC' на подстроки 'KLMNO'".

Program Str6;
Var

S : String;
A : Byte;

Begin

Writeln('Введите строку');
Readln(S);
While Pos('ABC',S)<>0 Do
Begin

A:= Pos('ABC',S);
Delete(S,A,3);
Insert('KLMNO',S,A)

End;
Writeln(S)

End.

Задачи:символы

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

2. Что будет выведено на экране в результате выполнения следующих инструкций:

1. a:='A';
   writeln(ord(a));
   writeln(chr(65));

2. writeln(chr(97));
   writeln(ord(chr(97)));
   
   

3. Написать программу, которая проверяет введенный пароль (цифровой), если он не верен, то раздается звуковой сигнал.

4. Написать программу, которая переводит строчную букву в прописную.

5. Вывести таблицу ASCII.

6. Выводить таблицу ASCII по 10 символов, спрашивая у пользователя, хочет ли он продолжать дальше.

Пример 4:
var a:char;
begin

Writeln('Введите букву');

Readln (a);

Case a of

'a'..'п': writeln(chr(ord(a)-32));

'р'..'я': writeln(chr(ord(a)-80));

end;

end.

Задачи: строки

1. Чем отличается тип string от известных вам типов?

2. Чем отличаются записи:
   var
   storka1: string;
   storka2: string[25];

3. Решить задачу 3 предыдущего пункта (пароль символьный), если пароль введен верно, то запрашивать имя и фамилию, если нет, то выдавать сообщение о неверном пароле и звуковой сигнал.

4. Перечислить основные функции работы со строками, указать для чего они используются.

5. Что будет выведено на экране в результате выполнения следующих инструкций?

   1. a:='Маша ела кашу';
      b:='суп';
      delete (a,9,4);
      writeln(concat(a,b));
      
      

   2. stroka:='компьютер';
      writeln(stroka[2]);
      
      

   3. I:integer;
      stroka:='компьютер';
      readln(i);
      writeln(stroka[i]);

6. Составить программу- перевертыш слов.

7. Подсчитать количество букв "а" в строке.

8. Подсчитать количество цифр 3 в числе.

9. Подсчитать сумму цифр числа.

10. Заменить все гласные буквы в строке на *.

11. Изобразить бегущую строку.

12. Удвоить каждое вхождение символа ch в строке.

13. Даны две строи. Если они начинаются с одинаковых символов, то напечатать ДА, иначе - НЕТ.

14. Дана последовательность слов, напечатать все слова в алфавитном порядке.

15. Дана последовательность слов, напечатать все слова предварительно преобразовав по следующему правилу:

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

    2. оставить в слове только первые вхождения каждой буквы.

16. Найти сумму всех чисел строки.

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

18. Сколько раз встречаются гласные буквы?

19. Из строки удалить среднюю букву, если длина строки нечетная, иначе - удалить две средние буквы.

20. Заменить все буквы Сh1 на Ch2 (их значения вводить с клавиатуры).

21. Заменить все вхождения подстроки Str1 на подстроку Str2, которые вводятся с клавиатуры.

22. После каждой буквы Ch вставить строку Strl.

23. Дана последовательность слов. Напечатать все слова, отличные от слова "hello".

24. Дана последовательность слов. Напечатать все слова в алфавитном порядке.

25. Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.

26. Дано предложение. Напечатать все различные слова.

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

    1. в слове нет повторяющихся букв;

    2. буквы слова упорядочены по алфавиту;

    3. слово совпадает с начальным отрезком латинского алфавита (a, ab, abc, abed,...);

    4. слово симметрично.

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

29. Дан текст из 60 букв, напечатать только строчные русские буквы, входящие в этот текст.

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

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

32. Напечатать в алфавитном порядке все различные русские буквы, входящие в заданный текст из 200 литер.

33. Заданное целое число от 1 до 1999 напечатать римскими цифрами.

34. Написать программу, которая вводит дату некоторого дня года и печатает название соответствующего знака Зодиака.

35. Дан текст из заглавных латинских букв, определить является ли этот текст правильной записью римскими цифрами целого числа от 1 до 999, и, если является, напечатать это число арабскими цифрами.
    
    

Проверочные работы

Вариант №1

Из строки удалить введенную с клавиатуры букву.

Заменить в строке буквы "а" на "o".

Вариант №2

Из строки S удалить все вхождения подстроки S1.

Заменить в строке все буквы X на Y, введенные с клавиатуры.

Варианты №3

В строке S удалить все пробелы.

Заменить каждый четный символ строки на символ "2".

Вариант №4

Из всех введенных многозначных чисел, найти число с наибольшей суммой чисел.

Перевернуть те слова, которые стоят на четных местах.

ОПРЕДЕЛЕНИЕ ТИПОВ

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

Новый тип перед первым его использованием должен быть описан в соответствующем разделе описаний. Его заголовок - служебное слово Type.

Type <Имя типа> = <Описание типа>;

Есть несколько способов описания. Иногда говорят даже о видах типов (как бы это странно ни звучало).

Итак, первым рассмотрим так называемый перечисляемый тип.

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

Формат описания следующий:

<Имя типа> = (<Ид.1>, <Ид.2>,? <Ид.N>);

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

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

Ord(X) - порядковый номер значения переменной X в списке идентификаторов.

Succ(X) - следующее значение для величины Х.

Pred(X) - предыдущее значение данного типа.

Обратите внимание на то, что для функции Ord нумерация среди значений идет, начиная от нуля. Для последнего значения нельзя применять функцию Succ, для первого - Pred.

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

Множество стандартных порядковых типов в языке Паскаль на самом деле определены как перечисляемые. Это типы Char, Integer, другие. Достоинства стандартных порядковых типов лишь в том, что над каждым из них уже определены специфические действия. Например, тип Boolean описан так:

Type Boolean = (False, True);

Единственное его отличие от перечисляемых типов, определяемых программистом, состоит в том, что значения типа Boolean можно выводить на экран. Можете проверить, Ord(False)=0.

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

Пример:

Program T1;
Type
Colors = (Black, Blue, Green, Cyan, Red, Magenta, Brown, Yellow, White);
Var
C1,C2 : Colors;
Begin

C1:=Green;
C2:=Red;
Writeln(Ord(C1), Ord(Succ(C2)))

End.

Во время выполнения на экране появятся числа "2" и "5", что соответствует номерам значений Green и Magenta.

Задачи: пользовательские типы

1. Как создать «свой» тип данных?

2. Найти ошибку:
   var I:integer;
   type int=integer;
   
   type li=longint;
   var a=li;
   
   type st=string[10];
   var s:st;
   begin
   for I:=1 to 20 do
   s[i]:=str(i);
   end.
   
   type
   tip:=(1,2,3,4);
   var
   a:tip;

3. Составьте программу, которая выводит на экран номер дня недели по введенному названию (обозначьте тип-num_month ).

4. Составьте программу, которая по названию цвета, выдаст его номер.
   
   

Пример (зад. №4)

Type

Num_cvet=integer;

Var

N:num_cvet;

Begin

Writeln('введите номер цвета от 0 до 4');

Readln(n);

Case n of

0: writeln('черный');
1: writeln('синий');

2: writeln('зеленый');

3: writeln('бирюзовый');

end;

end.

МАССИВЫ

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

Вы знаете, что компьютер предназначен в основном для облегчения работы человека с большими информационными объемами. Как же, используя только переменные известных вам типов, сохранить в памяти и обработать данные, содержащие десяток, сотню, тысячу чисел или, к примеру, строк? А ведь такие задачи встречаются в любой области знания. Конечно, можно завести столько переменных, сколько данных, можно даже занести в них значения, но только представьте, какой величины будет текст такой программы, сколько времени потребуется для его составления, как много места для возможных ошибок? Естественно, об этом задумывались и авторы языков программирования. Поэтому во всех существующих языках имеются типы переменных, отвечающие за хранение больших массивов данных. В языке Паскаль они так и называются: "массивы".

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

Описание типа линейного массива выглядит так:

Type <Имя типа>=array [<Диапазон индексов>] Of <Тип эл-ов>;

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

Описать переменную-массив можно и сразу (без предварительного описания типа) в разделе описания переменных:

Var <Переменная-массив> : Array [<Диапазон индексов>] Of <Тип элементов>;

Примеры описания массивов:

Var

S, BB : Array [1..40] Of Real;
N : Array ['A'..'Z'] Of Integer;
R : Array [-20..20] Of Word;
T : Array [1..40] Of Real;

Теперь переменные S, BB и T представляют собой массивы из сорока вещественных чисел; массив N имеет индексы символьного типа и целочисленные элементы; массив R может хранить в себе 41 число типа Word.

Единственным действием, которое возможно произвести с массивом целиком - присваивание. Для данного примера описания впоследствии допустима следующая запись:

S:=BB;

Однако присваивать можно только массивы одинаковых типов. Даже массиву T присвоить массив S нельзя, хотя, казалось бы, их описания совпадают, произведены они в различных записях раздела описания.

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

R[10] - элемент массива R с индексом 10.

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

BB[15] - прямая адресация;

BB[K] - косвенная адресация через переменную K, значение которой будет использовано в качестве индекса элемента массива BB.

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

Если вы помните, с такой формой организации данных мы встречались, когда изучали строковые переменные. Действительно, переменные типа String очень близки по своим свойствам массивам типа Char. Отличия в следующем: строковые переменные можно было вводить с клавиатуры и распечатывать на экране (с обычным массивом это не проходит); длина строковой переменной была ограничена 255 символами (255 B), а для размера массива критическим объемом информации является 64 KB.

ОДНОМЕРНЫЙ МАССИВ (ВЕКТОР)

Направление изменения индекса.

1

2

3

4

5

…

n

А

Идентификатор:

ARRAY [диапазоны индексов] OF тип элемента массива;

Описание.

Var A:array[1..5] of integer;

const n=5;

Var A:array[1..n] of integer;

const n=5;

type vector=array[1..n] of integer;

var a:vector;

ВВОД И ВЫВОД МАССИВА

Var A:array[1..5] of integer;

i:integer;

Begin

For i:=1 to 5 do read(a[I]); ввод элементов массива.

For i:=1 to 5 do write(a[I]); вывод элементов массива.

В дальнейшем для учебных целей мы будем использовать массивы, заданные с помощью генератора случайных чисел. В языке Паскаль случайные числа формирует функция Random. Числа получаются дробными, равномерно расположенными в интервале от 0 до 1. Выражение, дающее целое случайное число в интервале [-50,50], будет выглядеть так:

Trunc(Random*101)-50

Пример:

Зададим и распечатаем случайный массив из сорока целых чисел:

Program M4;
Const
N=40; {Константа N будет содержать количество элементов массива}
Var

A : Array [1..N] Of Integer;
I : Integer;

Begin

For I:=1 To N Do
Begin

A[I]:= Trunc(Random*101)-50
Write(A[I],'VVV')

End

End.

Пример:

Заполнить массив значениями квадратов индексов элементов.

Program M3;
Const
N=50; {Константа N будет содержать количество элементов массива}
Var

A : Array [1..N] Of Integer;
I : Integer;

Begin

For I:=1 To N Do
A[I]:=I*I
For I:=1 To N Do
Write(A[I],'VVV')

End.

Решение задач:

1. Дать понятие массива.

2. Перечислите способы описания массива.

3. Найдите ошибку:

   1. type masiv=array[5] integer;
      var m: masiv;
      
      

   2. var massiv: array [1..8] of integer=(1,2,3,4,5,6,7,8);
      
      

   3. type mas array[1..4] of real=(1,1,2,3);
      
      

   4. type mas array[1.4] of real
      const m:mas =(3,5,6,8,9);
      
      

4. Перечислите способы заполнения массива.

5. Объясните, для чего при вводе и выводе элементов массива используется оператор for.

6. Что будет выведено на экран:

   1. const a:array[1..5] of char=('h','e','l' ,'l','o');
      begin
      writeln(a[3],a[2],a[1]);
      
      

   2. const mas: array[1..6]of integer=(4,7,9,0,6,5);
      var I:integer;
      begin
      for I:=1 to 6 do
      if I mod 2=0 then writeln(a[i]);
      
      

   3. const mas: array[1..6]of integer=(4,7,9,0,6,5);
      var I:integer;
      begin
      for I:=1 to 6 do
      if a[I] mod 2=0 then writeln(a[i]);
      
      

   4. const mas: array[1..6]of char=('4','7','9','0','6','5');
      var I:integer;
      begin
      for I:=6 downto 1 do
      writeln(a[i]);
      
      

7. Решить задачи, предварительно составив блок-схему к каждой задаче(ввод и вывод массива писать через процедуры ):

1. Вывести четные элементы массива и их номера.

2. Найти сумму положительных элементов массива.

3. Вывести элементы, стоящие на нечетных местах.

4. Найти сумму всех элементов массива.

5. Найти сумму всех четных элементов массива.

6. Подсчитать сумму элементов, кратных 5.

7. Найти сумму всех четных элементов массива, стоящих на четных местах, то есть имеющих четные номера.

8. Вывести на экран элементы, кратные 5 или элементы, стоящие на местах, кратны 3 и их номера.

9. Вывести на экран элементы, кратные 3 и их номера.

10. Найти сумму первых пяти элементов массива, оформив задачу как подпрограмму.

11. Найти сумму элементов, больших данного числа А (А вводить с клавиатуры).

12. Найти сумму элементов, принадлежащих промежутку от А до В (А и В вводить с клавиатуры).

13. Вычислить сумму и разность элементов двух массивов. Результат записать в виде двух параллельных рядов.

14. Вычислить среднюю температуру воздуха за неделю.

15. Определить номер нулевого элемента массива, оформив задачу как подпрограмму.

16. Определить, есть ли в массиве отрицательный элемент, оформив задачу как подпрограмму.

17. Найти минимальный (максимальный) элемент в массиве, оформив задачу как подпрограмму.

18. Написать процедуру сортировки массива.

19. Отсортировать массив по возрастанию несколькими способами.

Сортировка методом прямого выбора.

Type

Mas=array[1..size] of integer;

Const size=8;

Var

a:mas;

I, min, j, buf, k: integer;

Begin

Writeln('сортировка массива');

Writeln('введите через пробел', size:4, 'целых в одной строке и нажмите enter');

For k:=1 to size do

Read(a[k]);

Writeln('сортировка');

For I:=1 to size-1 do begin

Min:=I;

For j:=I+1 to size do begin

If a[j]

Buf:=a[i];

a[i]:=a[min];

a[min]:=buf;

for k:=1 to size do

write(a[k],' ');

end;

end;

writeln('массив отсортирован');

end.

Сортировка методом прямого обмена.

Type mas= array[1..size] of integer;

Const size=8;

Var

a: mas;

I, buf, k: integer;

Begin

Writeln('сортировка массива пузырьковым методом');

Writeln('введите через пробел', size:4, 'целых в одной строке и нажмите enter');

For k:=1 to size do

Read(a[k]);

Writeln('сортировка');

For I:=1 to size-1 do begin

For k:=1 to size-1 do begin

If a[k]>a[k+1] then begin

Buf:=a[k];

a[k]:=a[k+1];

a[k+1]:=buf;

end;

end;

for k:=1 to size do

write(a[k],' ');

writeln;

end;

writeln('массив отсортирован');

end.

Решение задач

Ввод и вывод осуществлять при помощи процедур.

1. Найти максимальный элемент массива и его номер, при условии, что все элементы различные.

2. Найти номера всех отрицательных элементов (вывести их на экран), если таких нет, то сообщить об этом.

3. Найти номера всех элементов с максимальным количеством делителей, нахождение количества делителей оформить в виде функции.

4. Найти среди элементов, простые числа.

5. Найти количество нечетных элементов.

6. Найти количество отрицательных элементов.

7. Сколько элементов массива превосходят по модулю заданное число А?

8. Найти все элементы, кратные 3 или 5. Сколько их?

9. Есть ли в данном массиве два соседних положительных элемента? Найти номера первой (последней) пары.

10. Есть ли в данном массиве элемент, равный заданному числу? Если есть, то вывести номер одного из них.

11. Если существует треугольник со сторонами а, b и с, то напечатать "ДА", иначе напечатать "НЕТ" (значения a, b и с вводить с клавиатуры).

12. Выяснить, есть ли в массиве совершенные числа, (поиск совершенного числа осуществить при помощи функции).

Методы работы с элементами одномерного массива

Решение задач

Ввод/вывод массива осуществить при помощи процедур.

1. Изменить знак у максимального по модулю элемента массива.

2. Заменить все четные элементы на их квадраты, а нечетные удвоить.

3. Вычесть из положительных элементов элемент с номером k1, а к отрицательным прибавить элемент с номером k2, нулевые элементы оставить без изменения.

4. К четным элементам прибавить А, а из элементов с четными номерами вычесть В.

5. Отрицательные элементы возвести в квадрат.

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

7. Дан первый член геометрической прогрессии и ее знаменатель. Найти первые п членов этой прогрессии.

8. Получить первые п чисел Фибоначчи - первые два числа равны 1, а каждое следующее равно сумме двух предыдущих.

9. Даны два массива. Найти среднее арифметическое элементов каждого и сравнить эти значения.

10. При выводе на экран:

a) после каждого элемента, кроме последнего, поставить точку;

b) пропустить все отрицательные.

Примечания.

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

2. В задаче 7 можно новый массив заполнять не 0 и 1, а значениями True и False, в зависимости от выполнения условия.

Удаление элемента

Использовать в задачах процедуры и функции.

1. Удалить первый отрицательный элемент, если такой элемент есть.

2. Удалить все отрицательные элементы.

3. Удалить все элементы, большие данного числа А (А вводить с клавиатуры).

4. Удалить все четные элементы, стоящие на нечетных местах.

5. Удалить все повторяющиеся элементы, оставив только их первые вхождения, то есть получить массив различных элементов.

6. Удалить последний четный элемент.

7. Удалить все элементы, кратные 3 или 5.

8. Удалить все элементы, начиная с kl-то по k2-ой (k1 и k2 вводить с клавиатуры). Сделать проверку корректности ввода значений kl и k2 (kl <= k2). Ели ввод некорректный, то вывести сообщение об ошибке и закончить работу.

Вставка элементов в одномерный массив

1. Вставить элемент после первого отрицательного элемента.

2. Вставить элемент перед последним отрицательным элементом.

3. Вставить два элемента: первый - после максимального элемента, второй - перед максимальным элементом (удобнее всего применить именно такой порядок вставки).

4. Вставить по одному элементу перед всеми элементами, кратными заданному числу.

5. Вставить по одному элементу перед всеми отрицательными элементами.

6. Вставить два элемента: первый - после всех элементов, больших данного числа Р, а второй - перед всеми элементами, большими данного числа Р (Р вводить с клавиатуры).

7. Вставить число А перед всеми элементами, большими А, а число В - после всех элементов, меньших его.

Перестановки элементов массива

Перестановка двух элементов

1. Поменять местами:

a) первый элемент и максимальный;

b) второй и минимальный;

c) первый и последний отрицательный.

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

3. Дан одномерный массив В, состоящий из 2п элементов. Переставить его элементы по следующему правилу:

a) b[n+1], b[n+2],..., b[2n], b[l], b[2],.." b[n];

b) b[n+1], b[n+2],..., b[2n], b[n], b[n-1],..., b[l]:

c) b[l], b[n+1], b[2], b[n+2],..., b[n], b[2n];

d) b[2n], b[2n-l],.." b[n+1], b[l], b[2]...., b[n].

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

ДВУМЕРНЫЕ И МНОГОМЕРНЫЕ МАССИВЫ

Двумерный массив (матрица)

Направление изменения второго индекса.

1

2

3

4

5

.

.

n

1

2

3

n

A[2,5] или

А[I,j] если

i=5, j=2

Идентификатор:

ARRAY [диапазоны индексов] OF тип элемента массива;

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

ОПИСАНИЕ.

1. Var A:array[1..5:1..4] of integer;

2. const n=5; m=4

Var A:array[1..n;1..m] of integer;

3. const n=5; m=4

type vector=array[1..n;1..m] of integer;

var a:vector;

ВВОД И ВЫВОД МАССИВА.

Var A:array[1..5;1..4] of integer;

I,j : integer;

Begin

For I:=1 to 5 do

For j:=1 to 4 do read(a[I,j]); ввод элементов массива.

For I:=1 to 5 do begin

For j=1 to 4 do write(a[I,j]); вывод элементов массива.

Writeln;

End;

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

Описание. Работа с элементами

Повторение

1. Как описать одномерный массив?

2. Как задать его значение?

3. Как вывести на экран?

4. Как найти сумму элементов?

5. Как найти номер заданного элемента?

6. Как найти количество определенных элементов?

1. Найдите ошибку:
   
   

   1. var a:array[1..2,1..3] of integer;
      i,j:integer;
      begin
      for i:=1 to 2 do
      readln(a[i,j])
      
      

   2. type mas= array[3,6] of char;
      var b:mas;
      begin
      writeln(b[2,3]);
      end.
      
      

   3. var c:array[1..2,1..2] of integer=(1,2,3,4);
      i,j:integer;
      begin
      for i:=1 to 2 do
      for j:=1 to 2 do
      readln(a[i,j]);
      end.

2. Задать таблицу в виде массива.
   
   

   1

   2

   3

   4

   5

   6

   7

   8

   9

   2

   2

   4

   6

   8

   10

   12

   14

   16

   18

   3

   3

   6

   9

   12

   15

   18

   21

   24

   27

   4

   4

   8

   12

   16

   20

   24

   28

   32

   36

   5

   5

   10

   15

   20

   25

   30

   35

   40

   45

   6

   6

   12

   18

   24

   30

   36

   42

   48

   54

   7

   7

   14

   21

   28

   35

   42

   49

   56

   63

   8

   8

   16

   24

   32

   40

   48

   56

   64

   72

   9

   9

   18

   27

   36

   45

   54

   63

   72

   81

3. Решить задачи:
   (при решении задач использовать процедуры и функции)

1. Написать процедуру ввода и вывода массива на экран.

2. Вывести нечетные элементы массива и их номера.

3. Вывести нулевые элементы массива и их номера.

4. Вывести элементы главной диагонали.

5. Вывести элементы побочной диагонали.

6. Найти сумму всех элементов массива.

7. Найти сумму второго столбца и первой строки.

8. Найти сумму четных элементов массива.

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

10. Найти максимальный элемент в первой строке (столбце).

11. Найти максимальный (минимальный) элемент в массиве.

12. Найти сумму и количество элементов каждого столбца с заданным условием (хранить эти значения в массивах):

    1. элементы, кратные k1 или k2,

    2. элементы, попадающие в промежуток от А до В;

    3. элементы, которые являются простыми числами.

13. Найти сумму элементов в строках с k1-й по k2-ю.

14. Найти номера:

    1. всех максимальных элементов;

    2. первых отрицательных элементов каждой строки (столбца);

    3. последних отрицательных элементов каждой строки (столбца).

15. Найти количество элементов в каждой строке, больших (меньших) среднего арифметического элементов данной строки.

16. Найти произведение двух двумерных массивов А и В, если массив А имеет размерность п *т, а В - т*п. Определить размерность результирующего массива и правило нахождения элемента с номерами i и j.

17. Даны два квадратных массива А и В. Вывести на экран тот из них, у которого след меньше (сумма элементов главной диагонали).

18. Изменить функцию в примере 6 так, чтобы просмотр элементов заканчивался в случае, когда найден нулевой элемент.

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

20. Определить:

    1. есть ли в данном массиве отрицательный элемент;

    2. есть ли два одинаковых элемента;

    3. есть ли данное число А среди элементов массива.

21. Определить:

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

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

22. Определить, есть ли в данном массиве строка (столбец):

    1. состоящая только из положительных элементов;

    2. состоящая только из положительных или нулевых элементов;

    3. состоящая только из элементов, больших числа А;

    4. состоящая только из элементов, принадлежащих промежутку от А до В.

23. Вставить первую строку после строки, в которой находится первый встреченный максимальный элемент.

24. Вставить нулевую строку и нулевой столбец перед строкой и столбцом, в которых находится первый минимальны элемент.

25. Удалить столбец. В котором находится минимальный элемент. Если таких столбцов несколько, то удалить все.

26. Удалить все строки и столбцы, на пересечении которых стоят отрицательные элементы.

27. Поменять местами первый максимальный и последний минимальный элементы.

28. В каждой строке поменять местами первый элемент и максимальный по модулю.

29. В массиве поменять местами строки следующим образом: первую с последней, вторую с предпоследней и т.д.

30. Элемент матрицы назовем седловой точкой, если он является наименьшим в своей строке и наибольшим в своем столбце или, наоборот, является наибольшим в своей строке и наименьшим в своем столбце. Для заданной матрицы размером 10х15 напечатать индексы всех ее седловых точек.

31. Дана вещественная матрица размером 7х7 , все элементы которой различны. Найти скалярное произведение строки, в которой находится наибольший элемент матрицы, на столбец с наименьшим элементом.

32. Определить, является ли заданная квадратная матрица 10-го порядка ортонормированной, т.е. такой, в которой скалярное произведение каждой пары различных строк равно 0, а скалярное произведение каждой строки на себя равно1.

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

Проверочные работы

Одномерные массивы. Работа с элементами.

Проверочная работа № 1

Вариант № 1

1. Правильно ли описан массив А? Если нет, то что надо изменить?

Type myarray=Airayf-10..nj Of Integer;

Var A: my array;

1. Что получится в результате выполнения про­граммы?

Program Varianti;

Const n=7;

Type myarray=Array{l..n] Of Integer;

Var С : ту array;

i: Byte; p : Integer;

Begin P-=0;

For i:=l Ton Do Begin

C[i}:=-50+Random(15I);

If C[i]>50 Then p^p+Cfi/;

End;

Writeln(p);

Readin;

End.

3. Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры. Найти:

• сумму элементов, имеющих нечетное зна­чение;

• вывести индексы тех элементов, значения которых больше заданного числа А-

4. Определить, есть ли в данном массиве поло­жительные элементы, кратные k (k вводить с кла­виатуры).

Одномерные массивы. Работа с элементами

Проверочная работа № 2

Вариант № 1

1. Заменить максимальный по модулю отрицательный элемент нулем.

2. Заменить первые k элементов на противоположные по знаку.

3. Из элементов массива С сформировать массив А той же размерности по правилу: если номер четный, то Ai=Ci², если нечетный, то Ai=2Ci.

Вариант № 2

1. Заменить минимальный по модулю положительный элемент нулем.

2. Заменить элементы с kl-vo no k2-w. на обратные.

3. Из элементов массива А сформировать массив D той же размерности по правилу: первые 10 элементов - Di=A;+i, остальные - Di=Ai-i.

Вариант № 3

1. Заменить первый отрицательный элемент нулем.

2. Умножить все элементы, кратные 3, на третий элемент массива.

3. Из элементов массива Р сформировать мас­сив М той же размерности по правилу: если номер четный, то Pi=i*Mi, если нечетный, то Рi=-Мi

Вариант № 4

1. Заменить максимальный элемент на противоположный по знаку.

2. Заменить нулями элементы между минимальным и максимальным, кроме них самих.

3. Из элементов массива С сформировать массив А той же размерности по правилу: элементы с 3-го по 12-й -Ai=-Ci², все остальные -Ai=Ci-l.

Двумерные массивы, работа с элементами.

Проверочная работа № 3

Вариант № 1

Дан двумерный массив размером 5*6, заполненный случайным образом.

1. Заменить максимальный элемент каждой строки на противоположный.

2. Вставить после столбцов с максимальными элементами столбец из нулей.

3. Удалить среднюю строку.

4. Поменять местами средние столбцы.

Вариант № 2

Дан двумерный массив размером 8*7, заполненный случайным образом.

1. Заменить все элементы первых трех столбцов на их квадраты.

2. Вставить между средними строками первую строку.

3. Удалить все столбцы, в которых первый элемент больше последнего.

4. Поменять местами средние строки с первой и последней.

Вариант № 3

Дан двумерный массив размером 5*8, заполненный случайным образом.

1. Заменить все симметричные элементы на нули.

2. Вставить перед всеми строками, первый элемент которых делится на 3, строку из нулей.

3. Удалить столбец, в котором находится первый четный отрицательный элемент.

4. Поменять местами средние столбцы со вторым и предпоследним.

Вариант № 4

Дан двумерный массив размером 6*7, заполненный случайным образом.

1. Заменить максимальный элемент каждой строки на противоположный.

2. Вставить после столбцов с максимальными элементами столбец из нулей.

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

4. Поменять местами средние строки.

РАБОТА С ФАЙЛАМИ

Тип-файл представляет собой последовательность компонент одного типа, расположенных на внешнем устройстве (например, на диске). Элементы могут быть любого типа, за исключением самого типа-файла. Число элементов в файле при описании не объявляется. Работа с физическими файлами происходит через так называемые файловые переменные.

Для задания типа-файла следует использовать зарезервированные слова File и Of, после чего указать тип компонент файла.

Пример:
Type

N = File Of Integer; {Тип-файл целых чисел}
C = File Of Char; {Тип-файл символов}

Есть заранее определенный в Паскале тип файла с именем Text. Файлы этого типа называют текстовыми.

Введя файловый тип, можно определить и переменные файлового типа:

Var

F1 : N;
F2 : C;
F3 : Text;

Тип-файл можно описать и непосредственно при введении файловых переменных:

Var
Z : File Of Word;

Файловые переменные имеют специфическое применение. Над ними нельзя выполнять никаких операций (присваивать значение, сравнивать и т.д.). Их можно использовать лишь для выполнения операций с файлами (чтение, запись и т.д.).

Элементы файла считаются расположенными последовательно, то есть так же, как элементы линейного массива. Отличие же состоит в том, что, во-первых, размеры файла могут меняться, во-вторых, способ обращения к элементам совсем другой: невозможно обратиться к произвольному элементу файла; элементы его просматриваются только подряд от начала к концу, при этом в каждый момент времени доступен только один элемент. Можно представить себе, что для каждого файла существует указатель, показывающий в данный момент на определенный компонент файла. После проведения операции чтения или записи указатель автоматически передвигается на следующий компонент.

Перед тем, как осуществлять ввод-вывод, файловая переменная должна быть связана с конкретным внешним файлом при помощи процедуры Assign.

Формат:
Assign(<Имя файловой переменной>,<Имя файла>);

Имя файла задается либо строковой константой, либо через переменную типа String. Имя файла должно соответствовать правилам работающей в данный момент операционной системы. Если строка имени пустая, то связь файловой переменной осуществляется со стандартным устройством ввода-вывода (как правило - с консолью).

После этого файл должен быть открыт одной из процедур:

Reset(<Имя файловой переменной>);

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

Rewrite(<Имя файловой переменной>);

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

После работы с файлом он, как правило, должен быть закрыт процедурой Close.

Close(<Имя файловой переменной>);

Это требование обязательно должно соблюдаться для файла, в который производилась запись.

Теперь рассмотрим непосредственную организацию чтения и записи.

Для ввода информации из файла, открытого для чтения, используется уже знакомый вам оператор Read. Правда, в его формате и использовании вы заметите некоторые изменения:

Read(<Имя файловой переменной>, <Список ввода>);

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

Вывод информации производит, как можно догадаться, оператор Write(<Имя файловой переменной>, <Список вывода>);

Данные из списка вывода заносятся в файл, открытый для записи.

Для текстовых файлов используются также операторы Readln и Writeln с соответствующими дополнениями, относящимися к файловому вводу-выводу. Любопытно, что вывод данных на монитор и ввод с клавиатуры в языке Паскаль тоже являются действиями с файлами. Они даже имеют свои предопределенные файловые переменные текстового типа: Output и Input соответственно. Переменная Output всегда открыта для записи, Input - для чтения. Если не указывать файловые переменные в операторах ввода-вывода (придем к формату, рассмотренному в теме "Операторы ввода-вывода"), то в случае записи по умолчанию выбирается файл Output, в случае чтения - Input.

Как вы знаете, любой файл конечен и продолжать чтение из него информации можно лишь до определенного предела. Как этот предел установить? Проверить, окончен ли файл, можно вызовом стандартной логической функции Eof(<Имя файловой переменной>). Она вырабатывает значение True, если файл окончен, и False - в противном случае.

Решим следующую задачу:

"Написать программу, которая вводит с клавиатуры список фамилий учащихся, а затем распечатывает его, кроме тех учащихся, у которых фамилия начинается с буквы 'Ш'".

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

Program L;
Var

I,N : Integer;
F : File Of String;
S : String;

Begin

Assign(F,'Spis.lst'); {Связываем переменную F с файлом Spis.lst}
Writeln('Введите количество учащихся');
Readln(N); {Вводим количество учащихся}
Rewrite(F); {Создаем файл для записи в него данных}
For I:=1 To N Do {Для всех учащихся}
Begin

Writeln('Введите фамилию');
Readln(S);
Write(F,S)

End;
Close(F);
Reset(F);
Writeln; Writeln('Список учащихся:');
While Not(Eof(F)) Do
Begin

Read(F,S);
If S[1]<>'Ш' Then
Writeln(S)

End;
Close(F)

End.

Задачи: работа с файлами

1. Что такое файл?

2. Как можно описать файловую переменную? Для чего необходима файловая переменная?

3. Как связать файловую переменную с конкретным файлом?

4. Перечислите режимы открытия файла для вывода в файл.

5. Указать процедуру ввода из файла.

6. Указать процедуру закрытия файла, конца файла.

7. Решить задачи:
   
   

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

   2. вывести в файл только четные числа из промежутка от а до b.

   3. написать процедуру вывода массива в файл.

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

   5. удалить из файла все пробелы (нули).

   6. переписать данные из одного файла в другой.

   7. написать процедуру заполнения массива числами, взятыми из файла.

   8. написать программу, которая ищет пользователя по фамилии и выводит его данные на экран, используя предыдущие задачи.

пример 7 h):

uses crt;

const a:array[1..5]of string=('фамилия','имя','возраст','рост', 'вес');

var f: text;

s,s1,s2:string;

i,n,p:integer;

begin

clrscr;

assign(f,'c:\text.txt');

append(f);

i:=1;

repeat

writeln(a[i]);

readln(s);

writeln(f,s);

inc(i);

if i=6 then

begin

writeln(f,'#'); добавляем после данных пользователя разделитель

i:=1;

writeln('будете продолжать (n/y)');

readln(s2);

end;

until s2='n';

close (f);

i:=1;

writeln('введите начальные буквы фамилии');

reset(f);

readln(s);

n:=0;

p:=1;

while not eof(f) do

begin

readln(f,s1);

inc(n); считаем строки

if n=p then

begin

p:=p+6; фамилии стоят в каждой 7 строке

if pos(s,s1)<>0 then если есть такая фамилия, начинающаяся с фрагмента s

repeat

writeln(a[i]);

writeln(s1);

readln(f,s1);

inc(i);

if i=6 then begin i:=1; readln; end;

until s1='#';

end;

end;

close(f);

end.

Задачи

1. Даны два файла. Поменять местами содержимое этих файлов.

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

3. Даны два файла А и В. Элементами файла А являются числа, а В- символы. Вывести на экран все числа из первого файла, а рядом с ними элементы из второго файла с соответствующими номерами. Если во втором файле нет элементов с данным номером, то вывести сообщение

РЕКУРСИЯ

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

ПРИМЕР:

Вычислить N-е число Фиббоначчи.

(Смотри тему Циклы)

program Fib;

var n:byte;

function F(k:byte):word;

begin

if k<2 then F:=1 else F:=F(k-1)+F(k-2); {рекурсивный вызов}

end;

begin

write('введите номер числа Фиббоначчи ');

readln(N);

writeln(N,'-е число Фиббоначчи =',F(N));

readln

end.

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

ПРИМЕР:

Неявная рекурсия.

Procedure B(x:byte); forward;

Procedure A(y:byte);

begin

- - -

B(y);

- - -

end;

Procedure B;

begin

- - -

A(x);

- - -

end;

ПРИЛОЖЕНИЯ

ТЕКСТОВЫЙ ВИДЕОРЕЖИМ

МОДУЛЬ CRT

(основные возможности)

Модуль Crt относится к стандартным модулям Турбо Паскаля и находится в файле turbo.tpl (Turbo Pascal Library). Для подключения модуля достаточно написать uses Crt. Модуль Crt содержит средства управления экраном в текстовом режиме и клавиатурой.

На экране используются два активных цвета: цвет текста и цвет фона. Их можно установить с помощью процедур TextColor и TextBackground, которые имеют по одному параметру: целому числу, задающему номер цвета. Для цвета текста используются числа от 0 до 15, а для цвета фона - от 0 до 7. Обе эти процедуры оказывают влияние только на последующий вывод.

Координаты на экране задаются следующим образом. Левый верхний угол имеет координаты (1,1), а правый нижний (80,25). Можно вводить относительные координаты, объявляя окно с помощью процедуры Window(x1,y1,x2,y2), где x1,y1 - абсолютные координаты левого верхнего, а x2,y2 - правого нижнего угла окна. После этого все процедуры и функции кроме Window используют относительные координаты. Вернуться к работе со всем экраном можно, написав Window(1,1,80,25). С помощью процедуры GotoXY(x,y) можно установить курсор в заданную позицию окна, а с помощью пары функций WhereX и WhereY без параметров можно узнать текущие координаты курсора. Процедура ClrScr не имеет параметров и закрашивает текущее окно цветом фона.

Модуль Crt позволяет осуществлять контроль клавиатуры. Известно, что информация о нажатых клавишах поступает сначала в буфер клавиатуры и только затем считывается компьютером. Также известно, что клавиши и комбинации клавиш делятся на обычные и управляющие. В результате нажатия обычной клавиши в буфер клавиатуры поступает ее код, который может быть от 1 до 255, а при нажатии управляющей клавиши в буфер клавиатуры поступает два кода, первый из которых 0. Функция KeyPressed не имеет параметров и возвращает истинный результат, если буфер не пуст. При этом содержимое буфера не изменяется. Функция ReadKey также не имеет параметров и забирает из буфера клавиатуры очередное число, возвращая в программу символ (тип char), код которого соответствует этому числу. В случае, когда буфер пуст, функция ReadKey ожидает нажатия на клавиатуре.

Управление курсором

В стандартном режиме на экране могут быть отображены до 25 строк текста длиной до 80 символов. Инструкции write и writeln выводят информацию, начиная с той точки экрана, где находится курсор. Положение курсора на экране определяется номером строки и номером позиции в строке, которые можно рассматривать как координаты курсора. Горизонтальная ко­ордината, определяющая номер позиции в строке, может меняться от 1 до 80 и обозначается X. Вертикальная координата, определяющая номер стро­ки, может меняться от 1 до 25 и обозначается Y, За начало координат при­нимают левый верхний угол экрана Левая верхняя точка экрана имеет координаты (1,1), правая нижняя - (80,25).

Если нужно вывести текст, начиная с определенной позиции экрана, то пе­ред выполнением инструкции вывода, надо установить курсор в эту пози­цию. Это можно сделать вызовом процедуры GoToXY, описание которой выглядит так:

GoToXY (координата X, Координата Y) ;

где координата х, координата y - выражения целого типа, значения которых задают новое положение курсора.

Например, инструкции

GoToXY(34,13);

Write('Turbo Pascal');

выводят сообщение примерно в середине экрана.

Можно вводить относительные координаты, объявляя окно с помощью процедуры Window(x1,y1,x2,y2), где x1,y1 - абсолютные координаты левого верхнего, а x2,y2 - правого нижнего угла окна. После этого все процедуры и функции кроме Window используют относительные координаты. Вернуться к работе со всем экраном можно, написав Window(1,1,80,25).

Управление цветом

Используя процедуры TextCoIor и TextBackGround библиотеки Crt можно задать цвет символов и цвет фона для текста, выводимого при помощи WRITE и WRITELN. В таблице перечислены возможные цвет - фона, названия и числа, используемые для их обозначения.

Процедура TextColor (Цвет Символов) используется для задания цвета симво­лов. Цвет Символов - выражение целого типа, обозначающее устанавливае­мый цвет для вывода символов.

Процедура TextBackGround (ЦветФона) используется для задания цвета фо­на. ЦветФона - выражение целого типа, обозначающее устанавливаемый цвет фона, на котором выводятся символы.

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

После выполнения инструкций TextColor(LightGray); TextBackGround(1); инструкции WRITE и WRITELN будут выводить текст светло-серым цветом на синем фоне.

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

Следующие инструкции:

TextbackGround(Blue);

TextColor(15) ;

write ( '1') ;

TextColor(7);

Writcln('Вывод на экран.');

TextColor(15} ;

write('2');

TextColor(7) ;

Writeln('Вывод на принтер.');

выводят на экран фрагмент меню. Названия выводятся на синем фоне свет­ло-серым цветом, а номера пунктов меню - ярко-белым.

Информация о текущем цвете символов и фона хранится в глобальной пе­ременной TextAttr (атрибуты текста) типа byte. Если процедура устанавлива­ет свои цвета для вывода на экран, то значение переменной можно исполь­зовать для того, чтобы восстановить цвета перед завершением работы процедуры. Например, следующая программа в начале работы текущие цвета, а в конце восстанавливает старые значения.

Uses Crt;

var

oldTextAttr:byte;

begin

{ сохраним цвет символов и фона }

oldTextAttr:=TextAttr;

{установим сввои цвета}

TextBackGround (Red) ;

TextColor (White) ;

{ инструкции программы }

{ восстановим цвет символов и фона)

TextAttr::=oldTextAttr;

end.

Помимо использования процедур TextColor и TextBackGround для установки цвета символов и цвета фона, установить атрибуты текста можно непосредственным присвоением значения переменной TextAttr, определяемого по формуле: НомерЦветаФона х 16 + НомерЦветаСимвола.

Например, чтобы установить белый цвет символов на красном фоне переменной TextAttr надо присвоить значение 79 (79 =4х 16+15). В качестве значения, присваиваемого TextAttr. удобно двузначную шестнадцатеричную константу, старший разряд которой определяет номер цвета фона, младший - номер цвета символов. Например, синий цвет фона обозначается числом 1, желтый цвет обозначается десятичным числом 14, которому соответствует шестнадцатеричное число Е. Таким образом, желтый цвет на синем фоне кодируется шестнадцатеричным числом 1Е. Так как в изображении шестнадцатеричных чисел используются буквы латинского алфавита от А до F, то для того чтобы компилятор различал шестнадцатеричные числа и имена переменных, перед шестнадцатеричным числом ставится символ "$". Так, инструкция:

TextAttr:=$lE;

задает синий фон (номер цвета 1) и желтый цвет символов (номер 14 в десятичной форме, и Е - в шестнадцатеричной).

Если к сообщению надо привлечь особое внимание, то можно установить его атрибуты так, что оно будет мигать. Чтобы это сделать, надо к константе, определяющей атрибуты, прибавить 128. Следующая последовательность инструкций выводит мигающее предупреждающее сообщение:

TextAttr:==$lE+12S;

write('Ошибка ввода данных") ;

Очистка экрана

Процедура ClrScr удаляет все символы с экрана (очищает экран), при этом экран закрашивается текущим цветом фона, заданным процедурой TextBackGround (если цвет фона в программе не задавался, то экран закра­шивается черным цветом). Кроме того, курсор устанавливается в точку эк­рана с координатами (1,1), т. е. в начало первой строки.

Например, в результате выполнения инструкций

TextBackGround(Blue);

ClrScr;

экран очищается и закрашивается синим цветом.

ОПРЕДЕЛЕНИЯ КОНСТАНТ-НАЗВАНИЙ ЦВЕТОВ
ПАЛИТРЫ В ТЕКСТОВЫХ РЕЖИМАХ (МОДУЛЬ CRT)

Цвет

символа

Цвет

фона

Название

Обозна-

чение

Черный

Черный

Black

0

Синий

Синий

Blue

1

Зеленый

Зеленый

Green

2

Бирюзовый

Бирюзовый

Cyan

3

Красный

Красный

Red

4

Сиреневый

Сиреневый

Magenta

5

Коричневый

Коричневый

Brow

6

Белый

Светло-серый

Lighttgray

7

Серый

Gray

8

Голубой

Blue

9

Светло-зеленый

Lightgreen

10

Светло-бирюзовый

Lightcyan

11

Светло-красный(алый)

Lightred

12

Светло-сиреневый

Lightmagente

13

Желтый

Yellow

14

Ярко-белый

White

15

Задания

1. Напишите размер экрана в каждом из режимов:

   1. BW40

   2. CO40

   3. BW80

   4. CO80

2. Напишите оператор установки текстового видеорежима.

3. Чем отличаются друг от друга операторы textattr и textcolor.

4. Напишите формулу установки атрибутов цвета оператора textattr.

5. Решить задачи:

   1. Вывести слово по середине экрана разными цветами.

   2. Вывести разноцветное слово по вертикали, по диагонали.

   3. Окрасить экран при помощи окон в цвета нашего флага и вывести по середине слово «РОССИЯ».

   4. Вывести на экран список цветов, при выборе любого из них, экран меняет цвет.

   5. Написать программу-тест, включающую в себя следующие вопросы:
      Раздел описания переменных начинается со слова:
      1. begin
      2. mod
      3. var
      
      Целый тип это:
      1. real
      2. integer
      3. char
      
      Операторы расположены в порядке уменьшения приоритетности, выберите правильный ответ:
      1. or-not-and
      2. not-or-and
      3. not-and-or
      
      Оператор условного выбора это:
      1. if <условие> then <выражение> else <выражение>
      2. case <выражение> of
      3. gotoxy()
      
      Оператор texcolor необходим для
      1. окраски фона
      2. очистки экрана
      3. окраски символа.
      
      Оператор безусловного перехода это:
      1. gotoxy
      2. goto

3. begin

1. 6. Изобразить бегущую строку, используя функцию.

   7. Написать процедуры закраски экрана. По выбору пользователя закраска может быть вертикальная или горизонтальная.

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

   9. Изобразить бегущую букву по «застежке»( )

Пример h:
uses crt;

var

k:char;

i:integer;

begin

readln(k);

textmode(bw40);

while not keypressed do begin

for i:=2 to 30 do

begin

gotoxy(i,10);

write(k);

delay(5000);

gotoxy(i,10);

write(' ');

If keypressed then exit;

end;

for i:=40 downto 2 do

begin

gotoxy(i,10);

write(k);

delay(5000);

gotoxy(i,10);

write(' ');

if keypressed then exit;

end;

end;

end.

Проверочная работа

1. Перечислите текстовые видеорежимы.

2. Чем отличаются операторы textattr и textcolor

3. Вывести в центре экрана окно 10x30 зеленого цвета, в центре которого выведено ваше имя красного цвета.

ГРАФИКА В ПАСКАЛЕ

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

Uses graph;

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

Var

Gdriver, Gmode: Integer;

begin

Gdriver := Detect;

InitGraph(Gdriver, Gmode, 'c:\pascal\bgi');

ПРОЦЕДУРЫ РИСОВАНИЯ ПРОСТЫХ ФИГУР И ЛИНИЙ

Процедура рисования дуги окружности в центре с координатами x,y и радиусом radius.

procedure Arc (X,Y{-координаты центра}; Integer; StAngle{-начальный угол}, EndAngle{-конечный угол}, Radius; Word);

Пример:

uses Graph;

var

Gd, Gm: Integer;

Radius: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then {проверка ошибки инициализации графики}

Halt(1);

for Radius := 1 to 5 do

Arc(100, 100, 0, 90, Radius * 10);

Readln;

CloseGraph; {функция закрытия графического режима}

end.

Процедура рисования окружности в центре с кординатами x,y и радиусом radius

procedure Circle(X,Y: Integer; Radius: Word);

Пример:

uses Graph;

var

Gd, Gm: Integer;

Radius: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

Circle(100, 100, Radius);

Readln;

CloseGraph;

end.

Процедура рисования сектора круга в центре с координатми x,y и радиусом radius procedure PieSlice(X, Y: Integer; StAngle{-начальный угол сектора}, EndAngle{-конечный угол сектора}, Radius: Word);

Пример:

uses Graph;

const Radius = 30;

var Gd, Gm: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

PieSlice(100, 100, 0, 270, Radius);

Readln;

CloseGraph;

end.

Процедура рисования дуги эллипса в центре с координатами x,y и радиусами XRadius, YRadius.

procedure Ellipse(X, Y: Integer; StAngle, EndAngle: Word; XRadius, YRadius: Word);

Пример:

uses Graph;

var Gd, Gm: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

Ellipse(100, 100, 0, 360, 30, 50);

Ellipse(100, 100, 0, 180, 50, 30);

Readln;

CloseGraph;

end.

Функции getmaxx() и getmaxy() возвращают максимальное значение координаты по x и y.

Процедура рисования фигуры эллипс в центре с координатами x,y и радиусами XRadius, YRadius.

procedure FillEllipse(X, Y: Integer; XRadius, YRadius: Word)

Пример:

uses Graph;

const R = 30;

var

Driver, Mode: Integer;

Xasp, Yasp: Word;

begin

Driver := Detect; { Put in graphics mode }

InitGraph(Driver, Mode, '');

if GraphResult < 0 then

Halt(1);

{ Draw ellipse }

FillEllipse(GetMaxX div 2, GetMaxY div 2, 50, 50);

GetAspectRatio(Xasp, Yasp);

{ Circular ellipse }

FillEllipse(R, R, R, R * Longint(Xasp) div Yasp);

Readln;

CloseGraph;

end.

Процедура рисования сектора эллипса.

procedure Sector(x, y: Integer; StAngle,EndAngle, XRadius, YRadius: Word);

Пример:

uses Graph;

const R = 50;

var

Driver, Mode: Integer;

Xasp, Yasp: Word;

begin

Driver := Detect;{ Put in graphics mode }

InitGraph(Driver, Mode, '');

if GraphResult < 0 then

Halt(1);

Sector(GetMaxX div 2, GetMaxY div 2, 0, 45, R, R);

Readln;

CloseGraph;

end.

Процедура рисования четырехугольника по верхней левой вершине (координаты x1,y1) и правой нижней вершине (координаты x2,y2)

procedure Bar(x1, y1, x2, y2: Integer);

Пример:

uses Graph;

var

Gd, Gm: Integer;

begin

Gd := Detect; InitGraph(Gd, Gm, '');

if GraphResult <> grOk then Halt(1);

Bar(10, 10, 200,200);

ReadLn;

CloseGraph;

end.

Процедура рисования параллелипипеда .

procedure Bar3D(x1, y1, x2, y2: Integer; Depth: Word;

Пример:

uses Graph;

var

Gd, Gm: Integer;

Y0, Y1, Y2, X1, X2: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

Y0 := 10;

Y1 := 60;

Y2 := 110;

X1 := 10;

X2 := 50;

Bar3D(X1, Y0, X2, Y1, 10, TopOn);

Bar3D(X1, Y1, X2, Y2, 10, TopOff);

Readln;

CloseGraph;

end.

Процедура рисования прямоугольника по двум вершинам.

procedure Rectangle(x1, y1, x2, y2: Integer);

Пример:

uses Crt, Graph;

var

GraphDriver, GraphMode: Integer;

begin

GraphDriver := Detect;

InitGraph(GraphDriver, GraphMode, '');

if GraphResult<> grOk then

Halt(1);

Rectangle(100, 50, 200, 100);

CloseGraph;

end.

Процедура рисования прямой, x1,y1-начало прямой, x2,y2- конец прямой

procedure Line(x1, y1, x2, y2: Integer);

Пример:

uses Crt, Graph;

var Gd, Gm: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

Line(200,200, 300, 300);

Readln;

CloseGraph;

end.

Процедура рисования прямой от текущей точки, x,y-конец прямой.

procedure LineTo(X, Y: Integer);

Пример:

uses Crt, Graph;

var Gd, Gm: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

LineTo(200, 200);

Readln;

CloseGraph;

end.

Процедура выбора текущей точки.

procedure MoveTo(X, Y: Integer);

Пример:

uses Graph;

var Gd, Gm: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

MoveTo(0, 0); { Upper left corner of viewport }

LineTo(GetMaxX, GetMaxY);

Readln;

CloseGraph;

end.

Работа с цветом

Процедура закраски фона.

procedure SetBkColor(ColorNum: Word)

Процедура закраски линий.

procedure SetColor(Color: Word)

Пример:

uses Crt, Graph;

var

GraphDriver, GraphMode: Integer;

begin

GraphDriver := Detect;

InitGraph(GraphDriver, GraphMode, '');

if GraphResult<> grOk then

Halt(1);

Setbkcolor(4); {красный фон}

Setcolor(2); {зеленый контур прямоугольника}

Rectangle(100, 50, 200, 100);

CloseGraph;

end.

Процедура закраски простых замкнутых фигур (pieslice, sector, fillellipse, bar, bar3d)

procedure SetFillStyle(Pattern: Word; Color: Word) -

первая цифра означает тип закраски, вторая номер цвета.

Пример:

uses Graph;

var

Gd, Gm: Integer;

begin

Gd := Detect; InitGraph(Gd, Gm, '');

if GraphResult <> grOk then Halt(1);

Setbkcolor(3); {красный фон}

Setcolor(2); {зеленый контур прямоугольника}

SetFillStyle(1,4); {сплошная закраска красным цветом}

Bar(10, 10, 200,200);

ReadLn;

CloseGraph;

end.

Процедура изменения цета внутри любой замкнутой области

procedure FloodFill(X, Y: Integer; Border: Word)

(x,y- координаты внутренней точки этой области, border-цвет), используется только вместе с setcolor, setfillstyle, необходимо соблюдать совпадение цветов в процедурах setfillstyle и floodFill.

Пример:

uses Graph;

var Gd, Gm: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

SetColor(GetMaxColor);

Setfillstyle(1, GetMaxColor);

Circle(50, 50, 20);

FloodFill(50, 50, GetMaxColor);

Readln;

CloseGraph;

end.

Процедура очистки графического экрана

Cleardevice()

Пример:

uses Crt, Graph;

var Gd, Gm: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

Moveto (100,100);

LineTo(200, 200);

Delay(30000);

ClearDevice;

Moveto (200,200);

LineTo(300, 300);

Readln;

CloseGraph;

end.

Процедура рисования точки с координатами x,y цветом - pixel.

procedure PutPixel(X, Y: Integer; Pixel: Word)

Пример:

uses Crt, Graph;

var

Gd, Gm: Integer;

Color: Word;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

Color := GetMaxColor;

PutPixel(100, 100, Color); { Plot "stars" }

Delay(10);

PutPixel(100, 100, Color);

Delay(10);

PutPixel(100, 100, Color);

Readln;

CloseGraph;

end.

Процедура вывода текста на экран

procedure OutText(TextString: string)

Пример:

uses Graph;

var Gd, Gm: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

OutText('Easy to use');

Readln;

CloseGraph;

end.

Процедура вывода текста в точке с указанными координатами.

procedure OutTextXY(X,Y: Integer; TextString: string)

Функции, возвращающие текущее значение по х и по y.

Getx(), Gety()

Пример:

uses Graph;

var

Gd, Gm: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

MoveTo(0, 0);

OutText('Inefficient');

Readln;

OutTextXY(GetX, GetY, 'Also inefficient');

Readln;

ClearDevice;

OutTextXY(0, 0, 'Perfect!'); { Replaces above }

Readln;

CloseGraph;

end.

Процедура устанавливает атрибуты шрифта (тип шрифта, положение и размер), можно указывать либо тип, либо номер.

procedure SetTextStyle(Font, Direction: Word; CharSize: Word)

Font

Тип

Номер типа

DefaultFont

0

TriplexFont

1

SmallFont

2

SansSerifFont

3

GothicFont

4

Direction (расположение):

HorizDir

0

VertDir

1

CharSize - размер.

Пример:

uses Graph;

var

Gd, Gm: Integer;

Y, Size: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

Y := 0;

begin

SetTextStyle(DefaultFont, HorizDir, 6);

OutTextXY(0, Y, 'Size = ' + Chr(Size + 48));

Readln;

CloseGraph;

end.

Функция, возвращающая высоту текста

function TextHeight(TextString: string): Word

Пример:

uses Graph;

var

Gd, Gm: Integer;

Y, Size: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

Y := 0;

SetTextStyle(DefaultFont, HorizDir, 20);

OutTextXY(0, Y, 'Turbo Graphics');

Inc(Y, TextHeight('Turbo Graphics'));

OutTextXY(0, Y, 'Turbo Graphics');

end;

Readln;

CloseGraph;

end.

Функция, возвращающая ширину текста.

function TextWidth(TextString: string): Word

Пример:

uses Graph;

label metka;

var

Gd, Gm: Integer;

Row: Integer;

Title: String;

Size: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

Row := 0;

Title := 'Turbo Graphics';

Size := 1;

Metka:

If TextWidth(Title) < GetMaxX then

begin

OutTextXY(0, Row, Title);

Inc(Row, TextHeight('M'));

Inc(Size);

SetTextStyle(DefaultFont, HorizDir, Size);

Goto metka;

end;

Readln;

CloseGraph;

end.

Процедура, выравнивающая текст по горизонтали и вертикали

procedure SetTextJustify(Horiz, Vert: Word)

Horizontal

Константа

Значение

LeftText

0

CenterText

1

RightText

2

Vertical

Константа

Значение

BottomText

0

CenterText

1

TopText

2

Пример:

uses Graph;

var Gd, Gm: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

{ Center text onscreen }

SetTextJustify(CenterText, CenterText);

OutTextXY( Succ(GetMaxX) div 2, Succ(GetMaxY) div 2, 'Easily Centered');

Readln;

CloseGraph;

end.

Задачи на графику

1. Укажите, для чего используется каждая из данных функций:

   1. setfilstyle (тип, № цвета)

   2. setbkcolor (№ цвета )

   3. setcolor (№ цвета)

   4. setpalette (№, № цвета)

   5. floodfil(x,y, №цвета)

2. Напишите функции, необходимые для отображения основных фигур (окружность, дуга окружности, сектор круга, эллипс, дуга эллипса, сектор эллипса, линия, прямоугольник ).

3. Как при помощи функции pieslice (x,y, startangle, endangle, radius) нарисовать круг.

4. Нарисовать разноцветный домик.

5. Укажите, для чего используются данные функции:

   1. outtext ('текст')

   2. outtextxy (x,y, 'текст')

   3. settextstyle (шрифт, направление, размер)

   4. textheight ('текст')

   5. settextyustify (гориз. выравнивание, верт. выравнивание)

6. Нарисовать человечка и сделать к нему надпись.

7. Укажите функцию очистки экрана в графическом режиме, а также функцию задержки выполнения программы.

8. Нарисовать мордочку, которая подмигнет 1 раз, 2 раза, 3 раза.

9. Нарисовать мяч, который подпрыгивает 3 раза.

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

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

12. Нарисовать круг так, чтобы он катился и менял цвет до тех пор, пока не нажата любая клавиша.
    
    

Пример 8

uses Graph,crt;

const Radius = 100;

var Gd, Gm: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm, '');

if GraphResult <> grOk then

Halt(1);

circle(300, 100, Radius);

arc(300, 130, 190,0,50);

setcolor(3);

setfillstyle(1,3);

pieslice(350, 100,0,360, 20);

pieslice(250, 100,0,360, 20);

delay (15000);

setcolor(0);

setfillstyle(1,0);

pieslice(250, 100,0,360, 20);

delay (15000);

setcolor(3);

setfillstyle(1,3);

pieslice(250, 100,0,360, 20);

delay (15000);

setcolor(0);

setfillstyle(1,0);

pieslice(250, 100,0,360, 20);

delay (15000);

setcolor(3);

setfillstyle(1,3);

pieslice(250, 100,0,360, 20);

delay (15000);

setcolor(0);

setfillstyle(1,0);

pieslice(250, 100,0,360, 20);

delay (15000);

setcolor(3);

setfillstyle(1,3);

pieslice(250, 100,0,360, 20);

delay (15000);

Readln;

CloseGraph; еnd.