Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Биология / Рабочие программы / Лабараториялық жұмыс 11 класс
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

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

Подать заявку на курс
  • Биология

Лабараториялық жұмыс 11 класс

библиотека
материалов

Жобалық тапсырма №1

«Тауарды сатып алу» жобасын өңдеу

Жобаның мақсаты: жобада берілген ақша соммасынан аспайтындай тауар алу керек. Егер шығын берілген ақша соммасынан асып кетсе, онда қосымша ақша төлейтіндігі туралы хабарлама шығу керек.

1. Жобаны өңдеу үшін Delphi 7 бағдарламасын іске қосалық. Iске қосу – Программалар – Borland Delphi 7  Delphi 7 командалары арқылы iске қосамыз. Нәтижесінде экранда Delphi 7 интегралданған ортасы ашылады.


hello_html_1f504df8.png


Сурет1. Delphi 7 интегралды ортасы.


2. Формаға қажетті компоненттерді орнатамыз. Ол үшін компоненттер тақтасынан 4 Label (жазба), 1 edit (біржолдық мәтіндік өріс), 1 memo (көпжолды мәтіндік өрісті) және 2 button (командалық батырмаларды) орналастырамыз.

3. Кесте 1–де аталған компоненттердің қасиеттерінің мәндері.


Кесте1. Қасиеттер мәндер.


Компонент атауы

Қасиеттері

Мәні

Form 1

Caption

Тауарды сатып алу

Форма

Color

clAqua

Button

Caption

Сатып алу

BitBtn

Caption

Шығу

BitBtn

kind

bkClose

Image

Picture

1.bmp

Memo

Lines

Сатып алатын заттардың соммасын енгізіңіз.


4. Компоненттерге қасиеттер мәнін орнатқаннан кейін экранда жобаның нәтижесі мынадай:


hello_html_m6687f7b2.png


Сурет 2. «Тауарды сатып алу» жобасының формасы.



5. Бағдарламалық кодты Button memo компоненттеріне жазамыз. Бағдарламаның коды келесідей:

procedure TForm1.Button1Click(Sender: TObject);

var d,kol, st, sum, ost_sum, dop: integer;

k, s, s1: string;

begin

d:=StrToInt(Edit1.Text);

sum:=0;

Label3.Caption:='';

Label4.Caption:='';

s1:='';

repeat

k:=InputBox('Тауар саны', 'Тауар санынын бірлігін, '');

kol:=StrToInt (k);

s:=InputBox ('Тауар бірлігінің құны', 'Бағасын енгізіңіз, '');

st:=StrToInt(s);


Автор
Дата добавления 02.12.2015
Раздел Биология
Подраздел Рабочие программы
Просмотров166
Номер материала ДВ-221376
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

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


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

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

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


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

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

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