Алгоритмы ветвлений

Санкт-Петербургский политехнический университет Петра Великого

Институт машиностроения, материалов и транспорта

Высшая школа машиностроения

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

по дисциплине «Цифровой практикум»

«АЛГОРИТМЫ ВЕТВЛЕНИЙ»

Санкт-Петербург

                                                 2022 г.

Цель работы

• приобретение умений разработки и программной реализации разветвляющихся алгоритмов.

Задание

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

[pic 1]

1. Разработать алгоритм определения отношения (принадлежит или не принадлежит) точки плоскости с заданными координатами области и написать проект, реализующий этот алгоритм.

[pic 2]

1. Разработать справочную систему для расчёта стоимости проезда в один из пригородов с тремя уровнями комфорта и возможностью скидки.

[pic 3][pic 4][pic 5][pic 6][pic 7][pic 8][pic 9][pic 10][pic 11][pic 12][pic 13][pic 14][pic 15][pic 16][pic 17][pic 18][pic 19][pic 20][pic 21][pic 22][pic 23][pic 24][pic 25][pic 26][pic 27][pic 28][pic 29][pic 30][pic 31][pic 32][pic 33][pic 34][pic 35][pic 36][pic 37][pic 38]

Блок схемы для вычисления значения функции, определения отношения и расчёта стоимости

1.                                                                             2.[pic 39][pic 40]

  3.[pic 41]

Текст модуля

1.

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, math;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Label2: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2;