Question

Napisz program w turbo pascalu, który zapyta się użytkownika co chce liczyć, czy chce mnożyć 2 liczby, czy je dodawać, odejmować czy dzielić 2 liczby (Instrukcja warunkowa kaskadowa) jeżeli nie to "czy chcesz wyświetlić tabliczkę mnożenia w różnych kolorach (pentla for...to...do), a może chcesz wyświetlić flagę. Potrzebne pilnie najlepiej do 9:00

Answer 1

program nazwa;
uses CRT;
        var
        a,b:longint;
        corobic:integer;
        tab:array [1..10,1..10] of integer;
        x,y:integer;
begin
CLRSCR;

corobic:=0;
a:=0;
b:=0;

        writeln('Co chcesz robic??: ');

        writeln;

        writeln('1:dodawac');
        writeln('2:odejmowac');
        writeln('3:mnozyc');
        writeln('4:dzielic');
        writeln('5:wyswietl tabliczke mnozenia w roznych kolorach');
        writeln('6:wyswietl flage Polski');

        writeln;

        write('Podaj cyfre(1-6): ');
        readln(corobic);


        if (corobic = 1) then
        begin
                CLRSCR;
                writeln('--DODAWANIE--');
                write('Podaj liczbe 1: ');
                readln(a);
                write('Podaj liczbe 2: ');
                readln(b);
                writeln(a,'+',b,'=',a+b);
        end
        else
        begin
                if (corobic = 2) then
                begin
                        CLRSCR;
                        writeln('--ODEJMOWANIE--');
                        write('Podaj liczbe 1: ');
                        readln(a);
                        write('Podaj liczbe 2: ');
                        readln(b);
                        writeln(a,'-',b,'=',a-b);
                end
                else
                begin
                        if (corobic = 3) then
                        begin
                                CLRSCR;
                                writeln('--MNOZENIE--');
                                write('Podaj liczbe 1: ');
                                readln(a);
                                write('Podaj liczbe 2: ');
                                readln(b);
                                writeln(a,'*',b,'=',a*b);
                        end
                        else
                        begin
                                if (corobic = 4) then
                                begin
                                        CLRSCR;
                                        writeln('--DZIELENIE--');
                                        write('Podaj liczbe 1: ');
                                        readln(a);
                                        write('Podaj liczbe 2: ');
                                        readln(b);
                                        writeln(a,'/',b,'=',a/b:0:2);
                                end
                                else
                                begin
                                        if (corobic = 5) then
                                        begin
                                                CLRSCR;
                                                writeln('--TABLICZKA MNOZENIA W ROZNYCH KOLORACH--');
                                                for x:=1 to 10 do
                                                begin
                                                        for y:=1 to 10 do
                                                        begin
                                                                if ((x mod 2) = 0) then
                                                                begin
                                                                        textcolor(red);
                                                                        tab[x][y]:=x*y;
                                                                        write(tab[x][y]:4);
                                                                end
                                                                else
                                                                begin
                                                                        textcolor(green);
                                                                        tab[x][y]:=x*y;
                                                                        write(tab[x][y]:4);
                                                                end;
                                                        end;
                                                        writeln;
                                                end;
                                        end
                                        else
                                        begin
                                                if (corobic = 6) then
                                                begin
                                                        CLRSCR;
                                                        writeln('--FLAGA POLSKI--');
                                                        textcolor(white);
                                                        writeln('**********');
                                                        writeln('**********');
                                                        writeln('**********');
                                                        textcolor(red);
                                                        writeln('**********');
                                                        writeln('**********');
                                                        writeln('**********');
                                                end;
                                        end;
                                end;
                        end;
                end;
        end;

readln;
end.

 

 

http://wklej.org/id/924731/