Информатика | 10 - 11 классы
ПОМОГИТЕ ПО ПАСКАЛЮ, нужно продолжить программу
Есть задача : Проверьте можно ли построить треугольник из отрезков с длинами сторон x, y и z, и, если можно, то является ли он тупоугольным
Вот примерная программа
var a, b, c : real ;
BEGIN
writeln('Введите значения a, b, c') ;
readln(a, b, c) ;
if (a + b < ; = c) or (b + c < ; = a) or (c + a < ; = b) then writeln('Треугольника с такими сторонами не существует!
')
else begin
if (sqr(a) + sqr(b)< ; sqr(c))and(sqr(b) + sqr(c)> ; sqr(a))and(sqr(c) + sqr(a)> ; sqr(b)) then writeln('Треугольник остроугольный')
else if (sqr(a) + sqr(b) = sqr(c))and(sqr(b) + sqr(c) = sqr(a))and(sqr(c) + sqr(a) = sqr(b)) then writeln('Треугольник прямоугольный')
else writeln('Треугольник тупоугольный') ;
end ;
END.
Но мне нужна именно формула ТУПОУГОЛЬНОГО треугольника, помогите вывести ее пожалуйста!
ЧТО НЕ ПРАВИЛЬНО?
ЧТО НЕ ПРАВИЛЬНО?
Program p_1 ;
var x, y : real ;
begin
read(x) ;
if 0< ; x< ; 2 then begin y : = sqr(cos(x)) ;
else begin y : = 1 - sin(sqr(x)) ;
end ;
writeln(y) ;
end.
Program lab1 ; varx, y : real ; begin writeln('введите x') ; readln(x) ; begin if (abs(x)< ; = 1) then y : = sqr(x) - 1 ; else if(abs(x)> ; 1) and (abs(x)< ; = 2) then y : = 2 * x - 1 ; else if ?
Program lab1 ; var
x, y : real ; begin writeln('введите x') ; readln(x) ; begin if (abs(x)< ; = 1) then y : = sqr(x) - 1 ; else if(abs(x)> ; 1) and (abs(x)< ; = 2) then y : = 2 * x - 1 ; else if (abs(x)> ; 2) then y : = exp(5 * ln(x)) - 1 ; end ; writeln ('y = ', y) ; End.
Где ошибка в программе?
Пишет : : Встречено 'else', а ожидался оператор.
Нужно найти у, при определенных значениях х.
Треугольник задан длинами своих сторон – a, b, c?
Треугольник задан длинами своих сторон – a, b, c.
Определить является ли он тупоугольным, прямоугольным или остроугольным.
Построить программу на языке С#.
Вычислить среднегеометрическое значение каждых вторых элементов последней трети массива” Код программы есть, нужно только указать, чтобы она выбирала каждый второй элемент?
Вычислить среднегеометрическое значение каждых вторых элементов последней трети массива” Код программы есть, нужно только указать, чтобы она выбирала каждый второй элемент.
Помогите, пожалуйста : Procedure Part_2(n : integer ; Y : vector ; var Sg : real) ; var i, k : integer ; P : real ; Begin P : = 1 ; k : = 0 ; For i : = 2 * n div 3 + 1 to n do If (y[i]< ; > ; 0) then begin P : = P * y[i] ; k : = k + 1 ; end ; If k> ; 0 then If P> ; 0 then Sg : = exp(1 / k * ln(P)) else If odd(k) then Sg : = - exp(1 / k * ln(abs(P))) else Sg : = 0 else Sg : = 0 ; end ;
Составить блок схему :var a, b, c : integer ;Beginread(a, b, c) ; if (a> ; b) then a : = a else a : = b ;if (a> ; c) then a : = a else a : = c ;writeln(a) ;End?
Составить блок схему :
var a, b, c : integer ;
Begin
read(a, b, c) ; if (a> ; b) then a : = a else a : = b ;
if (a> ; c) then a : = a else a : = c ;
writeln(a) ;
End.
Program mimi ;var a, b : integer ;beginreadln (a) ;if 99 < ; a < ; thenwriteln('Неверно')elseif a> ; 999 thenwriteln('Неверно')elsewriten('Верно')end?
Program mimi ;
var a, b : integer ;
begin
readln (a) ;
if 99 < ; a < ; then
writeln('Неверно')
else
if a> ; 999 then
writeln('Неверно')
else
writen('Верно')
end.
Выдаёт : pas(5) : Ожидался идентификатор
Что не так?
Как называется следующая последовательность в Паскале : If?
Как называется следующая последовательность в Паскале : If.
Then.
Else.
Program TELESHOP ; var x : real ; begin writeln ('?
Program TELESHOP ; var x : real ; begin writeln ('.
') ; write ('.
') ; write ('.
') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.
') ; writeln ('.
') ; end else begin writeln ('.
') ; end ; * else begin writeln ('.
') ; end end.
* - место ошибки.
"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?
Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;
Напишите небольшую программу с использованием if else и then?
Напишите небольшую программу с использованием if else и then.
Вы находитесь на странице вопроса ПОМОГИТЕ ПО ПАСКАЛЮ, нужно продолжить программуЕсть задача : Проверьте можно ли построить треугольник из отрезков с длинами сторон x, y и z, и, если можно, то является ли он тупоугольнымВот примерная ? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 10 - 11 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
Var a, b, c : word ;
begin
read(a, b, c) ;
if (a + b> ; c) and (a + c> ; b) and (b + c> ; a) then begin write('Est') ;
if (sqr(a)> ; sqr(b) + sqr(c)) or(sqr(c)> ; sqr(b) + sqr(a)) or(sqr(a)> ; sqr(c) + sqr(b)) then write ('Tupoy')
end
else write('Net') ;
end.