• Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
  • Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;

Главное меню

Карта сайта
Главная
Курсовые работы
Отчеты по практикам
Лабораторные работы
Методические пособия
Рефераты
Дипломы
Лекции



Путевые машины

ПРИЛОЖЕНИЕ

{ головной модуль программы - обеспечивает

ввод, вывод и проверку данных }

unit Srez;

interface { интерфейсная часть модуля }

uses

{ стандартные модули подключаются автоматически }

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls, ExtCtrls,

{ вычислительный модуль}

Srezcalc;

{ описание главной формы приложения - генерируется

автоматически }

type

TForml = class(TForm)

Edith TEdit; { строки ввода }

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

{ кнопка запуска вычислений }

PaintBux1: TPaintBox;

{ поле для вывода результатов в виде графика }

Labell: 'TLabel;

{пояснительные надписи}

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

{ объявление процедуры обработки нажатия на кнопку запуска вычислений }

procedure Button 1Click(Sender: TObject);

private

{ внутренние процедуры и переменные класса - нет}

public

{ внешние процедуры и переменные класса - нет }

end;

var

Form 1: TForml;

implementation

{$R *.DFM} { подключение файла ресурсов }

procedure TForml.Button l CIick(Sender: TObject);

{ определение служебных переменных }

Var i: integer;

buffer.real;

begin

{ преобразование текстовых строк в числа }

try { защищенный от сбоев фрагмент программы } p:=StrToFloat(Editl.Text);

n:=StrToFloal(Kdit2.Text);

l:=StrToFloat(Edit3.Text);

except { обработка исключительных ситуаций }

on EConvertError do { действия в случае ошибки ввода }

begin

ShowMessage('Bведены не числа');

{ вывод сообщения об ошибке }

exit; { возврат управления системе }

end;

end;

{ проверка корректности исходных данных }

if not CheckN(p.n.l) then

begin

ShowMessage('He выполнено условие п<l);

exit;

end;

if not Checkp(p,n,l) then

begin

S!iowMessage('He выполнено условие р<(1-1)');

exit;

end;

{ подготовка графического объекта к рисованию}

with PaintBoxl.Canvas do

begin

FillRect(ClipRect); { очистка поля рисования } Pen.Color:=clRed; { установка цвета пера } MoveTo(0,0); { установка пера в левый

верхний угол поля}

end;

{ очистка поля вывода текста }

ListBoxl. Clear;

{ основной цикл вычислений}

for i:=l to 4 do

begin

buffer:=MainCalc(p,n,l,i);

{ вывод результата в цифровом виде }

LisiBoxl.Items.Add(FloatToStr(buffer));

{ рисование линии }

with PaintBoxl.Canvas do

begin

lineto((i-1 )*50,trunc(buffer/50));

ellipse((i-l)*50,tranc(buffer/50),

(i-l)*50-l+4,trunc(buifer/50)4+4);

end;

end;

end;

end.

unit SrezCalc;

interface { интерфейсная часть модуля }

const { объявления констант и переменных, доступных из других модулей }

Bo:array[1..4] of real = (700,1400,1600,1700); { mm }

S= 1546; {mm}

D= 1487; { mm }

K2= 2.5; { mm/m2 }

K3=180; {mm}

Sp= 1530; {mm}

QW=25; {mm} { QW=Q+W }

var { определения переменных }

p,n,l:real;

function CheckP(p,n,l:rea!):boolean;

{ функция проверки входных данных }

function CheckN(p,n,l:real):boolean;

{ функция проверки входных данных }

function MainCalc(p,n,l:real;i:integer):real;

{ главная расчетная функция }

implementation { реализация объявленных функций } function CheckN(p.n,l:real):boolean;

begin

CheckN:=(n<l);

end;

function CheckP(p,n,l:real):boolean;

begin

CheckP:=(p<(l-l));

end;

function MainCalc(p,n,I:real;i:integer):real;

var Kl,a,Eb:real; { локальные переменные }

begin

Kl:=0.625*p*p;

a:=K2*(l-n)*n+Kl-K3;

if a<=0 then Eb:=0.5*(Sp-D)+QW { проверка условия }

else Eb:=0.5*(S D)+QW+a;

MainCalc:=2*(Bo[i]-Eb);

end;

end.



 
независимая экспертиза после пожара | Снять проститутку Ногинска - значит погрузиться в мир страсти и удовлетворения. | Вызвать проститутку Пущино - они с нетерпением ждут вашего звонка, чтобы сделать ваш вечер незабываемым. | Вызовите проститутку Рыбинска прямо к себе домой и окунитесь в атмосферу настоящего наслаждения. | Проститутки индивидуалки Пущино ищут своего щедрого спонсора для приятного времяпрепровождения. | Найти проститутку Улан Удэ просто, но найти настоящее удовольствие и насыщенные эмоции - это наша специализация. | Найти проститутку Улан Удэ для приятного времяпрепровождения - это легко и удобно. | Хотите снять проститутку Первоуральска? Обращайтесь к нам – мы поможем вам найти идеальную компанию для проведения отличного времени.