Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
KravaCj
0 / 0 / 1
Регистрация: 05.10.2013
Сообщений: 93
#1

Вычислить значение функции - Pascal ABC

05.10.2013, 19:07. Просмотров 332. Ответов 2
Метки нет (Все метки)

Обчислити значення функції z=asqrt(a)tg(x)+a для x від 1 до 30. помогите решить для цикла for пожалуйста.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.10.2013, 19:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислить значение функции (Pascal ABC):

Вычислить минимальное по абсолютной величине значение функции и соответствующее значение аргумента
Составить программу табулирования и исследования функции f(x) на заданном...

Вычислить минимальное по абсолютной величине значение функции и соответствующее значение аргумента
Необходимо составить блок-схему и программу табулирования и исследования...

Вычислить значение функции e^x=1+x+x^2/2+x^3+3 и сравнить полученной результат c значением стандартной функции
Здраствуйте! Пожалуйста укажите услугу в помочи, вот задачка: Оформить у виде...

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

Вычислить значение функции
Вычислить указанное минимальное и максимальное значение функции F(x) на отрезке...

Вычислить значение функции
Вычислить значение функции соответствено варианту

2
erl27
892 / 741 / 831
Регистрация: 06.09.2013
Сообщений: 1,561
05.10.2013, 20:01 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от KravaCj Посмотреть сообщение
z=asqrt(a)tg(x)+a
я понимаю, что имелось ввиду z = a * sqrt(a) * tg(x) + a, где x - целое число. Если да, то вот:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  x: integer;
  a, z: real;
  
begin
  write('Введите неотрицательное число: a = ');
  readln(a);
  writeln;
  for x := 1 to 30 do
  begin
    z := a * sqrt(a) * sin(x) / cos(x) + a;
    writeln(' x = ', x, ',  z = ', z:0:4)
  end;
end.
1
KravaCj
0 / 0 / 1
Регистрация: 05.10.2013
Сообщений: 93
06.10.2013, 14:44  [ТС] #3
erl27, а для repeat можешь помочь сделать? у меня не получается что бы выдавало для всех x от 1 до 30, не знаю как это условие записать

Добавлено через 17 минут
Цитата Сообщение от KravaCj Посмотреть сообщение
erl27, а для repeat можешь помочь сделать? у меня не получается что бы выдавало для всех x от 1 до 30, не знаю как это условие записать
все спс, я решил)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2013, 14:44
Привет! Вот еще темы с решениями:

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

Вычислить значение функции
вычислить значение функции у = а (х) (х задавать самостоятельно) по графику

Вычислить значение функции
Помогите пожалуйста с программой. Вычислить значение величины,содержащей...

Вычислить значение функции
Решите программу на листке, пожалуйста


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

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

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