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

Как нарисовать цилиндр в паскале при том что ввод высоты и радиуса окружности вводится с клавиатуры(обязательно! )

👇
Ответ:
7Kamilla
7Kamilla
26.03.2022
Uses GraphABC;

begin
  var R:=ReadInteger('R=');
  var h:=ReadInteger('h=');
  ClearWindow;
  var Ax:=Trunc(300-1.22*R);
  var Bx:=Trunc(300+1.22*R);
  var Ay:=Trunc(100+0.71*R);
  var By:=Trunc(100-0.71*R);
  DrawEllipse(Ax,Ay,Bx,By);
  Line(Ax,100,Ax,100+h);
  Line(Bx,100,Bx,100+h);
  DrawEllipse(Ax,Ay+h,Bx,By+h);
  FillEllipse(Ax,Ay+h-3,Bx,By+h-3);
end.

Для примера введите числа 50 и 150.
"Магические коэффициенты" 1.22 и 0.71 - это коэффициенты искажения окружности по осям в изометрической проекции.
4,6(34 оценок)
Ответ:
Uses graphabc;

 begin
  window.Init(0, 0, 800, 600, clwhite);
  window.IsFixedSize := true;
  var r:=ReadInteger('R=');
  var h:=ReadInteger('h=');
  pen.Width := 4;
  DrawEllipse(100, 100, 100 + r, 100 + r - (r div 2));
  line(100, (100 + r - (r div 2) + 100) div 2, 100, ((100 + r - (r div 2) + 100 + h + h) div 2));
  line(100 + r, (100 + r - (r div 2) + 100) div 2, 100 + r, ((100 + r - (r div 2) + 100 + h + h) div 2));
  DrawEllipse(100, 100 + h, 100 + r, 100 + r - (r div 2) + h);
end.
4,4(49 оценок)
Открыть все ответы
Ответ:
vashchilkophoto
vashchilkophoto
26.03.2022
Недоступная - Сообщение на незнакомом языке.
Недостоверная - статья написанная на малоизученную тему
Несвоевременная - информация, о которой ещё рано говорить. Например, пора начинать готовится к Новому Году( а зачем так рано сегодня только июнь).
 Неустойчивая - сегодня  пятница 16 июня ( т.е. проще события, которые постоянно меняются. Например, дни недели, числа, месяцы и т.д.) Доступная - информация, которая доступна в данный момент времени.
Достоверная - информация, поступившая из достоверного источника
Своевременная - информация, которая пришла во время или ко времени.
Устойчивая - теоремы, правила не поддающиеся опровержению. Например, сумма углов треугольника равна 180 градусам.
4,5(33 оценок)
Ответ:
Вот значения при которых мы получим такой ответ:
9 10 11 12 13 14 15 16 17 18 19 20
Наибольшее = 20.

Прости, нашел я это глупым методом поставив цикл for k:0 to 1000000
и выводя все значения. Ибо нету времени разбираться... Не знаю так-же что такое longint , потом обязательно для себя рассмотрю что это :)

Вот пример того как я это нашел, хоть медот и тупой, но он работает:
var k, i,max,m : longint;
 function f(n: longint): longint; 
begin f := n * n * n; 
end; 
function g(n: longint): longint;
 begin g := 3*n + 3; 
end; 
begin i := 1; 
for k:=0 to 1000000 do begin
while f(i) < g(k) do i := i+1;
 if i=4 then writeln(k);
end;
end.
4,4(3 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