Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Подведем итоги




End Sub

End If

End If

Else

Else

If (x = 0) Then 'действия, если x=0

y = sin(x)

y = 2 – (x^2)+(3^x)

Label3.Caption = Str(y) 'показываем ответ

 

9. Напишите обработчик события Click для кнопки «Очистить», применив навыки, полученные при выполнении предыдущих лабораторных работ

10. Сохраните проект (выбрав File – Save frmФункция.frm и Save Функция.vbp) в папке 6.2.

11. Проверьте работоспособность проекта, запустив его на выполнение.

12. Создайте exe-файл программы с помощью команды File → Make Функция.exe.

13. Выйдите из среды Visual Basic.

14. Запустите на выполнение файл Функция.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.

 

В работе были использованы новые

операторы:

If…Then…Else – условный оператор, позволяющий составить программу, работающую в зависимости от выполнения или невыполнения условия

 

Задания для самостоятельного выполнения

1. Составьте конспект по теоретической части лабораторной работы. Выполненное задание покажите преподавателю.

2. Написать программу, которая вычисляет частное от деле­ния двух чисел. Программу должна проверять правильность введенных пользователем данных и, если они не­верные (делитель равен нулю), выдавать сообщение об ошибке.

3. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сум­ма покупки больше 1000 руб.

4. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% - если сумма покупки больше 1000 руб.

5. Написать программу проверки знания даты основания Санкт-Петербурга (1703 г.). В случае неверного ответа пользователя программа должна выводить правильный ответ.

6. Написать программу проверки знания даты начала Второй мировой войны (1939 г.). В случае неверного ответа пользователя программа должна выводить правильный ответ.

7. Написать программу проверки знания истории архитектуры. Программа должна вывести вопрос и три варианта ответа. Пользователь должен выбрать правильный ответ и ввести его номер.

8. Написать программу, которая выводит пример на умно­жение двух однозначных чисел, запрашивает ответ поль­зователя, проверяет его и выводит сообщение «Правиль­но!» или «Вы ошиблись» и правильный результат.

9. Написать программу, которая проверяет, делится ли на три целое число, введенное с клавиатуры.

10. Написать программу определения стоимости разговора по телефону с учетом скидки 20%, предоставляемой по суб­ботам и воскресеньям.

11. Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сан­тиметрах) - 100.

12. Написать программу, которая проверяет, не приведет ли суммирование двух заданных чисел к переполнению (т.е. их сумма более 32767).

13. Даны три действительные числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные.

14. Даны целые числа a, b. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.

15. Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.

16. Определить, является ли целое число N четным двузначным числом.

17. Подсчитать количество отрицательных чисел среди чисел а, b, c.

18. Услуги телефонной сети оплачиваются по следующему правилу: за разговоры до А минут в месяц оплачиваются В р., а разговоры сверх установленной нормы оплачиваются из расчета С р. в минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.

19. Программа-льстец. На экране появляется вопрос «Кто ты: мальчик или девочка? Введи Д или М». В зависимости от ответа на экране должен появиться текст «Мне нравятся девочки!» или «Мне нравятся мальчики!».

20. Составить программу, определяющую результат гадания на ромашке — «любит — не любит», взяв за исходное данное количество лепестков n.

21. Определить, является ли шестизначный номер билета счастливым: счастливым считается билет, у которого сумма первых трех цифр равна сумме последних трех цифр.

22. Дано двузначное число. Написать программу, определяющую, превышает ли сумма его цифр число, которое вводится с клавиатуры.

23. Проверить, делится ли введенное трехзначное число нацело на сумму цифр, составляющих это число.

24. Написать программу для вычисления функции:

25. Написать программу, запрашивающую у пользователя три разных целых положительных числа и находящую сумму двух наименьших из них.

 




Поделиться с друзьями:


Дата добавления: 2014-12-23; Просмотров: 602; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.008 сек.