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

Паскаль. лабораторную доделать. неуспеваю. код рабочий, надо описать значения переменных и по возможности описать сам алгоритм. описание переменных

• a, b –

• midx, midy -

• sum -

• g -

• t -

• x, y –

• m –

• i –

• n -

• s -

описание алгоритма

1.

код программы

uses crt, graphabc;

var a, b: real;

midx, midy: integer;

g: integer;

t: real;

x, y: real;

m: real;

i: integer;

n: integer;

s: string;

begin

hidecursor;

writeln('введите a');

readln(a);

writeln('введите b');

readln(b);

clearwindow;

setwindowtitle ('кривая');

setwindowsize(500,500);

midx : = windowwidth div 2;

midy : = windowheight div 2;

if b> a then

begin

m: =(midx-30)/(2*b);

n: =trunc(2*b)+1;

end

else

begin

m: =(midx-30)/(2*a);

n: =trunc(2*a)+1;

end;

for i: =1 to n do

begin

str(i,s);

textout(midx+round(i*m)+5,midy+10,s);

textout(midx-round(i*m)+5,midy+10,'-'+s);

textout(midx-20,midy+round(i*m),s);

textout(midx-20,midy-round(i*m),'-'+s);

line(midx+round(i*m),0,midx+round(i*m),2*midy);

line(midx-round(i*m),0,midx-round(i*m),2*midy);

line(0,midy+round(i*m),2*midx,midy+round(i*m));

line(0,midy-round(i*m),2*midx,midy-round(i*m));

end;

textout(midx+4,midy+10,'0');

setpenwidth(3);

line(0, midy, windowwidth, midy);

line(midx, 0, midx, windowheight);

setpencolor(clred);

for g : = 0 to 360 do

begin

t : = g * pi / 180;

x : = midx + m*b * sqr(cos(t)) + m*a * cos(t);

y : = midy + m*b * cos(t) * sin(t) + m*a * sin(t);

if g = 0 then moveto(round(x), round(y))

else lineto(round(x), round(y));

end;

end.

👇
Открыть все ответы
Ответ:
Сашок311
Сашок311
04.04.2023
1. Допустим,что учитель сказал правду Савелию, тогда у Савелия оценка 4 или 3. У Виталия тогда оценка 3, так как учитель ошибся, а у Аркадия или 5 или 4.
Савелий-4
Виталий-3
Аркадий-5.
ЭТО ВОЗМОЖНО!

2. Допустим, что учитель сказал правду Виталию, тогда у него оценка 4 или 5, тогда у Савелия 5, а у Аркадия 4 или 5, так как учитель ошибся.
Савелий-5
Виталий-4 или 5
Аркадий-4 или 5
НЕ У КОГО НЕТ ОЦЕНКИ 3, А ЭТОГО БЫТЬ НЕ МОЖЕТ

3.Допустим, что учитель сказал правду Аркадию, тогда у него оценка 3, тогда у Савелия 3 или 4, так как учитель ошибся, а у Виталия оценка 3, так как учитель ошибся.
Савелий-3 или 4
Виталий-3
Аркадий-3
НЕ У КОГО НЕТ ОЦЕНКИ 5,А ЭТОГО БЫТЬ НЕ МОЖЕТ.
ответ:
Савелий-4
Виталий-3
Аркадий-5
4,8(99 оценок)
Ответ:
севга
севга
04.04.2023

1.Графика – бейнелеу өнерінің бір жанры. Кескіндеме жанрында түс пен бояу негізгі рөл атқарса, графикада (гр. graphein гр. grapho– жазамын) сызықтар, штрихтар, ашық және қара (қоңыр) дақтардың арақатынасы шешуші рөл атқарады, сондай-ақ заттардың ең негізгі белгілері таңдап алынады.

2.1)гылыми графика

2)конструкторлык графика

3)искерлик графика

4)суреттеу графикасы

5)жарнамалык графика

3.Әдетте, бұл жалғыз көп түсті нүкте. Бейнесызбалық объектілерді бейнелеу үшін қолданылады. Мысалы, дисплей бетіндегі әрбір әріп бірнеше нүктеден тұрады. Осы нүктелер бейне элементтері болып табылады. Әрбір құрастырылатын қатар осындай бірнеше пиксельден тұрады. Пиксельдің көрсетілуі немесе көрсетілмеуі бейнежадтың тиісті разрядының қалып-күйіне байланысты.

4.бул сурак суретте көрсетілген.


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