Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Ares11411
0 / 0 / 0
Регистрация: 11.10.2019
Сообщений: 3
1

Напишите программу для вычисления выражения

12.10.2019, 12:07. Просмотров 758. Ответов 3
Метки нет (Все метки)

Напишите программу для вычисления выражения http://www.cyberforum.ru/cgi-bin/latex.cgi?A= y + x/(y^2+x^2/(|y+x^3/3|), где x и y задаются с консоли.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.10.2019, 12:07
Ответы с готовыми решениями:

Напишите программу вычисления выражения
2.Напишите программу вычисления выражения (3-x)(6-x)(9-x)∙ … ∙(21-x), где x – действительное число.

Напишите программу вычисления выражения, записанного в постфиксной форме
напишите программу вычисления, записанного в постфиксной форме ( требуется писать через рекурсию )

Напишите программу вычисления выражения y=(tg(x)+sin(x)*ecos(x) при x=3.7. Результат выведите в формате 5:2
Напишите программу вычисления выражения y=(tg(x)+sin(x))*ecos(x) при x=3.7. Результат выведите в...

Напишите Паскаль-программу для вычисления
Напишите Паскаль-программу для вычисления z=12x2+t3 при всех значениях x=7,5;8,5;9,5; и ...

Напишите программу для вычисления n! (факториал)
1. Напишите программу для вычисления n! (факториал). Если n – число вводимое с клавиатуры.

3
Авторег
1 / 0 / 1
Регистрация: 12.10.2019
Сообщений: 2
12.10.2019, 12:43 2
Лучший ответ Сообщение было отмечено Ares11411 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
var a, x, y: real;
 
begin
  writeln('Введите x');readln(x);
  writeln('Введите y');readln(y);
  A := (y+x)/((sqr(y)+sqr(x))/(abs((y+x*x*x)/3)));
  writeln(A);
end.
0
Ares11411
0 / 0 / 0
Регистрация: 11.10.2019
Сообщений: 3
12.10.2019, 13:02  [ТС] 3
Спасибо
0
Puporev
Модератор
57442 / 43811 / 30266
Регистрация: 18.05.2008
Сообщений: 104,563
12.10.2019, 13:10 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a,x,t,y:real;
begin
  writeln('Введите x');readln(x);
  writeln('Введите y');readln(y);
  t:=y+x*x*x/3;
  if t=0 then write('Значение а не определено, деление на ноль')
  else
   begin
    t:=y*y+x*x/abs(t);
    if t=0 then write('Значение а не определено, деление на ноль')
    else
     begin
      a:=y+x/t;
      writeln(a:0:3);
     end;
   end;
end.
Добавлено через 41 секунду
Ares11411, Введите х=3 y=-9.
0
12.10.2019, 13:10
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.10.2019, 13:10

Напишите программу для вычисления z=12x2+t3
Напишите Паскаль-программу для вычисления z=12x2+t3 при всех значениях x=7,5;8,5;9,5; и ...

Напишите Паскаль-программу для вычисления R=10/1!+8/2!+.+2/5!, где n!=1*2*3.*(n-1)*n
Напишите Паскаль-программу для вычисления R=10/1!+8/2!+...+2/5!, где n!=1*2*3...*(n-1)*n.

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.