fork download
copy 
  1. program Lab18;
  2. uses Math;
  3.  
  4. var
  5.   choice: integer;
  6.   title: string;
  7.   a, b, c, p, s: real;
  8. begin
  9.   writeln('Заняття №18: Еквівалентність і сумісність типів');
  10.   writeln('----------------------------------------------');
  11.   writeln('1 - Змінити назву заголовка програми');
  12.   writeln('2 - Обчислити площу та периметр трикутника');
  13.   write('Оберіть завдання (1 або 2): ');
  14.   readln(choice);
  15.  
  16.   case choice of
  17.     1:
  18.       begin
  19.         write('Введіть нову назву програми: ');
  20.         readln(title);
  21.         writeln('----------------------------------------------');
  22.         writeln('Нова назва вікна: ', title);
  23.       end;
  24.  
  25.     2:
  26.       begin
  27.         write('Введіть сторону a: '); readln(a);
  28.         write('Введіть сторону b: '); readln(b);
  29.         write('Введіть сторону c: '); readln(c);
  30.  
  31.         if (a < b + c) and (b < a + c) and (c < a + b) then
  32.         begin
  33.           p := (a + b + c) / 2;
  34.           s := sqrt(p * (p - a) * (p - b) * (p - c));
  35.           writeln('----------------------------------------------');
  36.           writeln('Периметр трикутника = ', a + b + c:0:2);
  37.           writeln('Площа трикутника = ', s:0:2);
  38.         end
  39.         else
  40.           writeln('----------------------------------------------');
  41.           writeln('Трикутник з такими сторонами не існує!');
  42.       end;
  43.   else
  44.     writeln('Невірний вибір!');
  45.   end;
  46.  
  47.   writeln('----------------------------------------------');
  48.   writeln('Програму завершено.');
  49. end.
  50.  
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Заняття №18: Еквівалентність і сумісність типів
----------------------------------------------
1 - Змінити назву заголовка програми
2 - Обчислити площу та периметр трикутника
Оберіть завдання (1 або 2): Невірний вибір!
----------------------------------------------
Програму завершено.
https://ideone.com/5IbHlK
language:
Pascal (fpc 3.0.4)
created:
6 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!