Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / 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(егер)

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

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