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

… {основная программа}
readkey;
end.
{ процедуры и функции }
комментарии в фигурных

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

подчеркивания _
заглавные и строчные буквы не различаются
2. Разделители
любой управляющий

имя не может начинаться с цифры

3. Специальные символы
знаки пунктуации [ ],( ), { }, * *, :=, .. , #, $
знаки операций: буквенные (not, div, or, mod) и небуквенные (+, =, *, /, <, >, <>, <=, >=)
зарезервированные слова (begin, end)

4. Неиспользуемые символы (буквы рус. алфавита, %, &)

число }
pi = 3.14; { вещественное число }

qq =

целая и дробная часть отделяются точкой

можно использовать русские буквы!

может принимать два значения:
True (истина, "да")
False (ложь, "нет")

значение. Значение переменной можно изменять во время работы программы.
Типы

Объявление переменных (выделение памяти):
var a, b: integer;
Q: real;
s1, s2: string;

высокого уровня.
Оператор присваивания служит для изменения значения переменной.
Пример:
program qq;
var

a

?

5

5

b

?

5+2

7

a

5

7*4

28

включать
константы
имена переменных
знаки арифметических операций:
+ - *

умножение

деление

деление нацело

остаток от деления

begin
a := 5;
10 :=

Какие операторы неправильные?

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

целая и дробная часть отделяются точкой

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

mod слева направо
сложение и вычитание слева направо

2 6 3 4 7 5 1 12 8 11 10 9
x:=(a*a+5*c*c-d*(a+b))/((c+d)*(d-2*a));

