Презентация на тему Pascal - язык структурного программирования

и вывода
Арифметические
операции и операции
отношения
Бинарные операции
Стандартные
математические функции
Логические

ПРАКТИЧЕСКАЯ РАБОТА 2

Программирование цикла

Вложенные циклы

ПРАКТИЧЕСКАЯ РАБОТА 1

Программирование
ветвлений

Оператор выбора Case

ПРАКТИЧЕСКАЯ РАБОТА 3

ПРАКТИЧЕСКАЯ РАБОТА 4

ПРАКТИЧЕСКАЯ РАБОТА 5

РАБОТА 6
ПРАКТИЧЕСКАЯ РАБОТА 7
ПРАКТИЧЕСКАЯ РАБОТА 8
Символьный тип данных
Строки символов
ПРАКТИЧЕСКАЯ

ПРАКТИЧЕСКАЯ РАБОТА 10

Комбинированный тип
данных

ПРАКТИЧЕСКАЯ РАБОТА 11

ИТОГОВАЯ
ПРАКТИЧЕСКАЯ РАБОТА

меток>;
Const ;
Type ;
Var ;
Procedure (Function)

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

от а до z
Цифры: 0,1,2,3,4,5,6,7,8,9
Специальные символы: + -

Пробелы

Служебные слова: Program, Var, if и другие

Идентификаторы – Любая последовательность букв и цифр,
начинающаяся с буквы.

Комментарии
{любой текст, не содержащий символы фигурная скобка }
(любой текст, не содержащий символы звездочка и круглая скобка)
Замечание
Для комментарий можно применять русский алфавит

значений, которые может принимать переменная данного типа
Задается как

Type < имя типа > = (<список значений >)

Type Gas = (C, O, N, F);
Metal = ( Fe, Co, Na, Gu, Zn);
Var G1, G2, G3: Gas;
Met1, Met2 : Metal;
Day: (Sun, Mon, Tue, Wed, Thu, Fri, Sat);

пример

<константа1>..<константа2>

Type Numbers = 1..31
Alf = ‘A’..’Z’;
Var Data: Numbers;
Bukva: Alf;

if Day=Sun Then Write (‘Сегодня выходной!’)

данных>)
Вывод данных
Оператор присваивания
:=

вычитание
* умножение
/ деление
= равно

треугольник, если известна сторона треугольника
Формализация


Воспользуемся формулами
Program radius;
Uses crt;
Var a,

Praktik11;
Var x, y, z: real;
Begin
read

Program Praktik12;
Var x, y, z: real;
Begin
read (x, y);
z:=ln(abs((y-sqrt(abs(x)))*(x-y/ (2 +
sqr(x)-5*x))));
abs(x*y));
write (z)
end.

XOR

x2: real;
Begin
Writeln(‘Введите коэффициенты квадратного уравнения’);

