Mandarini123443
14.03.2022 01:04

написать программы на Pascal связанные с графикой:
1. Написать программу, производящую перемещение серого круга радиусом 30 пикселей по траектории в виде треугольника, одна вершина которого находится в левом верхнем углу рабочего окна, а остальные – являются серединами нижней и правой сторон окна. Круг не должен выходить за пределы рабочего окна. Размер окна задается пользователем, цвет фона – зеленый. Перемещение производить до нажатия пользователем любой клавиши на клавиатуре.
2. Написать программу, рисующую ровно по центру рабочего окна прямоугольник, состоящий из соприкасающихся друг с другом кругов радиусом 15 пикселей, размером 5 кругов в ширину и 6 кругов в высоту. Круги должны быть двух цветов – красного и зеленого и должны располагаться в шахматном порядке.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Niks78492986
20.06.2020 22:25
// Задача решается длинной арифметикой
VAR
   a,b,c: String;
   i, s: LongInt;

Procedure Sum(var a, b: String);
Var i, p, c1,c2: LongInt;
Begin
   while (Length(a) < Length(b)) do a := '0' + a;
   while (Length(b) < Length(a)) do b := '0' + b;

   p := 0;
   for i := Length(a) downto 1 do begin
      c1 := Ord(a[i]) - 48;
      c2 := Ord(b[i]) - 48;

      a[i] := Chr(48 + (c1 + c2 + p)mod 10);
      p := (c1 + c2 + p) div 10;  
   end;

   if (p > 0) then a := Chr(p + 48) + a;
End;

BEGIN
   a:= '2013';
   b:= '2014';

   for i := 3 to 2014 do begin
      Sum(a, b);
      c := a; a := b; b := c;  
   end;

   Writeln(c);

   s := 0;
   for i := 1 to Length(c) do
      s := s + Ord(c[i]) - 48;

   Writeln('Сумма цифр числа = ', s);
END.
0,0(0 оценок)
Ответ:
alibekovberkut
27.01.2022 18:15
Я так понимаю, что рассматривается ситуация, когда текстовая информация имеется, а ее надо как-то проанализировать.
Недостатки
 - сложно ставить пометки, мы привыкли делать пометки руками, и в электронном виде это все равно несколько неудобно.
 - самый большой недостаток, это то что нельзя выложить несколько листов и смотреть на них одновременно. Упираемся в размеры монитора и тд.
- усталость глаз от долговременной работы с монитором

Опять таки ко всему можно при если часто приходится делать, но для одноразового случая лучше распечатать информацию
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота