Паскаль. лабораторную доделать. неуспеваю. код рабочий, надо описать значения переменных и по возможности описать сам алгоритм. описание переменных
• 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.
1. Мощность - 64 символа, Объем информации - 30 байт
2. 16 символов
3. 2 и 3 байта соответственно
Объяснение:
1. Формула(Ф1) объема информации , где I - объем в битах, k - количество символов, i - вес одного символа. Подставляем значения: I=40*6=240бит. Т.к. 1байт = 8 бит, то I= 240/8=30 байт.
Мощность алфавита (N) вычисляется по формуле(Ф2) , где i - информационный вес одного символа. Подставляем значения: символа.
2. Объем сообщения 0,5 КБайта, а т.к 1 КБ= байт = бит, то объем сообщения равен бит.
Количество символов в тексте = кол-во символов в строке * кол-во строк * кол-во страниц = символов.
По формуле Ф1 получаем, что , откуда вес одного символа равен бита.
По формуле Ф2 получаем символов
3. Объем первого сообщения бит, второго - бит. Количество символов первого сообщения символов, второго - символов. По формуле Ф1 получаем, что . Подставляем значения: полученные значения в БИТАХ.
т.к. 1 байт = 8 бит, то получаем значения в байтах
#include <iostream>
using namespace std;
int main()
{
int x;
cout << "Введите значение X: ";
cin >> x;
if (x >= -4 && x <= 1)
{
cout << "1";
}
else
{
cout << "0";
}
}
Объяснение:
#include <iostream> // Библиотека ввода - вывода
using namespace std; // Пространство имён
int main()
{
int x; // Создание целочисленной переменной x
cout << "Введите значение X: "; // Вывод сообщения в консоль
cin >> x; // Вводим значение с клавиатуры
if (x >= -4 && x <= 1) // Если значение переменной x ≥ -4 И ≤ 1
{
cout << "1"; // Выводим 1
}
else // Иначе
{
cout << "0"; // Выводим 0
}
}