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

Как реализуются все виды циклов.

👇
Открыть все ответы
Ответ:
ЕваЛя
ЕваЛя
10.05.2020
Uses crt,graphABC;
var a,m,n,j,i,x1,y1,x2,y2,x3,y3,x4,y4,kg,kv,p:integer;
    k:real;
    
procedure kvadrat;//рисование 1 квадрата
begin
setpencolor(clBlue);
moveto(x1,y1);
lineto(x2,y2);
lineto(x3,y3);
lineto(x4,y4);
lineto(x1,y1);
end;
 
begin
hidecursor;
repeat
write('Сторона квадрата от 20 до 100 a=');
read(a);
until a in [20..100];
repeat
writeln('Введите 2 числа для определения соотношени m<n:');
read(m,n);
until m<n;
clearwindow;
k:=m/n;//отношение
kg:=windowwidth div a+1; //кол. кв. по горизонтали
kv:=windowheight div a+1; //по вертикали
for j:=1 to kg do
for p:=1 to kv do
 begin
  for i:=1 to 50 do //рисуем 50 вложенных квадратов в 1 месте
   begin
    kvadrat;
    x1:=trunc(x1+(x2-x1)*k); y1:=trunc(y1+(y2-y1)*k);
    x2:=trunc(x2+(x3-x2)*k); y2:=trunc(y2+(y3-y2)*k);
    x3:=trunc(x3+(x4-x3)*k); y3:=trunc(y3+(y4-y3)*k);
    x4:=trunc(x4+(x1-x4)*k); y4:=trunc(y4+(y1-y4)*k);
   end;
x1:=a*(j-1); y1:=a*(p-1); //на новое место
x2:=a*j; y2:=a*(p-1);
x3:=a*j; y3:=a*p;
x4:=a*(j-1); y4:=a*p;
end;
 
 
end.

Втетради нарисовать орнамент из разноцветных прямоугольников, ромбов, квадратов, подготовить програм
4,4(12 оценок)
Ответ:
danchik56
danchik56
10.05.2020
Систе́мное програ́ммное обеспе́чение — комплекс программ, которые обеспечивают управление компонентами компьютерной системы, такими как процессор, оперативная память, устройства ввода-вывода, сетевое оборудование, выступая как «межслойный интерфейс», с одной стороны которого аппаратура, а с другой — приложения пользователя.

Антивирус выступает "межслойным интерфейсом" между железом и приложениями? Нет. Архиватор? Нет. Мультимедиа проигрыватели? Нет.
ответ: Антивирусы, архиваторы, мультимедиа проигрыватели - прикладное ПО.
4,6(58 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