+ Ответить в теме
Показано с 1 по 1 из 1

Тема: Нахождение числа, больше введённого. Последовательность. Блок-схема - VBA

Древовидный режим

  1. #1
    NewStudent01 is on a distinguished road
    Регистрация
    24.12.2017
    Возраст
    22
    Сообщений
    2
    Вес репутации
    0

    По умолчанию Нахождение числа, больше введённого. Последовательность. Блок-схема - VBA

    Здравствуйте, товарищи форумчане!

    Задача следующего характера. Среди чисел 1; 1+1/2; 1+1/2+1/3 … найти первое число, которое больше данного числа А > 0.

    Имеется код программы:

    Код :
    1. Private Sub CommandButton1_Click()
    2. Dim A As Single, S As Single, y As Long, Z As Single
    3. A = InputBox("Введите число:")
    4. S = 1
    5. y = 1
    6. Do Until S > A
    7.      y = y + 1
    8.      Z = 1 / y
    9.      S = S + Z
    10. Loop
    11. MsgBox S
    12. End Sub

    Проверьте программу и блок-схему. Если есть ошибки, укажите их пожалуйста.

    Спасибо!
    Изображения
    Последний раз редактировалось NewStudent01; 24.04.2018 в 00:05.

+ Ответить в теме

Похожие темы

  1. блок схема
    // помогите пожалуйста составить блок схему #include<string.h> #include<conio.h> #include<stdio.h> #include <ctype.h> struct STUDENT {...
    от zoja1739 в разделе C и C++
  2. Блок-схема
    Добрый день. Подскажите пожалуйста как составить БЛОК-СХЕМУ для этой программы. вот код: #include <stdio.h> #include <conio.h> #include...
    от ЮрийIII в разделе C и C++
  3. Блок схема
    Помогите составить блок схему из 6 задания http://i045.radikal.ru/0710/15/0a3cedc6321b.jpg ЗЫ: я знаю вы мне смодете помочь ;)
    от katya777 в разделе Вопрошайка

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения