ЭЛЕМЕНТЫ ЯЗЫКА ТУРБО ПАСКАЛЬ ПРОЦЕДУРЫ И ФУНКЦИИ В ТУРБО – ПАСКАЛЕ СОСТАВНЫЕ СТРУКТУРЫ В ТУРБО ПАСКАЛЕ УПРАВЛЯЮЩИЕ СТРУКТУРЫ ТУРБО ПАСКАЛЯ РАБОТА С ГРАФИКОЙ МОДУЛИ

Раздел описани й Структура программы: program my_prog; {Заголовок программы} uses crt; {Список используемых модулей} label m1; {Описание меток} const n=10; {Описание констант} type mytype=set of char; {Описание типов переменных} var a:integer; b:boolean; {Описание переменных} d:real; c:char; i:2..5; m:mytype; {Описание процедур и функций} begin {тело программы} {Раздел операторов} end. ЭЛЕМЕНТЫ ЯЗЫКА ТУРБО ПАСКАЛЬ

Основные операторы языка Паскаль Оператор присваивания Имя переменной:= выражение; При этом тип переменной и тип выражения должны быть одинаковыми. Например, а:=а+2; b:=true; c:=*; d:=4.5; Операторы ввода read (список переменных); read(a,d); read(a); read(d); readln (список переменных); readln(a,d); readln(a); readln(d); Операторы вывода write (список выражений); write(a,d); write(a:5, d:8:3); writeln (список выражений); writeln(a,d); writeln(a); writeln(d); writeln(введите данные); writeln(получен результат, Х); Clrscr – очистка экрана Readkey; readln –задержка экрана

Пример 1.Рассмотрим пример программы, вычисляющей значение выражения x3 + x2 – 13x + 5 – 11, при заданном x. Program example_1; Uses crt; Var x, y: integer; Begin Clrscr; Writeln(Введите x: ); Readln(x); y:= sqr(x)*x + abs(sqr(x) – 13*x + 5 )– 11; Writeln(значение данного выражения равно,y); Readkey; End.

УПРАВЛЯЮЩИЕ СТРУКТУРЫ ТУРБО ПАСКАЛЯ Условный оператор If then else ; Оператор выбора case of список констант 1: оператор 1; список констант 2: оператор 2; ………………………………….. список констант N: оператор N; else ; end; ПримерПример Составим программу, которая в зависимости от номера месяца печатает количество дней в нем. ПримерПример. Даны целые числа a, b, c. Если a b > c, то каждое число заменить наименьшим из них, в противном случае сменить знак каждого числа.

Операторы повторений (операторы циклов) 1. цикл с параметром 2. цикл с предусловием 3. цикл с постусловием 1. for := to do ; for := downto do ; 2. While do ; 3. Repeat until ;

ПРОЦЕДУРЫ И ФУНКЦИИ В ТУРБО – ПАСКАЛЕ Procedure ( ); begin end; Глобальные переменные – это переменные, объявленные в описании основной части программы и действующие в любой ее части. Локальные переменные – те, которые объявлены в подпрограмме (процедуре или функции) и действующие лишь в ней. Фактические параметры – это переменные, которые передаются процедуре при обращении к ней. Формальные параметры – это переменные фиктивно присутствующие в процедуре и определяющие тип и место подстановки фактических параметров, над которыми производятся действия. Число и тип формальных и фактический параметров должны совпадать с точностью до их следования. Подпрограмма – это часть программы, оформленная в виде отдельной синтаксической конструкции и снабженная именем.

Передача данных из программы в процедуру и наоборот может быть организована двумя способами: через глобальные переменные через аргументы процедуры (формальные параметры) Описание формальных параметров: список имен переменных: тип; или Var список имен переменных: тип; параметры –значения(входные параметры) параметры – переменные(выходные параметры). Вызов процедуры в теле программы: (список фактических параметров); Пример. Пример. Четырехугольник задан четырьмя своими сторонами a, b, c, d, и диагональю f. С помощью процедуры вычисления площади треугольника по трем сторонам, вычислить площадь заданного четырехугольника.

Функция – это подпрограмма, предназначенная для того, чтобы вычислять только одно значение. Также функции отличаются от процедур: Заголовком; В теле функции обязательно должен присутствовать оператор присваивания, где в левой части стоит имя функции, а в правой – ее значение. Иначе, значение не будет определено; Обращением к функции не оператор, а выражение. Function ( ): ; begin := ; end; ПримерПример. Четырехугольник задан четырьмя своими сторонами a, b, c, d, и диагональю f. С помощью функции вычисления площади треугольника по трем сторонам, вычислить площадь заданного четырехугольника.

