Question

Mam napisać taki program:

Napisz program wyswietlający na ekranie nsatępujący wzorek: (n-ilość wierszy i kolumn), dla n=5 mamy:

A

A

A

A

A

(na ukos)

I napisałam takie coś:

uses CRT;
Var
n,i:integer;
Begin
Writeln('Ile ma byc wierszy i kolumn?');
Readln(n);
repeat
for i:= 1 to n do
begin
write(' ');
end;
writeln('A');
n := n -1;
until (n<0);
Readln;
End.
Tylko coś mam źle, bo jak wpisze,np. 3 to mi 4razy A sie pojawia.
Niech ktoś mi to poprawi, błagam.

Answer 1

for i:= 1 to n do
begin
write(' ');
end;
writeln('A');
n := n -1;
until (n<0);
Readln;
End.
Tylko coś mam źle, bo jak wpisze,np. 3 to mi 4razy A sie pojawia.
Niech ktoś mi to poprawi, błagam.

Answer 2

program ukos;
uses crt;
var n,i:integer;

Begin
clrscr;
gotoxy(1,1);
write('Ile ma byc wierszy i kolumn? ');
readln(n);
for i:=1 to n do
begin
gotoxy(1+i,1+i);
write('A');
end;
readln;
End;

 

Spróbuj tego :D