Екзаменаційна робота з інформатики

академії холоду
Корабльова Віктора Вячеславовича

яку потрібно затратити на шлях, як приклад, до дачі і

назад, з урахуванням теперішньої цінової політики паливних корпорацій, літражу двигуна, довжини шляху і т.д.


Мета роботи: Програма розроблялася для людей, які завжди хочуть бути у курсі своїх можливих майбутніх витрат, що стосуються палива для їх автотранспорту, їй знайдуть застосування усі, хто любить виїжджати за місто у далеку, чи не дуже, подорож на своєму авто і на свої гроші.

для людей, які завжди хочуть бути у курсі своїх можливих

майбутніх витрат, що стосуються палива для їх автотранспорту, їй знайдуть застосування усі, хто любить виїжджати за місто у далеку, чи не дуже, подорож на своєму авто і на свої гроші.
2) Завдяки програмі, для якої був розроблений цей алгоритм, можна вирахувати суму грошей, яку потрібно затратити на шлях, як приклад, до дачі і назад, з урахуванням теперішньої цінової політики паливних корпорацій, літражу двигуна, довжини шляху і т.д.
3) Алгоритм відображає процес підрахунку вартості палива, по заданій формулі та з заданими початковими величинами.
4) Рішення поставлених задач проходить через потрібний для них час і чітко відповідає введеним даним та очікуванням користувача.
5) Загальна умова для вхідних даних – вони повинні бути в форматі чисел.

якої відкривається поле авторизації (Form1), де в поле вводу тексту

потрібно ввести код, і нажати «Підтверджую» (btn1). При вводі коду можна зробити 3 помилки, після яких програма закриється, якщо помилок немає, то форма авторизації закривається, і відкривається основна форма (Form2). На ній є головне меню з пунктами: «Файл» -> «Закрити» (Програма зачиняється), «Довідка» (виводиться повідомлення з коротким описом дій, які потрібно проробити), «Інформація від автора» (виводиться повідомлення з описом призначення цієї програми та ім`я автора). На формі є: 3 поля для вводу тексту, 2 радіо-групи 1 поле для виведення тексту. В І поле потрібно ввести довжину шляху, в ІІ поле – споживання палива на 100км, в ІІІ – літраж двигуна, в І радіо-групі потрібно обрати марку пального, в ІІ радіо-групі – степінь шляхового навантаження, в поле для виведення тексту виводиться кінцева вартість палива. Все що вводилося чи обиралося у цих об`эктах стає початковими умовами, для подальшої роботи програми, також в поля вводу тексту дозволений тільки ввід числових значень. На формі присутні 4 кнопки: І (Визначити (btn2)) – проводить розрахунок вартості палива по розробленій формулі, з використанням отриманих вище значень, і виводить її як результат в поле для виводу тексту (якщо якесь із потрібних для розрахунку значень не було отримано, то виводиться повідомлення про це), ІІ (Очистити(btn3)) – очищає всі поля для тексту, а ItemIndex-ам радіо-груп присвоює значення «-1», ІІІ (Взнати думку(btn1)) – вона виводить форму «Незалежного експерту» (Form4), який коментує характеристики двигуна авто, спираючись на літраж, якщо літраж не був отриманий, то виводиться повідомлення про це, ІV (Утриматись(btn4)) – виводить форму того ж «Незалежного експерту» (Form5), але він ображений на те, що його послугами не скористалися.

in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas'

{Form4},
Unit5 in 'Unit5.pas' {Form5};
{$R *.res}
begin
Application.Title:='CostMaster';
Application.CreateForm(TForm2, Form2);
Form2.Free;
Application.CreateForm(TForm3, Form3);
Form3.Show;
Form3.Repaint;
Sleep(3000);
Form3.Hide;
Form3.Free;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form1.Show;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.Run;
end.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
img1: TImage;
lbl1: TLabel;
edt1: TEdit;
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
x:integer;
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}

ñïðîá';
end;
if x=0 then Form1.Close;
end;
begin
x:=3;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus, jpeg;
type
TForm2 = class(TForm)
edt1: TEdit;
edt2: TEdit;
rg1: TRadioGroup;
lbl1: TLabel;

