помогите решать задачу по информатике пожалуйста... фото выложила, 5 ая задача. Created by kemmy. informatika-ru

помогите решать задачу по информатике пожалуйста... фото выложила, 5 ая задача...

iolandavalerypad353 Function Foo(x:real):real;
begin
if x<0 then result:=1/(x-1)
else if (x>0) and (x<>5) then result:=1/(x-5)
end;

begin
var x := ReadlnReal('x =');
if (x = 0) or (x = 5) then
Print('Функция не определена')
else Print('y = ',Foo(x))
end.

2 votes Thanks 2

iolandavalerypad353 т.е. понятие бесконечность включает в себя как плюс, так и минус бесконечность?

iolandavalerypad353 А математика как считает?

iolandavalerypad353 Ааа, ну окей, вот и поговорили

DonPedro80 Var
x,y:real;
begin
Write('Введите число: ');
Readln(x);
if x=0 then Writeln('Функция не определена')
else if x=5 then Writeln('Значение функции бесконечно')
else
begin
    if x<0 then y:=1/(x-1)
    else y:=1/(x-5);
    Writeln('F(x)=',y)
end
end.

0 votes Thanks 1

Answers & Comments

pomogite po nemeckomu pliz foto zakrepila uroven a1

pomogite po nemeckomu pozhalujstaba86bd1225a7ad121774c05b3cb09de1 81429

pomogite po informatike foto vylozhila

pomogite po informatike pozhalujsta ya vylozhila foto

on. 4. At the end of each term credit tests and examinations ... . A)are held b)...

vycheslite proizvodnuyu pliz

pozhalujsta reshite proizvodnuyu slozhnoj funkci

pomogite s opredelennym integralom

pravilno sformulirujte vopros pozhalujsta anglijskij yazyknowadays the number o

pomogite pozhalujsta s proizvodnoj slozhnoj funkcii

рекомендуемые вопросы

Helpful Links

Helpful Social