Презентация на тему Основные понятияи инструментарийсреды программированияFREE PASCAL

Основные понятия и инструментарий среды программирования FREE PASCAL

Free Pascal - свободно распространяемый в исходных текстах кроссплатформенный компилятор языка Pascal.

Алгоритмический
язык

Интегрированная
среда программирования

Текстовый
редактор

библиотеки

компилятор

компоновщик

отладчик

Начальные сведения

Начальные сведения

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

Компилятор – программа, предназначенная для перевода текста в машинные коды.

Компоновщик – программа, предназначенная для добавления к программе кодов из библиотечных модулей и соединения программы в единое целое.

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

Окно программы

Окно программы

File — New
File — Open
File — Save (F2)
Compile — Compile (Alt+F9)
Run — Run (Ctrl+F9)
Alt+F5

Основные команды работы с файлом

Создать файл
Открыть файл
Сохранить файл
Компилировать файл
Запуск программы
Просмотр результата
работы программы

program имя_программы;
uses modul1, modul2, …, moduln;
const описания_констант;
type описания_типов;
var описания_переменных;
begin
операторы_языка;
end.

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

program имя_программы;
uses modul1, modul2, …, moduln;
const описания_констант;
type описания_типов;
var описания_переменных;
begin
оператор_1;
оператор_2;
...
end.

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

program one;
const a=7;
var b,c: real;
begin
c:=a+2; b:=c-a*sin(a);
end.

var имя_переменной: тип_переменной;

var переменная_1,…,переменная_N: тип_переменных;

Var ha: integer;
hb, c: real;

const имя_константы = значение;

const
h=3;
bk=-7.521;
c='abcde';

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

Var c: char;

Целочисленные типы
данных

var
b: byte;
i, j: integer;
W: word;
L_1, L_2: longint;

Вещественные типы
данных

var
r1, r2: real; D: double;

Логический тип
данных

var
FL: boolean;

Перечислимый тип
данных

var имя_переменной:(знач_1,знач_2,…,знач_N);

var
animal: (fox, rabbit);
color: (yellow, blue, green);

type
year_times = (winter, spring, summer, autumn);
var yt: year_times;

var имя_переменной: мин_знач .. макс_знач;

Интервальный тип
данных

var
date: 1..31;
symb: ’a’..’h’;

Операции и
выражения

Операции и
выражения

a+b*sin(cos(x))

Операции и
выражения

R:=(a+b+c)/2

S:=sqrt(r*(r-a)*(r-b)*(r-c))

alfa:=alfa*180/pi;
betta:=betta*180/pi;
gamma:=gamma*180/pi;

Основные функции

Основные функции

write('x=');
readln(x);

z:=0;

Операторы ввода,
вывода, присваивания

Вывод данных в строку
Ввод данных и переход на новую строку
Присваивание значение переменной

Операторы ввода,
вывода, присваивания

