1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses GraphABC;
type point=record
x,y:integer;
end;
procedure plitk(x,y,r:integer);
var p:array[1..9]of point;
a,da:real;
i:byte;
begin
a:=pi/2;
da:=pi/4;
for i:=1 to 9 do
begin
p[i].x:=x+round(r*cos(a));
p[i].y:=y-round(r*sin(a));
a:=a+da;
end;
polygon(p,9);
end;
var r,i,j,x,y,d:integer;
begin
r:=20;
y:=r;
while y<=windowheight do
begin
x:=r;
while x<=windowwidth do
begin
plitk(x,y,r);
x:=x+2*r;
end;
y:=y+2*r
end;
end
stdout:
/temp/compiling/source.bas(1) error 3: Expected End-of-Line, found 'Pascal'
Pascal;
^
/temp/compiling/source.bas(2) error 10: Expected '=', found ';'
Var;
^
/temp/compiling/source.bas(3) error 3: Expected End-of-Line, found '�'
a,b:integer;
^
/temp/compiling/source.bas(4) error 10: Expected '=', found ';'
Begin;
^
/temp/compiling/source.bas(5) error 3: Expected End-of-Line, found '�'
read(a,b);
^
/temp/compiling/source.bas(6) error 3: Expected End-of-Line, found '�'
write(a+b);
^
/temp/compiling/source.bas(7) error 10: Expected '='
End.
^
/temp/compiling/source.bas(9) error 3: Expected End-of-Line, found '�'
Язык C++
^
/temp/compiling/source.bas(11) error 145: Only valid in -lang fb or deprecated or fblite, found 'using'
using namespace std;
^
/temp/compiling/source.bas(12) error 6: Expected '(', found 'main'
int main() {
^
/temp/compiling/source.bas(12) error 132: Too many errors, exiting
stderr:
