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

var F: Text; Ch: Real;

begin

Reset(F);

while not Eof(F) do

begin

Read(F, Ch);

Write(Ch); end;

end.

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

var f: file of Byte; size : Longint;

begin

Assign(f, 'abc.dat'); Reset(f); size := FileSize(g);

Writeln('Seeking halfway into file...'); Seek(f,size div 2);

Writeln('Position is now ',FilePos(f));

end.

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

var f: file of File;

Assign(f); size := FileSize(f);

Writeln('File size in bytes: ',size); Close(f);

end.

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

var f : Text; i: Integer;

begin

Assign(f,'TEST.TXT'); Rewrite(f);

Writeln(f,'1 2 3 4 '); Writeln(f,'5 6 7 8 '); Reset(f);

while not SeekEof(f) do

begin

if SeekEoln(f) then Readln;

Read(f,j);

Writeln(j); end;

end.

Исправить ошибки var F: Text;c:char; begin

Assign(F, 'TEST.TXT'); reset(f);

Writeln(F, 'original text'); Close(F); Append(F); Writeln(F, 'appended text');

Rewrite(F);

while not eof(f) do begin read(f,c); write(c); end;

Close(G);

Исправить ошибки var F: file; Assign(F, '\AUTOEXEC.BAT');

Reset(F, 1); Writeln('File size = ', FileSize(F)); Close(F); end.

Исправить ошибки var F: Text;c:byte; begin

Assign(F, 'NEWFILE.$$$'); Rewrite(G);

Writeln(F, 'Just created file with this text in it...'); reset(f);

while not eof(f) do

read(f,c); write(c);

Close(F); end.

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

var f: file of Byte; size : Char;

begin

Assign(f, 'abc.dat'); Reset(f);

size := FileSize(f);

Writeln('Seeking quaterway into file...');

Seek(size div 4);

Writeln('Position is now ',FilePos(f));

Close(f); end.

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

var f: file of integer; c,i:integer;

begin

Assign(f, 'abc.dat'); Rewrite(f);

for i:=10 to 1 do write(f,i);

Close(f);

for i:=1 to 10 do

begin read(f,c); writeln(c); end;

end.

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

var f: file of char; i:char;

begin

Assign(f, 'abc.dat'); Rewrite(f);

for i:='l' to 'a' do write(f,i);

Close(f); reset(f);

for i:='a' to 'l' do begin

read(f,c); writeln(c); end;

close(f);

end.

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

var f: file of char; c:char;i:char

begin

Assign(f, 'abc.dat'); Rewrite(f);

for i:=97 to 105 do write(f,chr(i));

reset(f);

for i:=97 to 105 do

begin read(f,c); writeln(c);

close(f); end.

Графика и модули

Что будет выведено на экран? uses Graph;

Var Gd, Gm: Integer; Radius: Integer;

begin

Gd := Detect;

InitGraph(Gd, Gm,'c:\bp\bgi'); if GraphResult <> grOk then Halt(1);

for Radius := 1 to 5 do

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

CloseGraph; end.

Что будет выведено на экран? uses Graph; var Gd, Gm, I, Width: Integer; begin Gd := Detect; InitGraph(Gd, Gm,'c:\bp\bgi '); if GraphResult <> grOk then Halt(1); Width := 10;

for I := 1 to 5 do

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

CloseGraph; end.

Что будет выведено на экран? uses Graph;

Var Gd, Gm: Integer; Y0, Y1, Y2, X1, X2: Integer; begin Gd := Detect;

InitGraph(Gd, Gm,'c:\bp\bgi '); if GraphResult <> grOk then Halt(1);

Y0 := 10; Y1 := 60; Y2 := 110; X1 := 10; X2 := 50;

Bar3D(X1, Y0, X2, Y1, 10, TopOn); Bar3D(X1, Y1, X2, Y2, 10, TopOff); Readln;

CloseGraph; end.

Что будет выведено на экран? uses Graph;

Var Gd, Gm: Integer; Radius: Integer; 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, 'c:\bp\bgi '); if GraphResult <> grOk then Halt(1);

Ellipse(100, 100, 0, 360, 30, 50); Ellipse(100, 100, 0, 180, 50, 30); Readln;

CloseGraph; end.

Что будет выведено на экран? uses Crt, Graph;

Var Gd, Gm: Integer; Color: Word; Pal: PaletteType; begin Gd := Detect;

InitGraph(Gd, Gm, 'c:\bp\bgi'); if GraphResult <> grOk then Halt(1);

Randomize;

GetPalette(Pal);

if Pal.Size <> 1 then begin

repeat Cycle through colors Color := Succ(GetBkColor);

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

SetBkColor(Color);

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

else Line(0, 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 ');

if GraphResult <> grOk then Halt(1);

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;

begin Gd := Detect;

InitGraph(Gd, Gm, 'c:\bp\bgi '); if GraphResult <> grOk then Halt(1);

Rectangle(0, 0, GetMaxX, GetMaxY); Draw a full-screen box Readln;

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;

CloseGraph; end.

Что будет выведено на экран? uses Crt, Graph;

var Gd, Gm: Integer;

begin Gd := Detect;

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

if GraphResult <> grOk then Halt(1);

Randomize; repeat Line(Random(200), Random(200), Random(200), Random(200)); until KeyPressed;

Readln;

CloseGraph; end.

Что будет выведено на экран? uses Crt, Graph;

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

begin GraphDriver := Detect;

InitGraph(GraphDriver, GraphMode, 'c:\bp\bgi '); if GraphResult<> grOk then Halt(1); 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); end;

readln; CloseGraph;

end.

Что будет выведено на экран? uses Graph;

Var Gd, Gm: Integer; Y, Size: Integer; begin Gd := Detect;

InitGraph(Gd, Gm, 'c:\bp\bgi '); if GraphResult <> grOk then Halt(1);

Y := 0; for Size := 1 to 4 do begin

SetTextStyle(DefaultFont, HorizDir, Size); OutTextXY(0, Y, 'Size = ' + Chr(Size + 48)); Inc(Y, TextHeight('H') + 1); end;

Readln;

CloseGraph; end.