pascal

sveiki. taigi suvedziau y kompa is knygos programas dvi ir jos man neveikia taip kaip turi.

Program p5_3;

Uses crt;

Type mas = array [1..20] of real;

Procedure apskritimas(var a,b,r:real);

Begin

Clrscr;

Write('Įveskite apskritimo cewntro kordinates: ');

readln(a,b);

Write('Įveskite apskritimo spindulį: ');

readln®;

end;

procedure Masyvas(var x,y : mas; var n :integer);

var i: integer;

begin

write('įveskite taškų skaičių: ');

readln(n);

for i:=1 to n do

begin

Writeln(' Taško nr. ',i:4);

Write('x= '); readln(x);

Write('y= '); readln(y);

end;

end;

function viduje(var x,y:mas; n:integer; a,b,r:real):boolean;

var yra :boolean ;

i:integer;

begin

yra:=false;

While (i<=n) and not yra do

if sqr(x-a)+sqr(y-b)<sqr®

then yra:=true

else i:=i+1;

viduje:=yra;

end;

var x,y :mas;

nt:integer;

a,b,r:real;

begin

Textbackground(blue);

clrscr;

textcolor(black);

apskritimas(a,b,r);

masyvas(x,y,nt);

if viduje(x,y,nt,a,b,r)

then Write('Apskritimo viduje yra taškų')

else Write('Apskritimo viduje taškų nėra');

end.

ši programa su kontroliniais duomenimis a-1 b-0(a b centro kordinates) r-2(spindulys) n-3(kiek tasku) x1- -1 y1-2 x2-2 y2-1 x3-3 y3-2 turetu rodyti kad yra viduje bet rašo kad nera. reikia surasti klaida. visi zenklai kaip ir geria nurasyti. nieko nepraleides.

program p5_4;

uses crt;

Type mas= array[1..50] of real;

procedure langas(x1,y1,x2,y2,spalva:integer);

begin

Window(x1,y1,x2,y2);

Textbackground(spalva); clrscr;

end;

procedure duomenys(var a:mas; var n:integer);

var i:integer;

begin

write('Įveskite N = ');

readln(n);

Writeln('Įveskite masyvo elementus:');

for i :=1 to n do

begin

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

readln(a);

end

end;

procedure rikiuoti(var a:mas; var n:integer);

var elem:real;

i,j,d:integer;

begin

for i :=1 to n-1 do

begin

d:=i;

for i:=i+1 to n do

if a>a[d]

then d:=j;

elem:=a;

a:=a[d];

a[d]:=elem;

end

end;

procedure rezultatai(var a:mas; var n:integer);

var i:integer;

begin

Writeln('Masyvas surikiuotas:');

For i :=1 to n do

Write (a:6:1);

writeln;

end;

var a:mas; n:integer;

begin

Langas(1,1,80,25,blue);

textcolor(black);

duomenys(a,n);

rikiuoti(a,n);

rezultatai(a,n);

readln;

end.

siame uzdaviny kai parasai daugiau negu 5 pvz 6 išmeta kad peržengti rėžiai. pažiūrėjau kaip ir viska gerai nurase. Būčiau labai dekingas jeigu kas surastumete klaidas.

Pirma programa:

program P5_3;
uses Crt;
type Mas = array [1..20] of real;
procedure Apskritimas( var a, b, r : real);
begin
ClrScr;
Write('Iveskite apskritimo centro koordinates:');
ReadLn(a, b);
Write('Iveskite apskritimo spinduli:');
ReadLn(r);
end;
procedure Masyvas( var x, y : Mas; var n : integer);
var i : integer;
begin
Write('Iveskite tasku skaiciu:');
ReadLn(n);
for i := 1 to n do
begin
Writeln(' Tasko nr. ', i: 4);
Write('x = '); ReadLn(x[i]);
Write('y = '); ReadLn(y[i]);
end;
WriteLn;
end;
function Viduje (var x, y : Mas; n : integer; a,b, r : real): boolean;
var yra : boolean;
i : integer;
begin
yra := false;
while (i <= n) and not yra do
if Sqr(x[i] - a) + Sqr(y[i] - b) < Sqr(r)
then yra := true
else i := i + 1;
Viduje := yra;
end;
var x, y : Mas; nt : integer;  a, b, r : real;
begin
TextBackground(Blue); ClrScr; TextColor(Black) ;
Apskritimas( a, b, r );
Masyvas( x, y, nt );
if Viduje( x, y, nt, a, b, r )
then Write('Apskritimo viduje yra tasku')
else Write('Apskritimo viduje tasku nera');
ReadLn;
end.

Antra programa:

program P5_4;
uses Crt;
type Mas = array [1..50] of real;
procedure Langas (x1, y1, x2, y2, spalva : integer);
begin
Window(x1, y1, x2, y2);
TextBackground(spalva); ClrScr;
end;
procedure Duomenys( var a : Mas; var n : integer);
var i : integer;
begin
Write('Iveskite N = '); ReadLn(n);
WriteLn('Iveskite masyvo elementus:');
for i := 1 to n do
begin
Write('a[', i, '] = ');
ReadLn(a[i]);
end
end;
procedure Rikiuoti( var a : Mas; n : integer);
var elem : real; i, j : integer;
begin
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] > a[j]
then begin
elem := a[i];
a[i] := a[j];
a[j] := elem
end
end;
procedure Rezultatai( var a : Mas; n : integer);
var i : integer;
begin
WriteLn('Masyvas surikiuotas:');
for i := 1 to n do
Write(a[i] :6:1);
WriteLn;
end;
{--------------------------------------------------------}
var a : Mas;
n : integer;
begin
Langas( 1, 1, 80, 25, Blue ); TextColor( Black );
Duomenys ( a, n );
Rikiuoti ( a, n );
Rezultatai( a, n );
ReadLn;
end.