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

с программированием на C#

Разработать систему классов для геометрических фигур.
1. Определите систему классов: «Фигура», «Прямоугольник», «Квадрат», «Прямоугольный параллелепипед», «Куб», «Заштрихованный прямоугольник», «Пирамида четырехугольная».
2. Определите в этих классах методы, которые:
• перемещают фигуру по плоскости (на заданное расстояние или в нужную позицию);
• масштабируют фигуру;
• вычисляют и возвращают площадь фигуры, периметр;
• возвращают строку символов, отражающую имя класса и состояние объекта (его основные характеристики);
• рисуют фигуру в консоли или на форме (для объемных фигур достаточно проекции, например, изометрической или диметрической).

👇
Открыть все ответы
Ответ:
BOSS11112711
BOSS11112711
30.09.2022
Эта автоматически тебе всё сделает.
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      a[i]:=i+1;
      if max<a[i] then max:=a[i];
      writeln(a[i]);
end;
  writeln('Максимальный элемент равен: ',max);
end.

Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      ReadLn (a[i]);
      if max<a[i] then max:=a[i];
end;
  writeln('Максимальный элемент равен: ',max);
end.
4,4(87 оценок)
Ответ:
sosisckalizcka
sosisckalizcka
30.09.2022
Эта автоматически тебе всё сделает.
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      a[i]:=i+1;
      if max<a[i] then max:=a[i];
      writeln(a[i]);
end;
  writeln('Максимальный элемент равен: ',max);
end.

Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      ReadLn (a[i]);
      if max<a[i] then max:=a[i];
end;
  writeln('Максимальный элемент равен: ',max);
end.
4,5(57 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