Даны стороны прямоугольного треугольника в разных строках найти гипотенузу и площадь **...

Question

Даны стороны прямоугольного треугольника в разных строках найти гипотенузу и площадь на паскале

Comments

да

---

Строки - это тоже переменные

---

но работать с ними нужно по другому

---

Да. Какая версия Паскаля?

---

спасибо, я уже разобралась как нужно решить эту задачу

---

program p1;var kat1,kat2,gip,s:real; cod,i,z:integer; st,st1,st2:string;begin readln(st); for i:=1 to length(st) do if st[i]=' ' then z:=i; st1:=copy(st,1,z-1); st2:=copy(st,z+1,length(st)-z); val(st1,kat1,cod); val(st2,kat2,cod); writeln(kat1,' ',kat2); gip:=sqrt(sqr(kat1)+sqr(kat2)); s:=kat1*kat2/2; writeln(gip,' ',s);end.

---

вот если интересно

---

Нет, спасибо, совсем не интересно)))

---

Потому что там много лишнего

---

ну как тогда нужно правильно сделать

Answer 1

// PascalABC.Net 3.0, сборка 1052
var
  s1, s2: string;
  a, b: real;
  err: integer;

begin
  Writeln('Введи первый катет: ');Readln(s1);
  Val(s1, a, err);
  if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
  else begin
    Writeln('Введи второй катет: ');Readln(s2);
    Val(s2, b, err);
    if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
    else begin
      Writeln('Гипотенуза равна ', sqrt(a * a + b * b));
      Writeln('Площадь равна ', 0.5 * a * b)
    end
  end
end.

Comments

это просто задача, смысл строк с том что к ним используются специальные функции, например такие как length-считает длину строки и др. в вашем решение все верно, но это не работа со сроками. но все равно спасибо

---

Это как раз работа со строками. Вы точно так же использовали их ввод и процедуру Val. А остальное у Вас - это абсолютно никому не нужные операции, которые не делают ровным счетом для программы НИЧЕГО.

---

Если Вам нужна работа со строками, то меняйте условие задачи. Например, дана строка: "По заданным катетам a=18 см, b=14.5 см вычислить значение гипотенузы и площади треугольника." И вот, считав такую строку, надо дальше выделить в ней величины катетов и т.д. Это да, будет работа со строками.