Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...

^ Процедуры и функции

  1. В каком месте программки и в каком порядке размещаются функции и процедуры? Сравните с алгоритмическим языком.

  2. Что такое локальные и глобальные переменные и как они различаются на языке Паскаль? Сравните с Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... алгоритмическим языком.

  3. Как смотрится заголовок процедуры на языке Паскаль?

  4. Как смотрится заголовок функции на языке Паскаль?

  5. Что собой представляет содержательная часть процедуры на языке Паскаль?

  6. Что собой представляет содержательная часть Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... функции на языке Паскаль?

  7. Как различить по заголовку процедуры на языке Паскаль аргументы, результаты и промежные величины?

  8. Сравните правила записи процедур на Паскале и на школьном алгоритмическом языке.

  9. Сравните правила записи функций на Паскале и Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... на школьном алгоритмическом языке.

  10. Сформулируйте правила воззвания к функции и к процедуре.

  11. Что такое формальные и фактические характеристики?

  12. Какая связь существует меж формальными и фактическими параметрами?

  13. Какие виды характеристик могут быть указаны Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... при описании процедуры либо функции в ее заголовке?

  14. Зачем употребляются параметры-значения?

  15. Зачем употребляются параметры-переменные?

  16. Найдите синтаксические ошибки в последующих командах:

  1. Procedure (var a:real, b,s:char; var d:real Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...);

  2. Procedure(b[1]+b[2],b[2]+b[3],b[3]+b[1],b[2]);

  3. Procedure str(a;b;c:integer; var s:real);

  4. ...

    1. str(k[1],k[2],k[3],k[4]);

  5. 4.procedure prim(k:real; var p,integer)
    ...

    1. prim Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...(a+b,a-b);

  1. 5.function r(a:real;var b;t:real);

  2. ...

    1. k:=r(A[3],A,r);

  3. 6.function g(var a,b:integer):integer;
    ...

a:=g(a[i],g);

  1. Перечислите, какие переменные Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... в последующей процедуре являются локальными, глобальными, аргументами, плодами.

    1. procedure multiply(d:stroka;var P:real);

    var i:integer;

    begin

    P:=1;

    For i:=1 to n do

    if d[i]0

    then P:=P*d[i Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...];

    end;

    1. procedure quantity(n:integer;var k:integer);

    var i:integer;

    begin

    k:=0;

    for i:=1 to n do if d[i]<0 then k:=k+1;

    end;

    1. procedure poisk(n:integer;var k:char);

    var i:integer;

    begin

    k Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:='н';

    for i:=1 to n do if d[i]=13 then k:='д';

    end;

    1. procedure summa(n:integer;var s:real);

    var i:integer;

    begin

    s:=0;

    for i:=1 to n do s Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:=s+d[i];

    end;

    1. procedure maximum(d:stroka;var max:real);

    var i:integer;

    begin

    max:=d[1];

    for i:=2 to n do

    if d[i]>max then max:=d[i];

    end;

    1. procedure maxmod(d Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:vector);

    var i:integer;

    begin

    max:=абс(d[1]);

    for i:=2 to n do

    if абс(d[i])>max then max:=d[i];

    end;

  2. Написать заголовок последующих процедур и функций:

delete, insert, chr, ord Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,..., val, str, copy, length, concat, pos.

  1. Перепишите процедуры из пт 17 в виде функций.

  1. Изучите программку PR1 и ответьте на последующие вопросы:
    1) назовите переменные, локальные для процедуры pr3 и труднодоступные для процедуры pr2 и основной Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... программки;
    2) назовите переменные, являющиеся глобальными для процедуры pr3, труднодоступные в основной программке, но локальные для процедуры pr2;
    3) назовите переменные, являющиеся глобальными как для процедуры pr2, так и для процедуры pr Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...3.
    program PR1;
    var A, B, C: real;
    procedure pr2;
    var X, Y, Z: real;
    procedure pr3;
    var i, j, k: real;
    begin

    end;
    begin

    end;
    begin

    end.

  1. Изучите программку PR и ответьте на последующие вопросы:
    1) какие переменные, являясь Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... одна локальной, а другая глобальной, имеют одно и то же имя?
    2) будет ли переменная L иметь одно и то же значение в основной программке и в процедуре pr3?
    3) доступна ли переменная L Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,..., описанная в основной программке, в процедурах pr3 и pr4?
    4) окажет ли воздействие на переменную L, описанную в основной программке, изменение значения переменной L, описанной в процедуре pr3?
    program PR;
    var L, D Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,..., F: real;
    procedure pr2;
    var M, N: integer;
    begin

    end;
    procedure pr3;
    var L, L4: integer;
    procedure pr4;
    var L5: integer;
    begin

    end;
    begin

    end;
    begin

    end.

  1. Какой смысл имеет величина k в Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... последующей серии команд

    1. k:=0;

    for i:=1 to n do

    begin

    g:=summamod(a[i]);

    if g=0 then k:=k+1

    end;

    1. k:=0;

    for i:=1 to n do

    begin

    g:=summamod(a[i]);

    maximummod(a[i Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...],l,ma);

    if g=ma then k:=k+1 end;

    1. k:=0;

    for i:=1 to n do begin

    g:=summamod(a[i]);

    d:=summa(a[i]);

    if g=d then k:=k+1;

    end;

    1. k:=0;

    for i Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:=1 to n do begin

    maximum(a[i],g,ma);

    if ma<0 then k:=k+1

    end;

    1. k:=0; k:=0;

    for i:=1 to n do begin

    maximum(a[i],g,ma);

    maximummod(a[i],l,mam);

    if mamma then k Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:=k+1;

    end;

    1. k:=0;

    for i:=1 to n do

    begin g:=summamod(a[i]);

    d:=summa(a[i]);

    if gabs(d) then k:=k+1;

    end;

  2. Составьте процедуры для:

  1. ввода одномерного числового массива Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...,

  2. вывода одномерного числового массива,

  3. ввода двумерного числового массива,

  4. вывода двумерного числового массива,

  5. нахождения суммы частей одномерного массива,

  6. нахождения суммы частей двумерного массива,

  7. нахождения произведения частей одномерного массива,

  8. нахождения номера наибольшего элемента одномерного массива,

  9. нахождения Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... номеров наибольшего элемента двумерного массива,

  10. нахождения номера последнего отрицательного элемента массива,

  11. нахождения номера первого нулевого элемента одномерного массива,

  12. подсчета в данном слове количества вхождений данной буковкы,

  13. определения, есть ли в Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... данном слове две однообразные буковкы попорядку.



^ Приложение Тексты программ для выполнения лабораторных работ
Файл PRIMER1.pas

program upr1;

uses crt;

var f,i,o:string[15]; v,g,year:integer;

begin

clrscr;

write('Введите номер Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... текущего года ');readln(year);

write('Введите Вашу фамилию ');readln(f);

write('Введите Ваше имя ');readln(i);

{write('Введите Ваше отчество ');readln(o);}

write('Введите Ваш возраст ');readln(v);

write('Введите номер Вашей группы ');readln Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...(g);


gotoxy (15,15);write('Ваша фамилия - ',f);

gotoxy (1,17);write('Вас зовут ',i);

{gotoxy (5,18);write('Ваше отчество ',o);}

gotoxy (51,20);write('Вы родились в ',year-v,’ году’);

gotoxy (11,25);write('Вы обучайтесь в ',g,’ группе’);

end Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,....


^ Файл PRIMER2.pas

Begin

clrscr;

soob:='Радиальный сектор';

write(soob,' ','R=');readln(r);

write('alpha=');readln(alpha);

s:=r*r*alpha/2;

writeln('S=',S:3:0);

writeln('l=',2*S/r:5:2);

end.

^ Файл PRIMER3.pas

program Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... upr4;

uses crt;

var a,b,c:real;

begin

{Соотношения в прямоугольном треугольнике}

write('a=');readln(a);

write('b=');readln(b);

c:=sqrt(a*a+b*b);

write('c=',c);

end.

^ Файл PRIMER2à.pas

program upr Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...4;

uses crt;

var r,s,alpha:real;

soob:string[15];

begin clrscr;

soob:='Радиальный сектор';

write(soob,' ','R=');readln(r);

write('alpha=');readln(alpha);

s:=r*r*alpha/2;

writeln('S Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...=',S:9);

writeln('l=',2*S/r:5:2);end.

^ Файл PRIMER4.pas

Program upr1;

Uses crt;

var b:char;

begin clrscr;

write('input letter ');readln(b);

writeln(b+b+b+b+b+b);

writeln(b,' ',b); writeln(b Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...,' ',b);

writeln(b,' ',b); writeln(b,' ',b);

writeln(b,' ',b);

writeln(b+b+b+b+b+b);

end.

Файл PRIMER7.pas




program lab6;

uses crt;

var a,i,s,n,k,b,d:integer Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...;

soob:string;

y,x:real;

begin

clrscr;

write('a=');readln(a);

write('b=');readln(b);

{ 2.1 while -> for }

{soob:='no';

i:=2;

while i<=sqrt(a) do begin

if a mod i=0

then soob Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:='yes';

i:=i+1;

end;

writeln(soob);}

{ 2.2 repeat -> for }

{i:=1;

repeat

i:=i+1;

if a mod i=0

then writeln (i);

until i>a/2;}

