warunki_pascal

{wszystkie projecty na "http://pastebin.com/u/udsigry"
Licencja: hmmm........ :P}

Program wybory;

Uses Crt;

Const PI = 3.14;
      autor = 'Marcin Kaim';

Var menu          : Char;   {zmienna wyboru i zakonczenia petli REPEAT}
    r             : Real;   {promien kola}
    wyraz1,wyraz2 : String; {wyrazy do dodawania}
    efekt         : String; {suma wyrazow}
    a,b,c,p       : Real;   {zmienne podsawy bok przeciw i pole}

Begin
    {Glowna iteracja programu - zapetlenie programu}
    Repeat
        ClrScr;

        {Menu programu}
        WriteLn('Program Mix Obliczen');
        WriteLn;
        WriteLn('k - Pole kola');
        WriteLn('d - Dodawanie tekstow');
        WriteLn('t - Pole i Przeciwprostokatna trojkata');
        WriteLn('q - Wyjscie');
        WriteLn;
        WriteLn('Program przygotowany przez: ',autor);
        WriteLn;
        ReadLn(menu);

        {Instrukcja wyboru}
        Case menu of
        'k','K': Begin

                {Pierwsza opcja wyboru}
                {Program pole kola}

                ClrScr;
                WriteLn('Program obliczajacy pole kola');
                Write('Podaj promien >?>');
                ReadLn(r);

                {Obliczenia i wyswietlenie wyniku}
                WriteLn('Pole wynosu P = PIr^2 = ',PI*Sqr(r):0:2);
                ReadLn;

              End;
        'd','D': Begin

                {Opcja druga - dodawanie tekstow}

                ClrScr;
                WriteLn('Pokaz dodawania tekstow');
                WriteLn;
                Write('Podaj jakis wyraz >?>');
                ReadLn(wyraz1);
                WriteLn;
                Write('I jeszcze jeden >?>');
                ReadLn(wyraz2);
                WriteLn;

                {Dodawanie tekstow}
                Writeln('A oto efekt dodawania');
                efekt := wyraz1 + wyraz2;
                WriteLn(efekt);
                ReadLn;
           End;
        't','T': Begin
                {opcje trzecia - pole trojkata i przeciw prostokatna}

                clrscr;
                WriteLn('Pole trojkata i przeciw prostokatna.');
                writeLn;
                Writeln('podaj podstawe (A)');
                ReadLn(a);
                WriteLn('podaj bok (B)');
                ReadLn(b);

                {dzialania}
                p := (a*b)*0.5;      {Pole Trójkata}
                c := SQR(a) + SQR(b);       {Przeciprostokatna}
                c := SQRT(c);
                WriteLn('pole trojkata wynosi: ',p:2:3,' , przeciwprostokatna ma dlugosc: ',c:2:3);
                readln;
                End;
        Else
            Begin
              {Alternatywny blok gdy nie znany znak}
              {Ten blok else moze nie istniec}

            If UpCase(menu) <> 'Q' Then
              Begin
                 WriteLn('Nie rozpoznany znak');
                 ReadLn;
              End;
            End;
        End;

    {Zakonczenie pentli REPEAT}
    Until (menu='q') or (menu='Q');
   {Until UpCase(menu)='Q';}
End.