write('x=‘,х);
writeln('x=‘);
write(х);
Read(a,b,c);
Write(‘S=’);

Readln(a,b,c);
Write(‘S=’);

х=1
х=
1
1 7 9S=

1 7 9
S=

Пример программы:
Найти расстояние
между двумя точками

program zadacha;
var x1, y1, x2, y2, d: real;
begin
Writeln(‘vvedite x1, y1, x2, y2’);
Readln(x1, y1, x2, y2);
d:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
Writeln(‘rasst= ’, d);
Repeat until keypressed;
end.

Оператор условного перехода

If условие then операторы else операторы

If a>0 then s:=s+d else s:=s-d;

If a<>b then a:=a-b;
If (x<=10) and (x>=0) then y:=sqr(x);

Оператор условного перехода

If a begin
a:=c-a;
k:=k+1;
end
else begin
c:=a-c;
l:=l+1;
end.

Оператор безусловного перехода

program schisla;
uses crt;
label 1;
var a,k: integer;

Найти количество целых четных чисел, вводимых с клавиатуры. Выход из программы по вводу 0.

begin
k:=0;
clrscr;
1: Writeln (‘vvedite chislo’);
Readln(a);
if a<>0 then
begin
if a mod 2 =0 then k:=k+1;
goto 1;
end;
writeln(‘kol chet chisel = ’,k);
end.

Оператор безусловного перехода

Пример программы:
Найти наибольшее из
трех введенных чисел

program maks;
uses crt;
var a,b,c,max: real;
begin
writeln(‘vvedite a,b,c’);
readln(a,b, c);
If a>b then max:=a else max:=b;
If max writeln(‘maks= ’, max);
end.

Операторы цикла.
Цикл с предусловием.

while логическое выражение do
Операторы;

Цикл выполняется до тех пор, пока значение логического выражения «истина»

k:=0;
read(a);
while a<>0 do
begin
if a>0 then s:=s+a;
read(a);
end;

Операторы цикла.
Цикл с постусловием.

repeat
Операторы;
until логическое выражение;

Цикл выполняется до тех пор, пока значение логического выражения «ложь»

s:=0;
repeat
readln(v1);
readln(k);
v2:=v2+v1*k;
until v2>=v;

Операторы цикла.
Цикл с параметром.

For параметр :=нач. значение to кон. значение do
Операторы;

For k:=2 to 10 do p:=p*k;

For параметр :=кон. значение downto нач. значение do
Операторы;

For I:=640 downto 1 do x:=x+I;

Пример программы:

Найти сумму вводимых с клавиатуры положительных чисел. Выход из программы по вводу 0.

program predusl;
uses crt;
var a,s: real;
begin
s:=0;
readln(a);
while a<>0 do
begin
if a>0 then s:=s+a;
readln(a);
end;
Clrscr;
Writeln(‘s= ’,s);
end.

Пример программы:

Найти целые двузначные числа, остаток от деления на 3 которых равен 2.

program param;
uses crt;
var a: integer;
begin
for a:=10 to 99 do
if a mod 3=2 then writeln(a);
end.

Пример программы:
Подсчитать количество цифр
целого числа.

program postusl;
uses crt;
var a,k: integer;
begin
k:=0;
readln(a);
repeat
if a mod 10<>0 then k:=k+1; a:=a div 10;
until a=0;
Writeln(‘k= ’,k);
end.

Пример программы:
Найти двузначные числа
с суммой цифр =8

program zadachka;
uses crt;
var i,x,sum: integer;
begin
sum:=0;
for i:=10 to 99 do begin
sum:=sum+(i mod 10)+(i div 10); if sum=8 then writeln(i);
sum:=0;
end;
end.

Подпрограммы.
Процедуры.

Подпрограмма – это вспомогательная программа, являющаяся состаной частью основной. К подпрограмме обращаются по ее имени.

Procedure имя(список формальных параметров);
Var …
Begin
…..
End;

Пример программы:
Поменять местами
числа a и с, b и e.

program zadachka;
uses crt;
var a,b,c,d,e: integer;
Procedure swap(x:integer;y:integer);
Var f;integer;
Begin
f:=x; x:=y;y:=f;
End;

begin
readln(a,b,c,d,e);
swap(a,c);
swap(b,e);
writeln(a,b,c,d,e);
End.

Пример программы:
Поменять местами
числа a и с, b и e.

Подпрограммы.
Функции.

function имя(список формальных параметров): тип;
Var …
Begin
…..
Имя:=значение функции;
End;

Пример программы:
Вычислить y=n!+m!

program zadachka1;
uses crt;
var y,n,m: integer;
function fakt(x:integer):longint;
Var f,j:integer;
Begin
f:=1;
for i=1 to x do
f:=f*j;
fakt:=f;
End;

Пример программы:
Вычислить y=n!+m!

begin
readln(n,m);
y:=fakt(n)+fakt(m);
writeln(y);
End.