Gwazdkowe figury...

0

Siema! Strasznie boli mnie glowa (chyba jestem chory :roll: ) i nie moge dojsc do mojego bledu... oto kod programu:


program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var i,j,n: integer;

begin
Write('podaj n:');
Readln(n);

for i:=1 to n do
begin
for j:=1 to n do
if (i=1) or (j=1) or (i=n) or (j=n) then Write('*');
writeln;
end;

readln;
end.

Ma to byc bowiem programik rysujacy na ekranie cos takiego:


  • *
  • *

    dla n=3 (podanego przez uzytkownika). Jak ktos znajdzie chwilke dla mojego wyjatkowo niespodziewaneg oproblemu dziekuje bardzo z gory :lol:

0

if (i=1) or (j=1) or (i=n) or (j=n) then Write('*') else Write(' ');

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0