FIRST LAB, Prolog - rextester

FIRST LAB

program:- 
% ---------------------------------------------------START----------------------------------------------------
% --------------------------------------------------ЗАДАЧА 1--------------------------------------------------
triangle, nl,
% --------------------------------------------------ЗАДАЧА 2--------------------------------------------------
write('Посчитать периметр и площадь квадрата(1) или прямоугольника(2)?'), nl,
read(X_1), (X_1 = 1, square; X_1 = 2, rectangle; write('Введено неправильное число!')), nl,
% --------------------------------------------------ЗАДАЧА 3--------------------------------------------------
write('Посчитать объём прямоугольного параллелепипеда(1) или конуса(2) или цилиндра(3)?'), nl,
read(X_2), (X_2 = 1, parallelepiped; X_2 = 2, cones; X_2 = 3, cylinder; write('Введено неправильное число!')), nl.
% --------------------------------------------------BACKEND---------------------------------------------------
%ТРЕУГОЛЬНИК
triangle:- write('Введите три стороны треугольника:'), nl,
           read(A), read(B), read(C),
           P is (A+B+C),
           write('Периметр: '), write(P), nl.
            
%КВАДРАТ
square:- write('Введите cторону квадрата:'), nl,
         read(A),
         P is (A*4), S is (A*A),
         write('Периметр: '), write(P), nl,
         write('Площадь: '), write(S), nl.

%ПРЯМОУГОЛЬНИК          
rectangle:- write('Введите cторону квадрата:'), nl,
            read(A), read(B),
            P is ((A+B)*2), S is (A*B),
            write('Периметр: '), write(P), nl,
            write('Площадь: '), write(S), nl.

%ПАРАЛЛЕЛИПИПЕД             
parallelepiped:- write('Введите длину, ширину и высоту:'), nl,
                 read(A), read(B), read(H),
                 V is (A*B*H),
                 write('Объем прямоугольного параллелепипеда: '), write(V), nl.

%КОНУС
cones:- write('Введите площадь основания конуса и высоту:'), nl,
        read(S), read(H),
        V is ((1/3)*S*H),
        write('Объем конуса: '), write(V), nl.

%ЦИЛИНДР
cylinder:- write('Введите площадь основания цилиндра и высоту:'), nl,
           read(S), read(H),
           V is (S*H),
           write('Объем цилиндра: '), write(V), nl.
% ----------------------------------------------------END-----------------------------------------------------
:- program.


run \| edit \| history \| help	0