Вопрос Задание по информатике, на долбаном паскале
- Автор темы Planeta
- Дата начала
uses GraphABC;
var
x: integer;
begin
read(x);
if x = 0 then line(200, 200, 400, 200)
else if odd(x) then
begin
setpencolor(clred);
circle(200, 200, 100)
end
else
begin
setpencolor(clyellow);
rectangle(200, 200, 400, 300)
end;
end.
var
x: integer;
begin
read(x);
if x = 0 then line(200, 200, 400, 200)
else if odd(x) then
begin
setpencolor(clred);
circle(200, 200, 100)
end
else
begin
setpencolor(clyellow);
rectangle(200, 200, 400, 300)
end;
end.
program DrawShape;
uses Graph;
var
gd, gm: smallint;
num: integer;
begin
gd := Detect;
InitGraph(gd, gm, ''
;
writeln('Enter a number: '
readln(num);
if num = 0 then
begin
Line(getmaxx div 2, 0, getmaxx div 2, getmaxy);
end
else if num mod 2 = 0 then
begin
setfillstyle(1, yellow);
bar(100, 100, 200, 200);
end
else
begin
setfillstyle(1, red);
fillellipse(150, 150, 50, 50);
end;
readln;
closegraph;
end.
uses Graph;
var
gd, gm: smallint;
num: integer;
begin
gd := Detect;
InitGraph(gd, gm, ''
; writeln('Enter a number: '
; readln(num);
if num = 0 then
begin
Line(getmaxx div 2, 0, getmaxx div 2, getmaxy);
end
else if num mod 2 = 0 then
begin
setfillstyle(1, yellow);
bar(100, 100, 200, 200);
end
else
begin
setfillstyle(1, red);
fillellipse(150, 150, 50, 50);
end;
readln;
closegraph;
end.
Фу паскаль миняща вырвет