Основы программирования на Паскале

произошли по крайней мере два великих события- появились операционная система

Блез Паскаль

что учит как правильно написать программу, но и тому, как

z, а также символ подчеркивания ( _ ), который тоже

программы

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

Label …; {раздел описания меток}
Const …; {раздел описания констант}

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

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

q = 'Вася'; { строка

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

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

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

строка }
boolean { логическая }
Объявление переменных (выделение памяти):
var a, b,

variable – переменная

тип – целые

список имен переменных

(оставляет курсор на текущей строке);

Writeln(‘текст’); - оператор вывода текста и

№3!
Обратите внимание на то, что текст выводится в две разные

в математике.
Достаточно только научиться правильно записывать математические выражения на языке

- * / div mod

вызовы

умножение

деление

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

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

<имя переменной> := <выражение>;

:= 5;
10 := x;
y

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

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

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

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

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

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

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

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

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

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

экран их сумму.
Простейшее решение:
program qq;
var a, b, c: integer;
begin

целых числа');
read ( a, b );
c

Протокол:
Введите два целых числа
25 30
25+30=55

компьютер

пользователь

3 =
136 mod 10 =

радиусу
2. Вычислить периметр прямоугольного треугольника по его катетам

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

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

делать, если условие верно}
end;
Особенности:
если в блоке один

если оно больше второго.

2. Запишите программу, в которой значение переменной

координаты точки. Выяснить лежит ли эта точка в 3 координатной

2. Определите значение переменной c после выполнения следующего фрагмента программы:
a := 6;
b := 15;
a := b – a*2;
if a > b then
c := a + b
else c := b – a;

1. Написать программу решения задачи:

числом шагов (цикл с параметром)
цикл с неизвестным числом шагов (цикл

do begin
{тело цикла}
end;
Увеличение переменной

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

Уменьшение переменной на 1 (шаг -1):

всегда равен 1 (to) или -1 (downto)
если в теле цикла

for i:=1 to 8 do
writeln('Привет');

начального и конечного значения внутри цикла количество шагов не изменится:
n

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

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;

выполняется в конце цикла.
repeat

until

Решим эту задачу с использованием всех трех видов циклов.

ЗАДАЧА

do begin
s:=s+a*a;
a:=a+1;
end;
writeln(s);
end.

>100;
writeln(s);
end.

a:=1 to 100 do
s:=s+a*a;
writeln (s);
end.

1 до 8.
Особенность:
одинаковые действия выполняются 8 раз.

1,8
блок «цикл»
тело цикла
i, i1, i2

8 do begin
i1 := i*i;
i2 :=

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

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

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

целых чисел от 8 до 1 (в обратном порядке).
Особенность: переменная

for i:=8 1 do begin
i1 := i*i;
i2 := i1*i;
writeln(i, i1, i2);
end;

downto

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

массива: 10

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


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

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

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

const N=5;

N

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

array ['z'..'a'] of integer;
...
A['B'] := 15;
A['b']
['a'..'z']
var a: array [0..9]

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

a[1] =
a[2] =
a[3] =
a[4] =
a[5] =

5
12
34
56
13

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

writeln('Массив A:');
for i:=1 to N do write(a[i]:4);

Массив A:
10 24 68 112 26

найти среднее арифметическое всех элементов массива.
Пример:
Введите пять

РЕШЕНИЕ:

to 5 do begin
write ('N[',i,']');
read (N[i]);
end;
c:=0;
for i:=1 to 5 do

write('среднее', k:6:2);

end.