Проектирование программ со структурой вложенных циклов

[Порфирий]

Проектирование программ со структурой вложенных циклов

Используя метод нисходящего проектирования, разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов. Результаты вычислений напечатать.

 

[Порфирий]

Народ, кто-нибудь, выручите! Не могу никак разобраться!

 

[Vladimir_S]

Народ, кто-нибудь, выручите! Не могу никак разобраться!

Var
 x:byte;

Function Fact(z:byte):Integer;
var
 n:byte;
 Fct:Integer;
begin
 Fct:=1;
 for n:=1 to z do Fct:=Fct*n;
 Fact:=Fct;
end;

Begin
 for x:=0 to 6 do writeln('x = ',x,'     F = ',Exp(-x)-Fact(x):10:5);
 Readln
End.

 

[Порфирий]

А поможете написать программу, чтобы присутствовало repeat и until?

 

[Vladimir_S]

А поможете написать программу, чтобы присутствовало repeat и until?

М-да. Совсем, значит, учиться не хотите... Уважаемый Порфирий, сейчас Вам, вероятно, кажется, что Вы ужас до чего ловкий и хитрый: дали задание - скинул на форумы - скатал - сдал. Ай я молодца! Только вот уж поверьте - кончится это полным крахом: задания будут усложняться, форумчане не пожелают тратить кучу времени на создание программ, с Вашей стороны неизбежно последуют вопли-сопли типа "спасите-помогите-отчисляют!!!", ну и закономерный конец. Проходили, и не раз. А потому мой Вам совет - срочно беритесь за ум! Сейчас еще начало марта, время есть - в мае поздно будет!
Но, впрочем, Вы - взрослый человек, Вам жить.

Var
 x:byte;

Function Fact(z:byte):Integer;
var
 n:byte;
 Fct:Integer;
begin
 Fct:=1;
 for n:=1 to z do Fct:=Fct*n;
 Fact:=Fct;
end;

Begin
 x:=0;
 repeat
  writeln('x = ',x,'     F = ',Exp(-x)-Fact(x):10:5);
  x:=x+1;
 until x=7;
 Readln
End.

 

[Порфирий]

Я наоборот, вам очень благодарен. И благодаря вам, учусь, смотрю и делаю программы. Наоборот, я не хочу просто так тупо списывать все с форума, а целенаправленно учусь, занимаюсь программированием и в этом мне оказываете большую помощь вы)
И да, мне 25 лет. И я давно закончил ВУЗ)
Решил пройти курс обучения по информатике.

 

[Vladimir_S]

И да, мне 25 лет. И я давно закончил ВУЗ) Решил пройти курс обучения по информатике.

Успехов! Обращайтесь, если что.