Pascal programlama dilinde yazılmış bu programda ekrana seçime göre yıldızlardan oluşan bir kare, üçgen veya dikdörtgen çizen prosedür yapılmıştır.
Program Kodu:
Kod: Kodu kopyalamak için üzerine çift tıklayın!
uses crt;
var
i,j,n,m:integer;
tus:char;
procedure ucgen;
begin
write('ucgen satir sayisini gir : ');
readln(n);
clrscr;
for i:=1 to n do begin
for j:=1 to i do begin
write('* ');
end;
writeln;
end;
readln;
end;
procedure kare;
begin
writeln('kare satir sayisini gir : ');
readln(n);
clrscr;
for i:=1 to n do begin
for j:=1 to n do begin
write('* ');
end;
writeln;
end;
readln;
end;
procedure dikdortgen;
begin
writeln('dikdortgen satir sayisini giriniz : ');
readln(n);
writeln('dikdortgen sutun sayisini giriniz : ');
readln(m);
clrscr;
for i:=1 to n do begin
for j:=1 to m do begin
write('* ');
end;
writeln;
end;
readln;
end;
begin
clrscr;
repeat
writeln('Cizmek istediginiz sekli seciniz.. [1:Kare,2:Dikdortgen,3:Ucgen] :');
readln(n);
case n of
1 : kare;
2 : dikdortgen;
3 : ucgen;
end;
writeln('Cikmak icin * karakterine basiniz.. ');
tus:=readkey;
until tus='*';
end.