Основные понятия
и инструментарий
среды программирования
FREE PASCAL
Презентация на тему Презентация на тему Основные понятияи инструментарийсреды программированияFREE PASCAL, предмет презентации: Разное. Этот материал содержит 40 слайдов. Красочные слайды и илюстрации помогут Вам заинтересовать свою аудиторию. Для просмотра воспользуйтесь проигрывателем, если материал оказался полезным для Вас - поделитесь им с друзьями с помощью социальных кнопок и добавьте наш сайт презентаций ThePresentation.ru в закладки!
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 имя_переменной:(знач_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
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
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;
Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть