М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Написать код! опишите несколько классов towncar, sportcar, workcar, policecar у каждого класса должны быть следующие атрибуты: speed, color, name, is_police - булево значение. а так же несколько методов: go, stop, turn(direction) - которые должны сообщать, о том что машина поехала, остановилась, повернула(куда)

👇
Ответ:
nikita71140
nikita71140
06.02.2023
Using System;
namespace Cars{    public enum Direction    {        Left,        Right    }
    public class TurnEventArgs : EventArgs    {        public TurnEventArgs(Direction direction)        {            Direction = direction;        }
        public Direction Direction { get; }    }
    public abstract class Car    {        public event EventHandler Started;        public event EventHandler Stopped;        public event EventHandler<TurnEventArgs> Turned;
        public int Speed { get; set; }        public string Color { get; set; }        public string Name { get; set; }        public virtual bool IsPolice => false;
        public void Go()        {            Started?.Invoke(this, EventArgs.Empty);        }
        public void Stop()        {            Stopped?.Invoke(this, EventArgs.Empty);        }
        public void Turn(Direction direction)        {            Turned?.Invoke(this, new TurnEventArgs(direction));        }    }
    public class TownCar : Car { }
    public class SportCar : Car { }
    public class WorkCar : Car { }
    public class PoliceCar : Car    {        public override bool IsPolice => true;    }}
4,6(78 оценок)
Открыть все ответы
Ответ:
KALINACHKA
KALINACHKA
06.02.2023
Program N70231806_1;
var a:array[ 1 .. 10 ] of shortint;
i:byte;
t:shortint;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to 10 do
begin
a[ i ] := random(21) - 10;
write(a[ i ]:4)
end;
writeln;
t := a[ 10 ];
for i := 10 downto 2 do
a[ i ] := a[ i - 1 ];
a[ 1 ] := t;
writeln('Результат: ');
for i := 1 to 10 do
write(a[ i ]:4);
readln
end.

2)
program N70231806_2;
var a:array[ 1 .. 12 ] of shortint;
i, j:byte;
t:shortint;
begin
randomize;
writeln('Исходный массив: ');
for i := 1 to 12 do
begin
a[ i ] := random(25) - 10;
write(a[ i ]:4)
end;
writeln;
for j := 1 to 4 do
begin
t := a[ 12 ];
for i := 12 downto 2 do
a[ i ] := a[ i - 1 ];
a[ 1 ] := t
end;
writeln('Результат: ');
for i := 1 to 12 do
write(a[ i ]:4);
readln
end.
4,5(37 оценок)
Ответ:
Уля404
Уля404
06.02.2023
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 uses crt; var n: longint;     k: byte;   procedure KRZ (c: longint; var kz: byte); var m: set of byte;     z: byte; begin if c<0 then c:=c*(-1); if c=0 then kz:=1 else    begin    m:=[];    kz:=0;    while c>=1 do          begin          if not (c mod 10 in m) then             begin             inc(kz);             m:=m+[c mod 10];             end;          c:=c div 10;          end;    end; end;   begin write('n='); readln(n); KRZ (n,k); writeln(k,' различных цифр'); readln; end.
4,5(43 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