Предмет: Информатика,
автор: milaluska
даны стороны прямоугольного треугольника в разных строках найти гипотенузу и площадь на паскале
Ответы
Автор ответа:
0
// 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.
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.
Автор ответа:
0
это просто задача, смысл строк с том что к ним используются специальные функции, например такие как length-считает длину строки и др. в вашем решение все верно, но это не работа со сроками. но все равно спасибо
Автор ответа:
0
Это как раз работа со строками. Вы точно так же использовали их ввод и процедуру Val. А остальное у Вас - это абсолютно никому не нужные операции, которые не делают ровным счетом для программы НИЧЕГО.
Автор ответа:
0
Если Вам нужна работа со строками, то меняйте условие задачи. Например, дана строка: "По заданным катетам a=18 см, b=14.5 см вычислить значение гипотенузы и площади треугольника." И вот, считав такую строку, надо дальше выделить в ней величины катетов и т.д. Это да, будет работа со строками.
Похожие вопросы
Предмет: Окружающий мир,
автор: Аноним
Предмет: Химия,
автор: alisaaliveva
Предмет: История,
автор: ruslannurgaliev
Предмет: Химия,
автор: Dimoncik1999
Предмет: Математика,
автор: Эскалейт