1138885
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 5.520 руб.;
- курсы повышения квалификации от 1.200 руб.
Престижные документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 70%

ВНИМАНИЕ: Скидка действует ТОЛЬКО сейчас!

(Лицензия на осуществление образовательной деятельности № 5201 выдана ООО "Инфоурок")

ИнфоурокИнформатикаДругие методич. материалыTurbo Pascal and Visual Basic практикалық жұмыстар

Turbo Pascal and Visual Basic практикалық жұмыстар

Выбранный для просмотра документ 10класс VisualBasic Графика.docx

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

Практическая работа Visual Basic

Графические обьекты

Перевод кодов: If(если), True(истина), False(ложь), next(следующий), else(или же), and(а также), for(для), shape(фигура),Visible(видимый)


В конце включаем программу Run(F5)

(в Программе фигуры должны мигать, true-мигает, falseне мигает )


If(если) k>= 10 and(и) k<20 then(то)

Shape1(0)(фигура) Visible(видимый)=true(истина)

else(или же)

Shape1(0)(фигура)=False(ложь)



Обьект

Свойства

Index

Shape

Backolor

Backstyle

Caption

Interval

Shape1

0

Circle

Выбери цвет

1-Opaque



Shape1

1

Circle

Выбери цвет

1-Opaque



Shape1

2

Circle

Выбери цвет

1-Opaque



Shape1

3

Circle

Выбери цвет

1-Opaque



Shape1

4

Circle

Выбери цвет

1-Opaque



Shape1

5

Circle

Выбери цвет

1-Opaque



Shape1

6

Circle

Выбери цвет

1-Opaque



Timer1






100





Кликни по форме два раза и набири следющие коды

Dim k, i As Integer

Private Sub Form_Load()

Timer1.Enabled = True

k = 0

For i = 0 To 6

Shape1(0).Visible = False

Next

End Sub


Для обьекта Timer1 надо набрать следующие коды

k = k + 1

If k >= 10 And k < 20 Then

Shape1(0).Visible = True

Else

Shape1(0).Visible = False

End If

If k >= 20 And k < 30 Then

Shape2(1).Visible = True

Else

Shape2(1).Visible = False

End If

If k >= 30 And k < 40 Then

Shape3(2).Visible = True

Else

Shape3(2).Visible = False

End If

If k >= 40 And k < 50 Then

Shape4(3).Visible = True

Else

Shape4(3).Visible = False

End If

If k >= 50 And k < 60 Then

Shape5(4).Visible = True

Else

Shape5(4).Visible = False

End If

If k >= 60 And k < 70 Then

Shape6(5).Visible = True

Else

Shape6(5).Visible = False

End If

If k >= 70 And k < 80 Then

Shape7(6).Visible = True

Else

Shape7(6).Visible = False

End If

If k = 80 Then k = 0

End Sub


Выбранный для просмотра документ 8 класс Pascal Case операторы Практикалы· Ж¤мыс.docx

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

program vetvlenija8;

uses crt;

var i:integer;

begin

clrscr;

writeln ('Апта кунін көрсет');

readln (i);

case i of

1: writeln ('Дүйсенбі');

2: writeln ('Бейсенбі');

else

writeln ('Ондай апта куні жок')

end;

readln

end.


Өздік жұмыс: TurboPascal программасында Case of операторы арқылы Әлемнің үздік футболшылары рейтінгісін құр.

  1. Лионель Месси

  2. Криштиану Роналду

  3. Стивен Джеррард

  4. Робин ван Перси

  5. Фрэнк Лэмпард

  6. Уэйн Руни

  7. Франческо Тотти

  8. Дэвид Бекхэм

  9. Роналдиньо

  10. Луис Суарес

  11. Алессандро Дель Пьеро

  12. Икер Касильяс

  13. Рауль

  14. Златан Ибрагимович

  15. Тьерри Анри

  16. Фернандо Торрес

  17. Хави

  18. Андрес Иньеста

  19. Андреа Пирло

  20. Джанлуиджи Буффон

  21. Райан Гиггз

  22. Месут Озил


program vetvlenija8;

uses crt;

var i:integer;

begin

clrscr;

writeln ('Апта кунін көрсет');

readln (i);

case i of

1: writeln ('Дүйсенбі');

2: writeln ('Бейсенбі');

else

writeln ('Ондай апта куні жок')

end;

readln

end.


