Практические работы по Паскалю

Практическая работа № 1.

Тема: « Работа в среде программирования. Запуск программ на исполнение»

Цель: Знакомство со средой программирования Borland Pascal. Развитие   навыков применения Главного меню, умения сохранять и открывать созданные файлы, работать с фрагментами текста.

                            Основные приемы и методы:

1.     Для загрузки Borland Pascal  воспользуйтесь ярлыком на Рабочем столе или  Bpascal ® Bin ® bp.exe .

2.     Чтобы выбрать нужную команду из главного меню воспользуйтесь клавишей F10 или мышью.

3.     Для открытия программы нужно:  File ® Open ® имя файла.

4.     Для перемещения по элементам окна диалога применяют клавишу ТАВ или мышь.

5.     Запуск программы на исполнение –    Ctrl + F9.

6.     Чтобы начать набирать текст новой программы, нужно из меню File выбрать команду New (Новый ). В результате этих действий будет открыто окно редактора текста, в котором можно набрать текст программы.

7.     Для сохранения файла нужно :    File ® Save. Затем в Поле ввода  введите имя файла и нажмите ОК.

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

меню Edit ( Правка ). Перед выполнением действий с фрагментом текста  этот фрагмент нужно выделить.

9.      Чтобы переместить выделенный фрагмент текста , нужно:

Edit ® Cut (Вырезать). В результате этого выделенный фрагмент текста будет удален с экрана и помещен во внутренний буфер редактора. Затем установите курсор за тем символом текста, после которого нужно поместить выделенный фрагмент текста и из меню Edit выберите команду Paste ( Вставить).

10. Чтобы скопировать выделенный фрагмент текста,  нужно:

Edit ® Copy ( Копировать ). Затем установите курсор за тем символом текста, после которого нужно поместить копию выделенного фрагмент текста и из меню Edit выберите команду Paste ( Вставить).

11. Чтобы удалить выделенный фрагмент текста, нужно:  Edit ® Clear (Очистить).

                                 Задание:

1.    Загрузите среду      Borland Pascal.

Откройте  программу «Контроль веса» (optves.pas). Запустите программу на исполнение, введя необходимые данные.   

2.       Составить программу вывода на экран приветствия будущему программисту.

Наберите новую программу согласно образцу и запустите ее на исполнение:

program Z1;

   Var    a: string;

begin

    write (‘введите свою фамилию и нажмите ENTER’);

      readln (a);

    writeln (‘Привет’, a , ‘- будущий программист’);

end.

4.    Сохраните файл под именем    hello.pas

5.      Выделите строку с командой writeln , скопируйте ее и  вставьте перед командой end.

6.     Запустите программу вновь и посмотрите на результат работы.

(на экране появятся 2 приветствия).

7.     Удалите из программы вставленный фрагмент.

8.     Поменяйте строки местами, переместив фрагмент приветствия на строку выше.

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

9.    Верните фрагмент на прежнее место и вновь запустите программу.

10. Добавьте к программе согласно образцу командную строку, которая  после приветствия выведет на экран фразу «гордость СОШ № 14

г. Евпатории».

11. Вставьте недостающие знаки препинания.

                                    Практическая работа № 3.

Задача 1. Составить программу определения високосного года.

Задача 2. Определить, является ли число n двузначным.

Задача 3. Даны значения действительных величин a,b,c. Удвойте эти значения, если a ≥ b ≥ c и замените их абсолютными значениями, если это не так. Используйте логическую функцию AND для записи двойного неравенства).

Практическая работа № 3.

Задача 1. Составить программу определения високосного года.

Задача 2. Определить, является ли число n двузначным.

Задача 3. Даны значения действительных величин a,b,c. Удвойте эти значения, если a ≥ b ≥ c и замените их абсолютными значениями, если это не так. Используйте логическую функцию AND для записи двойного неравенства.)

Практическая работа № 3.

Задача 1. Составить программу определения високосного года.

Задача 2. Определить, является ли число n двузначным.

Задача 3. Даны значения действительных величин a,b,c. Удвойте эти значения, если a ≥ b ≥ c и замените их абсолютными значениями, если это не так. Используйте логическую функцию AND для записи двойного неравенства.)

Практическая работа № 3.

Задача 1. Составить программу определения високосного года.

Задача 2. Определить, является ли число n двузначным.

Задача 3. Даны значения действительных величин a,b,c. Удвойте эти значения, если a ≥ b ≥ c и замените их абсолютными значениями, если это не так. Используйте логическую функцию AND для записи двойного неравенства.)

