VPF::[Pascal] табуляция функции - Форум программистов

natasha92

Дата 14.9.2009, 09:10 (ссылка)

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

Загрузка ...

Новичок

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

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

Дана задачка:
На интервале 0.011<=a<=0.635 с шагом 0.312 для каждого b из промежутка 0.014<=b<=0.021 с шагом 0.001 протабулировать функцию:
z=arccos( (a+b )/x ).
Помогите пожалуйста решить!!!!!!!! smile

THandle

Дата 19.9.2009, 02:15 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Letov

Дата 21.9.2009, 20:37 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


program func_tab;
const
    IA = 0.312;
    IB = 0.001;
var a, b, z, x: real;

function arccos(a:real):real; {Функция вычисления арккосинуса}
var t:real;
begin
    if a=1 then
        arccos:=0
    else
    begin {Выражаем арккосинус через арктангенс}
        t:=a/sqrt(1-sqr(a));
        arccos:=180*(pi/2-arctan(t))/pi;
    end;
end;

begin
writeln('Enter x:');
readln(x); {Вводим x}
a := 0.011; {присваиваем начальные значения (инициализируем переменные)}
b := 0.014;
write ('a/b    ');
while a < 0.6405 do{Учитывая погрешность}
    begin
        write(' ', a:4:4, ' '); {Создаем заголовок таблицы значений}
        a := a +IA; {Увеличиваем переменную a}
    end;
writeln;
while b < 0.028 do {Учитывая погрешность}
    begin
        a := 0.011;
        write(b:4:4, ' '); {Выводим значение b для строки}
        while a < 0.6405 do {Учитывая погрешность}
        begin
            z := arccos((a+b)/x); {Вычисляем выражение}
            write(z:4:4, ' ');{Выводим значение выражения}
            a := a + IA; {Увеличиваем переменную a}
        end;
        writeln; {Переходим на новую строку}
        b := b + IB; {Увеличиваем переменную b}
    end;
readln;
end.

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

Не бывает плохих языков программирования. Бывают плохие программисты...

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