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

Help! в код проги рисующей параболу var g,h: integer; x,y: real; x0,y0,xm,ym,mx,my: integer; begin g: =detect; initgraph(g,h,''); begin line(0,round(getmaxy/2),getmaxx,round (getmaxy/2)); line (round (getmaxx/2),0,round(getmaxx/2),getmaxy); end; for xm: =20 to 620 do begin x: =(xm-x0)/mx; y: =x*x; ym: =round(y0-y*my); putpixel(xm,ym,15); end; readln; end. что означает begin x: =(xm-x0)/mx; y: =x*x; ym: =round(y0-y*my); ? зачем использовать его в коде? mx, my-масштабы соответственно по осям x и y, которые показывают число пикселей в одной единице, x, y- координаты точки, xm, ym- машинные координаты точки, x0, y0- машинные координаты начала системы координат.

👇
Ответ:
dksusjehdh
dksusjehdh
13.10.2022

Так это у тебя высчитывается пропорциональный коэффициент между положением точки на графике и отображением её на графическом экране. То есть на графике точка параболы с координатами (2;2), а на графическом экране  (220,200).    

4,5(88 оценок)
Открыть все ответы
Ответ:
Maximg01
Maximg01
13.10.2022
Var  i: integer;  begin
for i:=1 to 9 do  write(i);  writeln(10);
for i:=0 to 8 do  write(i);  writeln(9);
for i:=1 to 2 do  write('0');  for i:=1 to 7 do  write(i);  writeln('8');
for i:=1 to 3 do  write('0');  for i:=1 to 6 do  write(i);  writeln('7');
for i:=1 to 4 do  write('0');  for i:=1 to 5 do  write(i);  writeln('6');
for i:=1 to 5 do  write('0');  for i:=1 to 4 do  write(i);  writeln(5);
for i:=1 to 6 do  write('0');  for i:=1 to 3 do   write(i);  writeln('4');
for i:=1 to 7 do  write('0');  for i:=1 to 2 do  write(i);  writeln(3);
for i:=1 to 8 do  write('0');  write('1');writeln('2');
for i:=1 to 9 do  write('0');  writeln(1);  
end.

Как сделать более кратко не знаю. Но эта программа работает.
4,8(100 оценок)
Ответ:
RusyaBullet
RusyaBullet
13.10.2022
Const
  nn = 20;

var
  i, j, n: integer;
  a: array[1..nn, 1..nn] of integer;

begin
  writeln('Задайте размер матрицы n');
  readln(n);
  if n > nn then
    writeln('Вы превысили допустимый размер матрицы 20')
  else begin
    writeln('Матрица-результат');
    for i := 1 to n do
    begin
      writeln;
      for j := 1 to n do begin
        if i < j then a[i, j] := 1
        else if i = j then a[i, j] := 2
        else a[i, j] := 3;
        write(a[i, j]:2)
      end;
    end;
    writeln
  end
end.

Тестовый пример:

Задайте размер матрицы n
10
Матрица-результат

 2 1 1 1 1 1 1 1 1 1
 3 2 1 1 1 1 1 1 1 1
 3 3 2 1 1 1 1 1 1 1
 3 3 3 2 1 1 1 1 1 1
 3 3 3 3 2 1 1 1 1 1
 3 3 3 3 3 2 1 1 1 1
 3 3 3 3 3 3 2 1 1 1
 3 3 3 3 3 3 3 2 1 1
 3 3 3 3 3 3 3 3 2 1
 3 3 3 3 3 3 3 3 3 2
4,6(94 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