VPF::Помогите пожалуйста - Форум программистов

term0stat

Дата 13.11.2004, 15:11 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Задали в институте лабораторку по паскалю, а я его вообще не знаю... И как так можно задавать: лекций не было, а должен знать... Расчитываю на Вашу помошь...
Вот документ http://www4.webfile.ru/get/1792538355/Lab3.doc
20ый вариант

p0s0l

Дата 13.11.2004, 15:35 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Только я не уверен насчёт условия окончания итераций...

Код

program solver;

const
  x = 15;

var
  n : integer;
  fact, sum, v, v0, delta, accuracy : real;

begin
  Write ('Vvedite tochnost: ');
  ReadLn (accuracy);

  sum := 0;
  fact := 1;
  n := 0;
  v0 := 0;
  repeat
    inc (n);
    fact := fact*n;
    v := (x-10)*x/(1 + fact);
    sum := sum + v;
    delta := abs(v-v0);
    v0 := v;
  until delta <= accuracy;
  WriteLn ('             (x-10)*x');
  WriteLn ('Summa ryada: --------');
  WriteLn ('             (1 + n!)');
  WriteLn ('n=', n);
  WriteLn ('sum=', sum);
  ReadLn;
end.

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

С уважением, г-н Посол.

tern0stat

Дата 13.11.2004, 15:48 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Спасибо

Guest

Дата 6.12.2004, 08:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А есть Формулировка задачи

Guest

Дата 6.12.2004, 08:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Напиши Может Решу её

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