Grafikusan írassuk ki pascalban az alakzatokat! Hogyan?

A menüvel van a gond vagy a rajzolással?

A menünek szerintem elég, ha egy leütött karaktert figyelsz, rajzoláshoz meg legegyszerűbb a graph unit. Nem a legszebb, de kezdetnek jó.

[link]

Graph unitról hallottál már?

Amúgy mit vársz írjuk meg helyetted a programot helyetted?

Turbo vagy freepascalt használsz?

Nem mind1

Bár lehet már nem aktuális, de szerencsére unatkozom, úgyhogy, .pas kód for free :)

program asddsa;

uses wincrt,graph;

var szg,fg:integer;

gomb:char;

procedure inic;

begin

szg:=d8bit;

fg:=m640x480;

initgraph(szg,fg,'');

if graphresult=grok then

writeln('Minden f*sza!')

else

writeln('Baj van!');

end;

procedure menucula;

var gomb:byte;

begin

cleardevice;

outtextxy(20,20,'1. 3sz”g');

outtextxy(20,40,'2. 4zet');

outtextxy(20,60,'3. t‚glalap');

outtextxy(20,80,'4. k”r');

outtextxy(20,100,'5. kil‚p');

end;

procedure haromszog;

begin

line(200,200,300,200);

line(300,200,250,100);

line(250,100,200,200);

end;

procedure negyzet;

begin

rectangle(200,200,300,300);

end;

procedure tegla;

begin

rectangle(200,200,300,250);

end;

procedure kor;

begin

circle(200,200,100);

end;

begin

inic;

menucula;

repeat

gomb:=readkey;

if gomb='1' then

begin

menucula;

haromszog;

end

else

begin

if gomb='2' then

begin

menucula;

negyzet;

end

else

begin

if gomb='3' then

begin

menucula;

tegla;

end

else

if gomb='4' then

begin

menucula;

kor;

end

else

begin

if gomb='5' then

closegraph;

end;

end;

end;

until gomb='5';

end.

Tessék ezt azt csinálja amit írtál csak nem kell beírni számot, hanem elég ha megnyomod az 12345 öt mivel raktam bele egy 5-kilépés gombot. :D

ha nem kell kitöröleted de akkor írd át a repeat until feltételét :)