Задание №1. Государственное автономное профессиональное образовательное учреждение Чувашской Республики «Чебоксарский механико-технологический техникум» Министерства

Государственное автономное профессиональное образовательное учреждение Чувашской Республики «Чебоксарский механико-технологический техникум» Министерства образования и молодежной политики Чувашской Республики

(Чебоксарский механико-технологический техникум Минобразования Чувашии)

МЕТОДИЧЕСКИЕ УКАЗАНИЯ

Для выполнения лабораторных работ по

МДК 02.01 Информационные технологии и платформы разработки информационных систем

(Специальная информатика)

Для студентов специальности 09.02.04 Информационные системы (по отраслям)

Разработала:преподаватель спецдисциплин Зайцева Л.Е.

2015

Содержание

Лабораторная работа №1. 3

Лабораторная работа №2. 4

Лабораторная работа №3. 6

Лабораторная работа №4. 9

Лабораторная работа №5. 14

Лабораторная работа №6. 15

Лабораторная работа №7. 17

Лабораторная работа №8. 19

Лабораторная работа №9. 23

Лабораторная работа №10. 27

Лабораторная работа №1

Задание №1

Постановка задачи:

Написать программу Конвертор, которая пересчитывает цену из долларов в рубли. Рекомендуемый вид формы приведен на рисунке 1.1.

Оформить отчет в программе MS Word, которая включает в себя постановку задачи, программную реализацию, блок-схему и результат выполнения программы.

Рисунок 1.1

Программная реализация:

procedure TForm1.Button1Click(Sender: TObject);

var usd:real;

k:real;

rub:real;

begin

k:=StrToFloat (Edit1.Text);

usd:=StrToFloat (Edit2.Text);

rub:=usd*k;

Label4.Caption:= FloatToStr(usd)+ '$=' + FloatToStrF(rub, ffCurrency,6,2);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.