Вставьте код в код турбо вижиона правильно

@ЕвгенийТрын · Регистрация: 28.08.2015

Author24 — интернет-сервис помощи студентам

Код:

Pascal

var
x,y:integer;
s:real;
begin
writeln('Vvedite 4isla x and y');
readln(x);
readln(y);
  begin
  if(x<0)and(y>0) then s:=1-exp(x+y)
  else if(x>0)and(y>0) then s:=x+y
  else s:=sqr(sin(x+y));
  end;
writeln('Otvet',' ',s);
end.

Турбо вижион:

Pascal

uses Objects, App, Drivers, Dialogs, Menus, Views, MsgBox;
 
  function IntToStr(n : integer) : string;
  var s : string;
  begin
    Str(n, s);
    IntToStr := s;
  end;
  function StrToInt(s : string) : integer;
  var
    i, Code : integer;
  begin
    Val(s, i, Code);
    StrToInt := i;
  end;
 
const
  cmGo   = 1001;
  cmExit = 1002;
 
  ShowFirstTask  = 1010;
  ShowSecondTask = 1011;
  ShowThirdTask  = 1012;
 
type
  PTaskDialog = ^TTaskDialog;
  TTaskDialog = object(TDialog)
    sIn, sOut : PInputLine;
 
    constructor Init(R : TRect; Caption : string);
    procedure HandleEvent(var Event : TEvent); virtual;
  private
    function DoAction : string; virtual;
    procedure Action; virtual;
  end;
  PFirstTaskDialog = ^TFirstTaskDialog;
  TFirstTaskDialog = object(TTaskDialog)
    constructor Init;
  private
    function DoAction : string; virtual;
  end;
  PSecondTaskDialog = ^TSecondTaskDialog;
  TSecondTaskDialog = object(TTaskDialog)
    constructor Init;
  private
    function DoAction : string; virtual;
  end;
  PThirdTaskDialog = ^TThirdTaskDialog;
  TThirdTaskDialog = object(TTaskDialog)
    constructor Init;
  private
    sIn2, sIn3 : PInputLine;
    function DoAction : string; virtual;
  end;
 
  PMyApp = ^TMyApp;
  TMyApp = object(TApplication)
    procedure InitStatusLine; virtual;
    procedure InitMenuBar; virtual;
 
    procedure HandleEvent(var Event: TEvent); virtual;
  end;
 
procedure TMyApp.InitMenuBar;
var
  R: TRect;
begin
  GetExtent(R);
  R.B.Y := R.A.Y + 1;
  MenuBar := New(PMenuBar, Init(R, NewMenu(
  NewSubMenu('~F~ile', hcNoContext, NewMenu(
      NewItem('Task #~1~...','', kbNoKey, ShowFirstTask, hcNoContext,
      NewItem('Task #~2~...','', kbNoKey, ShowSecondTask, hcNoContext,
      NewItem('Task #~3~...','', kbNoKey, ShowThirdTask, hcNoContext,
      NewLine(
      NewItem('E~x~it', 'Alt-X', kbAltX, cmQuit, hcNoContext, nil)))))), nil))));
end;
 
procedure TMyApp.InitStatusLine;
var R : TRect;
begin
  GetExtent(R);
  R.A.Y := pred (R.B.Y);
  StatusLine := New(PStatusLine, Init(R,
  NewStatusDef(0, $FFFF,
      NewStatusKey('~Alt-X~ Exit', kbAltX, cmQuit,
      NewStatusKey('#~1~', kbNoKey, ShowFirstTask,
      NewStatusKey('#~2~', kbNoKey, ShowSecondTask,
      NewStatusKey('#~3~', kbNoKey, ShowThirdTask,
      NIL)))),
      NIL)));
end;
 
constructor TTaskDialog.Init(R : TRect; Caption : string);
begin
  inherited Init(R, Caption);
end;
 
function TTaskDialog.DoAction : string;
begin
  Abstract;
end;
 
procedure TTaskDialog.Action;
var
  Value : string;
begin
  Value := DoAction;
  sOut^.SetData(Value);
