Муниципальное бюджетное вечернее (сменное) общеобразовательное учреждение Центр образования

города Ставрополя  имени Героя России   Владислава Духина

 

 

 

 

Серия  лабораторных  работ  по  программированию

 

ЛАБОРАТОРНЫЙ     ПРАКТИКУМ   Программирование на алгоритмическом языке PASCAL

 

 

 

 

АВТОР ПРОГРАММЫ:

учитель информатики

Краснокутская С.Н.

высшая категория

 

 

 

 

 

 

 

 

 

г. СТАВРОПОЛЬ

2018

 

 

СОДЕРЖАНИЕ

 

 

Лабораторная работа №1.  Основные понятия языка Pascal

Лабораторная работа №2.  Условные инструкции. Оператор IF.

Лабораторная работа №3.  Оператор цикла. For - оператор цикла с параметром.

Лабораторная работа №4.  Оператор цикла. Инструкция while

Лабораторная работа №5.  Оператор цикла. Инструкция repeat.

Лабораторная работа №6.  Инструкция множественного выбора

Лабораторная работа №7.  Символы и строки.

Лабораторная работа №8.  Одномерные массивы.

Лабораторная работа №9.  Двухмерные массивы.

Лабораторная работа №10. Множества.

Лабораторная работа №11. Записи.

Лабораторная работа №12. Процедуры

Лабораторная работа №13. Функции.

Лабораторная работа №14. Файлы.

 

Графический режим работы в языке  PASCAL.

Лабораторная работа №15. Линия.

Лабораторная работа №16. Заполненный   прямоугольник.

Лабораторная работа №17. Окружность и дуга окружности.

Лабораторная работа №18. Заполненный сектор окружности.

 

 

ЛИТЕРАТУРА

Лабораторная работа №1

 Основные понятия языка Рascal

 

Структура программы:

Program < имя программы >

Label < раздел меток >

Const < раздел констант >

Туре < раздел типов >

Var < раздел переменных >

Procedure    и    function < раздел подпрограмм >

Begin

< раздел инструкций >

end.

При написании программ разделы  const, type, var, label, рrocedure,function могут отсутствовать.

К разделу инструкций относятся:

1.  Оператор присваивания:

< имя переменной > : = < арифметическое выражение >

2.           Оператор ввода
     Read ( список ввода )
     Readln (список ввода)

3.           Оператор вывода
     Write (список вывода)

     Writeln ( список вывода ) — отличается от инструкций write только тем, что после вывода сообщений или значений переменных курсор переводится в начало следующей строки, например :

Writeln ('На улице хорошая погода');

Writeln ('Целое а=', а:3);

Write ('Вещественное b=', b:10:3);

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

Типы данных :

Бывают простые и структурированные типы данных. К простым типам данных относятся :

1.            Целые типы:   byte, word, integer, longint, shortint.

2.      Логический (булев) тип данных  boolean   представлен двумя значениями   true и  false

3.            Символьный (литерный) тип  char.

4.           Интервальный

5.           Вещественные типы: real, single, double, extended, сотр.

Некоторые стандартные функции:

Arctan(x)  - арктангенс х, выраженный в радианах;

Cos(x)       -  косинус х;

Sin(x)        - синус х;

Sqr(x)       -  квадрат х;

Sqrt(x)       - квадратный корень из х;

Ехр(х)       - экспонента (е^х);

Ln(x)         -  натуральный логарифм  х;

Frac(x)      -  дробная часть х;

Int(x)         -  выделяет целую часть  х  без преобразования типа;

Random(x) - генерирует случайное число   с     в пределах   0 < с < х;

Round(x)      - округляет значение х до ближайшего целого числа;

Тrunс(х)      -  выделяет целую часть вещественного числа и преобразует ее к типу longint..

 

Пример:

Найти сумму (sum) и произведение  (pr) трех  введенных с клавиатуры целых чисел  a,b,c.

 

 Program primer1;               { имя программы }  

Uses crt;   { организует  программе  доступ к процедурам   и функциям  библиотеки  Crt }

Var a, b, c, sum, pr : integer;        { объявление переменных а, b, с, sum ,pr ,                                                                                                                                                                                                                                                                   которые  присутствуют в программе }

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

    clrscr;               {  очистка текущего окна }

Write ('Введите З целых числа - ');   { выводит на экран сообщение "Введите 3                   целых числа" }

        Readln (a,b,c);           { ввод с клавиатуры исходных данных а, b, с }

        Sum:= 0;              { присваивает переменной  sum  значение ноль }

       pr := 0; ;                { присваивает переменной  pr  значение ноль}

        Sum :=a+b+c;               {  вычисляет сумму ( sum )   трех  чиcел   а, b, с }

        Pr :=a*b*c;                    { вычисляет   произведение ( pr )   трех чисел   а, b, с }

Write ('Сумма = ', sum: 5, 'произведение =',pr: 5);   { выводит на экран сообщение сумма =     и  дописывает  к ней результат сложения трех чисел (отводит под число 5 позиций экрана), далее  произведение =      и результат произведения в 5 позициях. }

