Курсовая работа: Проект разработки программы-калькулятора CalcKurs на языке программирования Pascal

until q in ['N','n'];

clrscr;

end;{NodNok}

{----------------------------------------}

procedure SuperGorner;

type

vector= array[1..11] of integer;

rvector=array[1..100] of real;

var

sum,suma:real;

i,k,j,b,c,a,n:integer;

vec:vector;

vecb:rvector;

veca:rvector;

q:char;

BEGIN

Writeln('Введите степень уравнения (max = 10)');

Readln(n);

if n<=0 then writeln(‘степень не может быть<=0’)

else begin

Inc(n);

writeln('введите его коэффициенты:');

for i := 1 to n do

read(vec[i]);

while vec[i]=0 do

Begin

i:=i-1;

writeln('ответ:0');

End;