end;
 
 
procedure TTaskDialog.HandleEvent(var Event : TEvent);
begin
  inherited HandleEvent(Event);
  if Event.What = evCommand then
  begin
    case Event.Command of
      cmGo   : Action;
      cmExit : Close;
    end;
    ClearEvent(Event);
  end;
end;
 
 
constructor TFirstTaskDialog.Init;
var
  R : TRect;
  C : Word;
  Count : Integer;
begin
  Count := 45;
  { Create a dialog }
  R.Assign(15, 5, 65, 16);
  inherited Init(R, 'Task #1');
  R.Assign(20,3,31,4);
  sIn := New(PInputLine, Init(R, Count));
  Insert(sIn);
 
  R.Assign(3, 2, 19,4);
  Insert(New(PStaticText, Init(R, 'Введите число секунд')));
 
 
  R.Assign(33,2,45,4);
  Insert(New(PButton, Init(R, 'Go', cmGo, bfNormal)));
  R.Assign(33,5,45,7);
  Insert(New(PButton, Init(R, 'Close', cmExit, bfNormal)));
 
  R.Assign(3, 8, 11, 9);
  Insert(New(PStaticText, Init(R, 'Result')));
  R.Assign(12, 8, 45, 9);
  sOut := New(PInputLine, Init(R, Count));
  Insert(sOut);
end;
 
function TFirstTaskDialog.DoAction : string;
var
  sec, min, hr : integer;
  s : string;
  Value : string;
begin
  sIn^.GetData(s);
  sec := StrToInt(s);
 
  min := sec div 60;
  sec := sec mod 60;
  hr := min div 60;
  min := min mod 60;
 
  DoAction := 'Прошло: ' + IntToStr(hr) + ' ч., ' +
                            IntToStr(min) + ' мин. и ' +
                            IntToStr(sec) + ' сек.';
end;
constructor TSecondTaskDialog.Init;
var
  R : TRect;
  C : Word;
  Count : Integer;
begin
  Count := 45;
  { Create a dialog }
  R.Assign(15, 5, 65, 16);
  inherited Init(R, 'Task #2');
  R.Assign(20,3,31,4);
  sIn := New(PInputLine, Init(R, Count));
  Insert(sIn);
 
  R.Assign(3, 2, 19,4);
  Insert(New(PStaticText, Init(R, 'Введите n')));
 
 
  R.Assign(33,2,45,4);
  Insert(New(PButton, Init(R, 'Go', cmGo, bfNormal)));
  R.Assign(33,5,45,7);
  Insert(New(PButton, Init(R, 'Close', cmExit, bfNormal)));
 
  R.Assign(3, 8, 11, 9);
  Insert(New(PStaticText, Init(R, 'Result')));
  R.Assign(12, 8, 45, 9);
  sOut := New(PInputLine, Init(R, Count));
  Insert(sOut);
end;
 
function TSecondTaskDialog.DoAction : string;
var
  n, i, a, b : integer;
  s : string;
begin
  sIn^.GetData(s);
  n := StrToInt(s);
 
  s := '';
  for i := 1 to 1 + n - 1 do
  begin
    b := i;
    a :=(b*b*b) - (17*b*sqr(n)) + sqr(n);
    if a mod 2 = 0 then
      if a mod 3 <> 0 then s := s + IntToStr(a) + ' ';
  end;
  DoAction := s;
end;
 
constructor TThirdTaskDialog.Init;
var
  R : TRect;
  C : Word;
  Count : Integer;
begin
  Count := 45;
  { Create a dialog }
  R.Assign(15, 5, 65, 16);
  inherited Init(R, 'Task #3');
 
  R.Assign(3, 2, 19,4);
  Insert(New(PStaticText, Init(R, 'Введите i, s, a')));
 
 
  R.Assign(33,2,45,4);
  Insert(New(PButton, Init(R, 'Go', cmGo, bfNormal)));
  R.Assign(33,5,45,7);
  Insert(New(PButton, Init(R, 'Close', cmExit, bfNormal)));
 
  R.Assign(3, 8, 19, 9);
  Insert(New(PStaticText, Init(R, 'Result')));
  R.Assign(20, 8, 45, 9);
  sOut := New(PInputLine, Init(R, Count));
  Insert(sOut);
 
  R.Assign(3,3,10,4);
  sIn := New(PInputLine, Init(R, Count));
  Insert(sIn);
  R.Assign(12,3,19,4);
  sIn2 := New(PInputLine, Init(R, Count));
  Insert(sIn2);
  R.Assign(21,3,28,4);
  sIn3 := New(PInputLine, Init(R, Count));
  Insert(sIn3);
