Презентация на тему Язык программирования pascal

директором Института информатики Швейцарской высшей политехнической школы Николаусом Виртом

в 1968-1970 гг. как язык обучения студентов программированию.

обучения, было бы неверно.






Вот что говорил об этом

Н. Вирт (1984 г.):
«Утверждалось, что Паскаль был разработан в качестве языка для обучения. Хотя это утверждение справедливо, но его использование при обучении не являлось единственной целью. На самом деле я не верю в успешность применения во время обучения таких инструментов и методик, которые нельзя использовать при решении каких-то практических задач».*
* http://pascal.sources.ru

знаки, используемые при составлении текстов.
Алфавит языка - набор таких

символов.

Алфавит языка Turbo Pascal 7.0 включает:

все латинские прописные и строчные буквы
арабские цифры (0 – 9)
символы + - * / = < > , . ; : ‘ _ ( ) { } и др.
служебные (зарезервированные) слова

Pascal 7.0 существует набор строго определенных слов, которые называются

служебными.
Служебные слова делятся на три группы:
операторы (READ, WRITELN и др.)
имена функций (SIN, COS и др.)
ключевые слова (VAR, BEGIN, END и др.)

Основные средства языка

const (список постоянных значений)

type (описания сложных типов данных)
var (описания данных программы)

begin (начало программного блока)
(алгоритм)

end. (конец программы)

Структура программы на языке Паскаль

выражений, нужно брать в одинарные кавычки

целое число, определяющее, сколько позиций на экране должна занимать

выводимая величина

3*8);
Write (5-2, ‘’ , 3*8);
Write (5-2, ‘ ,’ ,

3*8);
END.

BEGIN будем ставить в начале программы, чтобы компьютеру было видно, откуда она начинается.

END с точкой ставится в конце программы.

Точкой с запятой необходимо отделять операторы друг от друга.

в той же строке. Чтобы осуществить переход к новой

строке, используется оператор writeln. Других различий между операторами writ и writeln нет.

и площадь круга радиуса 5,4 см.
Program p_2;
const pi=3.14;
var r,

c, s: real;
begin
r:=5.4;
c:=2*pi*r;
s:=pi*r*r;
writeln (‘c=’, c:6:4);
writeln (‘s=’, s:6:4)
End.

Площадь круга
S = πr2

Длина круга
C = 2πr

м стоит прямоугольный дом размером 20 на 10 м.

Подсчитать площадь дома, свободную площадь двора и длину забора.

Автомобиль три часа ехал со скоростью 80 км/ч и 2 часа со скоростью 90 км/ч. Вычислить среднюю скорость автомобиля (она равна суммарному пути, деленному на суммарное время).

Sdvora, DLzabora: integer;
BEGIN
a:=50;
b:=30;
c:=20;
d:=10;
Sdoma:=c*d;
Sdvora:=a*b-c*d;
DLzabora:=2*(a+b)-(c+d);
WriteLn (‘Площадь дома=',Sdoma,‘ ',‘Площадь

двора=',Sdvora, ' ',‘Длина забора=',DLzabora)
END.

Решение задачи №1

real;
BEGIN
t1:=3;
t2:=2;
v1:=80;
v2:=90;
S1:=t1*v1;
S2:=t2*v2;
Vsred:=(S1+S2)/(t1+t2);
WriteLn ('Средняя скорость автомобиля=', Vsred, 'км/ч')
END.
Решение задачи №2

переменных используется read.


READ (,,)

список ввода

Для ввода данных с клавиатуры можно также использовать оператор readln, который отличается от read только тем, что после его выполнения курсор переходит на новую строку.

две программы решения этой задачи:

записи неполных ветвлений используется сокращенная форма записи:

If then

<оператор>

Перед else знак « ; » не ставится

b]. Если точка Х принадлежит данному отрезку, то выводится

ответ ‘Да’, в противном случае - ‘Нет’

Program n_9;
Var x, a, b:real;
begin
writeln (‘Введите a, b’);
readln (a, b);
writeln (‘Введите x’);
readln (x);
if (x>=a) and (x<=b) then
writeln (‘Да’)
else writeln (‘Нет’)
End.

величин A, B, C

Пример
Program n_10;
Var y, a, b, c:integer;
begin

writeln (‘Введите a, b, c’);
readln (a, b, c);
y:=a;
if (b>y) then y:=b;
if (c>y) then y:=c;
writeln (‘y=’, y)
End.

Сокращенная форма ветвления

после else можно использовать только один оператор. Если требуется

выполнить несколько операторов, то их объединяют в составной оператор.

Составной оператор

Begin <последовательность операторов> end

real;
var x, x1, x2: real;
begin
write (‘Введите коэффициенты a, b,

c’);
readln (a, b, c);
d:= b*b- 4*a*c;
if d<0 then writeln (‘Корней нет’);
if d=0 then
begin
x:=-b/(2*a);
writeln (‘Корень уравнения х=’, x)
end;
if d > 0 then
begin
x1:= (-b+sqrt(d))/(2*a);
x2:= (-b-sqrt(d))/(2*a);
writeln (‘Корни уравнения’);
writeln (‘x1=’, x1);
writeln (‘x2=’, x2)
end
end.

пока проверка этого условия будет давать результат «истина» (true),

т.е. пока условие выполняется. Если условие сразу оказывается ложным, цикл не будет выполнен ни разу.

Условие

Тело
цикла

да

нет

имеет следующий формат:

while do ;

Служебное слово while означает

«пока», do – «делать».
Оператор стоящий после слова do, называется телом цикла. Тело цикла может быть простым или составным оператором, т.е. последовательностью операторов между служебными словами begin и end.

остаток r от деления целого числа х на целое

число у.

Program n_14;
var x, y, q, r: integer;
Begin
writeln (‘Введите делимое х’);
readln (x);
write(‘Введите делитель у’);
readln (у);
r:=x;
q:=0;
while r >= y do
begin
r:=r-y;
q:=q+1
end;
writeln (‘Частное q=’, q);
writeln (‘Остаток r=’, r)
End.

N называется произведением всех целых чисел от 1 до

N включительно.

Например:
1!=1;
2!=1*2=2;
3!=1*2*3=6;
4!=1*2*3*4=24;
5!=1*2*3*4*5=120 и т.д.

Program factorial;
var a, n: integer;
var fact: real;
Begin
writeln (‘Введите число');
readln (a);
n:=1;
fact:=1;
while n < a do
begin
n:=n+1;
fact:=fact*n;
end;
writeln (‘Число’,a ,’ ‘,‘Факториал числа =‘, fact);
end.