Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
OBJETO
1er Query
task3
Tarea - Ejercicio completo ISAN - Guzmán Martínez Ricardo Alejandro
ARREGLOS
Base de conocimiento Bernardo Lemus Daniel
Olvera - Codificar una base de conocimientos
28 feb 3NM70
Tarea1
SuperQueries