Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Презентации / "Visual Basic айнымалылармен жұмыс" презентация
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

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

Выберите документ из архива для просмотра:

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...
8 1

Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

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

№ слайда 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% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

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

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