laquo;sorg»);reset(sorg);seek(sorg,fileSize(sorg));:=strtoint(edit1.Text);i:=1 to n do.naimlek:=stringgrid1.Cells[0,i];.srokchran:=strtoint(stringgrid1.Cells[1,i]);(sorg,y);;(sorg);;TForm3.Button5Click(Sender: TObject);s:integer;:integer;(sorg1,«sorg1»);reset(sorg);rewrite(sorg1);:=strtoint(edit2.Text);s:=0;not eof (sorg) do:=s +1; n=s then read (sorg, y) (sorg, y); (sorg1, y);;; (sorg); closefile (sorg1); (sorg1); rewrite ( sorg); not eof (sorg1) do (sorg1, y); write (sorg, y);; (sorg); closefile (sorg1);; TForm3.Button4Click (Sender: TObject); (sorg, «sorg») ; reset (sorg);:=strtoint (edit1.Text); (sorg, n - 1);.naimlek:=stringgrid1.Cells[0,n];.srokchran:=strtoint(stringgrid1.Cells[1,n]);(sorg,y);(sorg);;TForm3.Button6Click(Sender: TObject); zn: array [1 .. 50] of z2;: z2;, k, n, i: integer; (sorg, «sorg»); (sorg);:=1; not eof (sorg) do (sorg, zn [i]);:=i +1;; (sorg);:=i - 1; i:=1 to n do:=i; j:=i +1 to n dozn [j]. srokchran
closefile (sorg);;
procedure TForm3.FormCreate (Sender: TObject);. Cells [0,0]:="Найменування ліки»;. Cells [1,0]:=«Термін зберігання»;; TForm3 . Button8Click (Sender: TObject); j: integer; i:=0 to stringgrid1.ColCount - 1 doj:=0 to stringgrid1.ColCount - 1 do.Cells [i, j]:=« »;;. Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids;=class (TForm): TButton;: TLabel;: TButton;: TStringGrid;: TEdit;: TLabel; Button7Click (Sender: TObject); FormCreate (Sender: TObject); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};=record: string [20];: string [6];: integer;: real;;=record: string [20];: integer;;: TForm4;: file of z1;: file of z2;: z1;: z2;: integer;
{$ R *. dfm} TForm4.Button7Click (Sender: TObject);;; TForm4.FormCreate (Sender: TObject);. Cells [0,0]:="Найменування ліки»; . Cells [1,0]:="Одиниця измерения»;.Cells[2,0]:=«Количество»;.Cells[3,0]:=«Цена»;.Cells[4,0]:=«Сумма»;;TForm4.Button1Click(Sender: TObject);
var sum, sm: real;
assignfile (check, «check»); (check);:=1; sm:=0; not eof (check) do(check,x);.Cells[0,i]:=x.naimlek;.Cells[1,i]:=x.edinizm;.Cells[2,i]:=inttostr(x.kolichestvo);.Cells[3,i]:=floattostr(x.cena);:=x.cena*x.kolichestvo;.Cells[4,i]:=floattostr(sum);:=sm+sum;:=i+1;;.Text:=floattostr(sm);(check);;.Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids;=class (TForm): TButton;: TLabel;: TLabel;: TButton;: TButton;: TStringGrid; Button1Click (Sender: TObject); Button2Click (Sender: TObject); FormCreate (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations};=record: string [20];: string [6];: integer;: real;;=record: string [20];: integer;;: TForm5;: file of z1;: file of z2;: z1;: z2;, i: integer;
{$ R *. dfm} TForm5.Button1Click (Sender: TObject); mn, mx: real;, naimmx: string [20]; (check, «check»); (check) ; mn:=0; mx:=0; not eof (check) do (check, x); mn=0 then:=x.cena;:=x.naimlek;; mx=0 then:=x.cena;:=x.naimlek; ; x.cena> mx then:=x.naimlek;:=x.cena;; x.cena
