VPF::[Pascal]Операторы - Форум программистов

NiggaGP

Дата 9.1.2007, 23:09 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 26.12.2006
Где: Краснодар

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

ПОМОГИТЕ БРАЦЦЫ, иначе 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 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

Код


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.

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

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

Это сообщение отредактировал(а) Rodman - 10.1.2007, 10:01

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

CRM с функцией АвтоОбзвона

Лотереи мира

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