tonuo84
27.05.2023 08:52

ответь на во Какой вид графики используется в QBasic
2 Как включается графический режим в QBasic
3 Какой режим включен по умолчанию в QBasic
4 Где начинается координатная сетка экран в графическом режиме
5 На какие элементы можно разбить любое графическое изображение
6 Какой оператор используется для обозначения точки
7 Какой оператор используется для обозначения линии
8 Какой оператор используется для обозначения окружности
9 LINE (X1, Y1)-(X2, Y2), С Это запись
10 LINE (XI, Y1)-(X2, Y2), С, В Это запись...
11 LINE (XI, Y1)-(X2, Y2), С, BF Это запись
12 При рисовании окружности задаются следующие параметры
13 Что означает буква R в записи CIRCLE (X, Y), R, С
14 Если коэффициент сжатия эллипса к=1 то это...
15 PAINT (X, Y), C1, C2 Это оператор
16 Что будет, если закрашивать незамкнутый контур?
17 Сколько операторов необходимо для построения треугольника
это все во про програму QBasic

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
olgazubok1
04.05.2022 03:34
ОС Windows более распространена, потому что небольшая компания Майкрософт вовремя и удачно предложила свою новую операционную систему DOS гиганту IBM, который всё же решил снизойти до рынка Персональных Компьютеров и создал в итоге целую архитектуру IBM PC, открытую и общедоступную. Т.е. компьютеры по таким стандартам, периферию и ПО к ним могла делать любая фирма, а не только IBM. В то время это было необычно. "IBM PC совместимых" компьютеров стало ооочень много в мире и практически на всех стояла MS-DOS, а затем и Windows.
0,0(0 оценок)
Ответ:
altay2007
03.07.2022 17:28
Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота