Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Презентации / "Visual Basic айнымалылармен жұмыс" презентация

"Visual Basic айнымалылармен жұмыс" презентация

Международный конкурс по математике «Поверь в себя»

для учеников 1-11 классов и дошкольников с ЛЮБЫМ уровнем знаний

Задания конкурса по математике «Поверь в себя» разработаны таким образом, чтобы каждый ученик вне зависимости от уровня подготовки смог проявить себя.

К ОПЛАТЕ ЗА ОДНОГО УЧЕНИКА: ВСЕГО 28 РУБ.

Конкурс проходит полностью дистанционно. Это значит, что ребенок сам решает задания, сидя за своим домашним компьютером (по желанию учителя дети могут решать задания и организованно в компьютерном классе).

Подробнее о конкурсе - https://urokimatematiki.ru/


Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

Для учителей мы подготовили самые привлекательные условия в русскоязычном интернете:

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

  • Информатика

Документы в архиве:

560 КБ Айнымалылармен жумыс.ppt
3.2 КБ донгелек.JPG
4.82 КБ конус.JPG
4.69 КБ цилиндр.JPG

Название документа Айнымалылармен жумыс.ppt

Айнымалылармен жұмыс
Программаның орындалу барысында әр түрлі мәндерді қабылдап, мәнін өзгертіп от...
Тапсырма: дөңгелектің, цилиндрдің, конустің ауданын есептейтін программа құру...
2. Программаға арналған математикалық моделі: S_krug= Pi*R^2 S_cilindra= 2*S_...
3. Экрандық формасының эскизі:
4. Программасы Шеңбердің ауданы: Private Sub Command1_Click() Const Pi As Dou...
Цилиндрдің ауданы Private Sub Command2_Click() Const Pi As Double = 3.1415926...
Конустың ауданы Private Sub Command3_Click() Const Pi As Double = 3.141592653...
1 из 8

Описание презентации по отдельным слайдам:

№ слайда 1 Айнымалылармен жұмыс
Описание слайда:

Айнымалылармен жұмыс

№ слайда 2 Программаның орындалу барысында әр түрлі мәндерді қабылдап, мәнін өзгертіп от
Описание слайда:

Программаның орындалу барысында әр түрлі мәндерді қабылдап, мәнін өзгертіп отыратын шаманы айнымалы деп атаймыз. Айнымалыларды сипаттау үшін: Dim айнымалының аты As типі Мұндағы Dim – Dimension – «өлшемділік» деген мағына береді Тұрақтыларды сипаттау үшін: Const айнымалының аты As типі

№ слайда 3 Тапсырма: дөңгелектің, цилиндрдің, конустің ауданын есептейтін программа құру
Описание слайда:

Тапсырма: дөңгелектің, цилиндрдің, конустің ауданын есептейтін программа құру керек. Математикалық моделі: Sкр= πR2 Sцл= Sосн + Sбок= 2πR2+2πRН Sкон= Sосн + Sбок= πR2+πRL

№ слайда 4 2. Программаға арналған математикалық моделі: S_krug= Pi*R^2 S_cilindra= 2*S_
Описание слайда:

2. Программаға арналған математикалық моделі: S_krug= Pi*R^2 S_cilindra= 2*S_krug + 2*Pi*R*Н S_konusa = S_krug +Pi*R*L R айнымалысын сипаттау үшін Dim R As Single S айнымалысын сипаттау үшін Dim S As Single Pi тұрақтысын сипаттау үшін Const Pi As Double (Single – сандық айнымалы, ондық нүктелі сандардан тұрады) (Double – сандық айнымалы, Single кеңдеу интервалмен ерекшеленеді)

№ слайда 5 3. Экрандық формасының эскизі:
Описание слайда:

3. Экрандық формасының эскизі:

№ слайда 6 4. Программасы Шеңбердің ауданы: Private Sub Command1_Click() Const Pi As Dou
Описание слайда:

4. Программасы Шеңбердің ауданы: Private Sub Command1_Click() Const Pi As Double = 3.14159265358979 Dim s_krug As Single Dim R As Single R = Val(Text1.Text) s_krug = Pi * R ^ 2 Text4.Text = Str(s_krug) End Sub

№ слайда 7 Цилиндрдің ауданы Private Sub Command2_Click() Const Pi As Double = 3.1415926
Описание слайда:

Цилиндрдің ауданы Private Sub Command2_Click() Const Pi As Double = 3.14159265358979 Dim R As Single Dim H As Single Dim s_cil As Single R = Val(Text1.Text) H = Val(Text2.Text) s_cil = 2 * s_krug + 2 * Pi * R * H Text5.Text = Str(s_cil) End Sub

№ слайда 8 Конустың ауданы Private Sub Command3_Click() Const Pi As Double = 3.141592653
Описание слайда:

Конустың ауданы Private Sub Command3_Click() Const Pi As Double = 3.14159265358979 Dim R As Single Dim L As Single Dim s_konusa As Single R = Val(Text1.Text) L = Val(Text3.Text) s_konusa = s_krug + Pi * R * L Text6.Text = Str(s_konusa) End Sub

Самые низкие цены на курсы профессиональной переподготовки и повышения квалификации!

Предлагаем учителям воспользоваться 50% скидкой при обучении по программам профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок".

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru/kursy



Автор
Дата добавления 25.10.2016
Раздел Информатика
Подраздел Презентации
Просмотров39
Номер материала ДБ-289736
Получить свидетельство о публикации

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

от проекта "Инфоурок" с указанием данных образовательной лицензии, что важно при прохождении аттестации.

Если Вы учитель или воспитатель, то можете прямо сейчас получить документ, подтверждающий Ваши профессиональные компетенции. Выдаваемые дипломы и сертификаты помогут Вам наполнить собственное портфолио и успешно пройти аттестацию.

Список всех тестов можно посмотреть тут - https://infourok.ru/tests

Похожие материалы

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