fork download 
  1. program Lab18;
  2. uses Math;
  3.  
  4. var
  5.   title: string;
  6.   a, b, c, p, s: real;
  7.  
  8. begin
  9.   // Частина 1: Зміна назви заголовка
  10.   title := 'Моя програма';
  11.   writeln('Заняття №18: Еквівалентність і сумісність типів');
  12.   writeln('----------------------------------------------');
  13.   writeln('Зміна заголовка програми');
  14.   writeln('Нова назва вікна: ', title);
  15.   writeln('----------------------------------------------');
  16.  
  17.   // Частина 2: Обчислення площі та периметра трикутника
  18.   a := 3;
  19.   b := 4;
  20.   c := 5;
  21.  
  22.   writeln('Обчислення площі та периметра трикутника');
  23.   writeln('Сторони трикутника: a=', a:0:0, ' b=', b:0:0, ' c=', c:0:0);
  24.  
  25.   if (a < b + c) and (b < a + c) and (c < a + b) then
  26.   begin
  27.     p := (a + b + c) / 2;
  28.     s := sqrt(p * (p - a) * (p - b) * (p - c));
  29.     writeln('Периметр трикутника = ', (a + b + c):0:2);
  30.     writeln('Площа трикутника = ', s:0:2);
  31.   end
  32.   else
  33.     writeln('Трикутник з такими сторонами не існує!');
  34.  
  35.   writeln('----------------------------------------------');
  36.   writeln('Програму завершено.');
  37. end.
  38.  
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin 
Standard input is empty
stdout 
Заняття №18: Еквівалентність і сумісність типів
----------------------------------------------
Зміна заголовка програми
Нова назва вікна: Моя програма
----------------------------------------------
Обчислення площі та периметра трикутника
Сторони трикутника: a=3 b=4 c=5
Периметр трикутника = 12.00
Площа трикутника = 6.00
----------------------------------------------
Програму завершено.
https://ideone.com/sL9eU3
language:
Pascal (fpc 3.0.4)
created:
4 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!