Readln;

End.                       ( конец программы }

 

Задание для самостоятельной работы

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

2.    Написать программу вычисления площади прямоугольника по формуле S:= a*b.

3.  Написать программу вычисления стоимости поездки на автомобили на дачу (туда и обратно). Исходными данными являются: расстояние до дачи (км.), количество бензина, которое потребляет автомобиль на 100 км. пробега, цена одного литра бензина.

4.     Написать программу вычисления площади поверхности параллелепипеда по формуле
S = (a*b + a * h+ b * h) * 2,    a, b - длина и ширина, h - высота параллелепипеда.

5.     Написать программу вычисления объема цилиндра по формуле   V= 2*П*г² *h.

6.   Написать   программу   вычисления   площади   поверхности   цилиндра   по   формуле      S = 2*Л*г²+2*П*г*п;

 

7.Составить программу:

а) вычисления значения функции    у = 7х- 3х +6    при  любом  значении    х ;

б) вычисления значения функции   х = 12а+ 7а  – 16  при любом значении  а.

 

8. Даны два числа. Найти среднее арифметическое о среднее геометрическое их модулей.

 

9. Полторы кошки за полтора часа съедают полторы мышки. Сколько мышек съедят  Х   кошек  за   Y   часов ?

 

10.  Окружность вписана в квадрат заданной площади. Найти площадь квадрата, вписанного  в эту окружность. Во сколько раз площадь вписанного квадрата меньше площади заданного ?

 

11. Даны катеты прямоугольного треугольника. Найти его гипотенузу.

 

12.   Даны катеты прямоугольного треугольника. Найти его периметр.

 

13.   Даны основание и высота равнобедренной трапеции. Найти ее периметр.

 

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

 

Z =      и    q = 2.8 sin x + y   при любых значениях    x   и   y.

Лабораторная работа № 2

Условные инструкции. Оператор IF.

 

 

Формат записи:

 

If < условие >   then    < инструкция 1>    else    < инструкция 2 >

 

Здесь if, then, else - зарезервированные слова (если, то, иначе);

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

< инструкция1 >. . < инструкция 2 > - любые инструкции языка Паскаль.

 

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

1.  Вычисляется значение <условие >.

2.            Если условие истинно   (true), то выполняются инструкции, следующие за словом   then  и находящиеся между словами   begin   и   end

3.            Иначе выполняются инструкции, следующие за словом   else.

Если действие должно быть выполнено только при выполнении определенного условия и пропущено в случае его невыполнения, то инструкция if записывается без инструкции else.

if <условие >   then    <инструкция1 >

Пример:

Даны три вещественные числа х, у, z. Найти максимальное из них.

 

Program  primer;                                                        

Var  х, у, z, max : real;

Begin

Write ( 'Введите числа х, у, z через пробел - '); 

Readln (x, у, z);

If x>y   then   max:=x   else   max:=y;

If z>max    then    max:=z;

Writeln ( 'максимальное из них', max:4);

Readln;

End.

 

Задание для самостоятельной работы.

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

2.    Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3%  предоставляется, если сумма покупки больше 500 руб., в 5%- если сумма больше 1000 руб.

3.    Написать программу вычисления площади кольца по формуле   S = 2 * П * (r1 - r2).  Программа должна проверять правильность исходных данных.

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

d =b²-4*с,          x1 = (-b+)/ 2*a,         х2 =(-b - )/ 2*a,

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

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

7. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в   10% предоставляется, если сумма покупки больше 1000 рублей.

8. Написать программу вычисления плошали кольца по формуле

S = 2 *П *(r1-r2). Программа должна проверять правильность исходных данных.

9. Написать программу вычисления стоимости разговора по телефону с учетом  20%  скидки, предоставляемой по субботам и воскресеньям.

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

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

рост (см) – 100.

12.  Даны три  вещественные числа х, y, z . Вычислить значение выражений  

x + y + z      и    xyz     и   вывести максимальное из них :

х + y + z   >   x* у * z       или        х + y + z   <   x* у * z .  

 

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

 

а)                    

 

 

б)          

Лабораторная работа № 3

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

 For - оператор цикла с параметром.

 

Инструкция   For используется, когда число повторений заранее известно. Формат записи :

 

For <счетчик> := <начальное значение > to <конечное значение> do

Begin

{тело цикла}

End;

 

Здесь <счетчик > - имя переменной , определяющей число повторений инструкций тела цикла;

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

В инструкции For после каждого выполнения инструкции тела циклов автоматически увеличивается счетчик циклов. Если вместо ключевого слова to написать downto , то счетчик будет не увеличиваться, а уменьшаться.

 

Пример:

Вычислить   s = 1 + 2+3 +…+n.

 

Program primer;

uses crt;

var n, s, i: integer;

begin

clrscr;

write('введите значение n-'); 

readln(n);

S:=0;

for i :=1   to  n    do  

S:=s + i;

writeln('сумма =',s);

readln;

 end.

 

Если между операторными скобками   begin   и   end  находится только одна инструкция (как в нашем примере ), то слова   begin   и   end  можно не писать.

