как сделать задание в паскале. ни чего не выходит, если можно

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

Задать свой вопрос
Забурунова Вера
сейчас помогу - я вам протабулирую функцию)
1 ответ
Var x:integer;
y:real;
begin
for x:=-5 to 5 do
if (xgt;1) and (xlt;3) then begin y:=cos(x); writeln(x,' ',y:2:2); end
else if xlt;1 then begin y:=sqr(x); writeln(x,' ',y); end
else begin y:=ln(x); writeln(x,' ',y:2:2); end;
end.
Анатолий Велиходный
решение безусловно верное)я проверил)
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт