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

+ 0 -

Kristuna07

17 окт. 2016 г., 1:58:38 (7 лет назад)

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

+ 0 -

KUBE684

17 окт. 2016 г., 4:55:50 (7 лет назад)

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.

+ 0 -

Emiktor

17 окт. 2016 г., 6:46:46 (7 лет назад)

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

+ 0 -

алинёночек

17 окт. 2016 г., 8:29:02 (7 лет назад)

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

+ 0 -

Юля199629

17 окт. 2016 г., 9:28:07 (7 лет назад)

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

+ 0 -

Erzh1707

17 окт. 2016 г., 10:02:49 (7 лет назад)

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

+ 0 -

YXXon

17 окт. 2016 г., 11:09:00 (7 лет назад)

))