Задание для самостоятельной работы.

1.  При   а = 2.7   табулировать функцию   у = 6 - За sin x . Для переменной  х последовательно  ввести значения   1, 2, 4, 7,11,17.

 

2.            Какое число отображает слово «КОТ».   Если «КТО» + «КОТ» = «ТОК».

3.     Необходимо решить следующий числовой   ребус -
«ШАЛАШ» + «ШАЛАШ» = «КОКОИОКОКО».

 

4.   *312** :  *321 = ***.

 

5.     *1*   *    3*2    = *312**.

 

6.           Среди чисел от     1 < n < 100     найти все пары чисел, для которых   их сумма равна их  произведению.

 

7.           При   в = 3   табулировать функцию    у = 12.5  .   Значение   х   изменяется от   1   до  5  с  шагом   0.5 .

  

8.   При   а = 1.5   и   в =-3   табулировать функцию     у=       Значение х  изменяется от   1  до  5   с шагом   0.5.   ( Знаменатель не  должен     быть равен 0 и подкоренное выражение не должно быть отрицательным ).

 

9.  Написать  программу,  которая вычисляет сумму первых    n   членов ряда  1,3,5,7... Количество суммируемых членов ряда задается во время работы программы.

 

10.  Написать программу, которая вычисляет сумму членов ряда   

      1 + 1/2 + 1/3 + ¼ …    Количество суммируемых членов ряда задается во                         время работы программы.

 

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

 

12.  Составить программу для определения таблицы значений функции у в произвольном диапазоне [a,b] изменения аргумента х с произвольным шагом h. Значения a, b, h вводятся с клавиатуры. Таблица должна содержать следующие столбцы: порядковый номер, значение аргумента x, значение функции, сообщение о возрастании или убывании функции, разность двух соседних значений функции. Определить максимальное и минимальное значения функции.

1.         a=-0,5; b=2,5; h=0,2.

2.         a=-0,9; b=2,7; h=0,3.

Лабораторная работа № 4

Оператор цикла. Инструкция while

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

while <yсловие> do

begin

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

end;

Здесь    <условие>    - выражение логического типа , определяющее условие выполнения  цикла.

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

1.  Вычисляется значение выражения <условие>

2.           Проверяется истинность условия:

·                   если условие является ложным   (false) , то инструкции расположенные между словами begin   и   end, не выполняется и выполнение инструкций   while   завершается ;

·                   если условие является истинным   (true), выполняются инструкции цикла между словами begin   и   end   и после этого вновь переходит к шагу 1.

Пример:

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

Program primer;

Uses crt;

Var a, s : real;

Begin

Clrscr;

S:=0

Read(a);                

    While a<>0 do

      Begin

                     If a>0 then s := s+a ;

              Read(a);

      End;

Writeln('Cyммa=', s:3:2);

Readnl;

Readln;

End.

Лабораторная работа № 5

Оператор цикла. Инструкция repeat.

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

repeat

{инструкции }

until < условие >

Здесь   < условие >   - выражение логического типа, определяющее условие завершения  цикла.

 

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

1.  Выполняются инструкции цикла, находящиеся между словами   repeat   и until.

2.            Вычисляется значение выражения   <условие>:

   -  если условие ложно (false),  выполняется переход к шагу 1 ;

   -  если условие истинно (true), выполнение цикла прекращается.

Пример ;

Даны два натуральные числа. Определить их наибольший общий делитель.

 

program primer;

uses crt;

var n,m,x:integer;

begin

clrscr;

      repeat

writeln('введите натуральные числа m и n'); readln(n,m);

until (n>0) and (m>0);

     while n>0 do

     begin

  x:= m mod n;

   m: = n ;

    n : = x ;

                                   end;

writeln('НОД = ' , m);

readln;

end.

 

Задание для самостоятельной работы.

1.     Подсчитать сумму всех нечетных чисел от   101   до  301 .

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

 

3.           Вычислить степень числа  3   в диапазоне от 1 до 300.    

 

4.     В  бак с  помощью мерных сосудов различного  объема нужно  залить столько  жидкости, чтобы бак не переполнился, но был наполнен как можно полнее. Значения  емкости бака, емкости сосуда, количества вылитых в бак мерных сосудов вводятся с  клавиатуры. Если объем жидкости превышает объем бака, выдать соответствующее  сообщение.   

 

 

5.              Написать программу, которая «задумывает» число в диапазоне

от   1  до 10   и предлагает пользователю угадать число за   5  попыток. 

 

6.     Дано действительное число а. Найти среди чисел 1, 1+1/2, 1+1/2+1/3+… первое, большее а.

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

 

8.     Определить количество слагаемых в сумме вида S=2+4+6+… при условии, что S≤2^m, где m – целое число, вводимое с клавиатуры.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Лабораторная  работа № 6

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

 

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

Для множественного выбора служит инструкция   case.

Case  a of

1,5,7..10: c:=b+a;

2..4,20: с=b-а;

20..100: с:=b/а

else c:=b*a

