Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.09.2008, 21:42   #1
akimbaev
 
Регистрация: 10.09.2008
Сообщений: 4
По умолчанию Написать программу которая выводит таблицу значений функйии

я в Паскале не сидел ни разу, но надо сделать две задачи. Если можно с комментарием, чтоб я сам разабрался...

1.Написать программу которая выводит таблицу значений функйии y=|x|.Диапазон изменения аргумента от -4 до 4, шаг приращения аргумента 0,5

2. Написать программу которая вычисляет пи с заданной пользователем точностью. Для этого воспользуйтесь тем, что значения частичной суммы ряда 1-/3+1/5-1/7+1/9....при суммировании достаточно большого кол-ва членов приближается к пи/4.
Должно быть что-то вроде этого: Задайте точность пи-0,001
значения числа пи с точностью 0,001 равно 3,143589
просуммировано 502 членов ряда
akimbaev вне форума Ответить с цитированием
Старый 01.10.2008, 00:21   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

1)
Код:
var
  x: real;
begin
  x := -4;
  writeln('x':6, 'y':6);
  repeat
    writeln(x:6:2, abs(x):6:2);
    x := x + 0.5
  until x > 4;
  readln
end.
2)
Код:
{$N+} //на всякий случай сопроцессор включим
var
  p, e: extended;
  k, n: longint;
begin
  write('e = '); readln(e);//вводим точность
  p := 1;
  k := -1;
  n := 0;
  repeat
    inc(n);
    p := p + k * 1/(2 * n + 1);//сумма ряда
    k := -k
  until abs(4 * p - pi) < e;//пока точность не достигнута
  k := 0;
  repeat
    e := e * 10;
    inc(k);//сколько значимых цифр + 1
  until e >= 1;
  writeln('pi = ', 4 * p:0:k);//вывод с округлением
  writeln('elementov = ', n);//кол-во суммирований
  readln
end.
eoln вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Требуется написать программу которая переводит файл из одного вида в другой sarudan Помощь студентам 1 11.09.2008 16:17
написать программу которая строила графики функций GeSerKo Помощь студентам 1 05.09.2008 21:03
программа, которая выводит на экран одно из данных слов vados Паскаль, Turbo Pascal, PascalABC.NET 11 26.10.2007 23:47
написать программу..которая с использованием метода наименьших квадратов определяет параметры зависимости Марго Помощь студентам 3 14.10.2007 15:47