функции
Program Praktik2;
Uses crt;
Var x,y: real;
Begin
Write (‘Введите

констант N>:;
Else
End
Задача
Составить программу которая сообщает, сдал студент

Формализация

Если оценка одна из следующих 3, 4, 5, то экзамен сдан; если 2, то не сдан.

(‘Экзамен сдан’);
2: WriteLn (‘Экзамен не

Program stydent;
Uses crt;
Var n:integer;
Begin
Writeln (‘введите оценку’);
Read (n);

Readkey
End.

WriteLn('Введите номер года ');
ReadLn(Year);

Задача для практической работы № 3

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

Формализация

Началом цикла будем считать 1996 год — год крысы. Чтобы вывести название нужно анализировать остаток от деления номера года на 12. Название годов - крыса,
корова, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, петух, собака и свинья.

To Do ;
For : Downto

Задача

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

Формализация

Компьютер задает ученику 10 вопросов на умножение чисел от 2 до 9. На каждое задание ученик вводит свой ответ, компьютер сообщает верный ответ.

Подсказка: Нужно использовать функцию random(x)

to 10 do
begin

n,i:integer;s:real;
Begin
Write('введите значение N');
Read (n);

Program Praktik42;
Uses crt;
Var n,i:integer;s:real;
Begin
Write('введите значение N');
Read (n);
s:=1;
For i:=2 to n do
S:=s+(1/sqrt(n));
Write('сумма равна 's:8:2);
Readkey
End.

имеется другой цикл
Начало
Конец
x:

y: = 1 до N

Вывод x*y

x=1; y=1,2,3, …,N
x=2; y=1,2,3, …,N
…
x=N; y=1,2,3, …,N

For x:=1 to 9 do

быков, коров и телят на 100 руб., если в

формализация

A – количество быков
B – количество коров
C- количество телят
A + B + C =100
10*A + 5*B + 0,5 C = 100

Program Praktik5;
Uses crt;
Var a, b, c: integer;
Begin
for a:= 1 to 10 do
for b:=1 to 100 do
for c:=1 to 100 do
if (a+b+c = 100) and
(10*a + 5*b + 0.5*c) =100 then
writeln (a,’ быков ’, b,’ коров ’,c,’телят’);
Readkey;
end.

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

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

Program exponenta;
Var exp, x, an, eps: real; i: integer;
Begin
Write (‘Введите x=‘); Read (x);
Write (‘eps=‘); Read (eps);
exp:=0; i:=0; an:=1;
While an>eps do
Begin
Exp:=exp+an;
i:=i+1;
an:=(an*x)/i;
End;
Writeln(‘exp=‘,exp)
End.

('Введите целое число ');
Readln (x);
Chet:=0;

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

Задача для практической работы № 6

Сначала нужно отделить последнюю цифру. Потом проверить четная она или нечетная (использовать операцию mod).
Затем отбросить последнюю цифру (использовать операцию div). Процесс повторить.

Подсказка.

[(список формальных параметров ];
Описание:
Function [(список формальных

Обращение – оператор процедуры

Обращение - операнд выражения

<имя процедуры>{(список фактических параметров)}

<имя функции>(<список фактических параметров>)

Параметры подпрограмм

Параметры - переменные

Параметры - значения

Описание:
Var <список переменных>:<тип>

Описание :
<список переменных>:<тип>

Фактические переменные:
переменные

Фактические переменные:
выражения

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

begin
p:=p+sqrt(sqr(x1-y1)+sqr(x2-y2));
end;
begin
Write(‘Введите координаты точки A

Program perimetr2;
Uses crt;
Var a1,a2,b1,b2,c1,c2,p:real;
Function pr (x1,x2,y1,y2: real):real;
begin
pr:=pr+sqrt(sqr(x1-y1)+sqr(x2-y2));
end;
begin
Write(‘Введите координаты точки A ' );
Read (a1,a2);
Write(' Введите координаты точки B ' );
Read (b1,b2);
Write(' Введите координаты точки С ' );
Read (c1,c2);
pr (a1,a2,b1,b2);
pr (a1,a2,c1,c2);
p:=pr(b1,b2,c1,c2);
Write (‘Периметр равен ',p:10:3);
Readkey
End.

массива
# Элемент массива идентифицируется в виде переменной с индексами
T[5],

# Тип индекса может быть любым скалярным порядковым типом, кроме Integer

Var cod: array [Char] of 1..100
L: array [Boolean] of Char

cod[‘y’]; L[False]; cod[chr(33)];

Var <идентификатор>: array [<тип индекса>] of <тип компонентов>

Var T: array [1 ..10] of real

Index = (A, B, C, D);
Var class 10: array[

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

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

Type Mas1 = array [1..100] of Integer;
Mas2 = array [-10..10] of Char;
Var Num: Mas1; Sim: Mas2;

array [] of array [] of

Var Tabl: array [1 ..4] of array [1 ..4] of real

Var Tabl: array [1 ..4,1 ..4] of real

Var Tabl: array [1 ..n,1 ..m, 1 ..k] of real

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

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

массива другому
Применение к массивам операции «равно» или «не равно»
Замечание

Var X, Y: array[1..5, 1..4] of integer;
X:=Y;

Var X, Y: array[1..5, 1..4] of integer;
X[3]:=Y[4];

Элементы массива X станут равными соответствующим элементам массива Y

Элементы 3 строки массива X станут равными соответствующим элементам 4 строки массива Y

Var X, : array[1..4] of integer;
Y: array[1..5, 1..4] of integer;
X:=Y[4];Y[4]:=Y[2]; Y[2]:=X

Элементы 4 строки массива Y поменяны местами с элементами 2 строки массива Y

Read ( T[i] );
Двумерный
For I:=1 To Imax

Значение вводиться с новой стоки

For I:=1 To 12 Do
Write ( T[i]:5:2);

For I:=1 To Imax Do
Begin
For J:=1 To Jmax Do
Write ( T[I,j]:6:2);
Writeln
End;

Построчный вывод матрицы

в нем отрицательных, положительных и нулевых элементов.
Program Masiv1;
Uses crt;
Var

5х10 заполните случайными двоичными
цифрами (0 и 1). Вывести

Формализация

Считаем количество нулей в первой строке. Запоминаем это количество.
Берем следующею строку и считаем количество нулей в ней. Если
количество нулей больше , то запоминаем эту строку и количество нулей.

For i:=1 to 5 do
for j:=1 to

if k>kmax then
begin
kmax:=k;
nmax:=i;
end;
end;
For i:=1 to 5 do
Begin
for j:=1 to 10 do
Write (matrica[i,j]:4);
Writeln;
End;
Writeln (‘Номер строки ',nmax);
Write(‘Количество нулей ',kmax);
Readkey
End.

Матрицу размером 5х10 заполните случайными двоичными
цифрами (0 и 1). Вывести матрицу. Определите номер строки с
наибольшим количеством нулей и их количество.

– чтение из файла
Close – закрытие файла
Assign - назначает файловой

Readln (<файловая переменная>,<имя файла>)
Close (<файловая переменная>)
Assign (<файловая переменная>,<имя файла>)
Reset (<файловая переменная>)

Описание

– запись в файл
Close – закрытие файла
Assign - назначает файловой

Write (<файловая переменная>,<список вывода>)
Writeln (<файловая переменная>,<список вывода>)
Close (<файловая переменная>)
Assign (<файловая переменная>,<имя файла>)
Rewrite (<файловая переменная>)

Описание

Замечание: 1. При выводе, информация которая была в файле удаляется;
2. Русский алфавит не передается;

числовая
матрица. Создать массив по правилу: 1 элемент этого

Формализация

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

M2: array [1..4] of integer;
i,j:

For i:=1 to 4 do
Begin
s:=0;
For j:=1 to 5 do
s:=s+M1[i,j];{находим сумму
элементов i строки}
M2[i]:=s
End;
Assign (F1,'matrica2.txt'); {Связывание F1 с файлом matrica2.txt}
Rewrite (F1); {открытие файла
для записи}
For i:=1 to 4 do
Begin
For j:=1 to 5 do
Write (F1, M1[i,j]:4);
Writeln(F1)
End;
WriteLn(F1);
For i:=1 to 4 do Write(F1,M2[i]:4);
Close(F1); {Закрытие файла}
End.

по которой из текстового файла с именем kvur.txt будут

x2: real;
G: text;
Begin
Assign (G,'kvur.txt');

else if d = 0 then
begin
x1:=-b/(2*a);
Assign (G,'korni.txt ');
Rewrite (G);
Writeln (G,'1 корень ', x1:7:2);
Close(G);
Writeln ('1 корень ', x1:7:2)
end
else
begin
Assign (G,'korni.txt ');
Rewrite (G);
Writeln (G,‘нет корней');
Close(G);
Write (‘нет корней')
end;
Readkey
End.

‘T’, ‘-’, ‘5’, ‘{‘.
Символьный тип - CHAR
Var c1, c2

Пример:

Символы - упорядоченное множество;
У каждого символа в этом множестве есть свой порядковый номер;
Между символами работает соотношение «следующий – предыдущий».

Функция Ord(X) – функция от аргумента порядкового типа, которая
возвращает порядковый номер значения x в этом типе данных.

Пример:

Ord(‘A’)=65, Ord(‘5’)= 53.

Chr(x) –функция от целочисленного аргумента, результатом которой
является символ с кодом x.

Пример:

Chr(65)=‘A’, Chr(53) =‘5’.

[0..15] прописными латинскими буквами. Затем массив отсортировать в алфавитном

Program Simvol1;
Uses crt;
Var Alfavit: array[1..15] of char;
s: char; i,j: integer;
Begin
ClrScr;
randomize; {Заполнение массива случайными буквами}
Writeln('Исходный массив');
For i:=1 to 15 do
begin
Alfavit[i]:= chr(random(26)+ ord('A'));
Write( Alfavit[i]:3)
end;

Writeln;
{Сортировка метод пузырька}
For i:=1 to 15 do
for j:=1 to 15-i do
if Alfavit[j]>Alfavit[j+1] then
begin
S:=Alfavit[j];
Alfavit[j]:=Alfavit[j+1];
Alfavit[j+1]:=s
end;
Writeln('Отсортированный массив');
For i:=1 to 15 do write (Alfavit[i]:3);
Readkey
End.

экран символы и их код, согласно таблицы кодировки ASCII,

Program Praktik9;
Uses crt;
Var i,k:integer;
Begin
ClrScr;
k:=0;
For i:=33 to 100 do
begin
Write(Chr(i),'-',i:3,' ');
k:=k+1;
if k=10 then
begin
k:=0;
Writeln
end
end;
Readkey
End.

1 байт.
Длина строки – количество символов в строке.
Длина может

Строковые величины могут быть константами и переменными

Пример

‘Информатика – наука об информации’
’23-15-58’

Описание

Var <Индентификатор>: String (<максимальная длина строки>)

Пример

Var Name: String (20);
Name1: String

Символ внутри строки индексируются (нумеруются), начиная с единицы

Пример

Name[5], Name[j], Name1[i+1]

+ ’Имя ’ + ’Отчество’
Фамилия Имя Отчество
Операция отношения

=,

Пример

‘cost1’ > ‘cost2’
‘pascal’ > ‘PASCAL’
‘Алина’<‘Арина’
‘Ключ ’ <> ’Ключ’

S подстроку длиной N
символов, начиная с позиции Poz.

Пример

‘ABCDEFG’

Copy(S, 2, 3) - ‘BCD’
Copy(S, 4, 4) – ‘DEFG’

Функция Concat (S1, S2, … , SN) выполняет сцепление ( конкатенацию)
строк S1, S2, … , SN в одну строку.

Пример

Concat (‘ A’, ‘B’, ‘C’, ) - ‘ABC’

Функция Length (S) определяет текущую длину строки S.
Результат – значение целочисленного типа

Пример

‘ Matrica ’ Length (S) - 7

S2
подстроки S1. Результат – целое число, равное номеру

Если в S2 не обнаружена подстрока S1 , то результат равен 0

Пример

S2 - ‘abcdefg’ Poz( ‘cd’, S2) - 3
Poz( ‘k’, S2) - 0

Процедуры

Процедура Delete ( S, Poz, N) удаляет N символов из строки S, начиная
с позиции Poz.

Пример

S - ‘abcdefg’ Delete( S, 3, 2) - ‘abefg’

Процедура Insert (S1, S2, Poz) выполняет вставку строки S1 в строку S2 , начиная с позиции Poz.

Пример

S2 - ‘ЭВМ PC’ Insert(‘IBM-’, S2, 5) ‘ЭВМ IBM-PC’

его строковое представление и помещает результат в st. 
x: арифметическое

Пример

x:=1234; y:=5678;.
str(x,stroka1);
str(y,stroka2);
stroka:=stroka1+stroka2;
writeln(stroka);

12345678

Val(st, x, code) Процедура преобразует строковую запись числа, содержащуюся в st, в числовое представление, помещая результат в x, x - может быть как целой, так и действительной переменной.
 st: string,x: числовая переменная; code: integer)

Пример

stroka1:='23.02.1965';
stroka2:=copy(stroka1,7,4);
val(stroka2,rog);
let:=2012-rog;

47

Если после выполнения процедуры code равно 0, то это свидетельствует об успешно произошедшем преобразовании.

слов.

Program Slovo;
uses crt;
Var s: string;
i,k: integer;
Begin

все двоеточия (:) точкой с запятой (;).
Посчитать количество

Program Praktik10;
Uses crt;
Var s:string; i,k,n:integer;
Begin
Write('Введите строку');
write;
Read(S);
n:=Length(S);k:=0;
Writeln('Новая строка');
for i:=1 to n do
begin
if s[i]=':' then
begin
s[i]:=';'; k:=k+1
end;
write(s[i]);
end;
Writeln;
Write('Количество замен', k);
Readkey
End.

числа компонентов
(полей) разных типов.
Описание
Type = record

Замечание:
Поля могут быть любого типа

Пример:
Экзаменационная
ведомость

Type results = record
Family: string[15]; {Оценка ученика}
Rus: 2..5; {Оценка по русскому языку}
Alg: 2..5 ; {Оценка по алгебре}
Geom: 2..5; {Оценка по геометрии}
End;

Var exzam: results;

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

<имя переменной >,<имя поля>

exzam.family, exzam.rus

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

Исходные данные организуются в массив следующей структуры:

Var list:array[1..30] of results;

For i:=1 to 30
If (list[i].rus=5) and (list[i].alg=5) and (list[i].geom=5)
then Writeln (list[i].family);

Конечный фрагмент: вывод списка:

Для ввода списка целесообразно использовать тестовой файл
следующего вида:

Таблица успеваемости 11 класса
Фамилия Русский язык Алгебра Геометрия
Арефьев 4 3 4
Довгалец 5 5 5
Дунаев 5 4 4
…

Family: string[15];
Rus: 2..5;

For i:=1 to 30 do
Readln(F1,list[i]. Family,list[i].Rus,
list[i].Alg, list[i].Geom); {Ввод
таблицы}
Writeln(‘Отличники’);
For i:=1 to 30 do
If (list[i].rus=5) and (list[i].alg=5)
and (list[i].geom=5) Then
Begin
Writeln (list[i].family);
{Вывод фамилии на экран}
Writeln (F2, list[i].family);
{Запись фамилии в файл }
End;
Close(F1); Close(F2);
Readkey
End.

i:=1 to 30 do
With list[i] do

For i:=1 to 30 do
Readln(F1,list[i]. Family,list[i].Rus,
list[i].Alg, list[i].Geom);

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

With <Имя записи>do<оператор>

Описание

также выяснить число записей в текстовом редакторе
Var list:array[1..30] of

Var list: results;

For i:=1 to 30 do
Readln(F1,list[i].Family,
list[i].Rus,list[i].Alg,list[i].Geom);

i:=0;
While not EOF(F1) do
Begin
Readln(F1,list.Family,list.Rus, list.Alg,
list.Geom);
I:=I+1; {Подсчет количества записей}
End

Стандартная логическая функция EOF( end of file) принимает значение True,
когда процесс чтения из файла дойдет до его конца.

Фамилия, имя студента, номер группы, его оценки по итогам

Задача повышенной трудности

На вход программы подаются сведения о студентах.
В первой строке указывается количество студентов N, каждая из следующих N строк имеет следующий формат:
<Фамилия>пробел<Имя>пробел<Номер группы>пробел<Оценка за 1 экзамен > пробел <Оценка за 2 экзамен>пробел<Оценка за 3 экзамен>

family:string[20];
name:string[15];

{Ввод данных}
For i:=1 to n do
begin
readln(s);
k:=pos(' ',s); {считаем длину 1 слова до пробела}
spisok[i].family:=copy(s,1,k-1);{копируем из сроки 1слово}
delete(s,1,k);{удаляем из строки 1 слово}
k:=pos(' ',s); spisok[i].name:=copy(s,1,k-1);
delete(s,1,k);
k:=pos(' ',s);
s1:=copy(s,1,k-1);
val(s1,v);{переводим символ s1 в число}
spisok[i].nomer:=v;
delete(s,1,k);
k:=pos(' ',s);
s1:=copy(s,1,k-1);
val(s1,v);
spisok[i].exz1:=v;
delete(s,1,k);

val(s1,v);
spisok[i].exz2:=v

spisok[j].exz1:=spisok[j+1].exz1;
spisok[j].exz2:=spisok[j+1].exz2;
spisok[j].exz3:=spisok[j+1].exz3;
spisok[j+1].family:=spisok1.family;
spisok[j+1].name:=spisok1.name;
spisok[j+1].nomer:=spisok1.nomer;
spisok[j+1].exz1:=spisok1.exz1;
spisok[j+1].exz2:=spisok1.exz2;
spisok[j+1].exz3:=spisok1.exz3;
end;
Clrscr;
{Выбираем отличников}
Writeln(‘Отличники');l:=0;
For i:=1 to n do
With spisok[i] do
if (exz1=5) and (exz2=5) and (exz3=5) then

', nomer);l:=l+1;
end;

Writeln;
Writeln(‘Троечники');l:=0;
{Выбираем троечников}
For i:=1 to n do
With spisok[i] do
if ((exz1=3) and (exz2>=3) and (exz3>=3) or (exz1>=3) and (exz2=3) and (exz3>=3) or (exz1>=3) and (exz2>=3) and (exz3=3)) then
begin
Writeln(family,' ',name,' ',nomer);
l:=l+1;
end;
if l=0 then writeln (‘Троечников нет');
readkey
end.

учеников класса, если известны оценки
каждого ученика по математике,

Program Practic11;
Uses crt;
Type Tabl = record
Family: string[15];
Mat: 2..5 ;
Rus: 2..5;
Phiz: 2..5;
Point:real
End;
Var list:array[1..50] of Tabl;
i,n:integer; F1,F2: text;
Sr:real;
Begin
Clrscr;
Assign(F1,'vedomоst.txt');
Reset(F1);
Readln(F1); Readln(F1);
n:=1;

While not EOF(F1) do
Begin
Readln(F1,list[n].Family,list[n].Mat, list[n].Rus,
list[n].Phiz);
list[n].Point:=(list[n].Mat+list[n].Rus+
list[n].Phiz)/3;
n:=n+1
End;
sr:=0;
For i:=1 to n-1 do
With list[i] do
If point>= sr then sr:=point;
For i:=1 to n-1 do
With list[i] do
If point=sr then
Writeln(Family:15,'---',point:8:2);
Readkey
End.

об учениках класса: школа, фамилия, класс. Вывести список учеников,