end;

 

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

1.  Вычисляется значение выражения   (а), следующего за словом    case;

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

 

После этого возможен один из следующих вариантов действий:

·        если   значение   выражения   совпадает   с   константой   из   списка,   то   выполняется  соответствующая   этому    списку    последовательность    инструкций    и    выполнение  инструкций   case  завершается;

·        если значение выражения не совпадает ни с одной константой из списков, то выполняется  последовательность инструкций, следующая за словом  else,  и выполнение инструкции  case  завершается;

·        если блока   else  в инструкции   case   нет, то ее выполнение завершается.

Пример:                                                                

Составить программу, которая позволяет ввести два числа в первой строке и один из знаков +, -, *, / во второй строке, а на экран выводит результат соответствующего арифметического действия.

Program primer;

uses crt;

var   x, у, z : real; operation: char; begin

writeln ('Введите числа  х и у');

readln (x,y);

writeln ('Введите символ операций');

readln (operation);

case operation   of

^‘+': z:=x+y;

' - ' :z:=x-y;

‘ * ’ : z:=x*y;

' / ’ : z:=x/y

else  writeln('Taк не договаривались')

end;

writeln(‘Результат = ‘ , z );

readln;

end.

 

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

 

 

Задание для самостоятельной работы.

 

1.  Написать программу для вывода дней недели.

 

2.             Дано натуральное число n < 101, определяющее возраст человека (в годах). Дать для этого числа подпись   «год», «года»,   или   «.лет». Например, 1 год,

23 года, 45 лет   и  т.п.

 

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

 

 

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

 

5.            Составить программу, определяющую результат гадания на ромашке («любит – не  любит»), взяв за исходные данные количество лепестков.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Лабораторная  работа № 7

Символы и строки.

 

Символом   является любой одиночный знак, заключенный в апострофы    (тип char).

Над значениями типа   char   возможны операции сравнения   =, <>, >, >=, <, <=,   а также  часто применяются следующие функции:

 

Ord(ch)    - численное значение (код) символа

Pred(ch)   - предыдущее значение, например pred (' b ')='a'

Succ(ch) - последующее значение, например  succ('a')=' b '

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

Строка   -   это   ограниченная   апострофами   последовательность   любых   символов.   Для  обработки строк используется тип string.

< идентификатор > : string [ п ];

Здесь п - длина строки, не более 255 символов. К любому символу в строке можно  обратиться так же, как к элементу одномерного массива.

Для обработки строковых данных существует стандартные функции и процедуры:

1.  delete (st,k,n)       -   удаляет п символов из строки   st, начиная с символа   к;

2.           insert (st1,st2,k) - вставляет строку  st1   в строку  st2  с к-го символа;

3.   copy(st,k,n)        - копирует из строки   st   с   к-го символа   п   символов;

4.          concat (st1,st2,... st n)  - выполняет сцепление строк в том порядке в котором они  указаны;

5.          length (st)      -   вычисляет длину строки st;

6.          pos (st1,st2 )   -  отыскивает строку  st1 в строке st2 (результат - это номер позиции с которой начинается st1);

7.          upcase ( ch )   -   преобразует строчную латинскую букву в прописную;

8.          str (n,st) - преобразует число   n   в строковую переменную   st;

9.          val (st,x,code) - преобразовывает строку   st  в двоичное число  x, где   code  представляет собой код неправильного символа;

Пример;

 

Из данной строки получить новую строку, удалив все звёздочки (*) и повторив все остальные символы дважды, полученную строку распечатать.

program primer;

uses crt;

var s,h:string;

      i,k,j: integer;

begin

clrscr;

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

readln(s);

j:=1;

for i:=l to length (s) do

        if s[i] <>'*' then

          begin

           h[ j ]=s[ i];

           h[j+1]=s[ i];

           j=j+2;

     end;

    for i:=l to 2*length (s) do  write(h[i]);

readln;

end.

 

 

Задание для самостоятельной работы;

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

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

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

4.            Дана строка символов. Заменить в ней все восклицательные знаки на точки.

5.            Дана строка символов. Выделить подстроку между первой и второй точкой.

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

7. Ввести с клавиатуры строку символов. Признак окончания ввода строки – нажатие клавиши "Ввод". Программа должна определить длину введенной строки L, и, если длина L кратна 2,  то удаляются все числа, которые делятся на 2.

8. Выяснить, имеются ли среди символов S1...Sn некоторой строки все буквы, входящие в слово DOS.

 

Лабораторная работа по теме № 8

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

 

 

 Массив - это структура данных, которую можно рассматривать как набор переменных одинакового типа, имеющих общее имя. Массив в программах должен быть объявлен.

 

<Имя> : array  [< н. индекс >..< в. индекс> ]  of <mun>

 

Где

< имя > - имя переменной - массива;

Array   -   зарезервированное слово, обозначающее, что переменная является массивом;

<  н. индекс >   и   < в. индекс > - соответственно, нижний и верхний индексы, которыми  являются целые константы;

<  Тип > - тип элементов массива.

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

