ВЕЖБИ ОД Контролна структура (наредбa) за ЦИКЛИЧНО ПОВТОРУВАЊЕ

                                     -  REPEAT UNTIL -

1. ДСПКШ кој прави пресметка на сериски или паралелен отпор на  два отпорника со отпор R1 и R2

Решение

program otpor;
Uses Crt;                {biblioteka za da moze da se koristi clrscr koja sluzi za brisenje na ekran}
Var odg : char;
r1,r2,rs,rp:real;

Begin
Repeat
    writeln('1. Seriski');
    writeln('2. Paralelen');
    writeln('3. Izlez');
    odg:=readkey;         {fukcija za citanje na taster , moze i readln(odg);}
    clrscr;                      {brisenje na ekran}
    if (odg='1') then
    begin   
        Writeln('Vnesete gi r1 i r2');
        readln(r1,r2);
        rs:=r1+r2;
        writeln('Seriskiot otpor megu ',r1:6:2,' i ',r2:6:2,' iznesuva ',rs:6:2);
    end;
    if (odg='2') then
    begin
        Writeln('Vnesete gi r1 i r2');
        readln(r1,r2);
        rp:=(r1*r2)/(r1+r2);
        writeln('Paralelniot otpor megu ',r1:6:2,' i ',r2:6:2,' iznesuva ',rs:6:2);
    end;
    if (odg='3') then
    begin
        Writeln('Dali ste sigurni deka sakate da izlezete D ili N?');
        odg := Readkey;    {fukcija za citanje na taster , moze i readln(odg);}
        end;
Until (upcase(odg) = 'D');        {upcase funkcija za pravenje golema bukva moze da se pise i  until ((odg='d') or (odg='D'));  }
End.