Free_Pascal

Free Pascal (Повна назва Free Pascal Compiler, FPC) — це компілятор мови програмування Паскаль з відкритими вихідними кодами.

Він сумісний з Borland Pascal 7 і Object Pascal, але при цьому має ряд додаткових можливостей, наприклад, підтримує перевантаження операторів. FPC — кросплатформенний інструмент, що підтримує величезну кількість платформ. Серед них — AmigaOS, DOS, Linux, *BSD, OS/2, MacOS X і Win32.

  

[ред. • ред. код]

• Підтримка перевантаження арифметичних операторів (+, -, *, **, /, div, mod), операторів порівняння (<, >, =, >=, <=) та оператора присвоювання :=.
• Підтримка операторів присвоювання з виконанням арифметичної операції в стилі Сі (+=, -=, *=, /=).
• Наявність власної системи збірки (fpcmake) та генератора документації (fpcdoc).
• Вбудований асемблер за замовчуванням використовує синтаксис AT&T, Intel-синтаксис включається окремою директивою

Логічний тип даних

Умову інакше називають логічним виразом. Логічний вираз має тільки два значення: TRUE (вірно) та FALSE (невірно). Значення логічного типу можна присвоювати змінній логічного типу.

Опис

    var  x, y, z: boolean;

Присвоєння значень

    X:= TRUE;   y:= 2>5;  z:= a=b;

Виведення

   writeln(y);

   Writeln(a>b);

Коли логічна змінна має значення TRUE, її внутрішнє представлення 1.

Коли логічна змінна має значення FALSE, її внутрішнє представлення 0.

Приклади

Програма	Пояснення	Результат роботи
Const a=2; b=10;  var x:boolean; begin   x:=a < b;   Writeln(x); end.	a=2; b=10. Тому a < b вірна нерівність. Отже, x має значення TRUE, яке і виводиться на екран	TRUE
Const a=TRUE;    b=FALSE; Begin  writeln(b > a); end.	a=TRUE, тобто 1; b=FALSE, тобто 0. Тому b>a - невірна нерівність, тобто такий логічний вираз має значення FALSE	FALSE
Const X=-2; y=2;  Var Z:Boolean; Begin Z:=sqr(x)-sqr(y)=0; writeln(z); end.	X=-2; y=2. Тому sqr(x)-sqr(y)=0 - вірна рівність, тому Z має значення TRUE	TRUE
Const F=7; D=5;  Var Z:Boolean; Begin  Z:=1/F > 1/D;  writeln(z); end.	F=7; D=5, F > D. Тому 1/F<1/D. Звідки 1/F > 1/D -невірно, тому Z має значення FALSE	FALSE

Cile

program Cile;

 Var skr,skv,a,r:real;
begin
  write('skr= ');read(skr);
  write('skv= ');read(skv);
  r:=sqrt(skr/pi); a:=sqrt(skv);
  if r>a then writeln('radius')
         else writeln('storona');
end.

PAscal

program kolo_ta_kvadrat;

uses CRT;
Var x, c1,c2,c3,p:integer;
BEGIN
read(x);
c1:=x div 100;
c2:=x div 10 mod 10;
c3:=x mod 10;
p:=c1*c2*c3;
if x mod p =0 then writeln('yes') else writeln('no');
END.

LiFT_2

program LiFT;

uses CRT;
Const hl=8; dv=10; d=87; g=75; max= 500;
Var  a,b,c:integer;

BEGIN
Writeln('Vvesty kilkist hlopciv');
Read(a);
b:=a*8;
if b < 500 then writeln('yes') else writeln('no');
Writeln('Vvesty kilkist divchat');
Read(b);
c:=b*10;
if b < 500 then writeln('yes') else writeln('no');
END.

LiFT

program LiFT;

uses CRT;
Const hl=8; dv=10; d=87; g=75; max= 500;
Var  a,b,c:integer;

BEGIN
Writeln('Vvesty kilkist hlopciv');
Read(a);
b:=a*8;
if  b < 500 then writeln('yes') else writeln('no');
END.

Умовний оператор

program Dobytok_cyFr;

uses CrT;
Var a,b,c,t,f:byte;

BEGIN
Writeln('Vvesty kilkist hvylyn');
Readln(t);
a:= t div 60;
Writeln(a);
b:= t mod 60;
Writeln(b);
//c:= t div   mod ;
Writeln(c);
//f:=a*b*c;



END.