[a, b ] , вычисляются по формуле а + random ( b - а + 1). Например, если необходимо случайное число на отрезке [10, 99], функцию можно записать

otr := 10 + random ( 90 ); Эта функция обычно используется совместно с процедурой randomize, позволяющей при последовательных запусках программы получать разные случайные последовательности.

 

Пример;

 

Дан массив из пяти целых чисел. Отсортировать его по возрастанию методом прямого обмена ( «пузырьковый» метод ).

 

Program primer;

Uses crt;

var   a : array [1..5] of integer;

i, j , n, с : integer;

begin

n := 5;

randomize;

    for i := 1 to  n   do                  

         begin

   afij := random(15)-3;

   write ( a[i]:4 );

  end;

 writeln;

for  i:=l_e to n-1 do

     for j:=l to n-1 do

    if a [  j]> a[j+1] then

            begin

            c:=a[j];

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

            a[j+1]:=c;

end;

for i:=l to n do

write ( a[ i]:4);

readln;

end.

Задание для самостоятельной работы.

 

1.     Найдите сумму всех элементов массива  А, больших заданного числа.

2.     В одномерном массиве целых чисел удалить   К - элемент массива.

3.     Заполнить массив, применив для его заполнения следующие значения :
а[ i ] = x*i*i / ( i + х ).

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

5.       Дан массив чисел. Найти значение максимального элемента. Если таких элементов несколько, то определить сколько их. 

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

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

8.         Даны три одномерных числовых массива   А, В, С.  Сформировать массив  К  такой же длины, элементы которого вычисляются по формуле 

 K[i] =А[i] + В[i] / (1 + <С [i] ).  

9.         В массиве хранится сведения о количестве осадков выпавших за каждый день месяца.
Определить:

а). общее количество осадков за месяц;

б). общее количество осадков, выпавших за каждую декаду месяца;

д). среднедневное количество осадков в этом месяце;

г).   в какой период выпало больше осадков: в первую половину месяца или во вторую;

е).   в какую декаду месяца выпало больше всего осадков.

10. Дан массив вещественных чисел, размер которого N.

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

Лабораторная работа № 9

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

Формат записи:

 

<имя>:аrrау[<нижний индекс 1> . . <верхний индекс 1>, <нижний индекс 2> . . <верхний индекс 2> ] of <mun>;

 

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

For  I := 1   to  n   do

For   j := 1   to   n   do

                                                  A[i,j]:= random (100);

 

Пример:

Дана матрица   А_5,5   ,  содержащая случайные  элементы.  Найти сумму  всех элементов  матрицы.

 

program primer;

uses crt;

const n=5;

var a:array[1..n,1..n] of integer; 

      i,j,s:integer;

         begin

  randomize;     s:=0;

  for i:=l to n do

  begin

 for j:=l to n do

 begin

        a[i,j]:=random(20);

        write(a[i,j]:4);

        s:=s+a[i,j];

        end;

  writeln;

 end;

writeln('сумма элементов матрицы =',s:10);

readln;

end.

 

Задания для самостоятельной работы.

 

1)    Дана матрица  А _5,5 , состоящая из случайных чисел. Составить одномерный массив   S, в котором будут содержаться значения суммы элементов каждого столбца матрицы.

 

2)    Вывести на экран таблицу Пифагора.

 

3)    Найти сумму положительных элементов, указанного столбца матрицы целых чисел.

 

4)    Заменить все элементы двухмерного массива целых чисел, которые меньше среднего арифметического первого столбца, квадратами этих элементов.

 

5)    Найти  сумму  элементов  двухмерного  массива вещественных  чисел 

С [  15, 15],   расположенных на главной диагонали.

 

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

 

7)    В двухмерном массиве вещественных чисел заменить все элементы, меньшие суммы элементов первой строки, этой суммой.

 

8)    Отсортировать строки массива целых чисел по возрастанию.

 

9)    Дан двухмерный массив. Вывести на экран:

•         все элементы пятой строки массива;

•         все элементы третьей строки массива, начиная с последнего элемента этой строки;

•         все элементы  S-го столбца массива;

•         все элементы второго столбца массива;

•   все элементы    n–ой  строки массива.

 

10) Дана матрица     N х М   состоящая из натуральных чисел. Найти в ней наименьший  элемент и определить его местоположение.

 

 

 

 

 

 

 

 

 

 

Лабораторная работа № 10

Множества.

 

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

Описание множественного типа:

S = set of a

Здесь  set  и  of- зарезервированные слова, имеющие смысл  множество   и   из;

S - имя объявляемого множественного типа;

А - базовый тип множества;

Type  s= set of 1..3

                      var x := s

Переменная   x   принадлежащая множественному типу   s   может принимать значения:

[], [1], [2], [1,2], [3], [1,3], [2,3], [1,2,3]   (всего 2³ значений)

Константы множественного типа записываются с помощью квадратных скобок [ ] и списка элементов.

 

Процедура Include (s, a ) - добавляет в множество какой-нибудь элемент, где S - множество, а - добавляемый элемент.

 

