Question

Program, który umożliwi wyprowadzenie na ekran monitora prostokąta o bokach n x m (boki podaje użytkownik), składającego się z liter "A" i "B", występujących co drugi wiersz.

Przykładowo:

Po podaniu przez użytkownika szerokości 6 oraz wysokości 3 ma wyświetlać:

ABABAB

BABABA

ABABAB

Pisane pod program Free Pascal.

Answer 1

 Zadanie w załączniku. Liczę na najlepszą odpowiedź. Pozdro.

 

 

Answer 2

program nazwa;
uses CRT;
var
        a,b:integer;
        x,y:integer;

begin
CLRSCR;

a:=0;
b:=0;

writeln('Podaj szerokosc: ');
readln(b);
writeln('Podaj wysokosc: ');
readln(a);

        for x:=1 to a do
        begin
                for y:=1 to b do
                begin
                        if (((x mod 2)=1) and ((y mod 2)=1)) then
                        begin
                                write('A');
                        end;

                        if (((x mod 2)=0) and ((y mod 2)=1)) then
                        begin
                                write('B');
                        end;


                        if (((x mod 2)=1) and ((y mod 2)=0)) then
                        begin
                                write('B');
                        end;

                        if (((x mod 2)=0) and ((y mod 2)=0)) then
                        begin
                                write('A');
                        end;
                end;
                writeln;
        end;

readln;
end.