11557

Изучить синтаксис операторов цикла и получить навыки их использования в программах

Лабораторная работа

Информатика, кибернетика и программирование

Операторы циклов Цель работы: Изучить синтаксис операторов цикла и получить навыки их использования в программах. Содержание работы. 1 Дана произвольной длины последовательность целых чисел. Найти сумму неотрицательных чисел наибольшее из таких чисел и номер этог

Русский

2013-04-08

40.5 KB

2 чел.

Операторы циклов

Цель работы: Изучить синтаксис операторов цикла и получить навыки их использования в программах.

Содержание работы.

1) Дана произвольной длины последовательность целых чисел. Найти сумму неотрицательных чисел, наибольшее из таких чисел, и номер этого числа в последовательности.

3)  Option Explicit

Sub primer()

Dim N As Variant

Dim s As Double

Dim i As Integer

Dim x As Variant

Dim priznak As Boolean

Dim maxX As Integer

Dim t1 As Integer

priznak = False

Do

Do

N = InputBox("Введите кол-во чисел в последовательности")

Loop Until IsNumeric(N)

Loop Until N = CInt(N)

For i = 1 To N Step 1

Do

Do

x = InputBox("Введите целое число № " & i)

Loop Until IsNumeric(x)

Loop Until x = CInt(x)

If Not x < 0 Then

If priznak = False Then

s = x

maxX = x

priznak = True

t1 = i

Else: s = s + x

If x >= maxX Then

maxX = x

t1 = i

End If

End If

End If

Next i

If priznak = True Then

MsgBox ("сумма неотрицательных чисел  =" & s & "максимальное =" & maxX & " номер его в последовательности =" & t1)

Else

MsgBox "Нужных чисел нет"

End If

End Sub



Вывод: Мы изучили  синтаксис операторов цикла и получили навыки их использования в программах.


Начало

priznak=False

N-число

N-целое

i = 1, N, 1

х

X-число

X-целое

Not x < 0

Priznak=False

S = x

max x = x

priznak = true

t1 = i

max x > x

S = S + x

x = max x

t1 = i

priznak = true

Решений нет

S, max x, t1

конец

Введите кол-во чисел в последовательности

4

Введите целое число №1

-2

Введите целое число №2

3

Введите целое число №3

5

Введите целое число №4

-3

сумма неотрицательных чисел =8 максимальное = 5 номер его в последовательности =3  


 

А также другие работы, которые могут Вас заинтересовать

23471. Слияние гласных в именных и глагольных формах 222.5 KB
  движение сверху вниз с чего откуда по чему под что куда а также место под которым находится ктолибо или чтолибо под чем где: κατὰ τῆς πέτρας Xenoph. промежуток времени в пределах которого осуществляется какоелибо действие в течение чего в продолжение чего при ком: κατὰ τὸν Πελοποννησίων καὶ Ἀθηναίων πόλεμον Herod. отношение соответствие или сообразность с чемлибо относительно чего в соответствии с чем сообразно чему по чему: τὸ κατὰ τοῦτον εἶναι Xenoph. ἀπέκτονα убивать умерщвлять коголибо асс.
23472. Слитные глаголы I спряжения 163.5 KB
  Спряжение глаголов на εω Образец спряжения φιλέω основа φιλη – любить praesens indicativi activi singularis pluralis 1 φιλέω φιλῶ φιλέομεν φιλοῦμεν 2 φιλέεις φιλεῖς φιλέετε φιλεῖτε 3 φιλέει φιλεῖ φιλέουσιν φιλοῦσιν imperativus praesentis activi 2 φίλεε φίλει φιλέετε φιλεῖτε 3 φιλεέτω φιλείτω φιλεόντων φιλούντων infinitivus praesentis activi – φιλέεν φιλεῖν1 imperfectum activi 1 ἐφίλεον ἐφίλουν ἐφιλέομεν ἐφιλοῦμεν 2 ἐφίλεες ἐφίλεις ἐφιλέετε ἐφιλεῖτε 3 ἐφίλεε ἐφίλει ἐφίλεον ἐφίλουν praesens indicativi medii passivi singularis pluralis 1...
23473. III склонение 218.5 KB
  При склонении имён третьего склонения к их основам добавляются окончания во многом сходные с окончаниями первого и второго склонений: число singularis pluralis падеж род m f n m f n nominativus ς ø ø ες ᾰ genetivus ος ων dativus ῐ σῐ accusativus ν ᾰ = nom. Ἄραψ gen. ὄρνις gen. ἐλπίς gen.