значения переменной a}
read ( a, b ); { ввод

Как вводить два числа?
через пробел:
25 30
через Enter:
25
30

значения переменной a}
writeln ( a ); { вывод значения

writeln ( 'Привет!' ); { вывод текста}

writeln ( 'Ответ: ', c ); { вывод текста и значения переменной c}

writeln ( a, '+', b, '=', c );

i := 15;
writeln ( '>', i, '

всего символов

всего символов

в дробной части

клавиатуры мили в километры(1 миля =1,852 км)

2. Составить

и приветствующую по этому имени.
3. Вычислить периметр и

перехода Goto, пустой оператор)
Структурированные операторы (составной оператор, условный оператор

делать, если условие верно}
end
else

Особенности:
перед else НЕ ставится точка с запятой
вторая часть (else …) может отсутствовать (неполная форма)
если в блоке один оператор, можно убрать слова begin и end

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

writeln('Введите два целых числа');
read ( a, b

max := a;

max := b;

полная форма условного оператора

нескольких простых условий (отношений), связанных с помощью логических операций:
not

равно

не равно

>=, =,
Особенность – каждое из простых условий обязательно

40 лет включительно. Ввести возраст человека и определить, подходит

подходит'
'не подходит'

writeln('Введите возраст');
read ( x );
if

40?
'не подходит'

возраст');
read ( x );
if (x

сложное условие

и отвечающую «Привет друг» если возраст введен меньше 16

2. Составить программу - отзывающуюся только на имя «Саша»

введенное число на 1 , если оно больше или

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

действий.
цикл с известным числом шагов
цикл с неизвестным числом шагов

do begin
{тело цикла}

Увеличение переменной на 1:

for <переменная> := <начальное значение> downto
<конечное значение> do begin
{тело цикла}
end;

Уменьшение переменной на 1:

кубы целых чисел от 1 до 8 (от a

for i:=1 to 8 do begin
i2 :=

переменная цикла

начальное значение

конечное значение

квадраты и кубы целых чисел от 8 до 1

downto

цикла}
end;
Особенности:
можно использовать сложные условия:
если в

while (a {тело цикла}
end;

while a < b do
a := a + 1;

в цикл
если условие на входе в цикл ложно, цикл

a := 4; b := 6;
while a > b do
a := a – b;

a := 4; b := 6;
while a < b do
d := a + b;

6;
while a < b do a := a +

2 раза
a = 6

a := 4; b := 6;
while a < b do a := a + b;

1 раз
a = 10

a := 4; b := 6;
while a > b do a := a + 1;

0 раз
a = 4

a := 4; b := 6;
while a < b do b := a - b;

1 раз
b = -2

a := 4; b := 6;
while a < b do a := a - 1;

зацикливание

число цифр в нем.
Идея решения: Отсекаем последовательно последнюю цифру,

1;
n := n div 10;
обнулить счетчик цифр
ввод

выполнять "пока n <> 0"

число');
read(n);
count := 0;
while n 0

, n1: integer;

n1 := n;

n1,

выполнять "пока n <> 0"

10 do begin
{тело цикла}
end;
i := 1;
while i

for i:=a downto b do
begin
{тело цикла}
end;

i := a;
while i >= b do begin
{тело цикла}
i := i - 1;
end;

Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла.

Замена цикла for на while возможна всегда.

1 до 10
2. Напечатать таблицу умножения на
введенное с

цикла надо сделать в любом случае => проверку условия

Цикл с постусловием – это цикл, в котором проверка условия выполняется в конце цикла.

ВЫХОДА
блок "типовой процесс"
ввод n
основной алгоритм

writeln('Введите положительное число');
read(n);
until n

until n > 0;

условие ВЫХОДА

Особенности:
тело цикла всегда выполняется хотя бы один раз
после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла

числа до тех пор, пока не ввели числа большего

2. Составить программу, печатающую слово «Привет» и запрашивающую
«Повторить Д/Н?». Программа завершает выполнение в случае нажатия Н,
если Д, то повторяет.

или арифметическое выражение целого типа (integer)
или символьного

case i+3 of
1: begin a := b; end;
2: begin a := c; end;
end;

var c: char;
...
case c of
'а': writeln('Антилопа');
'б': writeln('Барсук');
else writeln('Не знаю');
end;

begin и end можно не писать
нельзя ставить два одинаковых

case i+3 of
1: a := b;
1: a := c;
end;

case i+3 of
1: a := b;
2: a := c;
end;

группировать
case i of
1:

перечисление

диапазон

смесь

количество

1?
D := 31;
нет
M = 2?
D := 28;
да
нет
M = 12?
D

да

вывод D

ошибка

номер месяца:');
read ( M );
case

ни один вариант не подошел

от 1 до 7 определить день недели-

2. Ставить программу , запрашивающую возраст и при введении до 15 включительно - говорит «Привет», от 16 до 20 говорит «друг», и говорит «Пока» в противном случае.

выполнения какой-то законченной последовательности действий.

Для исполнения подпрограммы процедуры необходимо

процедуры не имеют к ним доступа


program qq;
procedure A(x,

локальные переменные

нахождения наибольшего из 2-х чисел

program max;
uses crt;
var a,b,c,d,p,q,m: integer;

integer; var z,k: integer);
begin
if x>y

которого является некоторое значение.
Примеры:
вычисление

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

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

нахождения наибольшего из 2-х чисел

program max;
uses crt;
var a,b,c,d,p,q,m: real;

имя и расположенных в памяти рядом.
Особенности:
все элементы имеют один

место в памяти
Массив целых чисел:


Размер через константу:
имя
начальный

конечный индекс

тип
элементов

var A: array[1.. ] of integer;

const N=5;

N

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

a: array[1..N] of integer;
i: integer;
for i:=1 to

for i:=1 to N do a[i]:=a[i]*2;

и вывести на экран сумму 2 и 5

uses crt;
var i,sum: integer; a: array[1..5] of integer;
begin
clrscr;
for i:=1 to 5 do
begin
write(‘Введите’, i, ‘элемент’); read (a[i]);
end;
sum:=a[2]+a[5];
write(‘Сумма 2 и 5 равна’, sum);
readkey;
end.

элементов и вывести на печать сначала все, ниже третий.
2.

строки (количества символов) может лежать в диапазоне 0..255
Для определения

var s: string[20];

все буквы "а" на буквы "б".
program qq;
var s: string;

readln(s);

writeln(s);

Length(s)

ввод строки

длина строки

вывод строки

другой.
Запись нового значения:
var s, s1, s2: string;
s := 'Вася';
s1

'Привет, Вася!'

Подстрока: выделить часть строки в другую строку.

s := '123456789';

s1 := Copy ( s, 3, 6 );
s2 := Copy ( s1, 2, 3 );

'345678'

'456'

с 3-его символа

6 штук

'123456789';
Delete ( s, 3, 6 );
с 3-его символа
6

строка
меняется!

'123456789'

'129'

s := '123456789';
Insert ( 'ABC', s, 3 );
Insert ( 'Q', s, 5 );

куда вставляем

что вставляем

начиная с 3-его символа

'12ABC3456789'

'12ABQC3456789'

длину и вывести 3 символ, а так же вывести

2. Из слова «вирус» путем замены букв получите слово «фокус».

текст без оформления, не содержат управляющих символов (с кодами

ACSII (1 байт на символ)
UNICODE (2 байта на символ)

*.txt, *.log,
*.htm, *.html

могут содержать любые символы кодовой таблицы

*.doc, *.exe,
*.bmp, *.jpg,
*.wav, *.mp3,
*.avi, *.mpg

Текстовые

Двоичные

Папки (каталоги)

с файлом
открыть файл (сделать его активным, приготовить к работе)

assign(f,

reset(f); {для чтения}

rewrite(f); {для записи}

II этап: работа с файлом

Переменная типа "текстовый файл": var f: text;

III этап: закрыть файл

close(f);

read ( f, n ); { ввести значение n }

write ( f, n ); { записать значение n }
writeln ( f, n );{c переходом на нов.строку }

append(f); {дописывать данные}

assign, обращение к файлу идет через файловую переменную
файл, который

сколько их – неизвестно. Записать в файл output.txt их

цикл с условием "пока есть данные"

begin
assign(f, 'input.txt');
reset(f);
s :=

f: text;

eof(f)

логическая функция, возвращает True, если достигнут конец файла

запись результата в файл output.txt

в которых есть слово-паразит "короче". Очистить текст от мусора

Удалить все сочетания ", короче," (Pos, Delete).
Перейти к

пока не кончились данные

repeat
i := Pos(', короче,', s);
if i <> 0 then Delete(s, i, 9);
until i = 0;

искать ", короче,"

удалить 9 символов

i: integer;
fIn, fOut: text;
begin

fIn, fOut: text;

файловые переменные

открыть файл для чтения

открыть файл для записи

begin
readln(fIn, s);
writeln(fOut, s);

repeat
i := Pos(', короче,', s);
if i <> 0 then
Delete(s, i, 9);
until i = 0;

пока не достигнут конец файла

обработка строки

запись "очищенной" строки