Приклади застосування функцій і процедур в структурних програмах.

1. Створення нестандартної функції для обчислення довільного ступеня числа

program tabul;

uses crt;

const n=4;

var y:real;

x,xn,xk:integer;

{=========================================}

function sq1(var s:integer):real;

begin

sq1:=exp(ln(s)*n)

end;

{=========================================}

function sq2(var s1:integer):real;

begin

sq2:=exp(ln(s1)*1/n)

end;

{========================================}

begin

clrscr;

write('xn,xk= ');

readln(xn,xk);

for x:=2 to 23 do

writeln('y= ',sq1(x)+ sq2(x):5:2);

readkey

end.

2. Обчислення площі геометричних фігур.

program procedure2;

uses crt;

const pi=3.14;

var а,b:real;

к,l,m:real;

r:real;

s1,s2,s3:real;

q:boolean;

f:char;

{=======================================}

procedure prym(x1,x2:real; var d1:real; var g:boolean);

begin

write(' а,b= ');

readln(x1,x2);

d1:=(x1*x2);

g:=true;

end;

{=======================================}

procedure treyg(x3,x4,x5:real; var d2:real; var g1:boolean);

var p:real;

begin

write('k,l,m= ');

readln(x3,x4,x5);

p:=(x3+x4+x5)/2;

d2:=sqrt(p*(p-x3)*(p-x4)*(p-x5));

g1:=true;

end;

{=================================================}

procedure kryg(x6:real; var d3:real; g2:boolean);

begin

write('r= ');

readln(x6);

d3:=pi*sqr(x6);

g2:=true;

end;

{=================================================}

begin

clrscr;

q:=false;

writeln('Ввести першу букву геметрической фігури');

readln(f);

if (f=П') or (f='п') then

begin

prym(а,b,s1,q);

writeln('s1= ',s1:5:2);

end

else

if (f='Т') or (f='т') then

begin

treyg(к,l,m,s2,q);

writeln('s2= ', s2:5:2);

end

else

if(f='К') or (f='к') then

begin

kryg(r,s3,q);

writeln('s3= ', s3:5:2);

end

else

if not q then

writeln('Введено неправильне ім'я');

readkey

end.

Завдання

Виконати програми.

Лабораторна робота 10

Тема: Текстовий режим виведення даних на екран.

Мета роботи: Знайомство з методами текстового виведення інформації на екран.