Функция  Exclude (s, а)   исключает элемент а из множества   s.

 

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

 

+     - объединение множеств;

*     - пересечение множеств;

     -      - разность множеств;

=     - проверка равенства множеств;

<>   - проверка неравенства множеств;

<=   - проверка того, является ли левое множество подмножеством правого;

=>   - проверка того, является ли  правое множество подмножеством левого;

in    - проверка на принадлежность элемента данному множеству.

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

ПРИМЕР:

Дана строка, содержащая 20 символов. Подсчитать количество цифр, входящую в данную строку.

 

 

Program primerl;

uses crt;

var s : string[20];

N : set of char;

I, k: integer;

Begin

clrscr;

N: =['0’..'9'];

Write(' введите слово ( не более 20 символов ) -');

Read(s);

k:=0;

for i: =1 to length(s) do     if s [ i ] in   n   then   inc ( k );

Writeln(' цифры в строке встречаются ', k,' раз(а)');

Readln;

Readln;

End.

 

Задание для самостоятельной работы :

 

1. Дана строка символов. Удалить из нее первый встречающийся знак препинания.

 

2.   Дана строка символов. Удалить из нее все знаки препинания.

 

3.   Задано множество целых положительных чисел от 1 до n.  Создать из элементов этого множества такие подмножества, элементы которых удовлетворяют следующим условиям:

·        не превышают 10;

·        кратны 8;

·        не кратны 3 и 6.        

 

4. Даны две символьные строки, содержащие только строчные латинские буквы. Построить строку S3 , в которую войдут только общие символы   S1  и  S2  в алфавитном порядке и без повторений.

 

 

 

 

 

 

 

 

 

 

 

 

Лабораторная работа № 11

Записи.

 

Запись - это структура данных, состоящая из отдельных компонентов разного типа, называемых полями. Тип записи должен быть объявлен в разделе Туре

 

< имя >  =  record

< поле 1 > : < тип 1 >

< поле 2 > : < тип 2 >

       . . .

поле к > : < тип к >
end;

Здесь < имя > - имя типа записи;

record - слово языка Паскаль означающее, что далее следует описание полей записи;

< поле >   и   < тип .> - имя и тип   1-го   поля записи

type person = record

 fam: string [20];

name: string [15];

day: byte;

address: string [40];

end;

 

Чтобы использовать в программе поле переменной-записи, указывают имя переменной и имя поля, отделяя имя поля от имени переменной точкой,  например person .fam Инструкция      with    позволяет использовать в тексте программы имена полей без указания имени переменной - записи:

 

             with <имя> do

            begin

       {инструкции программы}

 end;

 

Здесь   with - слово, означающее, что далее до слова   end   при обращении к полям переменной - записи   <имя> можно не указывать имя записи.

 

Пример:

 

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

program  zap;

   uses  crt;

const res: string[3] = 'не';

total: byte = 0;

type info = record

       q: byte;

      w: real

      end;

   var bagage: info;

   i, n: byte;

begin

clrscr;

write('введите число пассажиров ->'); readln(n);

writeIn('введите  пары  чисел   (количество  и  вес):');

         for  i:=1   to  n  do

           begin

       readln(bagage.q,bagage.w);

       inc(total,bagage.q);

       if (bagage.q=l)and(bagage.w>=30)    then  res:='' ;

end;

writeln('суммарное  количество  вещей:',total); writeln('искомый  пассажир,res,'имеется.');

readln;

end.

Задание для самостоятельной работы.

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

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

3.           Дан массив записей, содержащих   дату ( число, месяц, год )   и 

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

4.           Дан массив записей, содержащий сведения о работниках магазина, напечатать:

а) список продавцов;

б) среднюю заработную плату по предприятию.    

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

Лабораторная   работа  № 13

Процедуры

 

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

 

Заголовок процедуры:

Procedure    < имя >   [(< список >)]; Здесь   < имя > -   имя процедуры;

< список > -   список формальных параметров ( не обязательно )

 

Пример

Банк выплачивает  Р  %   годовых.   В  какую  сумму  превратится вклад величиной   х 0 , положенный  на    n    лет?

 

program primer;

uses crt;

var x0 : real;

        n : integer;

procedure  vichislenija;

const p=8  ;

var xn: xeal;

begin

clrscr;

xn ;=xo*exp (n*ln (1+0.01 *p) ) ;

      write (‘ Сумма =   ‘  ,xn:6:2) ;

end;

begin

write ( 'Введите сумму вклада.   - ') ;

readln (xo) ;

wri te( 'Введите срок вклада   -');

readln (n);

vichislenija;

readln;

end.

 

Задание для самостоятельной работы.

 

1.                 Заполнить линейный массив, элементы которого вычисляются по формуле   a[j] := 2*i / (i+1).  Вычисление по формуле оформить процедурой.

 

2.                      Составить программу  с   процедурой   без  параметров  для вычисления  полярных  координат     r=     и      f = arctg х/у       по прямоугольным координатам    х   и   у    , (x>0) .

 

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

