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.

Cile_Dilenya

program Cile_Dilenya;

uses CRT;
Var a:integer;
BEGIN
a:=6 div 5;
Writeln(a);
a:=148 mod 40;
Writeln(a);

a:=12 div 7;
Writeln(a);
a:=234 mod 15;
Writeln(a);

a:=47 div 10;
Writeln(a);
a:=15 div 4 mod 2;
Writeln(a);

a:=185 mod 100;
Writeln(a);
a:=188 mod 5 div 2;
Writeln(a);

a:=89 div 12;
Writeln(a);
a:=753 div 5 mod 4;
Writeln(a);

a:=75 div 4;
Writeln(a);
a:=129 mod 10 div 3;
Writeln(a);

a:=129 div 50;
Writeln(a);
a:=384 div 23 mod 4;
Writeln(a);

a:=56 mod 7;
Writeln(a);
a:=384 div 23 mod 4;
Writeln(a);
END.

ЦЧД. Сума трьохзначних чисел Free_Pascal IDE

program Free_Pascal ;

uses CRT;
Var a,b,c,f,E:integer;
BEGIN
Writeln('Vvesty tryznashne shislo');
Read(c);
a:= c mod 10;
b:= c div 100;
f:= c div 10 mod 10;
E:= a+b+f;
writeln(E);
Readln;
Readln;

END.

ЦЧД

program Free_Pascal ;

uses CRT;
Var a,b,c,E:integer;
BEGIN
Writeln('Vvesty shotyryznashne shislo');
Read(c);
a:= c mod 10;
Writeln(a);
b:= c div 10;
c:= c div 10 mod 10;
E:= a*b*c;
writeln(E);
Readln;
Readln;
END.

ЦЧД_2

program Free_Pascal ;

uses CRT;
Var a,b,c,h:integer;
BEGIN
Writeln('Vvesty shotyryznashne shislo');
Read(c);
a:= c mod 100;
Writeln(a);
b:= c div 5;
c:= c div 100 mod 10;
h:= a*b*c;
writeln(h);
Readln;
Readln;
END.

LTD

1. Const a=2; b=10; 
 var x:boolean; 
begin 
  x:=a < b; 
  Writeln(x); 
end. 

2. Const a=TRUE;    b=FALSE; 
Begin 
 writeln(b > a); 
end. 

3. Const X=-2; y=2; 
 Var Z:Boolean; 
Begin 
Z:=sqr(x)-sqr(y)=0; writeln(z); 
end.

4. Const F=7; D=5; 

 Var Z:Boolean; 
Begin 
 Z:=1/F > 1/D; 
 writeln(z); 

end.