{ 2.3 for -> repeat }

{s:=0;

for i:=1 to trunc(a/2) do

if a mod i=0

then s Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:=s+i;

if s=a

then writeln('yes')

else writeln('no');}

{ 2.4 repeat -> for }

{n:=1; k:=10;

repeat

k:=k*10;

n:=n+1;

until a<=k;

writeln(n);}


{ 2.5 repeat -> for }

{k:=0;

repeat

s:=a-trunc(a/10)*10;

a Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:=trunc(a/10);

k:=(k+s)*10;

until a=0;

writeln (k/10:2:0);}


{ 2.6 while -> for }

{y:=a;n:=1;

while n<=6 do

begin x:=y;

y:=(5+x)/2;

n:=n+2;

end;

writeln(y:5:4);}

{ 2.7 for -> while }

{for i:=1 to a do

begin

if trunc(a Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,.../i)=a/i

then writeln(i);

i:=i+1;

end;}

{ 2.8 while -> repeat }

{if b>a

then begin a:=a+b;

b:=a-b;

a:=a-b; end;

writeln('a=',a,' b=',b);

k:=a mod Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... b;

n:=b;

while k0 do begin

d:=k;

k:=n mod k;

n:=d;

end;

writeln(n);}

end.





Файл lab10.pas

program str_lab;

uses crt;

type str=string[50];

mass=array[1..20] of Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... str;

var s,s1,s2,s3:str;

i,j,k,l,n,t:integer;

x:mass;

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

function poisk(s1,s2:str):str;

var i:integer;k:str;

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

function quantity(s Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...1,s2:str):integer;

var i,k:integer;

begin

k:=0;

for i:=1 to length(s2)-length(s1)+1 do

if copy(s2,i,length(s1))=s1

then k:=k+1;

quantity:=k;

end;

begin

k:='no';

for i:=1 to length Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...(s2)-length(s1)+1 do

if copy(s2,i,length(s1))=s1

then k:='yes';

poisk:=k;

end;

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

procedure invers(var s1:str);

var i:integer;k:str;

begin

k:='';

for i:=1 to Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... length(s1) do

k:=copy(s1,i,1)+k;

s1:=k;

end;

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

procedure double(var s1:str);

var i:integer;k:str;

begin

k:='';

for i:=1 to length(s1) do

k:=k+copy(s1,i,1)+copy(s1,i Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...,1);

s1:=k;

end;

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

procedure zamena(var s1:str; s2,s3:str);

var i:integer;k:str;

begin

k:='';

for i:=1 to length(s1) do

if copy(s1,i,length(s2))=s Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...2

then begin k:=k+s3; i:=i+length(s2)-1; end

else k:=k+s1[i];

s1:=k;

end;

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

procedure del(var s1:str; s2:str);

var i:integer;k:str;

begin

zamena(s1,s Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...2,'');

end;

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

procedure slova(s:str;var k:integer; var x:mass);

var i:integer;

begin

repeat

zamena(s,' ',' ');

until pos(' ',s)=0;

if s[length(s)]=' '

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

k:=0;

repeat

l:=pos(' ',s); k:=k Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...+1;

x[k]:=copy(s,1,l-1); delete(s,1,l);

until pos(' ',s)=0;

k:=k+1;

x[k]:=s;

end;

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

procedure printmass(k:integer; x:mass);

var i:integer;

begin

for i:=1 to k do Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... writeln(x[i]);

end;

begin clrscr;

s2:= '11 52 3 15 467 15';

writeln(s2);

slova(s2,k,x);

printmass(k,x);

end.



Файл lab11.pas




program matrix_lab;

uses crt;

type st=array[1..20] of real;

matr=array[1..20] of st;

var Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... n, m, j, i, k, l, r: integer; s,s1,s2,s3,ext:real; x,y:st; a:matr;

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

function summa(m:integer; x:st):real;

var i:integer; s:real Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...;

begin s:=0;

for i:=1 to m do s:=s+x[i];

summa:=s;end;

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

function summamod(m:integer; x:st):real;

var i:integer; s:real;

begin s:=0;

for i:=1 to m do Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... s:=s+абс(x[i]);

summamod:=s;

end;

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

procedure wwod(var a:matr);

var i,j:integer;

begin clrscr;

write('k-vo strok=');readln(n);

write('k-vo stolb=');readln(m);

for Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... i:=1 to n do begin

for j:=1 to m do begin

write('a[',i,',',j,']=');read(a[i,j]);

end; writeln; end; end;

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

procedure wywod;

var i,j:integer;

begin

for i Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:=1 to n do begin

for j:=1 to m do write(a[i,j]:3:2,' ');

writeln;end; writeln; end;

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


procedure priswaiwanie;

begin n:=3;m:=4; a[1,1]:=3; a[1,2]:=0; a[1,3]:=-5;a[1,4]:=3;

a[2,1]:=-4; a[2,2]:=-1;a[2,3]:=-2; a[2,4]:=-3;

a[3,1]:=1; a[3,2]:=3; a[3,3]:=0; a Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...[3,4]:=8; end;

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

procedure znak(m:integer; var x:st);

var i:integer;

begin for i:=1 to m do x[i]:=-x[i]; end;

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

procedure maximum(m:integer; x:st; var max:real; var Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... k:integer);

var i:integer;

begin max:=x[1];k:=1;

for i:=2 to m do if x[i]>max then begin max:=x[i];k:=i;end; end;

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

procedure maximummod(m:integer; x:st Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...; var max:real; var k:integer);

var i:integer;

begin max:=абс(x[1]);k:=1;

for i:=2 to m do if абс(x[i])>max then begin max:=абс(x[i]);k:=i;end Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...; end;

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

begin clrscr;

wwod(a); wywod;

for i:=1 to n do

begin s:=summa(m,a[i]); writeln(i,'str. s=',s:3:2); end;

end.




^ Файл Polinom.pas

program polinoms;

uses Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... crt;

type polinom=array[0..50] of real;

var a,b,c,d:polinom;

n1,n2,n3,n4,i,j,k,n:integer;

f,g,h,t,q,r:real;


procedure intput(var n:integer; var p Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:polinom);

var i:integer;

begin

write('Введите степень многочлена n=');readln(n);

writeln('Введите коэффициенты многочлена, начиная со старшего.');

for i:=n downto 0 do readln(p[i]);

end;


procedure output(n:integer; p Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:polinom);

var i:integer;

begin

for i:=n downto 0 do write(p[i]:3:2,' ');

writeln;

end;


procedure sum(n:integer; p:polinom;

k:integer; q:polinom;

var m:integer; var r:polinom);

var Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,... i:integer;

begin

if k
then m:=n

else m:=k;

for i:=0 to m+n-k do r[i]:=p[i]+q[i];

if k
then for i:=k+1 to n do r[i]:=p Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...[i]

else if k>n

then for i:=n+1 to k do r[i]:=q[i];

end;


procedure num_mult(n:integer; p:polinom;

k:integer;

var m:integer; var r:polinom Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...);

var i:integer;

begin

m:=n;

for i:=0 to m do r[i]:=k*p[i];

end;


procedure multiply(n:integer; p:polinom;

k:integer; q:polinom;

var m:integer; var r:polinom Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...);

var i,j:integer;

begin

m:=n+k;


for i:=0 to m do r[i]:=0;

for i:=0 to n do

for j:=0 to k do

r[i+j]:=r[i+j]+p[i]*q[j];

end Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...;

procedure division(n:integer; p:polinom;

m:integer; q:polinom;

var k:integer; var c:polinom;

var r:integer; var s:polinom);

var i:integer;

begin

if n
then begin k:=0;c[0]:=0;

r Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:=n;

for i:=0 to n do s[i]:=p[i];

end

else

begin

k:=n-m;

for i:=k downto 0 do

begin

c[i]:=p[m+i]/q[m];

for j:=m downto 0 do

p[j+i]:=p[j+i Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...]-c[i]*q[j];

end;

r:=m-1;

for j:=0 to r do s[j]:=p[j];

end;

end;


procedure derivation(n:integer; p:polinom;

var m:integer; var r Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:polinom);

var i:integer;

begin

m:=n-1;

for i:=m downto 0 do

r[i]:=(i+1)*p[i+1];

end;


procedure value(n:integer; p:polinom;

c:real;

var m:real);

var i,t:integer;

b,r Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...:polinom;

begin

i:=1;b[1]:=1;b[0]:=-c;

division(n,p,i,b,t,r,i,b);

m:=b[0];

end;


begin

clrscr;

writeln('Введите 1-ый многочлен');intput(n1,a);

writeln(' Введите 2-ой многочлен '); intput(n2,b Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...);

division(n1,a,n2,b,n3,c,n4,d);

writeln('Личное равно');

output(n3,c);

writeln('Остаток от деления');

output(n4,d);

writeln('Сумма коэффициентов первого многочлена равна');

value(n1,a,1,f Процедуры и функции - Система задач и упражнений по языку программирования Pascal/ Сост. Е. Ю. Жохова, И. Е. Кокорева,...);writeln(f);

end.


procedura-privedeniya-virazhenij-estestvennogo-yazika.html
procedura-prohozhdeniya-molodezhnih-iniciativ.html
procedura-provedeniya-ekzamena-i-primer-ekzamenacionnogo-bileta.html