4.                 Дана строка символов. Написать процедуру удаления из строки всех одинаковых рядом стоящих символов.    

5.                 Составить программу для вычисления   z =, используя процедуру  Sh x =  .

6.                                  Ввести массив NxN (не больше 50) целых чисел и в функции посчитать сумму его    положительных значений.

 

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

 

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

 

9.                 Найти все простые числа из промежутка от  1  до  n.  В данном случае воспользуемся так называемой   косвенной рекурсией. Эта ситуация, когда первая процедура вызывает вторую, вторая процедура вызывает третью, а третья вновь вызывает первую.

 

10.             Даны основания и высоты двух равнобедренных трапеций. Найти сумму их периметров, определив функцию для расчета периметра равнобедренной трапеции по ее основаниям и высоте.

 

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

 

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

 

 

 

 

Лабораторная работа № 12

Функции.

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

 

Описание функции состоит из заголовка и тела. Заголовок функции:

Function <имя> [ (списох ) ] : <тип> Здесь <имя> - имя функции

          <список> - список формальных параметров,

 <тип> - тип возвращаемого функцией результата.

 Список формальных параметров не обязателен.

Пример :

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

Program primer;                                                                                           

Uses crt;

Var  i, j : integer;

Functiоп   min (i, j; integer) : integer;

begin

if  i<j  then   min : =i   else min : =j

end; Begin

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

Readln (i,j);

Writeln ( 'min = ', min (i, j) );

Readln;

End.

 

Задание для самостоятельной работы

1.       Написать функцию, которая сравнивает  два целых числа и возвращает результат сравнения в виде одного из знаков : ’>’, ’<’ или  ‘=’ .    

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

 

 

Лабораторная работа № 14

Файлы.

 

Файл - это именованная область внешней памяти компьютера, являющаяся источником или  приемником информации.

 

Файловый тип или файловую переменную можно задать одним из трех способов:

1.             <имя>  = file of <mun>;

2.             <имя>   =  <text>;

3.             <имя>    =   <file>;

Здесь <имя> - имя переменной файлового типа;

File of   - зарезервированные слова, 

<text>   - имя текстового файла,  

<file>    -  имя любого файла;

<тип>  - любой тип языка Паскаль.

 

Существуют следующие стандартные функции и процедуры для работы с файлами.

1.  Assign(<ф.n.>,<u.ф.>) - связывает файловую переменную (ф.п.) с конкретным файлом (и.ф.);

2.            Reset(<ф.n.>) - открытие файла для чтения;

3.            Rewrite(<ф.n.> )-открытие  файла для записи  (если файл ранее  содержал данные , то они уничтожаются);

4.           Append(<ф.n.>) - открытие файла для добавления;

5.            Close (<ф.п. >) - закрытие файла с сохранением в нем данных;

6.            Rename (<ф.п.>,<новое имя>) - переименование файла;

7.            Erase (<ф. п. >) -уничтожение файла;

8.            Eof(<ф.n.>) : boolean- логическая функция, определяющая конец файла.

Текстовые файлы.

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

1.                 Read(<ф.n.>,<cnucок евода>) - чтение из файла;

2.                 Readln(<ф.n.>,<cnucок евода>) - чтение строки из файла;

3.                 Write (<ф.п.>,<список вывода>) - запись в файл;