23474. III склонение. Основы на -ν 147.5 KB
  существительные имеющие асигматический именительный падеж с удлинением последнего гласного: ὁ ἡ γείτων gen. γείτονος – сосед соседка ὁ ποιμήν gen. существительные с асигматическим именительным падежом распространившие конечный долгий гласный на все формы: ὁ ἀγών gen. ἀγῶνος – собрание состязание борьба ὁ Ἕλλην gen.
23475. Aoristus (аорист) 107.5 KB
  а также при некоторых близких им по значению прилагательных и указывает на цену чеголибо за сколько достойный чего: πολλοῦ πωλεῖται – продаётся за большие деньги ἄιος ἐπαίνου – достойный похвалы ; τῶν πόνων πωλοῦσιν ἡμῖν πάντα τἀγάθ᾿ οἱ θεοί Xenoph. ᾐνιάμην говорить загадками выражаться туманно намекать на чтолибо асс. ἠκολούθηκα следовать за сопровождать коголибо чтолибо dat. ἠτύχηκα терпеть неудачу не достигать чеголибо gen.
23476. III склонение. Основы на заднеязычные (γ, κ, χ) 111.5 KB
  κόρα gen. αἴ gen. ὄνυ gen. Образцы склонения ὁ κόρα – €œворон€ ἡ αἴ – €œкоза€ ὁ ὄνυ – €œноготь коготь€ ὁ ἅρπα λύκος – €œжадный волк€ основа κορᾰκ αἰγ ὀνῠχ ἁρπᾰγ singularis nominativus ὁ κόρα ἡ αἴ ὁ ὄνυ ὁ ἅρπα λύκος genetivus τοῦ κόρακος τῆς αἰγός τοῦ ὄνυχος τοῦ ἅρπαγος λύκου dativus τῷ κόρακι τῇ αἰγί τῷ ὄνυχι τῷ ἅρπαγι λύκῳ accusativus τὸν κόρακα τὴν αἶγα τὸν ὄνυχα τὸν ἅρπαγα λύκον vocativus ὦ κόρα ὦ αἴ ὦ ὄνυ ὦ ἅρπα λύκε pluralis nominativus οἱ κόρακες αἱ αἶγες οἱ ὄνυχες οἱ ἅρπαγες λύκοι genetivus τῶν κοράκων τῶν...
23477. III склонение. Основы на губные (β, π) 141 KB
  Расстояние от одного места до другого как далеко проходимое пространство какое расстояние а также дорога по которой ктолибо или чтолибо движется каким путём6 обозначаются в греческом языке винительным падежом без предлога – accusativus spatii €œвинительным протяжения в пространстве€: ἀπέχει ἡ Πλάταια τῶν Θηβῶν σταδίους ἑβδομήκοντα Thuc. ᾐδέσθην стыдиться совеститься; чтить уважать коголибо асс. ἀπέχω быть удалённым отстоять находиться от чеголибо на расстоянии чеголибо gen. ἐβλάβην вредить комулибо чемулибо ...
23478. III склонение. Основы на переднеязычные (δ, τ, θ) 191 KB
  ἐλπίς gen. ἐσθής gen. κόρυς gen. Образцы склонения ἡ ἐλπίς – €œнадежда€ ἡ ἐσθής – €œодежда€ ἡ κόρυς – €œшлем€ ὁ τάπης – €œковёр€ основа ἐλπῐδ ἐσθητ κορῠθ τᾰπητ singularis nominativus ἡ ἐλπίς ἐσθής κόρυς ὁ τάπης genetivus τῆς ἐλπίδος ἐσθῆτος κόρυθος τοῦ τάπητος dativus τῇ ἐλπίδι ἐσθῆτι κόρυθι τῷ τάπητι accusativus τὴν ἐλπίδα ἐσθῆτα κόρυν κόρυθα τὸν τάπητα vocativus ὦ ἐλπί ἐλπίς ἐσθής κόρυ κόρυς ὦ τάπη τάπης pluralis nominativus αἱ ἐλπίδες ἐσθῆτες κόρυθες οἱ τάπητες genetivus τῶν ἐλπίδων ἐσθήτων κορύθων τῶν ταπήτων dativus...
23479. Coniunctivus (сослагательное наклонение) 131.5 KB
  Все времена сослагательного наклонения кроме перфекта впрочем малоупотребительного1 образуются посредством добавления к соответствующей основе глагольной или настоящего времени долгих тематических гласных ω η2 служащих показателем сослагательного наклонения и первичных личных окончаний при соединении которых получается следующий набор практических окончаний:3 activum medium singularis pluralis singularis pluralis 1 ω ωμεν ωμαι ωμεθα 2 ῃς ηις ητε ῃ ηαι ησαι ησθε 3 ῃ ηι ωσιν ηται ωνται Coniunctivus...