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

Содержание

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

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

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

Pascal.



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

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






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

библиотеки

компилятор

компоновщик

отладчик

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

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

можно вставить в программу, вызывая по имени.

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

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

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

Слайд 4Окно программы

Слайд 5Окно программы

Слайд 6File — New
File — Open
File — Save (F2)
Compile — Compile (Alt+F9)
Run

— Run (Ctrl+F9)
Alt+F5

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

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

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

Слайд 8program имя_программы;
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.

Слайд 9var имя_переменной: тип_переменной;
var переменная_1,…,переменная_N: тип_переменных;
Var ha: integer;
hb, c: real;
const имя_константы =

значение;

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

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

Var c: char;

Слайд 10Целочисленные типы
данных
var
b: byte;
i, j: integer;
W: word;
L_1, L_2: longint;

Слайд 11Вещественные типы
данных
var
r1, r2: real; D: double;

Слайд 12Логический тип
данных
var
FL: boolean;

Слайд 13Перечислимый тип
данных
var имя_переменной:(знач_1,знач_2,…,знач_N);
var
animal: (fox, rabbit);
color: (yellow, blue, green);
type
year_times = (winter, spring,

summer, autumn);
var yt: year_times;

Слайд 14var имя_переменной: мин_знач .. макс_знач;
Интервальный тип
данных
var
date: 1..31;
symb: ’a’..’h’;

Слайд 15Операции и
выражения

Слайд 16Операции и
выражения

Слайд 17a+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;

Слайд 18Основные функции

Слайд 19Основные функции

Слайд 20write('x=');
readln(x);

z:=0;
Операторы ввода,
вывода, присваивания
Вывод данных в строку
Ввод данных и переход на новую

строку
Присваивание значение переменной

Слайд 21Операторы ввода,
вывода, присваивания
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=

Слайд 22Пример программы:
Найти расстояние
между двумя точками
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.

Слайд 23Оператор условного перехода
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);

Слайд 24Оператор условного перехода
If a

Слайд 25Оператор безусловного перехода
program schisla;
uses crt;
label 1;
var a,k: integer;
Найти количество целых четных чисел,

вводимых с клавиатуры. Выход из программы по вводу 0.

Слайд 26begin
k:=0;
clrscr;
1: Writeln (‘vvedite chislo’);
Readln(a);
if a0 then
begin
if a mod 2 =0 then

k:=k+1;
goto 1;
end;
writeln(‘kol chet chisel = ’,k);
end.

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

Слайд 27Пример программы:
Найти наибольшее из
трех введенных чисел
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.

Слайд 28Операторы цикла.
Цикл с предусловием.
while логическое выражение do
Операторы;
Цикл выполняется до тех пор,

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

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

Слайд 29Операторы цикла.
Цикл с постусловием.
repeat
Операторы;
until логическое выражение;
Цикл выполняется до тех пор,

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

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

Слайд 30Операторы цикла.
Цикл с параметром.
For параметр :=нач. значение to кон. значение do
Операторы;
For

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

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

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

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

по вводу 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.

Слайд 32Пример программы:
Найти целые двузначные числа, остаток от деления на 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.

Слайд 33Пример программы:
Подсчитать количество цифр
целого числа.
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.

Слайд 34Пример программы:
Найти двузначные числа
с суммой цифр =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.

Слайд 35Подпрограммы.
Процедуры.
Подпрограмма – это вспомогательная программа, являющаяся состаной частью основной. К подпрограмме

обращаются по ее имени.

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

Слайд 36Пример программы:
Поменять местами
числа 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;

Слайд 37begin
readln(a,b,c,d,e);
swap(a,c);
swap(b,e);
writeln(a,b,c,d,e);
End.
Пример программы:
Поменять местами
числа a и с, b и e.

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

Слайд 39Пример программы:
Вычислить 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;

Слайд 40Пример программы:
Вычислить y=n!+m!
begin
readln(n,m);
y:=fakt(n)+fakt(m);
writeln(y);
End.

Похожие презентации

Притирка. Качество и продуктивность притирки 471
Управление качеством образования в школе полного дня 350
МДОУ Детский сад №146 Петушок 202
Попит, пропозиція, ринкова ціна 672
The Rising of the moon 177
samyy umnyy 202

Обратная связь

Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое ThePresentation.ru?

Это сайт презентаций, докладов, проектов, шаблонов в формате PowerPoint. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами с другими пользователями.

Для правообладателей

Яндекс.Метрика