Практическая работа № 3.

Задача 1. Составить программу определения високосного года.

Задача 2. Определить, является ли число n двузначным.

Задача 3. Даны значения действительных величин a,b,c. Удвойте эти значения, если a ≥ b ≥ c и замените их абсолютными значениями, если это не так. Используйте логическую функцию AND для записи двойного неравенства.)

Практическая работа № 3.

Тема: «Создание и реализация простейших линейных программ».

Цель: Овладение практическими навыками разработки и программирования

         линейных вычислительных процессов и навыками по отладке

            и  тестированию программ.

                                      Задание:

1.     Составить программу вычисления значения функции

y(x) = х² – 7х + 8 для заданного с клавиатуры целого значения аргумента х. Обеспечить вывод результата в виде:

y(…) = …  .

Например:   y(5) = -2 .

                                 Решение:

program z1; {заголовок программы}

Uses CRT; {подключение модуля управления экраном}

Var x,y : integer; {раздел объявления переменных}

begin {начало программы}

 ClrScr; {очистка экрана}

 writeln(‘Введите целое число х’); {вывод на экран текста, заключенного в апострофы}

  readln(x); {ввод аргумента х}

 y:=x*x – 7*x +8; {задаем функцию согласно условию}

writeln(‘y(’,x,’)=’,y); {вывод на экран результатов}

end. {конец программы}

         Запустите программу на исполнение и вычислите значение функции при х = 5.

2.     Составьте программу вывода на печать в центре экрана рисунка:

*

                                               ***

                                                *

Допишите недостающие строки вместо многоточия.

                                      Решение:

         Для вывода на экран рисунка, состоящего из символов, используемых  в языке Pascal, нужно подключить модуль управления экраном CRT  и процедуру GotoXY.

         Необходимо рассчитать координаты положения курсора и выводить изображение построчно, заключая символы каждой строки в одинарные кавычки (0<х<80; 0<y<25).

program z2; {заголовок программы}

Uses CRT; {подключение модуля управления экраном}

begin {начало программы}

  ClrScr; {процедура очистки экрана }

    GotoXY(40,10); {установка позиции курсора в 40-й столбец и 10-ю строку}

      writeln(‘*’); {вывод символа * на экран}

    …

end. {конец программы}

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

Для ввода слова в компьютер опишите в разделе Var переменную типа String (строка).

Для установки цвета фона, цвета букв и вывода названия в нужной части экрана подключите модуль CRT и воспользуйтесь процедурами TextBackGround, TextColor и GotoXY.

Решение:

program E3;

        …

begin

     clrscr;     {очистка экрана}

     write('введите название города  ');       {поясняющий текст}

     read(s);  {ввод названия города}

     TextBackGround(1); {установка синего цвета фона}

     clrscr;     {очистка экрана синим цветом}

     TextColor(4);   {задание красного цвета букв}

     GotoXY(35,23);        {установка курсора в нижнюю часть экрана}

     writeln(s)         {вывод на экран введенного названия города}

end.

4.     Составить программу вычисления расстояния между двумя точками с координатами X1,Y1,X2,Y2. Результат вывести в центре экрана на зеленом фоне (код 2) коричневым цветом (код 6). Перед выводом результата очистите экран пользователя.

                                    Практическая работа № 4.

Тема: «Создание и реализация программ с ветвлениями».

Цель: Овладение практическими навыками разработки и программирования

            разветвляющихся процессов с использованием условного оператора.

                                                                  Задания:

I.                   Ветвление по ряду условий.

Оператор IF позволяет выполнять переходы на ту или иную ветвь по значению логического условия. Для этого используют управляющую структуру  CASE…OF.

            Оператор имеет вид:

CASE  <выражение> OF

            Список меток 1:  begin

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

                                          end;

            Список меток 2: 

            …………………

            …………………

            Список меток n:

            end;

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

Задача 1. По заданной блок-схеме составьте программу преобразования введенного целого числа от 0 до 4 в его словесное  представление (нуль, один, два, три, четыре).     

                                            Используемые идентификаторы – обозначения:

            а – селектор

                                                            Блок – схема:                            Программа:

                                                                                                program Z1;

                                                                                                   writeln(‘введите  а’);

                                                                                                   case a of

                                                                                                       0: writeln(‘ноль’);

                                                                                                       2: writeln(‘два’);

                                                                                                       4: writeln(‘четыре’);

                                                                                                  end.

        II.            Конструкции условного оператора IF:

            Существует две конструкции условного оператора IF:

1.      Неполная форма команды ветвления:  IF <условие> THEN S1.

2.      Полная форма команды ветвления: IF <условие>THEN S1 ELSE S2.

S1 и S2 – отдельные операторы или операторы, сгруппированные вместе при помощи операторных скобок BEGIN – END.Задача 1. Вычисление корней квадратного уравнения.

Задача 2.       По заданной блок-схеме составьте программу вычисления корней квадратного уравнения Ах² + Вх + С = 0.

                                    Используемые идентификаторы – обозначения:

А, B, C –переменные для хранения коэффициентов;

D – дискриминант;

Х1, Х2 – корни квадратного уравнения;

                                                            Блок – схема:

               да                                  нет

                                                       да                        нет

Отладочные данные:

            а)  2х² – 5х + 2 = 0       (ответ:   х1=2;   х2 = 0.5 )

            б)  х² – 6х + 9 = 0         ( ответ:  х=3 )

            в)  2х² –3х + 5 = 0        (ответ: корней нет)

Задача 3. Даны значения действительных величин a,b,c. Удвойте эти значения, если a ≥ b ≥ c и замените их абсолютными значениями, если это не так. Используйте логическую функцию AND для записи двойного неравенства.)

                                                                Практическая работа №5

Тема: «Создание и реализация простейших циклических программ».

Цель: Овладение практическими навыками разработки и программирования

            циклических вычислительных процессов, приобретение 

навыков по отладке и тестированию программ.

                        О С Н О В Н Ы Е  П О Л О Ж Е Н И Я:

            При записи циклических алгоритмов на языке Pascal используются три структуры цикла:

-          цикл с параметром (FOR);

-          цикл с предусловием (WHILE);

-          цикл с постусловием (REPEAT - UNTIL).

Задача 1. Вывести на экран квадраты чисел от 1 до 10.

                                    Используемые идентификаторы – обозначения:

            n – параметр цикла;

            m – квадрат числа.

                                                            Блок – схема:

                                                                                                Программа:

                                                                                    program z1;

                                                                                     Var n,m: integer;

                                                                                    begin              

                                                                                          begin

                                                                                            m:= sqr(n);         

                                                                                            writeln(m);         

                                                                                          end;          

                                                                                    end.

Задача № 2.

            Вводя числа с клавиатуры без ограничения их количества ( конец ввода

число 0) найти сумму положительных и произведение отрицательных чисел. Используйте цикл с постусловием.

                                    Используемые идентификаторы – обозначения:

            а – число, вводимое с клавиатуры

            S - сумма

            P - произведение

Блок – схема:

                        нет

                                    да                             нет

Задача № 3.

            Используя цикл с предусловием, вычислить произведение чисел  1*3*5*…*101.

                                                Практическая работа № 6

Тема: «Создание и реализация программ, содержащих обращение к           

подпрограмме».

Цель: Овладение навыками алгоритмизации и программирования задач

            с использованием подпрограмм – функций и подпрограмм - процедур.

                                                            Х О Д  Р А Б О Т Ы:

Задача1. Составить процедуру нахождения квадрата суммы

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

                                    Используемые идентификаторы – обозначения:

            a, b, c – данные числа;

            z – сумма чисел;

            x – квадрат суммы;

y – корень из суммы.

x1,y1- фактические параметры.

                                    Программа:

program z1;

 var x1,y1: real;

   procedure expres ( a, b, c :real;  var x, y: real);

     var  z: real;

   begin

     z:= a+b+c;

     x:= sqr(z); {квадрат z}

     y:= sqrt(z); {корень из z}

               end;

            {Основная программа}

            begin

             expres(25.4, 44.6, 30, x1, y1);

             writeln( x1, y1);

            end.

            Формальные входные параметры a, b, c принимают значения фактических параметров a=25.4, b=44.6, c=30. При этих значениях выполняется процедура. Результатом выполнения процедуры являютcя x, y , которые передают свои значения соответствующим фактическим параметрам x1, y1. Таким образом, в основной программе будем иметь x1= 10000, y1= 10.

Задача 2. Оформим в виде процедуры SUMMA вычисление суммы 1+2+3+…+n

                  и произведения 1*2*3*…*n целых чисел.

                                    Используемые идентификаторы – обозначения:

            n – количество чисел;

