Паскаль!!1Даны катеты прямоугольного треугольника. Найти его периметр2даны основания и...

Question

Паскаль!!1Даны катеты прямоугольного треугольника. Найти его периметр
2даны основания и высота равнобедренной трапеции найти ее периметр
3дано расстояние в сантиметрах найти число полных метров в нем

Comments

да

---

2 сделал, с 3 мучаюсь, еще мин 10+

---

п.с. насчет трапеции которая

---

3)uses crt;var l,m:integer;beginwrite('Введите расстояние в см ');readln(l);m:=l div 100;write('Кол-во метров в ',l,' см равно ',m,'м');end.

---

проверь третье так или нет

---

Да, правильно третью сделал)

---

Bristel, зачем тебе модуль crt в этой задаче? В ней не используется ни одной функции из этого модуля.

---

мне удобней водить данные в отдельном окне так как стандартное меня бесит и я люблю постоянно разукрашивать фон и текст но в данной задаче я этого не делал

---

Я ведь и говорю про данную задачу, лишняя строка)

---

))

Answer 1

Program Vby_1;
uses crt;
var a,b,c:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите катеты: ');
  write('a= ');readln(a);
  write('b= ');readln(b);
  writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.

Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите данные: ');
  write('Одно основание = ');readln(a);
  write('Другое основание = ');readln(b);
  write('Высота = ');readln(h);
  t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.

Program Vby_3;
uses crt;
var s:integer;
begin
  writeln('***   Alphaues is thinking...   ***');
  write('Ok, введите расстояние в сантиметрах: '); readln(s);
  write('Число полных метров = ',s div 100);
end.

Comments

writeln('*** Alphaues is thinking... ***'); Некий копирайт?)

---

Как бы да :)

Answer 2

В файле все 3 задачи.