Question

Witam. Zadanie dla programistów. Proszę o stworzenie samej pętli for program, który narysuje mniej coś takiego:

*@*@*@*@*@*@*@*@

*@*@*@*@*@*@*@*@

*@*@*@*@*@*@*@*@

oraz coś takiego:

*@*@*@*@*@*@*@*@

************************

*@*@*@*@*@*@*@*@

************************

Proszę również o komentarze, co i kiedy zachodzi w tym programie. Tylko zaznaczam, że nie jestem w najmniejszym stopniu informatykiem, dlatego proszę o w miarę zrozumiałe wytłumaczenie ;).

Answer 1

Za chwilę wrzucę inne kody programu.

pierwsze

program ffg;
USES CRT;

VAR
a:longint;

BEGIN
clrscr;
FOR a:=1 TO 10 DO
begin
write('*@');
end;
writeln('');
FOR a:=1 TO 10 DO
begin
write('*@');
end;
writeln('');
FOR a:=1 TO 10 DO
begin
write('*@');
end;
writeln('');
readkey;
end.

oraz drugi

program ffg;
USES CRT;

VAR
a:longint;

BEGIN
clrscr;
FOR a:=1 TO 10 DO
begin
write('*@');
end;
writeln('');
FOR a:=1 TO 10 DO
begin
write('**');
end;
writeln('');
FOR a:=1 TO 10 DO
begin
write('*@');
end;
writeln('');
FOR a:=1 TO 10 DO
begin
write('**');
end;
writeln('');
readkey;
end.

można for wrzucić w for ; ) jak coś.. 

 okej i wytłumaczenie..

Dla a równego 1 wykonuję czynność do 10 i wtedy za każdym krokiem wypisuję *@
następnie writeln(''); przenosi nam kursor do następnej lini i czynność jest wykonywana ponownie przez następną pętle for.. i tak do końca znaczków.. readkey; wrzuciłem po to by program nie gasł po wykonaniu instrukcji tylko czekał na wcisnięcie dowolnego klawisza z klawiatury.. teraz odpowiem ci tak można wrzucić pętle for w pętle for ; ) powiem prościej, ciężko mi się już mysli.. ;p