Добавить работы Отмеченные0
Работа успешно отмечена.

Отмеченные работы

Просмотренные0

Просмотренные работы

Корзина0
Работа успешно добавлена в корзину.

Корзина

Регистрация

интернет библиотека
Atlants.lv библиотека

Выгодно: цена со скидкой!

Обычная цена:
5,49
Экономия:
0,60 (11%)
Со скидкой*:
4,89
Купить
Добавить в список желаний
Идентификатор:717224
Автор:
Оценка:
Опубликованно: 02.01.2019.
Язык: Латышский
Уровень: Университет
Литературный список: Нет
Ссылки: Не использованы
Фрагмент работы

5. Testpiemēru kopa
Lai pārliecinātos par programmas pareizību izdarīsim sekojošus vienkāršojumus:
Ievadīsim trīs lielumus a,b,c un veiksim salīdzināšanu, lai noskaidrotu, kura no vērtībām ir lielākā un kura mazākā vērtība, un no lielākās vērtības atņemsim mazāko vērtību:
Ja a=1, b=2, c=3, tad D= 3-1=2
Ja a=4, b=2, c=1, tad D=4-1=3
Ja a=5, b=1, c=3, tad D=5-1=4
Ja a=1, b=7,c=2, tad D=7-1=6

6. Programmas pirmteksts
Public Sub RING()
Dim a As Single, b As Single, c As Single
Dim S As Single
Dim Max As Single, Min As Single
a = CSng(InputBox("ievadi a vertibu"))
b = CSng(InputBox("ievadi b vertibu"))
c = CSng(InputBox("ievadi c vertibu"))
' operatora p?rnese uz n?košo rindu
If a > b And a > c Then Max = a

Коментарий автора
Загрузить больше похожих работ

Отправить работу на э-почту

Твое имя:

Адрес э-почты, на которую отправить адрес работы:

Привет!
{Твое имя} советует Тебе посмотреть работу в интернет-библиотеке Atlants.lv на тему „Pirmais laboratorijas darbs "Visual Basic"”.

Адрес работы:
https://rus.atlants.lv/w/717224

Отправить

Э-почта отправлена.

Выбери способ авторизации

Э-почта + пароль

Э-почта + пароль

Неправильный адрес э-почты или пароль!
Войти

Забыл пароль?

Draugiem.pase
Facebook
Twitter

Не зарегистрировался?

Зарегистрируйся и получи бесплатно!

Для того, чтобы получить бесплатные материалы с сайта Atlants.lv, необходимо зарегистрироваться. Это просто и займет всего несколько секунд.

Если ты уже зарегистрировался, то просто и сможешь скачивать бесплатные материалы.

Отменить Регистрация