Рекурсия в Паскале Алгоритм называется рекурсивным, если в качестве вспомогательного алгоритма (подпрограммы) он использует самого себя. n!=1*2*3*…*n 1, если n=1 n! n*(n-1)!, если n>1 Процедуры и функции, использующие вызовы самих себя, называют рекурсивными (прямая рекурсия). Пример. Рассмотрим пример рекурсивной функции вычисления x n, где n- натуральное число. 1, при n = 0 Воспользуемся известным фактом: x n = x n-1 * x, при n 1 function deg(x, n: integer): longint; begin if n = 0 then deg:=1 else deg:=deg(x, n-1)*x; end;

СОСТАВНЫЕ СТРУКТУРЫ В ТУРБО ПАСКАЛЕ МассивМассив – Это последовательность состоящая из фиксированного числа однотипных элементов, каждый из которых имеет свой индекс (номер). СтрокаСтрока – это последовательность символов. МножествоМножество – неупорядоченная совокупность отличных друг от друга однотипных элементов. ЗаписьЗапись это последовательность, состоящая из фиксированного числа величин разных типов, называемых полями или компонентами записи. Под файлом понимается либо именованная область внешней памяти ПК, либо логическое устройство – потенциальный источник или приемник информации.файлом Любой файл имеет три характерные особенности: у него есть имя, что дает программе возможность работать одновременно с несколькими файлами он содержит компоненты одного типа. Типом компонентов может быть любой тип, кроме файлов. длина вновь создаваемого файла никак не оговаривается при его объявлении и ограничивается только емкостью устройств внешней памяти.

program scal_proiz; uses crt; const n=5; {n – число элементов массива} type mas=array [1..n] of integer; var a,b: mas; i:integer; { Процедура ввода элементов массива } procedure input(var c:mas); begin writeln('Введите ',n,' элементов массива'); for i:=1 to n do read(c[i]); end; { Функция нахождения скалярного произведения двух массивов } function sp(x,y:mas):longint; var s:longint; begin s:=0; for i:=1 to n do s:=s+x[i]*y[i]; sp:=s; end; BEGIN clrscr; input(a); input(b); writeln ('scal proizv mas = ',sp(a,b)); readkey; END. Пример. Даны два одномерных массива А и В. Найти их скалярное произведение.