4.                 Writeln((<ф.п.>,<список вывода>)  -запись строки в файл;

5.                 Ео1п(<ф.п.>) – конец строки файла;

6.                 Seekoln(<ф.п.>) – конец строки файла, пропускает в конце строки символы пробела и табуляции;

7.                 Seekof(<ф.п.>) -конец файла.

Пример.       

Даны символьные файлы    f    и    g. Записать в файл   h   сначала компоненты файла   f ,   затем компоненты файла   g   с сохранением порядка их следования.

 

program  fail;

uses  crt;

var  f,g,h : file of char;          

       ch : char;

begin

assign(f,'ch.txt’);  reset(f);

assign(g,'ch2.txt'); reset(g);

assign(h,’ chl  2.txt'); rewrite(h);

        while not eof(f)   do

        begin

        read(f_,ch);

        write(h,ch)

        end;

while not eof(g) do

begin

        read(g,ch);

        write(h,ch)

        end;

       close(f) ;

close(g); close(h);

end.

 

 

Задания для самостоятельной работы.

1. Считать файл, удвоив каждый его элемент через пробел.

2.    Считать текстовый файл, удвоив все буквы   «а».

3.    Прочитать текстовый файл и определить , сколько в нем встречается буква «а».

4.           Написать   программу,   которая   на  сменном   диске   компьютера  (А:)   создает      файл   primer.txt    и записывает в него 5 введенных пользователем целых чисел.

5.           Напишите   программу,   которая  дописывает   в   файл     a:\primer.txt     5   введенных пользователем целых чисел. Убедитесь при помощи редактора текста, что в файле находятся 10 чисел.

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

 a : \ primer.txt    .

7.    Написать программу, которая вычисляет  среднее арифметическое чисел, находящихся в  файле    a : \ primer.txt    .

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

Графический режим работы в языке  PASCAL.

Лабораторная работа № 15

     Линия.

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

Процедура    LineTo (x, у)

Где (х,у) - координаты конца линии (тип Integer).

Линия отображается с использованием стиля и толщины, определенных процедурой

Setlinestyle (код стиля, шаблон, толщина),

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

 

Пример ; Программа вывода на экран произвольного многоугольника

 

program risunok;

(200,100)

(100,100)

uses  crt,   graph;

var driver, mode: integer;

begin

clrscr;

(250,150)

driver:=detect;

initgraph(driver,mode,' ') ;

setcolor(4) ;

setlinestyle(2,5,6) ;

moveto(100,100) ;

lineto(200,100) ;

lineto(250,150) ;

lineto(150,250) ;

lineto(50,150) ;

lineto(100,100) ;

readln;

end.

Процедура Moveto (100,100) перемещает указатель текущей позиции в точку с координатами (100,100). Затем последовательно 5 раз вызывается процедура Lineto, которая каждый раз отображает очередную сторону нашего многоугольника. Чтобы многоугольник получился замкнутым при вычерчивании последней стороны многоугольника процедуре Lineto должны быть переданы те же координаты, которые вначале были сообщены процедуре Moveto.

 

Задание для самостоятельной работы.

Требуется нарисовать домик.

Лабораторная работа № 16

Заполненный   прямоугольник.

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

Процедура     Bar (x1,y1,x2,y2 )

Где (x1,y1) и (х2,у2 ) - координаты соответственно верхнего левого и нижнего правого углов прямоугольника.

X1,y1,x2,y2 –числа типа   Integer;

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

Setcolor (цвет)

Setfillstyle (заполнение, цвет)

 

Пример :

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

program diagrama;

uses crt,graph;

var driver, mode: integer;

begin

clrscr;

driver:=detect;

initgraph(driver,mode,’ ‘  );

setcolor(4);

setfillstyle(1,4);

bar(100,400,150,500);

settextstyle(0,0,3);

outtextxy(110,430,' 1998');

readln;

end.

Где outtextxy (110,430,'1998') - процедура вывода строки текста  - 1998

(110, 430) - координаты позиции с которой начинается отображение строки.

Задание для самостоятельной работы.

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

 

 

 

 

 

 

 

 

Лабораторная работа № 17

Окружность и дуга окружности.

Процедура    Circle (x, у, радиус)   -   вычерчивает окружность.

Где (х, у )   - координаты центра окружности ; х, у - числа типа   Integer;

Окружность вычерчивается текущим цветом, установленным с помощью

процедуры   Setcolor (цвет)

При этом используется стиль линии, определенный процедурой

Setlinestyle (тип линии, шаблон линии, толщина линии)

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

90

Процедура      Arc ( х, у, <начальный угол >, < конечный угол>, радиус)

 

 

 

 

 

 

Пример ; Программа выводит на экран следующий рисунок .

program risunok;

uses crt,graph;

var driver,mode : integer;

begin

clrscr;

driver:=detect;

initgraph(driver,mode,’’);

setcolor(4);

setlinestyle(0,0,3);

circle(300,240,60);

circle(280,220,10);

circle(320,220,10);

arc(300,300,45,135,40);

readln;

end.

Задание для самостоятельной работы.

Требуется построить следующие два рисунка :

1.  Для первого рисунка прямую линию можно нарисовать с помощью процедур MoveTo( x, у ) и   LineTo( x1, y1).

2.          

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

Лабораторная работа № 18

Заполненный сектор окружности.

Процедура PieSlice отображает заполненный сектор окружности.

Процедура  PieSliece (x, у, Bangle, Eangle, R )

Где (х, у)    - координаты центра,

Bangle   и   Eangle    - начальный и конечный углы сектора,

R   - радиус.

Заполнение сектора производится шаблоном и цветом, определенными с помощью процедуры  SetFillStyle (заполнение, цвет)

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

Пример:

Построить круговую диаграмму.

Program crug;

uses crt, graph;

var driver, mode : integer ;

begin

clrscr;

Driver := detect;

Initgraph ( driver, mode,’’ );

SetFillStyle ( 1, 4 );

PieSlice (300,200, 0,135, 150 );

SetFillStyle (1,7);

PieSlice (300, 200,135, 225, 150 );

SetFillStyle (1,3);

PieSlice (300, 200, 225, 280, 150 );

SetFillStyle (1,1);

PieSlice (300, 200, 280, 360, 150 );

Outtextxy (300,100, '37,5%');

Outtextxy ( 170, 180, '25%' );

Outtextxy (210, 280, '15,3%');

Outtextxy ( 330, 230, '22,2' );

Readln;

End.

Задание для самостоятельной работы

1.       

225

180

90

0

б)

a)

Постройте круговую диаграмму радиусом 100.

 

ЛИТЕРАТУРА

 

1. Д.А. Гуденко, Д.В. Петроченко. Сборник задач по программированию. Питер, 2003

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Лабораторный практикум

«Программирование на алгоритмическом языке   PASCAL»