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

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

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

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

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

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

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

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

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(егер)


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


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

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

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

Автор
Дата добавления 28.01.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров204
Номер материала ДВ-388903
Получить свидетельство о публикации
Похожие материалы

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