lbl2: TLabel;
rg2: TRadioGroup;
btn1: TButton;
lbl3: TLabel;
mm1: TMainMenu;
edt3: TEdit;
lbl4: TLabel;
edt4: TEdit;
lbl5: TLabel;
btn2: TButton;
btn3: TButton;
btn4: TButton;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
img1: TImage;
procedure rg1Click(Sender: TObject);
procedure rg2Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure edt1KeyPress(Sender: TObject; var Key: Char);
procedure edt3KeyPress(Sender: TObject; var Key: Char);
procedure edt2KeyPress(Sender: TObject; var Key: Char);

private

}
end;
var
y,t:real;
Form2: TForm2;
implementation
uses Unit4, Unit5, Unit1;
{$R *.dfm}
procedure TForm2.rg1Click(Sender:

TObject);
begin
case rg1.ItemIndex of
0: begin
y:=11.55;
end;
1: begin
y:=11.30;
end;
2: begin
y:=11.16;
end;
3: begin
y:=10.78;
end;
4: begin
y:=10.27;

end;
end;
end;
procedure TForm2.rg2Click(Sender: TObject);
begin
case rg2.ItemIndex of
0: begin
t:=1.0;
end;
1: begin
t:=1.4;
end;
2: begin
t:=1.2;
end;
end;
end;
procedure TForm2.btn2Click(Sender: TObject);
begin
if edt1.text='' then
begin
ShowMessage('Ââåä³òü øëÿõ');
edt1.text:='0';
end;
if edt3.text='' then
begin
ShowMessage('Ââåä³òü äàíí³ ç òåõ.ïàñïîðòó');
edt3.Text:='0';
end;

TObject);
begin
if edt2.text='' then ShowMessage('Ââåä³òü ë³òðàæ');
if edt2.text'' then Form4.ShowModal;
end;
procedure TForm2.btn4Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure

TForm2.btn3Click(Sender: TObject);
begin
edt1.Text:='';
edt2.Text:='';
edt3.Text:='';
edt4.Text:='';
rg1.ItemIndex:=-1;
rg2.ItemIndex:=-1;
edt1.SetFocus;
end;
procedure TForm2.N2Click(Sender: TObject);
begin

edt1.Text:='';
edt2.Text:='';
edt3.Text:='';
edt4.Text:='';
rg1.ItemIndex:=-1;
rg2.ItemIndex:=-1;
edt1.SetFocus;
end;
procedure TForm2.N2Click(Sender: TObject);
beginShowMessage('Ïðîñòî ââåä³òü çàïèòóâàíí³ õàðàêòåðèñòèêè âàøîãî àâòî, îáåð³òü ìàðêó áåíçèíó, îáåð³òü ñòåï³íü íàâàíòàæåííÿ äîðîãè ³ ââåä³òü äîâæèíó øëÿõó');
end;
procedure TForm2.N4Click(Sender: TObject);
begin
Halt;
end;
procedure TForm2.N3Click(Sender: TObject);
begin
ShowMessage('Ïðîãðàìà ðîçðîáëÿëàñÿ äëÿ ëþäåé, ÿê³ çàâæäè õî÷óòü áóòè ó êóðñ³ ñâî¿õ ìîæëèâèõ âèòðàò íà ïàëüíå. Àâòîð: Êîðàáëüîâ ³êòîð');
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Halt;
end;
procedure TForm2.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',',',#8]) then key:=#0;
end;
procedure TForm2.edt3KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',',',#8]) then key:=#0;
end;
procedure TForm2.edt2KeyPress(Sender: TObject; var Key: Char);
begin

SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;
type
TForm3

= class(TForm)
img1: TImage;

private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
end.

unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;
type
TForm4 = class(TForm)
img1: TImage;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls;
type
TForm5 = class(TForm)
img1: TImage;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
end.

розраховувати вартість пального, потрібного на подолання заданої відстані. Для цього

потрібно: вказати марку пального, степінь можливого шляхового навантаження, довжину шляху, споживання палива на 100км (можна знайти в тех. паспорті авто). Якщо програма не отримає ці дані, вона видасть специфічні повідомлення й присвоїть полям вводу даних нульові значення, а радіо групам – «-1». Також поля вводу тексту піддержують тільки ввід чисел, а поле кінцевої видачі результату – блоковане. Також в програмі є поле вводу літражу двигуна, який може оцінити вбудований в програму «незалежний експерт». Програма відповідає всім передумовам, що були вказані в завданні.