Pascal

Русское название:

Паскаль

Дата создания:

1970

Создан под влиянием:

• ALGOL

Повлиял на:

• ARIBAS
• Ada
• D4
• DASL
• GAP
• Go
• Limbo
• Modula
• Oberon
• Objeck
• Seed7
• VHDL

Парадигма:

• императивная
• на уровне значений
• процедурная
• скалярная
• структурная

Типизация:

• безопасная
• статическая
• строгая
• типизированная
• явная

Принятые расширения файлов:

.pas

Диалекты:

• Extended Pascal
• Object Pascal
• PASCAL-XSC
• Standard Pascal

Реализации и версии (свернуть все | развернуть все):

• Borland Delphi
  • Borland Delphi 2.0
• Borland Pascal
• Free Pascal
  • Free Pascal 1.0.6
  • Free Pascal 2.0.4
  • Free Pascal 2.2.0
  • Free Pascal 2.2.4
• GNU Pascal
  • gpc 20070904
  • gpc-2.1
• HP Pascal
• HiSoft Pascal
• IP Pascal
• Irie Pascal
• Pascal ABC
  • Pascal ABC 1.7
  • Pascal ABC 1.8
  • Pascal ABC 1.9
  • Pascal ABC 2.0
  • Pascal ABC 2.1
  • Pascal ABC 2.2
  • Pascal ABC 2.3
  • Pascal ABC 2.4
  • Pascal ABC 2.5
  • Pascal ABC 2.5.3
  • Pascal ABC 2.6
  • Pascal ABC 2.6.2
  • Pascal ABC 2.6.3
  • Pascal ABC 2.6.4
  • Pascal ABC 2.6.5
  • Pascal ABC 2.7
  • Pascal ABC 2.7.2
  • Pascal ABC 2.7.3
  • Pascal ABC 2.7.4
  • Pascal ABC 3.0
• Pascal-XT
• PascalABC.NET
  • PascalABC.NET 1.8
• Prospero Extended Pascal
• Turbo Pascal
  • Turbo Pascal 1.0
  • Turbo Pascal 2.0
  • Turbo Pascal 3.0
  • Turbo Pascal 4.0
  • Turbo Pascal 5.0
  • Turbo Pascal 5.5
  • Turbo Pascal 6.0
  • Turbo Pascal 7.0
• UCSD Pascal
• Virtual Pascal
  • Virtual Pascal 2.0
  • Virtual Pascal 2.1

program factorial;

function fact(n: integer): longint;
begin
    if (n = 0) then
        fact := 1
    else
        fact := n * fact(n - 1);
end;

var
    n: integer;

begin
    for n := 0 to 16 do
        writeln(n, '! = ', fact(n));
end.

program fibonacci;

function fib(n:integer): integer;
begin
    if (n <= 2) then
        fib := 1
    else
        fib := fib(n-1) + fib(n-2);
end;

var
    i:integer;

begin
    for i := 1 to 16 do
        write(fib(i), ', ');
    writeln('...');
end.

program helloworld;

begin
    writeln('Hello, World!');
end.

program factorial;

function fact(n: integer): real;
begin
    if (n = 0) then
        fact := 1
    else
        fact := n * fact(n - 1);
end;

var
    n: integer;

begin
    for n := 0 to 16 do
        writeln(n, '! = ', fact(n):-1:0);
end.

program Quadratic;

var
   A,B,C,D: integer;

begin
   write('A = ');
   readln(A);
   if (A=0) then
   begin
      writeln('Not a quadratic equation.');
      halt;
   end;
   write('B = ');
   readln(B);
   write('C = ');
   readln(C);
   D := B*B-4*A*C;
   if (D=0) then
   begin
      writeln('x = ',-B/2.0/A);
      halt;
   end;
   if (D>0) then
   begin
      writeln('x1 = ',(-B+Sqrt(D))/2.0/A);
      writeln('x2 = ',(-B-Sqrt(D))/2.0/A);
   end
   else
   begin
      writeln('x1 = (',-B/2.0/A,',',Sqrt(-D)/2.0/A,')');
      writeln('x2 = (',-B/2.0/A,',',-Sqrt(-D)/2.0/A,')');
   end;
end.

program Camelcase;

var
    text, cc: string;
    c: char;
    i: integer;
    lastSpace: boolean;

begin
    readln(text);
    lastSpace := true;
    cc := '';
    for i := 1 to Length(text) do
    begin
        c := text[i];
        if ((c >= #65) and (c <= #90)) or ((c >= #97) and (c <= #122)) then
        begin
            if (lastSpace) then
            begin
                if ((c >= #97) and (c <= #122)) then
                    c := chr(ord(c) - 32);
            end
            else
                if ((c >= #65) and (c <= #90)) then
                    c := chr(ord(c) + 32);
            cc := cc + c;
            lastSpace := false;
        end
        else
            lastSpace := true;
    end;
    writeln(cc);
end. 

program Camelcase;

var
    text, cc: string[100];
    c: char;
    i: integer;
    lastSpace: boolean;
    upper, lower: set of char;

begin
    upper := ['A'..'Z'];
    lower := ['a'..'z'];
    readln(text);
    lastSpace := true;
    cc := '';
    for i := 1 to Length(text) do
    begin
        c := text[i];
        if (c in lower) or (c in upper) then
        begin
            if (lastSpace) then { convert to uppercase }
            begin
                if (c in lower) then
                    c := chr(ord(c) - 32);
            end
            else { convert to lowercase }
                if (c in upper) then
                    c := chr(ord(c) + 32);
            cc := cc + c;
            lastSpace := false;
        end
        else
            lastSpace := true;
    end;
    writeln(cc);
end. 

{$APPTYPE CONSOLE}
uses SysUtils;

program factorial;
{$APPTYPE CONSOLE}
uses SysUtils;

function fact(n: integer): longint;
begin
    if (n = 0) then
        fact := 1
    else
        fact := n * fact(n - 1);
end;

var
    n: integer;

begin
    for n := 0 to 16 do
        writeln(n, '! = ', fact(n));
end.

Комментарии

blog comments powered by Disqus