SUM – сумма чисел;

            PR – произведение чисел:

            i – параметр цикла;

            k, x, y – формальные параметры.

                                                Программа:

            program z2;

             var  n: integer;

                    PR,SUM: real;

            procedure SUMMA (k: integer;  var x, y: real); {начало процедуры}

             var i: integer;

            begin

               x:=0; y:=1;

               for i:=1 to k do

                 begin

                    x:=x+i;

                    y:=y*i;

                 end;

            end; {конец процедуры}

{Основная программа}

            begin

               write (‘введите значение n:    ’);

                read (n);

                SUMMA (n, SUM, PR);

                writeln(‘SUM=’,SUM:5);

                writeln(‘PR=’,PR:5);

            end.

                                    Отладочные данные:

            Введите значение n :    10

            SUM = 5.500000E+01

            PR = 3.628800E+06 

  Задача 3. Даны действительные числа k, n, m. Получить:

f(-k, 2n, n-m) + f(1, 2, 3)

¾¾¾¾¾¾¾¾¾¾ , где  f(a, b, c) = a² + b² + c² - ½a - c½.   

         f(m, k, n)

Для вычисления функции составьте под программу - функцию.

 Задача 4. Даны действительные числа, среди которых есть положительные, отрицательные и ноль. Вычислите произведение чисел, отличных от нуля, используя процедуру Произв. и сумму отрицательных чисел, используя процедуру Сумм.

Практическая работа № 7.

Тема:         Создание программ на обработку одномерных массивов.    

Цель:  Овладение практическими навыками работы с одномерными

 массивами, вводом и выводом их значений, приобретение дальнейших

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

                                      ОСНОВНЫЕ ПОЛОЖЕНИЯ.

          Если массив имеет имя А, то элементами массива будут :

А[1], A[2], ... , A[n].   

Массив называется одномерным, если для задания местоположения элемента в массиве нужно указать значение только одного индекса. Его описание на языке Pascal :

< имя массива> : array [ границы индексов] of < тип компонент>.

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

Способы задания массивов.

1.     Массив можно задать в разделе Const , например:

Const          M: array [1..6] of integer = (2,5,7,12,8,3);

2.     Массив можно ввести с клавиатуры, например:

…

For i:=1 to 5 do

   begin

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

      readln(a[i]);

   end;

…

3.     Массив можно задать с помощью процедуры Randomize и функции Random(n), например:

Randomize;

For i:=1 to 6 do

   a[i]:= random(10);

Этот фрагмент программы позволяет получить 6 случайных чисел из промежутка  [0;10].

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

Решение:

             Пусть A – имя массива, содержащего выигрышные номера билетов;

                        N – вводимый с клавиатуры номер билета;

                        i – параметр цикла.

Зададим исходный массив в разделе Const:

Program Z1;

        Const

         A: array[1..5] of longint=(26724,90637,44667,70003,34167);{в массиве содержатся 5 выигрышных номеров}

Var

        N: longint;

          i: integer;

begin

    writeln(‘введите номер билета’);

    readln(N);

    for i:=1 to 5 do

        if N=A[i] then begin

                                  writeln(‘Вы выиграли’);

                                  Exit; {выход из цикла}

                              end;

        writeln(‘Вы проиграли’);

end.

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

Решение:

             Пусть В – исходный массив; i – его порядковый номер. По заданной блок-схеме составьте программу.

Задача 3.    Дан массив, состоящий из восьми случайных чисел из промежутка [0;50]. Составьте программу замены элементов массива с четными номерами на

число 5 (для определения четности индекса воспользуйтесь функцией mod

 или odd ).

                             Практическая работа № 9

Тема:  «Создание и реализация программ обработки строковых величин».

Цель:  Овладение практическими навыками работы со строковыми данными.

            Обработка текстов.

                             О С Н О В Н Ы Е  П О Л О Ж Е Н И Я:

          Работа со строковыми данными похожа на работу с одномерными массивами символов  array [1..n] of char.

          Строка в Borland Pascal рассматривается как цепочка символов, длина которой n=255 и описывается как тип string. К любому символу в строке можно обратиться так же, как к элементу одномерного массива.

          Основные функции и процедуры для работы со строковыми величинами:

Ø функция Length возвращает длину строки, например, n:=length(‘Иванов’) {ответ n =6};

Ø процедура Delete позволяет удалить часть строки. В общем виде обращение к процедуре выглядит так: delete(Строка, p,n); где Строка – переменная строкового типа; р – номер символа, с которого начинается удаляемая подстрока; n – длина удаляемой подстроки.

Ø функция Pos позволяет определить положение подстроки в строке. В общем виде обращение к функции  выглядит так: pos(подстрока, строка); где Подстрока – строковая константа или переменная, которую надо найти в строковой константе или переменной Строка.

