Системы счисления

Министерство науки и высшего образования Российской Федерации [pic 1]

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

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

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

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

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

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

ОТЧЕТ

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

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

вариант №1

Системы счисления

ОГУ 13.03.02.4018.830 О

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

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

                                                                                                   Колобов А.Н.  

                                                                          “       “                        2018 г.

                                                                           Исполнитель

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

                                                                                                  Амирханов Д.М.

                                                                          “       “                         2018 г.

Оренбург 2018

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

Задание №1: 

1. * Вычислить значение выражения  x = b3  - f/2  при b= - 3c-a, f=7+a  и вывести его на экран.
2. найти значение выражения при заданных значениях переменных.

[pic 2]

2 Ход работы

1)Блок-схема алгоритма:

Текст программы:[pic 3]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

  private

  public

  end;

var

  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);