Өздік жұмыс: TurboPascal программасында Case of операторы арқылы Әлемнің үздік фильмдері рейтінгісін құр.

  1. Властелин колец 2: Две крепости

  2. Властелин колец 3: Возвращение Короля

  3. Побег из Шоушенка

  4. Властелин колец: Братство кольца

  5. Форрест Гамп

  6. Иван Васильевич меняет профессию

  7. Терминатор 2: Судный день

  8. Темный рыцарь 

  9. Мэверик

  10. Пираты Карибского моря: Проклятие Черной жемчужины

  11. Матрица

  12. Назад в будущее 2

  13. Храброе сердце

  14. Операция "Ы" и другие приключения Шурика

  15. Пролетая над гнездом кукушки

  16. Начало

  17. Зеленая миля

  18. Список Шиндлера


Выбранный для просмотра документ 9Класс Pascal Условие.docx

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

Если (if) b=0 тогда (then) writeln (‘B равно нулю’)

Если b не равно нулю (else – или же ) выполняется процедура writeln(a/b)

program pas;

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if ( b=0 ) then writeln (' B равно нулю')

else writeln(a/b);

readln;

end.


A) Если (if) b меньше пяти тогда (then)

writeln (‘B меньше пяти ’) Если b больше пяти (else – или же ) выполняется процедура writeln(a/b)



B)Если (if) B равно нулю тогда (then) выполняется процедура writeln (‘B равно нулю’),(else) eсли (if) C равно нулю тогда (then) выполняется процедура writeln (‘C равно нулю’)

Если B и С не равно нулю (else – или же ) выполняется процедура writeln(a/b/c)






Если (if) b=0 тогда (then) writeln (‘B равно нулю’)

Если b не равно нулю (else – или же ) выполняется процедура writeln(a/b)

program pas;

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if ( b=0 ) then writeln (' B равно нулю')

else writeln(a/b);

readln;

end.


  1. Если (if) b меньше пяти тогда (then)

writeln (‘B меньше пяти ’) Если b больше пяти (else – или же ) выполняется процедура writeln(a/b)



B) Если (if) B равно нулю тогда (then) выполняется процедура writeln (‘B равно нулю’),(else) eсли (if) C равно нулю тогда (then) выполняется процедура writeln (‘C равно нулю’)

Если B и С не равно нулю (else – или же ) выполняется процедура writeln(a/b/c)




Выбранный для просмотра документ 9класс Pascal Case операторы Практикалы· Ж¤мыс.docx

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

program vetvlenija8;

uses crt;

var i:integer;

begin

clrscr;

writeln ('Апта кунін көрсет');

readln (i);

case i of

1: writeln ('Дүйсенбі');

2: writeln ('Бейсенбі');

else

writeln ('Ондай апта куні жок')

end;

readln

end.


Өздік жұмыс: Қазақстан Республикасының Мейрам күндерін TurboPascal программасында Case of операторы арқылы программаны құр.


program vetvlenija8;

uses crt;

var i:integer;

begin

clrscr;

writeln ('Апта кунін көрсет');

readln (i);

case i of

1: writeln ('Дүйсенбі');

2: writeln ('Бейсенбі');

else

writeln ('Ондай апта куні жок')

end;

readln

end.


Өздік жұмыс: Қазақстан Республикасының Мейрам күндерін TurboPascal программасында Case of операторы арқылы программаны құр.



program vetvlenija8;

uses crt;

var i:integer;

begin

clrscr;

writeln ('Апта кунін көрсет');

readln (i);

case i of

1: writeln ('Дүйсенбі');

2: writeln ('Бейсенбі');

else

writeln ('Ондай апта куні жок')

end;

readln

end.


Өздік жұмыс: Қазақстан Республикасының Мейрам күндерін TurboPascal программасында Case of операторы арқылы программаны құр.


program vetvlenija8;

uses crt;

var i:integer;

begin

clrscr;

writeln ('Апта кунін көрсет');

readln (i);

case i of

1: writeln ('Дүйсенбі');

2: writeln ('Бейсенбі');

else

writeln ('Ондай апта куні жок')

end;

readln

end.


Өздік жұмыс: Қазақстан Республикасының Мейрам күндерін TurboPascal программасында Case of операторы арқылы программаны құр.



Выбранный для просмотра документ TurboPascal 9класс Шарт2 Практик Жумыс.docx

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

9 класс Шартты оператор

Мысал:

