Программирование

Министерство образования и науки Российской Федерации

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ

ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ОБРАЗОВАНИЯ

«ОРЕНБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ»

Факультет математики и информационных технологий

Кафедра информатики

ОТЧЕТ

по лабораторной работе №4

по курсу «Информатика»

вариант №11

Программирование

ОГУ 13.03.02.4019.132 О

                                                                           Руководитель

        канд. техн. наук, доцент

                                                                                                   Колобов А.Н.  

                                                                          “       “                        2019 г.

                                                                           Исполнитель

                                                                                   студент гр. 19ЭЭ(б)-2

                                                                                                  Корнев В.А.

                                                                          “       “                         2019 г.

Оренбург 2019

Содержание

1 Постановка задач        3

2 Ход работы        4

3 Литература        6

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

1. Вычислить значение выражения  x = f3 + b/2   при b= - 3+k/2, f=2-k*a  и вывести его на экран.

2. Найти значение выражения при заданных значениях переменных [pic 1]

                                         Ход работы

Задание №1.

1. Запускаю программу Lazarus, открываю новое приложение, для этого необходимо выполнить команду Файл | Создать | Проект | Приложение.

1. На строке «Standart»  выбрал кнопку «TButton»  и двойным щелчком расположил на «Form1».

1. Аналогичным образом перенес на форму с той же страницы Standard палитры компонентов метку Label . Lazarus присвоит ей имя Label 1.
2. Выделите кнопку Button1 на форме, перешел в Инспектор Объектов, открыл в нем страницу События, найдите событие кнопки OnClick и сделайте двойной щелчок в окне справа от имени этого события. Оказался в окне Редактора Кода – Unit1.pas.
3. В разделе переменных Var описал переменные x,a,b,k,f  и присвоил им тип Real.
4. В разделе операторов  пишу

     Var

     x,a,b,k,f:Real;

     begin

     a:=StrToFloat(edit1.text);

     k:=StrToFloat(edit2.text);

     f:=2-k*a;

     b:=k/2-3;

     x:=f*f*f+b/2;

     end;

7. Пишу в обработчике оператор задания надписи метки

    Label1.caption:=FloatToStr(x).

8.Блок-схема:

 [pic 2]

9. Сохраняю проект в отдельной папке.