Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Помогите пожалуйста

Автор: term0stat 13.11.2004, 15:11

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

Автор: p0s0l 13.11.2004, 15:35

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

Код

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

Спасибо

Автор: Guest 6.12.2004, 08:03

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

Автор: Guest 6.12.2004, 08:04

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