program pas;

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if ( b=0 ) then writeln ('б нолге тен болады')

else writeln(a/b);

readln;

end.


  1. Eгер (If) B<=2 немесе(or) с=0 онда(then) writeln(‘B екіден кіші немесе тен болады және C нөлге тең болады’), егер(else) B екіден кіші немесе тең болмаса және C нөлге тең болмаса онда(then) writeln (A/B/C) орындалады.


  1. Егер(if) A бірге тең болса онда(then) writeln(‘дуйсенбі’) орындалады, егер(else) (if) А екіге тең болса онда (then) writeln(‘Сейсенбі’) орындалады, егер А бірге және екіге тең болмаса writeln(‘Ондай апта күні жок’) орындалады.









9 класс Шартты оператор

Мысал:

program pas;

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if ( b=0 ) then writeln ('б нолге тен болады')

else writeln(a/b);

readln;

end.


  1. Eгер (If) B<=2 немесе(or) с=0 онда(then) writeln(‘B екіден кіші немесе тен болады және C нөлге тең болады’), егер(else) B екіден кіші немесе тең болмаса және C нөлге тең болмаса онда(then) writeln (A/B/C) орындалады.


  1. Егер(if) A бірге тең болса онда(then) writeln(‘дуйсенбі’) орындалады, егер(else) (if) А екіге тең болса онда (then) writeln(‘Сейсенбі’) орындалады, егер А бірге және екіге тең болмаса writeln(‘Ондай апта күні жок’) орындалады.


Выбранный для просмотра документ Visual Basiс графика Практикалы· ж¤мыстар.docx

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

Практикалық жұмыс

Visual Basiс ортасында қарапайым графикалық объектілерді құруды үйрету

If(егер), True(ақиқат), False(жалған), next(келесі), else(тағы), then(онда), and(және), for(үшін), Shape(кескін), Visible(көрінетін) кодтарын қолдану арқылы жасалған процедура.

Обьект

Қасиетері

Index

Shape

Backolor

Backstyle

Caption

Interval

Shape1

0

Circle

Түстітаңда

1-Opaque



Shape1

1

Circle

Түстітаңда

1-Opaque



Shape1

2

Circle

Түстітаңда

1-Opaque



Shape1

3

Circle

Түстітаңда

1-Opaque



Shape1

4

Circle

Түстітаңда

1-Opaque



Shape1

5

Circle

Түстітаңда

1-Opaque



Shape1

6

Circle

Түстітаңда

1-Opaque



Timer1






100


Пішінді екі рет шертіп, келесі процедураны толтыр.

Dim k, i As Integer

Private Sub Form_Load()

Timer1.Enabled = True

k = 0

For i = 0 To 6

Shape1(0).Visible = False

Next

End Sub


Timer1 обьектісі үшін келесі процедурасы жазамыз:

Private Sub Timer1_Timer()

k = k + 1

If k >= 10 And k < 20 Then

Shape1(0).Visible = True

Else

Shape1(0).Visible = False

End If

If k >= 20 And k < 30 Then

Shape2(1).Visible = True

Else

Shape2(1).Visible = False

End If

If k >= 30 And k < 40 Then

Shape3(2).Visible = True

Else

Shape3(2).Visible = False

End If

If k >= 40 And k < 50 Then

Shape4(3).Visible = True

Else

Shape4(3).Visible = False

End If

If k >= 50 And k < 60 Then

Shape5(4).Visible = True

Else

Shape5(4).Visible = False

End If

If k >= 60 And k < 70 Then

Shape6(5).Visible = True

Else

Shape6(5).Visible = False

End If

If k >= 70 And k < 80 Then

Shape7(6).Visible = True

Else

Shape7(6).Visible = False

End If

If k = 80 Then k = 0

End Sub


If (егер)k >= 10 And(және) k < 20 Then(онда)

Shape1(кескін) (0).Visible(көрінетін) = True(ақиқат)

Else(тағы)

Shape1(кескін) (0).Visible(көрінетін) = False(жалған)

End(соңы) If(егер)

Общая информация

Номер материала: ДВ-388903

Вам будут интересны эти курсы:

Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Основы создания интерактивного урока: от презентации до видеоурока»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс «Фирменный стиль» (Corel Draw, Photoshop)
Курс «Оператор персонального компьютера»
Курс «1С: Предприятие 7.7»
Курс «3D Studio MAX»
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

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

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

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

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

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