Дана точка А(х, у Определить, принадлежит ли она треугольнику с вершинами в точках (X1, у1), (х2, У2), (х3, y3). (программа Паскаль)

uses crt;
const t=0.0001;
function Plosh(x1,y1,x2,y2,x3,y3:real):real;
begin
Plosh:=abs((x1-x2)*(y3-y2)-(y1-y2)*(x3-x2))/2;
end;
var x1,y1,x2,y2,x3,y3,tx,ty,s:real;
begin
clrscr;
writeln('Введите координаты вершин треугольника:');
writeln('Вершина 1:');readln(x1,y1);
writeln('Вершина 2:');readln(x2,y2);
writeln('Вершина 3:');readln(x3,y3);
if Plosh(x1,y1,x2,y2,x3,y3)<t then
write('Это не треугольник!')
else
 begin
  writeln('Введите координаты точки:');
  readln(tx,ty);
  s:= Plosh(x1,y1,x2,y2,tx,ty)+ Plosh(x1,y1,tx,ty,x3,y3)+ Plosh(tx,ty,x2,y2,x3,y3);
  if  abs(Plosh(x1,y1,x2,y2,x3,y3)-s)<t then
  write('Точка принадлежит треугольнику!')
  else write('Точка не принадлежит треугольнику!');
 end;
readln
end.

uses crt;
var x1,y1,x2,y2,x3,y3,tx,ty:real;
begin
clrscr;
writeln('Введите координаты вершин треугольника по часовой стрелке:');
readln(x1,y1,x2,y2,x3,y3);
writeln('Введите координаты точки:');
readln(tx,ty);
if((tx-x1)*(y1-y2)-(ty-y1)*(x1-x2)>=0)
and((tx-x2)*(y2-y3)-(ty-y2)*(x2-x3)>=0)
and((tx-x3)*(y3-y1)-(ty-y3)*(x3-x1)>=0) then
write('Лежит') else write('Не лежит');
readln
end.

в порядке возрастания размеров (массы)

астероид;   планета;   звезда;   звездное скопление;   туманность;   галактика.

в порядке уменьшения расстояния до них.

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

Men sizga sevimli ertak qahramoni - Ivan Tsarevich haqida gapirib bermoqchiman. Ko'pincha uni kitoblar sahifalarida topish mumkin va sehrli hikoyalarda o'zining qiziqarli sarguzashtlarini kuzatib borishi mumkin.

Menimcha, bu belgi eng yaxshi xarakter xususiyatlarining aksariyatini o'z ichiga oladi. U olijanob va mehribon, har doim muhtojlarga yordam berishga tayyor, yovuzlikka qarshi kurashga jasorat bilan kirishadi. Ivan Tsarevich har doim adolatli harakat qiladi va o'z xatti-harakatlari uchun mukofot talab qilmaydi, shuning uchun har qanday sarguzasht oxirida u har doim yaxshi mukofotlanadi. Menimcha, bunday hikoyalar yomon ishlarga doimo yomonlik bilan javob berilishini o'rgatadi, ammo yaxshilik ko'proq mukofotlanadi.

Har qanday odam singari, Ivan Tsarevich ham juda yaxshi fazilatlarga ega emas. Ba'zan u o'z qobiliyatidan shubhalana boshlaydi, lekin uni o'rab turgan boshqa qahramonlar Ivanning o'ziga ishonishiga yordam beradi. Va keyin shahzoda o'z yo'lida davom etmoqda.

Menga uning jasur va qat'iy xarakteri juda yoqadi. Ivan Tsarevich odamlar va hayvonlar bilan qanday aloqada bo'lishni juda yaxshi tushunadi, qaerda so'rashingiz mumkin va kimga buyurtma berish kerak.

Ertaklar sahifalaridan Ivan Tsarevich bizga hayotdagi ko'plab natijalarga qat'iy va jasorat bilan erishish kerakligi haqida saboq beradi, bu nafaqat ularning tirishqoqligi va qat'iyatliligini ko'rsatibgina qolmay, balki ixtiro va hiyla ishlatadi. Ayniqsa, bu unga yovuz qahramonlarga qarshi kurashda yordam beradi. U shuningdek, har doim va har bir narsada adolatli bo'lishingiz kerakligini ko'rsatadi.

Men uchun Ivan Tsarevich obrazi zamonaviy va moda superqahramonlar obrazlariga juda o'xshaydi. Menimcha, har bir bola, Ivan Tsarevich haqidagi ertakni o'qib, ezgu ishlar har doim qadrliroq deb o'ylaydi

Manba: Mening sevimli ertak qahramonim mavzusidagi insho (Ivan Tsarevich, Karlson, 5-sinf)