Задание на лабораторную работу № 7 “Процедуры и функции”.
Вариант 1.
Напишите программу, состоящую из трех процедуры и основной программы. Первая процедура организует ввод двух целых чисел X и Y, вторая проверяет их сумму, третья выводит результат. Используйте эти процедуры в основной программе. Используйте X и Y как глобальные переменные.
Задание 1.
Program rr;
procedure Readp(s,t:integer; var r,e:integer);
begin
Writeln('Write two numbers');
readln(s,t);
r:=s;
e:=t;
end;
procedure SumXandY(s,t:integer; var sre:integer);
begin
sre:=s+t;
end;
procedure Writep(s:integer;var t:integer);
begin
Writeln('Sum:=',s);
end;
Var sum , x, y, empty : integer;
Begin
Read p( 0, 0 , x , y );
Sum XandY (чбнб sum);
Writep (sum, empty );
ReadLn;
End.
Задача 2.
Program rr;
Uses Lep;
Var sum , X, y, empty : integer;
Begin
Read p( 0, 0 , x , y );
Sum XandY (чбнб sum);
Writep (sum, empty );
ReadLn;
End.
Unit lep;
Interface
procedure Readp(s,t:integer; var r,e:integer);
procedure SumXandY(s,t:integer; var sre:integer);
procedure Writep(s:integer;var t:integer);
implementation
procedure Readp(s,t:integer; var r,e:integer);
begin
Writeln('Write two numbers');
readln(s,t);
r:=s;
e:=t;
end;
procedure SumXandY(s,t:integer; var sre:integer);
begin
sre:=s+t;
end;
procedure Writep(s:integer;var t:integer);
begin
Writeln('Sum:=',s);
end;
end.
Задание 3.
program qqq;
type
Fist = object
s,t:integer;
procedure Readp;
procedure SumXandY;
procedure Writep;
end;
procedure fist.Readp;
begin
Writeln('Write two numbers');
readln(s,t);
end;
procedure fist.SumXandY;
begin
s:=s+t;
end;
procedure fist.Writep;
begin
Writeln('Sum:=',s);
end;
var c:fist;
begin
c.Readp;
c.SumXandY;
c.Writep;
readln;
end.
“Процедуры и функции” на Delphi 7
unit e5rte4
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
int :integer;
number1, number2:integer;
Implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if (int = 0) then
begin
label1.Caption:='';
number1 := StrtoInt(Edit1.Text);
edit1.text:='';
Button1.Visible:= false;
button2.Visible:= true;
int:=1;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if (int = 1) then
begin
number2 := Strtoint(Edit1.Text);
number1:= number1 + number2;
label1.Caption := floattoStr(number1);
edit1.text:='';
Button1.Visible:= true;
button2.Visible:= false;
number1:=0;
number2:=0;
int:=0;
end;
end;
end.
Отчет «Калькулятор»
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TCalc = class(TForm)
B1: TButton;
B2: TButton;
B3: TButton;
B4: TButton;
B5: TButton;
B6: TButton;
B7: TButton;
B8: TButton;
B9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Edit1: TEdit;
Resert: TButton;
B0: TButton;
bCler: TButton;
Memo1: TMemo;
procedure B1Click(Sender: TObject);
procedure ResertClick(Sender: TObject);
procedure B2Click(Sender: TObject);
procedure B3Click(Sender: TObject);
procedure B4Click(Sender: TObject);
procedure B5Click(Sender: TObject);
procedure B6Click(Sender: TObject);
procedure B7Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure B8Click(Sender: TObject);
procedure B9Click(Sender: TObject);
procedure B0Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure bClerClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Calc: TCalc;
Number1:real; //первое число
Number2:real; //второе число
dey:integer; //номер действия
//0 плюс
//1 минус
//2 умножить
//3 делить
num:integer; //номер числа
//0 первое
//1 второе