Ø функция Copy позволяет копировать фрагмент строки. В общем виде обращение к функции  выглядит так: copy(Строка, p,n); где Строка – переменная строкового типа, содержащая строку, фрагмент которой надо получить; p – номер первого символа в строке Строка, с которого начинается выделяемая подстрока; n – длина выделяемой подстроки.

ХОД РАБОТЫ:

Задача 1. Выясните, имеются ли среди вводимых символов все буквы,

                  входящие в слово «змея».

Решение:

Program check;                                                                

   const                                                                      

     wrd: array[1..4] of char=('з','м','е','я');  {объявление массива в разделе констант}                  

   var                                                                        

     s:string;   {исходная строка}                                                            

     i:integer;   {счетчик букв}                                                        

     OK:boolean;    {логическая переменная, определяющая вхождение символа в слово

                             «змея»}                                                         

begin     {начало программы}                                                                  

     writeln('введите строку');  

     readln(s);    {ввод исходной строки}                                                                                                            

     OK:=true;  {стартовое значение логической переменной равно ИСТИНА}                                                             

     i:=1;   {стартовое значение счетчика}                                                                 

     while OK and (i<=4) do    {начало цикла}                                              

       begin                                                                 

         OK:=pos(wrd[i],s)<>0;   {проверка вхождения каждого символа исходной строки

в слово «змея»}                                            

         i:=i+1;  {занесение в счетчик единицы при выполнении условия в предыдущей

  строке}                                                           

       end;  {конец цикла}                                                                

     if OK then writeln('предположение верно') else writeln('предположение не

     подтвердилось');                           

end.   {конец программы}      

Задача 2. Ввести с клавиатуры список фамилий и вывести их в алфавитном порядке (добавьте в программу недостающие строки).

Решение:

Используемые идентификаторы-обозначения:

n – количество фамилий;

S – исходный массив фамилий;

i,j – параметры цикла;

k – вспомогательная переменная.                                                   

Program Alphabetize;                                                          

   var                                                                        

     S:array[1..100]of string;                                                  

    …

begin                                                                         

     writeln('vv kol');                                                       

     readln(n);                                                               

     writeln('vv slova');                                                     

     for i:=1 to n do                                                         

       …

     writeln('alph');                                                         

     for i:=1 to n do                                                         

       begin                                                                  

         k:=1;                                                                

         for j:=2 to n do                                                     

           if (S[j]<S[k]) and (S[j]<>'') then k:=j;                          

         writeln(S[k]);                                                       

         S[k]:=''                                                            

       end;                                                                   

end.                                                                          

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

Практическая работа № 2.

Тема: «Создание и реализация программ на ввод и вывод данных».

            Использование процедур и функций модуля CRT.

Цель: Уметь вводить и выводить информацию на экран; подключать модуль управления экраном CRT; менять цвет фона, букв; управлять положением курсора; выводить числа  в заданном формате.

                               ОСНОВНЫЕ ПРИЕМЫ И МЕТОДЫ.

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

2.      Для управления экраном подключите модуль CRT в разделе Uses.

3.      Для выбора цвета фона используйте процедуру TextBackGround(код цвета).

4.       Для очистки экрана выбранным цветом фона используйте процедуру ClrScr.

5.      Для установки цвета символов используйте процедуру TextColor(код цвета).

6.      Для позиционирования курсора в точку экрана используйте процедуру

GotoXY(координаты курсора). (1£ х £ 80;  1£ y £25)

7.      Для временной задержки вывода пользовательского окна используйте процедуру Delay(число).

8.      Sound(Hz) - включение звукового сигнала указанной частоты в герцах;

NoSound - отключение звукового сигнала.

                                                            Задание:

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

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

program E1; {имя программы}

  var a,b: real; {раздел объявления переменных}

begin {начало программы}

  writeln(‘Введите два числа через пробел и нажмите ENTER’); {вывод на экран фразы, заключенной в апострофы}

  readln(a,b); {ввод двух чисел}

  writeln(‘a+b=’,a+b,’a*b=’,a*b,’a-b=’,a-b); {вывод на экран результатов}

end. {конец программы}

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

program E2;

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

begin

  writeln(‘Введите два числа через пробел и нажмите ENTER’);

    readln(a,b);

      x:=a+b;

      y:=a*b;

      z:=a-b;

  writeln(‘a+b=’,x,’a*b=’,y,’a-b=’,z);

end.

3.      Внесите изменения в программу из задания № 2, указав формат вывода числа

6:2 . Для этого измените строку:

             writeln(‘a+b=’,x:6:2,’a*b=’,y:6:2,’a-b=’,z:6:2);

4. Составить программу - заявление.

 program S; {имя программы}

  uses CRT; {подключение модуля управления экраном}

  var name_direct,my_name,data: string; {раздер описания переменных}

begin

  ClrScr; {очистка экрана}

  writeln('Введите имя директора организации'); {вывод на экран текста, заключенного в апострофы}

  readln(name_direct); {ввод имени директора}

  writeln('Введите свое имя'); {вывод на экран текста, заключенного в апострофы}

  readln(my_name); {ввод собственного имени}

  writeln('Введите дату подачи заявления'); {вывод на экран текста, заключенного в апострофы}

  readln(data); {ввод даты}

  ClrScr; {очистка экрана}

  TextColor(4); {установка красного цвета символов}

  Sound(200); {звуковой сигнал}

  GoToXY(50,1); {установка курсора в 50-й столбец и 1-ю строку}

  write('Директору ',name_direct); {вывод на экран слова «Директору» и его имени}

  GoToXY(50,2); {установка курсора в 50-й столбец и 2-ю строку}

  write(my_name); {вывод на экран вашего имени}

  GoToXY(35,6); {установка курсора в 35-й столбец и 6-ю строку}

  write('ЗАЯВЛЕНИЕ'); {вывод на экран слова «Заявление»}

  GoToXY(5,8); {установка курсора в 5-й столбец и 8-ю строку}

  write('Прошу принять меня ',my_name,'на работу.'); {вывод на экран текста, заключенного в апострофы и вашей фамилии}

  GoToXY(5,10); {установка курсора в 5-й столбец и 10-ю строку}

  write(data); {вывод на экран даты}

  NoSound; {отключение звука}

  Delay(500) {задержка вывода пользовательского окна}

end. {конец программы}

5.   Написать программу, выводящую слово «Привет» на синем фоне в левом верхнем и правом нижнем углах экрана. Каждое слово вывести своим цветом.

                                    Практическая работа № 8

Тема: «Создание и реализация программ обработки табличных величин»

            (двумерные массивы).

Цель: овладение практическими навыками алгоритмизации и

программирования структур с вложенными циклами, способами

ввода, обработки и вывода матриц.

                        ОСНОВНЫЕ  ПОЛОЖЕНИЯ

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

Описание двумерного массива:  

mas: array[1..n,1..m] of <тип элементов массива>.

Для задания, обработки и вывода двумерного массива требуется два вложенных цикла. Фрагмент ввода массива с клавиатуры:

            …

writeln(‘введите массив’);

            for i:=1 to n do

               for j:=1 to m do

                   read A[i,j];

            …

Задача 1.  Задание двумерного массива с помощью функции случайных чисел.

   program D1;

        uses CRT;

        const n=3; m=4;

       var

            mas: array[1..n,1..m] of integer; {объявление двумерного массива}            

            i,j: integer; {переменные для хранения индексов строк и столбцов}     

   begin                                                                 

       clrscr; {очистка экрана}   

      {задание массива датчиком случайных чисел}                            

       randomize;                                                                

          for i:=1 to n do                                                        

              for j:=1 to m do                                                    

 mas[i,j]:= random(100); {запись случайного числа из промежутка [0;100]   в массив на место с номером строки i и номером столбца j }                  

             { вывод матрицы на экран по строкам}                               

        for i:= 1 to n do                                                  

            begin                                                             

              for j:=1 to m do                                               

                write(mas[i,j]:5); {вывод элементов массива на экран; на каждый

                                                элемент отводится 5 знакомест}                                         

                writeln; {переход на новую строку с изменением индекса i}    

            end;                                                             

   end.                                                                      

Задача 2.

Задана  матрица 3 x 6 :

1 0 1 0 1 0                                                                              ­

                        0 1 0 1 0 1

                        1 0 1 0 1 0 .

              Замените в ней все нули на единицы, а единицы на нули.

                                                Б Л О К  -  С Х Е М А

                              да                                             нет

Задача 3. Задана квадратная матрица A(n).  Все элементы ниже главной диагонали замените нулевыми. Матрицу задайте в разделе Const (используйте свойство индексов элементов, расположенных ниже главной диагонали).

            Исходная матрица:                                       Результирующая матрица:

                        1 2 3                                                    1 2 3

                        4 5 6                                                    0 5 6

                        7 8 9                                                    0 0 9