Liza32572

Используя одну процедуру, построить фигуру.
Графика в Python

Посмотреть ответы (1)

Ответы

Ответ дал: Гость

program xxx;

var d, x1, x2, y1,y2 : real;

begin

write('введите координаты 1 точки: ');

readln(x1, y1);

write('введите координаты 2 точки: ');

readln(x2, y2);

d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

write('растояние между точками =', d);

readln

end.

Ответ дал: Гость

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.

Ответ дал: Гость

во всех областях деятельности холодильных предприятий как в обработке и хранении, так и в производстве продукции основной является своевременное и равномерное выполнение и перевыполнение государственных плановых по всем показателям. при этом одним из главных показателей работы холодильников служит сохранение высокого качества продукции. [6]

Ответ дал: Гость

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.