Пример. Дан двумерный массив случайных чисел. Найти максимальный элемент program poisk_max; uses crt; var a: array [1..30,1..30] of integer; i, j,max,m,n:integer; BEGIN clrscr; writeln('Введите размерность массива n*m); Readln(n,m); randomize; for i:=1 to n do begin for j:=1 to m do begin A[i,j]:=random(21)-10; Write(a[i,j]:4); end; Writeln; end; Max:=-10; for i:=1 to n do begin for j:=1 to m do begin If a[i,j]>max then max:=a[i,j]; Writeln(max=, max:4); readkey; END.

Пример1. Подсчитать количество пробелов в данной строке. Program probel; Uses crt; Var s: string[50]; K, i: integer; Begin Clrscr; Writeln(Введите строку); Readln(s); For i:=1 to length(s) do If s[i] = then inc(k); Writeln(Количество пробелов =, k); Readln End. Пример 2. Подсчитать сумму цифр в данной строке. Program summa; Uses crt; Var s: string[50]; K, i, n, l: integer; Begin Clrscr; Writeln(Введите строку); Readln(s); For i:=1 to length(s) do Begin Val(s[i], n, l); If l = 0 then k:=k + n; End; Writeln(Сумма цифр =, k); Readln End. Процедуры и функции для работы со строками

Стандартные процедуры для обработки строковых величин: Процедура удаления delete(s, k, n) – из строки s удаляется n символов, начиная с k - того. Пример: s = барабан; delete(s, 5, 2); Результат s = баран; Процедура вставки insert(s1, s2, n) – строка s1 вставляется в строку s2, начиная с n – го символа. Пример: s = барабан; insert(щик, s, 8); Результат s = барабанщик; Процедура str(k, s) преобразовывает число k в строку s. Пример: str(3456, s); s = 3456; Процедура val(s, k, n) преобразовывает строку из цифр s в число k. N – номер позиции первого символа строки s, отличного от цифры. Пример: val(3456, k, n); k = 3456; n = 0; val(34g56, k, n); k = 0; n = 3; Стандартные функции для обработки строковых величин: Функция concat(s1, s2, …, sn), аналогична операции склеивания. Значение функции результат соединения строк s1, s2, …, sn. Пример: s := concat(сегодня,,19 апреля); Результат: s = сегодня 19 апреля; Функция copy(s, n, k) – из строки s выделяет k символов, начиная с n-го символа. Пример: с := copy(барабан, 1, 3); Результат: с = бар; Функция length(s) определяет длину строки s. Пример: s := барабан; а := length(s); а = 7; Функция pos(s, c) определяет номер позиции, начиная с которой строка s первый раз входит в строку с. Пример: с:= колокол; k := pos(кол, c); х := pos(дол, c); Результат: k = 1; х = 0;

Операции над множествами: + - операция объединения множеств. - - операция дополнения (разности). * - операция пересечения множеств. Операции отношения равенства множеств (А = В), неравенства (А В), включения (А

Program obch; Uses crt; Var s1,s2: string[50]; a,b,c:set of char; K: char; i: integer; Begin Clrscr; a:=[]; b:=[]; c:=[]; Writeln(Введите первую строку); Readln(s1); Writeln(Введите вторую строку); Readln(s2); For i:=1 to length(s1) do a:=a+[s1[i]]; For i:=1 to length(s2) do b:=b+[s2[i]]; c:=a*b; Writeln(общие элементы двух строк ); For k:=a to z do If k in c then write(k:2); Readln; End.

uses crt; type student = record fio: string[20]; gr: ; ball: array[1..4] of 2..5; end; var base: array[ ] of student; n, i, j: integer; Begin clrscr; write('Введите количество студентов: '); readln(n); for i:=1 to n do begin write('Введите фамилию ', i,'-го студента: '); readln(base[i].fio); write('Введите группу ', i,'-го студента: '); readln(base[i].gr); writeln('Введите его оценки по 4 предметам: '); for j:=1 to 4 do readln(base[i].ball[j]); end; writeln('Успевающие 35 группы:'); for i:=1 to n do with base[i] do begin if (gr = 35) and ((ball[1] + ball[2] + ball[3] + ball[4]) / 4 >= 4) then begin write(fio,' ' ); for j:=1 to 4 do write(ball[j]:3); writeln; end; end; readkey end. Сформировать базу данных о студентах математического факультета. Распечатать все сведения о студентах 35 группы со средним баллом >= 4.

Пример 1. Создать и сохранить в файле x.dat последовательность целых чисел от 10 до 20; program ex2; uses crt; var fi:file of integer ; i:integer; Begin clrscr; assign(fi,'x.dat'); rewrite(fi); for i:=10 to 20 do write(fi,i); close(fi); end. Типизированные файлы Пример 2. Считать первые пять компонент из файла x.dat и вывести на экран квадраты этих значений. program ex3; uses crt; var fi:file of integer ; I,k:integer; Begin clrscr; assign(fi,'x.dat'); reset(fi); for k:=1 to filesize(fi) do begin read(fi,i ); write (i*i,' '); end; close(fi); readkey; end. Процедуры и функции filesize(f)возвращает текущее число компонент открытого файла; filepos(f)возвращает номер текущей позиции маркера; seek(f,N)устанавливает маркер на позицию N;

Текстовые файлы Пример 1. Дан текстовый файл text.txt. Найти количество строк в нем и дописать в конец файла. program ex2; uses crt; var t:text ; s,strk:string; k:integer; Begin clrscr; assign(t, c:\text.txt); reset(t); while not eof(t) do begin readln(t,s); k:=k+1; end; Str(k,strk) Append(t); Write(t,strk); close(fi); end. Процедуры и функции eof(f)возвращает TRUE, если найден конец файла; eoln(f)возвращает TRUE, если найден конец строки.

Работа с графикой Графические возможности реализованы с помощью стандартного модуля Graph.tpu. Подключение модуля к программе выполняется директивой uses graph. Процедура инициализации графического режима имеет три аргумента: Initgraph(,, ' ') и может быть выполнена так: uses graph; var gd, gm: integer; {переменные gd и gm определяют драйвер и режим} begin gd:=vga; gm:=vgahi; initgraph(gd,gm,'d:\tp7'); Первые две команды можно заменить одной: gd:=detect с целью автоматического распознавания драйвера и установления режима максимального разрешения для данной машины. Процедура closegraph освобождает память от драйвера и устанавливает режим работы экрана, который был до инициализации графики.

Пример. Построение графика функции Program grafik; uses crt,graph; var k,u,,gm,gd:integer; x,y:real; BEGIN gd:=detect; initgraph(gd,gm,' '); setlinestyle(0,0,3); setcolor(9); line(320,10,320,400);line(10,240,620,240); x:=-12; y:=cos(x); u:=320+round(20*x); t:=240-round(20*y); setcolor(12); moveto(u,t); for k:=1 to 240 do begin x:=x+0.1; y:=cos(x); u:=320+round(20*x); t:=240-round(20*y); lineto(u,t); end; setcolor(14); settextstyle(0,0,1);outtextxy(330,10,'y'); outtextxy(610,245,'x'); settextstyle(0,0,2); outtextxy(90,430,'y=cos(x)'); repeat until keypressed; closegraph END.

Модуль – программная единица, текст которой компилируется независимо (автономно). Она включает определения констант, типов данных, переменных, процедур и функций, доступных для использования в вызывающих программах. Однако внутренняя структура модуля скрыта от пользователя. Напишем процедуру, рисующую снежинку, произвольного размера и цвета. Поместим эту процедуру в модуль snow.tpu unit snow; Interface {Интерфейсная часть} uses graph; var gd,gm:integer; procedure show_sneg(x,y,color,razmer:integer); Implementation {Исполняемая часть} procedure show_sneg(x,y,color,razmer:integer); begin setcolor(color); line(x-razmer,y,x+razmer,y); line(x,y-razmer,x,y+razmer); line(x-round(razmer/2),y-round(razmer/2),x+round(razmer/2),y+round(razmer/2)); line(x+round(razmer/2),y-round(razmer/2),x-round(razmer/2),y+round(razmer/2)); end; begin {Инициирующая часть} gd:=detect; initgraph(gd,gm,' '); end.

Напишем программу «снегопад»- появление снежинок случайного цвета и размера в случайном месте экрана. program snows; uses graph,crt,snow; var x,y,cvet,r:integer; begin randomize; repeat cvet:=random(14)+1; r:=random(20)+5; x:=random(600); y:=random(400); show_sneg(x,y,cvet,r); delay(2000); { show_sneg(x,y,0,r); - «стирать» снежинки с экрана} until keypressed; closegraph; end.

Program ex_3; Uses crt; Var a, b, c: integer; Begin Clrscr; Writeln(Введите числа: ); Readln(a, b, c); If (a c) then Begin a:=c; b:=c; End Else Begin a:=-a; b:=-b; c:=-c; End; Writeln(a =, a, b =,b, c =,c); Readkey; End.

Program ех_4; Uses crt; Var n: integer; Begin Clrscr; Write(Введите номер месяца: ); Readln(n); Case n of 1, 3, 5, 7, 8, 10, 12: writeln(В этом месяце 31 день); 4, 6, 9, 11: writeln(В этом месяце 30 дней); else writeln(В этом месяце 28 дней); end; Readkey; End.

Program pl; Uses crt; Var a, b, c, d, f, s1, s2, s: real; Procedure treug(x, y, z: real; var v: real); Var p: real; Begin P:=(x + y + z)/2; V:=sqrt(p*(p – x)*(p – y)*(p – z)); End; BEGIN Clrscr; Writeln(Введите стороны четырехугольника и диагональ: ); Readln(a, b, c, d, f); Treug(a, b, f, s1); Treug(c, d, f, s2); S:=s1 + s2; Write(Площадь четырехугольника =, s:5:2); Readkey; END.

Program pl2; Uses crt; Var a, b, c, d, f, s: real; Function PL_t(x, y, z: real):real; Var p: real; Begin P:=(x + y + z)/2; Pl_t:=sqrt(p*(p - x)*(p - y)*(p - z)); End; BEGIN Clrscr; Writeln('Введите стороны четырехугольника и диагональ: '); Readln(a, b, c, d, f); S:=Pl_t(a,b,f)+Pl_t(c,d,f); Write('Площадь четырехугольника = ', s:5:2); Readkey; END.

Автор презентации: Заместитель директора по УВР- учитель информатики Гаджимурадов М.И.