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

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

Форум программистов > Центр помощи > [Pascal]Операторы

Автор: NiggaGP 9.1.2007, 23:09

ПОМОГИТЕ БРАЦЦЫ, иначе 3,14здой накрылась моя учеба......здравствуй небо в облаках, здравствуй юность в сапогах

Дано натуральное число n.
  написать программу вычисления значений
    1       1            1
  ----- + ----- +...+ -------  ,n>=2
   1*2     2*3        (n-1)*n

  задачу решить тремя способами (While; For; Repeat)
  и отдельно написать программу-оболочку типа:
  1- ввод данных
  2- вычисления(сдесь отдельно вторая выборка 1- while
                                              2- For
                                              3- Repeat
                                              4- главное меню )
  3-выход

Автор: Rodman 10.1.2007, 09:39

Код


uses crt;
var y:extended;
      n,j:integer;
BEGIN
    writeln('Enter count of elements');
    readln(n);
    y:=0;
    for i:=2 to n do
         y:=y+(1/((i-1)*i));
    write('result via FOR - ',y);
    i:=2;
    y:=0;
    while(i<>n) do
    begin
         y:=y+(1/((i-1)*i));
         inc(i);
    end;
    write('result via WHILE - ',y);
    i:=1;
    y:=0;
    repeat
        inc(i);
        y:=y+(1/((i-1)*i));
    until (i=n);
    write('result via REPEAT - ',y);
    readln;
END.

ну лови, растормошил человека со звездами ранним утром... проверь!!!

меню не могу сейчас сообразить...