Facebook

egzamin safest cryptocurrency exchange

From zemlin, 9 Years ago, written in Plain Text.
URL https://pastebin.pl/view/9c664443
Embed
Download Paste or View Raw
Hits: 586
  1. //Paweł Zemliński
  2.  
  3. program egzamin;
  4.  
  5. uses graph, crt;
  6.  
  7. var
  8. w:char;
  9.  
  10. procedure wczytaj();
  11. var
  12. dlugosc:integer;
  13. begin
  14.      repeat
  15.            writeln('Podal dlugosc boku kwadratu w pikselach z przedzialu od 10 do 200 =:');
  16.            readln(dlugosc);
  17.            if ((dlugosc<10) OR (dlugosc>200)) then writeln('Podano zla wartosc!');
  18.      until((dlugosc>=10) AND (dlugosc<=200));
  19. end;
  20.  
  21. begin
  22.      repeat
  23.            writeln('w - wczytywanie dlugosci boku kwadratu');
  24.            writeln('o - obliczanie promienia kola opisanego na kwadracie');
  25.            writeln('r - rysunek');
  26.            writeln('q - wyjscie z programu');
  27.            writeln('Wybieraj...');
  28.            readln(w);
  29.  
  30.            case w of
  31.            'w' : wczytaj();
  32.  
  33.            end;
  34.  
  35.      until(w='q');
  36.  
  37.      writeln('Do zobaczenia');
  38.      readln;
  39. end.

Reply to "egzamin"