Регистрация
Когалымчанин
28.04.2022 22:25
Информатика
Есть ответ 👍

Выполнить творческое эссе - сочинение на тему «Компьютер будущего»1курс, Требования к работе: При оценивании ответа необходимо выделить следующие элементы:

1) представление собственной точки зрения (позиции, отношения) при раскрытии проблемы;

2) раскрытие проблемы на теоретическом (в связях и с обоснованиями) или бытовом уровне, с корректным использованием или без использования обществоведческих понятий в контексте ответа;

3) аргументация своей позиции с опорой на факты общественной жизни или собственный опыт​

176
185
Посмотреть ответы 1

Ответы на вопрос:

IAlisaI
IAlisaI
4,7(81 оценок)

program z3;

var x1,x2,x3,y1,y2,y3,ac,ab,bc,a1,b1: real; f,f1: text;

begin

assign (f, 'z1.dat');

rewrite(f);

readln(x1,y1);

readln(x2,y2);

readln(x3,y3);

writeln(f,x1,y1);

writeln(f,x2,y2);

writeln(f,x3,y3);

close(f);

ac: =sqr(x1-x3)+sqr(y1-y3);

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

bc: =sqr(x3-x2)+sqr(y3-y2);

b1: =(ab+bc-ac)/(2*sqrt(ab*bc));

a1: =(ac+ab-bc)/(2*sqrt(ac*ab));

if (a1 < 0) or (b1 < 0) then

begin

assign(f1, 'z1.rez');

rewrite(f1);

writeln('na prodolzenue');

writeln(f1,'na prodolzenue'); close(f1)

end

else

begin

assign(f1, 'z1.rez');

rewrite(f1);

writeln ('na otrezke');

writeln(f1,'na otrezke');

close(f1)

end

end.

Популярно: Информатика