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

• 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.

{данная программа переводит любое сочетание символов ascii в систему счисления заданную пользователем.}

//pascal abc.net v3.0 сборка 1111

var

  a,i,b,r,n,j,bug: integer;

  s,se,slo,slof: string;

procedure preob(var a,b,n: integer; var se: string);

  begin

  repeat

    b: =a mod n;

    a: =a div n;

    str(b,se);

    s+=se;

  until (a< =n-1);

  end;

beginreadln(slo);

readln(n);

for j: =1 to length(slo) do

begin;

a: =ord(slo[j]);

preob(a,b,n,se);

str(a,se);

s+=se;

for i: =1 to length(s) div 2 do

begin;

se: =s[i];

s[i]: =s[length(s)-i+1];

s[length(s)-i+1]: =se[1];

end;

write(s,'-');

slof: =slof+s;

delete(s,1,length(s));

end;

end.

пример ввода:

работа на завтра.

2

пример вывода:

11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-

{таким образом, фразу " работа на завтра." можно закодировать как "11000100-11101110-11101100-11100000-11111000-11101101-11111111-11111111-100000-11110000-11100000-11100001-11101110-11110010-11100000-100000-11101101-11100000-100000-11100111-11100000-11100010-11110010-11110000-11100000-101110-".}

1 sm('Игорь',18,189).

2 sm('Роман',17,182).

3 sm('Антон',20,191).

4 sm('Виктор',21,185).

5 sm('Николай',16,193).

6 % а) выбрать всех спортсменов выше 184 (включительно), но не выше 190;

7 % ?- findall( Name, (sm(Name, Age, Height), Height >= 184, Height < 190), Xs ).

8 % б) выбрать спортсменов моложе 20 лет, но не моложе 18 (включительно);

9 % ?- findall( Name, (sm(Name, Age, Height), Age < 20, Age >= 18), Xs ).

10 % в) выбрать всех спортсменов с ростом не ниже 186 и не старше 19 лет (включительно).

11 % ?- findall( Name, (sm(Name, Age, Height), Height > 186, Age =< 19), Xs ).