После того как текст программы набран, его следует перевести в машинный код. Для этого необходимо вызвать транслятор с помощью команды Compile — Compile (комбинация клавиш Alt+F9). На первом этапе транслятор проверяет наличие синтаксических ошибок. Если в программе нет синтаксических ошибок, то на экране сообщается о количестве строк транслированной программы и объёме доступной оперативной памяти.
Если на каком-либо этапе транслятор обнаружит ошибку, то в окне редактора курсор укажет ту строку программы, в которой ошибка была обнаружена. При этом в верхней строке редактора появится краткое диагностическое сообщение о причине ошибки.
Для запуска транслированной программы необходимо выполнить команду Run — Run (комбинация клавиш Ctrl+F9), после чего на экране появляется окно командной строки, в котором пользователь и осуществляет диалог с программой. После завершения работы программы вновь появляется экран среды Free Pascal.
Лабораторная работа № 1
Условный оператор и программирование разветвляющихся алгоритмов.
Цель работы: Изучение приемов программирования разветвляющихся алгоритмов с использованием оператора сравнения и логических операций над данными типа boolean.
Пример первого задания.
Составить программ у вычисления функции:
х2+1, x<0
Y= x-2,1, x>п/2
Sinx, 0<=x<=п/2
Для произвольного X и вычислить значения Y(x) в точках:
Х1= -2,5 х2=-0,5 х3=1,5
Program Func;
var
x,y:real;
BEGIN
Write(‘введите х=’); readln(x);
If x<0 then y:= sqr(x)+1
else
if x>pi/2 then y:= x-2.1
else
y:= sin(x);
writeln(' Y= ', у: 6: 3)
END.
Пример второго задания.
Составить программу определения произведения двух наименьших целых чисел А,В,С (А<>В<>С<>0).
Program mult;
var
max,a,b,с: integer;
mul: integer;
BEGIN
writeln('введите 3 целых числа А,В,С'); readln(a,b,c);
max:= a;
if b>max then max:=b;
if c>max then max:=c;
mul:= (a *b*с) div max;
writeln('произведение двух наименьших=',mul)
END.
3. Лабораторная работа № 2 .
Операторы цикла и программирование циклических алгоритмов.
Цель работы:
1. Изучение приемов программирования циклических алгоритмов с применением трех различных операторов цикла.
2. Изучение приемов программирования при работе с перечисляемыми типами.
Пример первого задания.
Найти сумму членов знакопеременного ряда.
S= (
+3)/2-(
+5)/4+…+ 
+35)/34- (
+35)/36
Program sum_;
var
a,i: integer;
s: геа1;
BEGIN
s:=0; {сумма}
i:=2; {начальное значение}
a:=l; {«мигалка»}
while i< = 36 do
begin
s:=s+a*(sqrt(i)+(i+1))/i;
i:=i+2;
a:= -a
end;
writeln(‘s= ‘,s:6:2)
END.
Пример второго задания.
Составить программу табулирования функции:
Ex+Sin2x*cos(x-2), x<=1
Y=
2x+ 
), x>1
на отрезке х [0,2] с шагом h
Program tab_;
const
h=0.2;
var
x: real;
BEGIN
x: =0;
while x < = (2 + h / 2) do
begin
if x < = 1 then у:=exp(x) +sqr(sin(x))*соs(x-2)
else
у:=еxр(ln(2)*x)+sqrt(x+6);
writeln('x = ', x: 5: 2, ' у = ', у: 7: 2);
x:= x + h
end
END.
Пример третьего задания.
Определить по заданной дате (число, месяц, год.) дату следующего дня (число, название месяца, год).
Program data_;
type
mes= (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec);
day=1..31;
year=1900..2010;
var
d: day;
m: mеs;
g: year;
n: 1..12;
BEGIN
Write(‘введите дату D,N,G’); readln(d,n.g);
Case n of
1:m:=jan;
2:m:=feb;
3:m:=mar;
4:m:=apr;
5:m:=may;
6:m:=jun;
7:m:=jul;
8:m:=aug;
9:m:=sep;
10:m:=oct;
11:m:=nov;
12:m:=dec;
end;
Case m of
Jan, mar, may, jul, aug, oct:
If d=31 then
begin
d:=1; m:=succ(m)
end
else
inc(d);
apr, jun, sep, nov:
f d=30 then
begin
d:=1; m:=succ(m)
end
else
inc(d);
dec:
If d=31 then
begin
d:=1; m:=jan; inc(g)
end
else
inc(d);
feb:
if ((d=28) and (not((g mod 400=0) or (g mod 4=0) and (g mod 100<>0)))
or (d=29) then
begin
d:=1; m:=mar;
end
else
inc(d);
end; {case}
writeln(‘дата следующего дня: ‘);
write(d:2);
Case m of
jan: write(‘января’);
feb: write(‘февраля’);
mar: write(‘марта’);
apr: write(‘апреля’);
may: write(‘мая’);
jun:write(‘июня’);
ju1: wгite(‘июля‘);
aug: wгitе('августа');
sep:write('сентября');
oct: write('октября');
nov: write('ноября');
dec: write('декабря');
end;
write(g:5, ' года')
END.
Лабораторная работа №3.
