проверьте пожалуйста блок-схему

@ilfat11 · Регистрация: 19.04.2015

Author24 — интернет-сервис помощи студентам

Visual Basic

Private Sub Command1_Click()
Dim s, a As Double
Dim k As Integer
Picture1.Cls
Picture2.Cls
Picture1.Print "  k     a(k)       s(k)"
s = 0
For k = 1 To 10
    a = 1 / ((k ^ 2) + 3 * k + 4)
    s = s + a
    Picture1.Print k; "  "; Format(a, "00.00000"); "    "; Format(s, "00.00000")
Next k
Picture2.Print Format(s, "00.000")
End Sub

@Alex77755 · 24.04.2015, 21:04

Проверил. Не правильно
В блоке цикла должно быть k = 1,10 и ничего больше
a = 1 / ((k ^ 2) + 3 * k + 4) это должно быть в прямоугольнике ниже
s=s+1 - такого вообще нет в коде
Ну и стрелки вообще не соответствуюю коду в части цикла

@ilfat11 · 25.04.2015, 07:50 **[ТС]**

@ilfat11 · 25.04.2015, 07:53 **[ТС]**

так будет ?
Вложение 519419

@Alex77755 · 25.04.2015, 08:34

Читай по губам!

В блоке цикла должно быть k = 1,10

И смотри на кои и схему: Один принт в цикле, а второй за циклом.
В схеме оба в цикле
Нет выхода из цикла

@Alex77755 · 25.04.2015, 08:42

Примерно так:
ЗЫ: печать на форму, как мне кажется, не является "выводом информации на неопределённый носитель"

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	24.04.2015, 21:04	2
	Проверил. Не правильно В блоке цикла должно быть k = 1,10 и ничего больше a = 1 / ((k ^ 2) + 3 * k + 4) это должно быть в прямоугольнике ниже s=s+1 - такого вообще нет в коде Ну и стрелки вообще не соответствуюю коду в части цикла 1

@ilfat11 0 / 0 / 0 Регистрация: 19.04.2015 Сообщений: 15
	25.04.2015, 07:50 [ТС]	3
	0

@ilfat11 0 / 0 / 0 Регистрация: 19.04.2015 Сообщений: 15
	25.04.2015, 07:53 [ТС]	4
	так будет ? Вложение 519419 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	25.04.2015, 08:34	5
	Читай по губам! В блоке цикла должно быть k = 1,10 И смотри на кои и схему: Один принт в цикле, а второй за циклом. В схеме оба в цикле Нет выхода из цикла 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	25.04.2015, 08:42	6
	Сообщение было отмечено The trick как решение Решение Примерно так: ЗЫ: печать на форму, как мне кажется, не является "выводом информации на неопределённый носитель" Миниатюры 2

Опции темы

проверьте пожалуйста блок-схему

Решение