Исправить ошибки.

uses Graph;

var Radius: Integer;

begin Gd := Detect;

InitGraph(Gd, Gm,'c:\bp\bgi');

for Radius := 1 to 5 do begin

Arc(100, 100, 0, 90, Radius * 10); Readln

CloseGraph; end.

Исправить ошибки.

var Gd, Gm, I, Width: Integer;

begih Gd := Detect;

InitGraph(Gd, Gm,'c:\bp\bgi ');

Width := 10;

for I := 1 to 5 do

Bar(I*Width, I*10, Succ(I)*Width, 200);

CloseGraph; end.

Исправить ошибки. uses Graph; var Gd, Gm: Integer; Y0, Y1, Y2, X1, X2: Integer; begin Gd := Detect;

InitGraph(Gd, Gm,'c:\bp\bgi '); Y0 := 10; Y1 := 60;

Y2 := 110; X1 := 10; X2 := 50;

Bar (X1, Y0, X2, Y1, 10, Ton);

Bar (X1, Y1, X2, Y2, 10, ToOff);

Readln; CloseGraph; end.

Исправить ошибки. uses Graph; var Gd, Gm:Real; Radius:Char; begin Gd := Detect;

InitGraph(Gd, Gm, 'c:\bp\bgi ');

if GraphResult=grOk then Halt(1);

for Radius := 1 to 5 do

Circle(100, 100, Radius * 10);

Readln; CloseGraph; end.

Исправить ошибки. uses Graph; var Gd, Gm: Integer; begin Gd := Detect; InitGraph(Gd, Gm);

if GraphResult <> grOk then Halt(1, 'c:\bp\bgi '); Rectangle(0, GetMaxX, GetMaxY);

Readln; CloseGraph; end.

Исправить ошибки. uses Graph, Crt; var Gd, Gm: Integer; Color: Word; Pal: PaletteType; begin Gd := Detect;

InitGraph(Gd, Gm, 'c:\bp\bgi ');

Randomize; GetPalette(Pal); repeat Color := Succ(GetColor);

if Color > Pal.Size - 1 then Color := 0; SetColor(Color);

LineTo(Random(GetMaxX), Random(GetMaxY)); until KeyPressed;

CloseGraph; end.

Исправить ошибки. uses Graph; var Gd, Gm: Integer; X, Y: Integer;

Begin Gd := Detect;

InitGraph(Gd, Gm, 'c:\bp\bgi');

if GraphResult <> grOk then Halt(1);

OutText(' начало. ');

X := GetX; Y := GetY;

OutTextXY(20, 10, Привет лунатикам.)

OutTextXY(X, Y, 'Теперь возвращаемся.');

Readln; end.

Исправить ошибки. uses Graph; var Gd, Gm: Integer; begin Gd := Detect; InitGraph(Gd, Gm, 'c:\bp\bgi'); repeat Line(Random(200), Random(200), Random(200), Random(200)); until KeyPressed;

Readln; CloseGraph; end.

Исправить ошибки. uses Crt;

var GraphDriver, GraphMode: Integer; X1, Y1, X2, Y2: Integer;

begin GraphDriver := Detect; InitGraph(GraphDriver, GraphMode, 'c:\bp\bgi '); Randomize;

for i:=1 to 5 do begin

X1 := Random(GetMaxX);

Y1 := Random(GetMaxY);

X2 := Random(GetMaxX - X1) + X1;

Y2 := Random(GetMaxY - Y1) + Y1;

Rectangle(X1, Y1, X2, Y2, blue); end; readln; CloseGraph;

Исправить ошибки. uses Graph; var Gd, Gm: Y, Size: Integer; begin Gd := Detect; InitGraph(Gd, Gm, 'c:\bp\bgi '); Y := 0;

for Size := 1 to 4 do SetTextStyle(DefaultFont, HorizDir, Size);

OutTextXY(0, Y, 'Size = ' + Chr(Size + 48));

Inc(Y, TextHeight('H') + 1); end;

Readln; CloseGraph; end.

Динамические структуры

Исправить ошибки.

Type mas=array [1..100] of integer;

point:mas^;

var p=point;

i:=word

begin

writeln(‘Введите 100 чисел’);

for i:1 to 100 do

read(p^[i]);

for i:=100 to 1 do

writeln(p^[i]);

dispose(p^);

end.

Исправить ошибки.

Type d=array[1..2] of integer;

Var a:^d;

i,n:integer;

{$r-};

begin

writeln(‘Введите размер массива’);

readln(n);

getmem(a,2*n);

for i:=1 to n do

a[i]:=random(100);

for i:=1 to n do

write(a^[i]:3);

freemem(a,2*n);

{$r+}

end.

Исправить ошибки.

Type mas=array[1..100] of integer;

point=^mas;

var p:point; i:word; maxp:integer;

begin

new(r);

for i:=1 to 100 do

p^[i]:=random(100);

maxp:=p^[1];

for i:=2 to 100 do

if p^[i]>maxp then maxp:=p^[i];

writeln(maxp);

end.

Исправить ошибки.

Type mas=array[1..100] of integer;

point=^mas;

var p:point; i:word;

begin

new(p);

for i:=1 to 100 do

p^[i]:=random(10);

sum:=0;

for i:=1 to do

sum:=sum+p^[i];

writeln(sum);

end.

Исправить ошибки.

type uk=^spisok;

spisok=record;

inf:string;

next:uk;

end;

var u1,u1:uk;

begin

new(u1); read(u1^.inf);

u1^.next:=nil;

u2:=u1;

end.

Исправить ошибки.

type uk=^stack;

stack=^record;

ing:integer;

next:uk

end;

var u1,u2,uk,i:integer;

begin

u2:=nil;

i:=0;

while i>=0 do begin

new(u1); read(i);

u1^ing:=i; u1^.next:=u2;

u2:=u1;

end;

repeat

writeln(u1^.ing);

u2:=u1.next;

dispose(u1);

u1:=u2;

until u1=nil

end.

Исправить ошибки.

type mas=array [1..10] of char;

point:mas^;

var p=point; i:=word s:string;

begin

writeln(‘Введите 10 символов’);

for i:1 to 10 do

read(p^[i]);

s:=‘’;

for i:=10 to 1 do

s:=s+p^[i];

writeln(s);

dispose(p^);

end.

Исправить ошибки.

Type mas=array [1..10] of string;;

point:mas^;

var p=point; i:=word s:string;

begin

writeln(‘Введите 10 строк’);

for i:1 to 10 do

read(p^[i]);

s:=‘’;

for i:=100 to 1 do

s:=s+p^[i];

writeln(s);

dispose(p^);

end.

Исправить ошибки.

type mas=array [1..10] of real;

point:mas^;

var p=point; i:=word

begin

writeln(‘Введите 100 чисел’);

for i:1 to 100 do read(p^[i]);

for i:=100 to 1 do writeln(p^[i]);

dispose(p^);

end.