1. современное короткое, но скорее всего, мало понятное школьнику решение // pascalabc.net 3.1, сборка 1213 от 04.04.2016 function linelen(a,b: (real,real)): = sqrt(sqr(b.item1-a.item1)+sqr(b.item2-a.item2)); begin var a: array[1..3] of (real,real); var x,y: real; writeln('введите три пары координат x,y'); for var i: =1 to 3 do begin read(x,y); a[i]: =(x,y) end; writeln('периметр треугольника равен ',linelen(a[1],a[2])+ linelen(a[1],a[3])+linelen(a[2],a[3])) end. тестовое решение: введите три пары координат x,y 3 -3.5 -6 8 4 5.2 периметр треугольника равен 33.7449685386805 2. традиционное, но возможно тоже не понятное школьнику решение // pascalabc.net 3.1, сборка 1213 от 04.04.2016 type point=record x,y: real end; function linelen(a,b: point): real; begin result: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)); end; var a: array[1..3] of point; begin writeln('введите три пары координат x,y'); for var i: =1 to 3 do read(a[i].x,a[i].y); writeln('периметр треугольника равен ',linelen(a[1],a[2])+ linelen(a[1],a[3])+linelen(a[2],a[3])) end.
barg562
26.03.2020
Изучать информатику я начала в 5 классе. это интересный предмет. учитель объясняет нам как работать с программами , бережно относиться к компьютеру , правила безопасности. в первую очередь надо уметь работать за компьютером. правильно сидеть, не садиться за компьютер с мокрыми руками, делать гимнастику и разминку, для спины и глаз. возможно, когда нибудь я свяжу свою жизнь с информатикой. в наше время программист востребованная профессия. им платят большие деньги. но, ухудшается здоровье. от долгого времени проведенного за компьютером болит спина, искривляется позвоночник и садится зрение. надо делать все в меру. и когда нибудь я стану гуру-информатики.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Сколько бит требуется для кодирования кодов книг в библиотеке, если их около 10500?