fork download 
  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.         writeln('----------------------------------------------');
  20.         writeln('Варіант 1 — зміна заголовка:');
  21.         write('Введіть нову назву програми: ');
  22.         readln(title);
  23.         writeln('----------------------------------------------');
  24.         writeln('Нова назва вікна: ', title);
  25.       end;
  26.  
  27.     2:
  28.       begin
  29.         writeln('----------------------------------------------');
  30.         writeln('Варіант 2 — трикутник:');
  31.         write('Введіть сторону a: '); readln(a);
  32.         write('Введіть сторону b: '); readln(b);
  33.         write('Введіть сторону c: '); readln(c);
  34.  
  35.         if (a < b + c) and (b < a + c) and (c < a + b) then
  36.         begin
  37.           p := (a + b + c) / 2;
  38.           s := sqrt(p * (p - a) * (p - b) * (p - c));
  39.           writeln('----------------------------------------------');
  40.           writeln('Периметр трикутника = ', (a + b + c):0:2);
  41.           writeln('Площа трикутника = ', s:0:2);
  42.         end
  43.         else
  44.         begin
  45.           writeln('----------------------------------------------');
  46.           writeln('Трикутник з такими сторонами не існує!');
  47.         end;
  48.       end;
  49.   else
  50.     writeln('----------------------------------------------');
  51.     writeln('Невірний вибір!');
  52.   end;
  53.  
  54.   writeln('----------------------------------------------');
  55.   writeln('Програму завершено.');
  56. end.
  57.  
Success #stdin #stdout 0.01s 5312KB
comments (?)
stdin 
Standard input is empty
stdout 
Заняття №18: Еквівалентність і сумісність типів
----------------------------------------------
1 - Змінити назву заголовка програми
2 - Обчислити площу та периметр трикутника
Оберіть завдання (1 або 2): ----------------------------------------------
Невірний вибір!
----------------------------------------------
Програму завершено.
https://ideone.com/igBOCL
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!