VPF::[Pascal] Посчитать число итераций

Bra1ner1ck

Дата 16.5.2007, 17:40 (ссылка)

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

Загрузка ...

Новичок

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

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

Сорри что не в тему , ненашёл тем по Basic
Здравствуйте
Помогите чем знаете , нужно написать задачку на Basic .
1/2 - одна вторая , т.е дробь , 1/2/(2) - т.е одна вторая и двойка у одной второй в квадрате
условие такое : S=1+1/2(2)+1/3(2)+1/4(2).....+1/n(2)
Нужно посчитать сколько пройдёт операции с числами пока пока результат не будет больше 1.5 .
Т.е например 1 + 1/2(2) это будет 0.25 прибавляем 1 = 1.25 и так по порядку и сколько будет выполнено ходов действий.
Написать нужно на бейсике пример
Program_x
Uses_crt
.............
Желательно с описанием каждой строчки. Помогите, от вас зависет оценка за год :-|

Akina

Дата 16.5.2007, 19:16 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

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

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Данкинг

Дата 16.5.2007, 19:20 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Цитата(Bra1ner1ck @ 16.5.2007, 18:40)

Написать нужно на бейсике пример
Program_x
Uses_crt

Так всё же на бейсике или на паскале? smile

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

There's nothing left but silent epitaphs.

Voldemar2004

Дата 16.5.2007, 19:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

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

Цитата(Bra1ner1ck @ 16.5.2007, 18:40

)

Написать нужно на бейсике пример

Данкинг, на VB.

Код

Option Explicit

Private Sub Command1_Click()
Dim i As Long

i = 0

Dim Summa As Double

Dim n As Long

Summa = 1

n = 2

    Do While Summa <= 1.5
    
  
    Print Summa & vbNewLine
     
    Summa = Summa + 1 / (2 * n)
    
    n = n + 1
      
    i = i + 1
    
    Loop

' S=1+1/2(2)+1/3(2)+1/4(2).....+1/n(2)

Print "Количество итераций: " & i

End Sub

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

i_i
(';')
(V)

user posted image

Bra1ner1ck

Дата 16.5.2007, 20:11 (ссылка)

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

Загрузка ...

Новичок

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

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

сорри , нужно написать на Паскале , если ответов не будет закрывайте тему завтра в 12 по москве

Voldemar2004

Дата 16.5.2007, 20:26 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

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

Я паскаль не знаю, но думаю, что правильно:

Код

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var

i: integer;

Summa: real;

n: integer;

begin

i := 0;

Summa := 1;

n := 2;


    while Summa <= 1.5  do

    begin

    Summa := Summa + 1 / (2 * n);

    n := n + 1;

    i := i + 1;

    end;


// S=1+1/2(2)+1/3(2)+1/4(2).....+1/n(2)

end.

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

i_i
(';')
(V)

user posted image

Misha_White

Дата 17.5.2007, 10:43 (ссылка)

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

Загрузка ...

Бывалый

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

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

Voldemar2004,
Правильно вроде...
Можно написать

Код


inc(i);
inc(n);

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

Я не волшебник... я только учусь...

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