end;
 
function TThirdTaskDialog.DoAction : string;
var
  k, i, s, a : integer;
  st : string;
begin
  sIn^.GetData(st);
  i := StrToInt(st);
  sIn2^.GetData(st);
  s := StrToInt(st);
  sIn3^.GetData(st);
  a := StrToInt(st);
 
  k := 0;
 
  if i mod 2 = 0 then k := k+1;
  if s mod 2 = 0 then k := k+1;
  if a mod 2 = 0 then k := k+1;
  if k = 3 then
    DoAction := 'yes'
  else
    DoAction := 'no';
end;
 
 
procedure TMyApp.HandleEvent(var Event: TEvent);
begin
  TApplication.HandleEvent(Event);
  if Event.What = evCommand then
  begin
    case Event.Command of
      ShowFirstTask:
        InsertWindow(New(PFirstTaskDialog, Init));
      ShowSecondTask:
        InsertWindow(New(PSecondTaskDialog, Init));
      ShowThirdTask:
        InsertWindow(New(PThirdTaskDialog, Init));
    else
      Exit;
    end;
    ClearEvent(Event);
  end;
end;
 
var
  MyApp: TMyApp;
 
begin
  MyApp.Init;
  MyApp.Run;
  MyApp.Done;
end.

Добавлено через 14 минут
Вот в это меню, выше не то меню

Pascal

 program TFirst;
 
     uses App, Objects, Menus, Drivers, Views;
       const
       cmNewWin = 199;
       cmFileOpen = 200;
       WinCount: Integer =   0;
     type
 
       PDemoWindow = ^TDemoWindow;
       TDemoWindow = object(TWindow)
       end;
       TMyApp = object(TApplication)
       procedure InitStatusLine; virtual;
       procedure InitMenuBar; virtual;
       procedure NewWindow; virtual;
       procedure HandleEvent(var Event: TEvent); virtual;
       end;
 
 procedure TMyApp.InitMenuBar;
     var R: TRect;
     begin
       GetExtent(R);
       R.B.Y := R.A.Y + 1;
       MenuBar := New(PMenuBar, Init(R, NewMenu(
         NewSubMenu('~F~ile', hcNoContext, NewMenu(
         NewItem('~O~pen', 'F3', kbF3, cmFileOpen, hcNoContext,
         NewItem('~O~pen window', 'F4', kbF4, cmNewWin, hcNoContext,
          nil))),nil))));
     end;
 
 
 
 
procedure TMyApp.InitStatusLine;
var R: TRect;
begin
  GetExtent(R);
  R.A.Y := R.B.Y - 1;
  StatusLine := New(PStatusLine, Init(R,
    NewStatusDef(0, $FFFF,
      NewStatusKey('~Alt-X~ Exit', kbAltX, cmQuit,
      NewStatusKey('~F4~ New', kbF4, cmNewWin,
      NewStatusKey('~Alt-F3~ Close', kbAltF3, cmClose,
      nil))),nil)));
end;
 
 procedure TMyApp.NewWindow;
var
  Window: PDemoWindow;
  R: TRect;
begin
  Inc(WinCount);
  R.Assign(0, 0, 26, 7);
  R.Move(Random(58), Random(16));
  Window := New(PDemoWindow, Init(R, 'Demo Window', WinCount));
  DeskTop^.Insert(Window);
end;
procedure TMyApp.HandleEvent(var Event: TEvent);
begin
TApplication.HandleEvent(Event);
if Event.What = evCommand then
begin
case Event.Command of
cmNewWin: NewWindow;
else
Exit;
end;
ClearEvent(Event);
end;
end;

	10.12.2015, 18:27