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

команды, известные исполнителю (входящие в СКИ)
определенность: при одинаковых исходных данных

Алгоритм – это четко определенный план действий для исполнителя.

для компьютера
Команда – это описание действий, которые должен выполнить компьютер.

1970 – язык Паскаль (Н. Вирт)

Оператор – это команда языка программирования высокого уровня.

}
комментарии в фигурных скобках не обрабатываются
название программы

}
writeln('2=?'); { на новую строку}
writeln('Ответ: 4');
end.
Протокол:
2+2=?

Введите два целых числа
25 30
25+30=55
компьютер
пользователь
компьютер считает сам!

сумму }
{ вывести сумму на экран }
end.
Псевдокод:

переменной можно изменять во время работы программы.
a
Значение
Имя
Другой тип данных

строчные буквы не различаются
В именах НЕЛЬЗЯ использовать
русские буквы
пробелы
скобки, знаки +,

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

Какие имена правильные??
AXby R&B 4Wheel Вася “PesBarbos” TU154 [QuQu] _ABBA A+B

c: integer;
Выделение места в памяти
variable – переменная
тип – целые

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

команда языка программирова-ния (инструкция).
Оператор присваивания – это команда для записи

a

«начало»
блок «ввод»
блок «процесс»
блок «вывод»
блок «конец»

b );
Ввод значений двух переменных (через пробел или Enter).

и переход на новую строчку}
{ вывод текста }
{вывод текста и

write( a );

writeln( a );

writeln( 'Привет!' );

writeln( 'Ответ: ', c );

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

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

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

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

компьютер

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

5;
b := a + 2;
a := (a +

a

?

5

5

b

?

5+2

7

a

5

7*4

28

Пример:

b

7

7+1

8

(остаток отбрасывается)
mod остаток от деления
var a, b: integer;
begin
a :=

:= 5;
10 := x;
y

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

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

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

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

направо
сложение и вычитание слева направо
z := (5*a+c)/a*(b-c)/ b;
x:=(5*c*c-d*(a+b))/((c+d)*(d-2*a));
1 2

2 3 5 4 1 10 6 9 8 7

b := a + 2;
a := (a + 2)*(b

b := 45;
writeln ( a, b );
writeln

15 45

1545

( x );
writeln ( x:10 );
writeln ( x:7:2

12.35

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

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

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

1.23E+001

1.234568E+001

1,234568∙101

пошел
гулять
«5»:

Пример:
Введите три числа:
4 5 7
4+5+7=16

наибольшее из них.
Идея решения: надо вывести на экран первое число,

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

qq;
var a, b, max: integer;
begin
writeln('Введите два целых числа');

условие верно}
end
else
begin

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

b;
end
else
b := a;

if a > b then begin
a := b;
else begin
b := a;
end;

if a > b then begin
a := b;
end;
else begin
b := a;
end;

if a > b then begin
a := b;
end
else b > a begin
b := a;
end;

begin

end

begin

end

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

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

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

max := a;

a > b

:= b;
else b := a;
if a

if a > b then
else begin
b := a;
end;

if a > b then
a := b;
else b := a; end;

a := b

end

a := b

if b >= a then
b := a;

Пример:
Введите три числа:
4 15 9
Наибольшее число 15
«5»: Ввести

числом шагов
цикл с неизвестным числом шагов (цикл с условием)
Задача. Вывести

writeln('Привет');
end.

:= i + 1;

writeln('Привет');
end.
«Для всех i от 1 до 5
делай …»
for

Если в цикле более одного оператора:

for i:=1 to 5 do begin
write('Привет');
writeln(', Вася!');
end;

begin

end;

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

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

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

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

переменной цикла всегда равен 1 (to) или -1 (downto)
если в

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

1 до 8 (от a до b).
Особенность: одинаковые действия выполняются

i := 1; { очередное число }
i2 := i*i; { его квадрат }
i3 := i2*i; { куб }
writeln(i:4, i2:4, i3:4);
i := 2;
...

:= i2 * i;
i := 1,8
блок «цикл»
тело цикла

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

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

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

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

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

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

downto

a := a+1;
a = 4
a := 1;
for i:=3 to 1

a = 1

a := 1;
for i:=1 downto 3 do a := a+1;

a = 1

a := 1;
for i:=3 downto 1 do a := a+1;

a = 4

??? then begin
i2 :=

Как изменить шаг?

Задача. Вывести на экран квадраты и кубы нечётных целых чисел от 1 до 9.
Особенность: переменная цикла должна увеличиваться на 2.
Проблема: в Паскале шаг может быть 1 или -1.
Решение:

i mod 2 = 1

i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);

выполняется только для нечетных i

переменная k изменяется от 1 до 5. Начальное значение i

???
for k:=1 to 5 do begin
i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
???
end;

i := i + 2;

i := 1;

переменная k изменяется от 1 до 5. Зная k, надо

i = 2k-1

for k:=1 to 5 do begin
???
i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
end;

i := 2*k – 1;

чисел от a до b.
Пример:
Введите границы интервала:
4 6