ceas.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 25 行

program ceas;
{citeste ora si arata ceasul}
uses graph;
var gd,gm:integer;
    a,b,n:real;
begin
     gd:=vga;
     gm:=vgahi;
     initgraph(gd,gm,'D:\pascal\BGI');
write('n= ');
readln(n);
if n>12 then writeln('Ceasul nu poate indica o ora mai mare ca ora 12')
        else
            begin
                 circle(300,300,150);
                 setfillstyle(1,red);
                 a:=300+150*cos(30*n);
                 b:=300+150*sin(30*n);
                 line(300,300,round(a),round(b));
                 setcolor(15);
            end;
            readln;
            CloseGraph;
end.