Program p38t6;
{
Введите три числа. Если они могут быть длинами сторон разностороннего
тупоугольного треугольника, выведите их в порядке возрастания и вычислите
площадь полученного треугольника
}
{$APPTYPE CONSOLE}

{$R *.res}

uses
  Windows;

const e = 0.00000001;
var a, b, c, min, mid, max, p:real;

begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

  Writeln('Введите 1-ю сторону треугольника ');
  readln(a);
  Writeln('Введите 2-ю сторону треугольника ');
  readln(b);
  Writeln('Введите 3-ю сторону треугольника ');
  readln(c);
  if (a-b)>e then begin      // сортировка сторон по возрастанию
    min:=b;
    max:=a; end
  else begin
    min:=a;
    max:=b
  end; // if (a-b)>e
  if (c-min)<e then begin
    mid:=min;
    min:=c; end
  else if (c-max)<e then
    mid:=c
  else begin
    mid :=max;
    max:=c;
  end; // if (c-max)<e
  if (min+mid)-max<e then
    WriteLn('Данные числа не могут являться длинами сторон треугольника!')
    // проверка на существование треугольника
  else if not((min-mid<>e) and (min-max<>e) and (mid-max<>e)) then
    writeLn('Данные числа не являются длинами сторон разностороннего треугольника!')
    // проверка на различие сторон треугольника
  else if not(sqr(max)-sqr(mid)-sqr(min)>e) then
    writeln('Треугольник не тупоугольный, введите другие стороны!')
    // проверка на тупоугольность треугольника
  else
    begin
       writeln('Стороны в порядке возрастания: ', min:0:1,' ', mid:0:1,' ', max:0:1);
       p := (min+mid+max) / 2;
       writeln('Площадь треугольника: ', (sqrt(p*(p-min)*(p-mid)*(p-max))):2:6); end;
Readln;
end.

Pascal online compiler

Write, Run & Share Pascal code online using OneCompiler’s Pascal online compiler for free. It’s a straightforward, accessible way to learn and experiment with Pascal programming right from your browser. OneCompiler supports modern Pascal syntax and provides a ready-to-use editor for immediate execution.

About Pascal

Pascal is a procedural programming language developed in the 1970s by Niklaus Wirth. It was designed to encourage good programming practices and structured programming. Pascal is widely used in teaching computer science fundamentals and has influenced many modern languages.

Sample Code

The following is a simple Pascal program that prints a greeting:

program HelloWorld;
begin
  writeln('Hello, OneCompiler!');
end.

Taking inputs (stdin)

OneCompiler’s Pascal editor supports stdin through the I/O tab. Here’s an example that reads a user's name and prints a greeting:

program GreetUser;
var
  name: string;
begin
  readln(name);
  writeln('Hello, ', name, '!');
end.

Syntax Basics

Variables

var
  age: integer;
  name: string;
  score: real;
  flag: boolean;

Data Types

TypeDescription
integerWhole numbers
realFloating-point numbers
charSingle character
stringSequence of characters
booleanTrue or False

Conditionals

if score >= 50 then
  writeln('Pass')
else
  writeln('Fail');

Loops

For loop

for i := 1 to 5 do
  writeln(i);

While loop

i := 1;
while i <= 5 do
begin
  writeln(i);
  i := i + 1;
end;

Repeat-Until loop

i := 1;
repeat
  writeln(i);
  i := i + 1;
until i > 5;

Procedures and Functions

procedure SayHello;
begin
  writeln('Hello!');
end;

function Add(a, b: integer): integer;
begin
  Add := a + b;
end;

This guide provides a quick reference to Pascal programming syntax and features. Start coding in Pascal using OneCompiler’s Pascal online compiler today!