SHARE
TWEET

Untitled

a guest Jan 18th, 2020 71 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Project8;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.   System.SysUtils;
  9.   type TCar = class(TObject)
  10.     Mark: String;
  11.     Speed: Integer;
  12.     MaxSpeed: Integer;
  13.     procedure SetSpeed(s : Integer);
  14.     procedure SetMaxSpeed(s : Integer);
  15.     procedure SetMark(s : String);
  16.   end;
  17.   procedure TCar.SetSpeed(s : Integer);
  18.   begin
  19.     if (MaxSpeed <= s) then  begin
  20.     Speed:= s;
  21.     Writeln('Скорость установлена ', - s);
  22.     end else Writeln('Скорость слишком большая!');
  23.   end;
  24.   procedure TCar.SetMaxSpeed(s : Integer);
  25.   begin
  26.     Speed:= s;
  27.     Writeln('Максимальная скорость установлена ', - s);
  28.   end;
  29.   procedure TCar.SetMark(s : String);
  30.   begin
  31.     Mark:= s;
  32.     Writeln('Скорость марка ', - s);
  33.   end;
  34.   var
  35.   car: TCar;
  36.   i:Integer;
  37.   k: String;
  38. begin
  39.   car:= TCar.create;
  40.   Writeln('Введите макс. скорость');
  41.   Readln(i);
  42.   car.SetMaxSpeed(i);
  43.   Writeln('Введите скорость');
  44.   Readln(i);
  45.   car.SetSpeed(i);
  46.   Writeln('Введите марку');
  47.   Readln(k);
  48.   car.SetMark(k);
  49.   Readln;
  50. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top