VPF::Вычислить и напечатать таблицы значений функции

andreis459

Дата 19.3.2011, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 18.3.2011

Репутация: нет
Всего: нет

Вычислить и напечатать таблицы значений функции y= f(x) на
интервале значений x[a+b] с шагом h (решить задачу с помощью трех типов
циклов: с параметром, с предусловием, с постусловием; предусмотреть в
программе возможность выбора типа цикла):

y= f(x) y=(1+√x)/(ln|tg x|+sin x )
a≤x≤b 1≤x≤π
h 0,25

Pascal

ФедосеевПавел

Дата 19.3.2011, 22:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10

Оч.хорошо.
Покажи свои наработки и к ним сформулируй вопрос.

А то у меня нет мотивации притрагиваться к клавиатуре...

andreis459

Дата 19.3.2011, 23:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 18.3.2011

Репутация: нет
Всего: нет

program EXAMPLE_5;
uses crt;
var x,y:real; i:integer; c:char;
begin
repeat
clrscr;
writeln('Задание 5. Вариант № 1');
write('Введите начальное значение х=');
readln(x);
writeln('Выберите вид цикла. Нажмите:');
writeln('1 - для цикла FOR');
writeln('2 - для цикла WHILE');
writeln('3 - для цикла REPEAT');
writeln('0 - выход из программы');
readln©;
case c of
'1':for i:=1 to 21 do
Begin
y:=sqr(1+√x)/(ln|tg x|+sin x )

проблема с ( y:=sqr(1+√x)/(ln|tg x|+sin x ) )

Это сообщение отредактировал(а) andreis459 - 19.3.2011, 23:06

ФедосеевПавел

Дата 21.3.2011, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10

А какая проблема с "y=..."?
Не можешь выразить y средствами Pascal?
Для выражения для y из первого поста

Код

function  tg(x:Real):Real;
begin
  tg:=sin(x)/cos(x);
end;
..................
  y:=(1+sqrt(x))/(ln(abs(tg(x)))+sin(x))
..................

Keeper89

Дата 21.3.2011, 00:52 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58

Вопрос наверное в том, как в скопипастенной программе таки изменить выражение в компьютерном виде smile

Это сообщение отредактировал(а) Keeper89 - 21.3.2011, 00:53

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »