API tools faq
paste
Guest User

Untitled

a guest
Jul 23rd, 2018
73
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 30.94 KB | None | 0 0
raw download clone embed print report
  1. program project1;
  2. uses Crt;
  3. const Pi = 3.141592654;
  4. var Cislo1 : integer;
  5.     Cislo2 : integer;
  6.     Cislo3 : integer;
  7.     Cislo4 : integer;
  8.     Cislo5 : real;
  9.     CisloA1 : real;
  10.     CisloA2 : real;
  11.     CisloA3 : real;
  12.     CisloB1 : real;
  13.     CisloB2 : real;
  14.     CisloB3 : real;
  15.     CisloS1 : real;
  16.     CisloS2 : real;
  17.     CisloS3 : real;
  18.     Vysledek : integer;
  19.     VysledekB : real;
  20.     Operace : byte;
  21.     menu : byte;
  22.     NumOperace : byte;
  23.     GeoOperace : byte;
  24.     VekOperace : byte;
  25.     ParOperace : byte;
  26.     ObeOperace : byte;
  27.     Zbytek : integer;
  28.     Dalsi : byte;
  29.     Hmenu : byte;
  30.     Voper : byte;
  31.  
  32. procedure Men;
  33.  begin
  34.  writeln('Vyberte mat. oblast');
  35.  writeln('________________________________________');
  36.  writeln('1.Numerika');
  37.  writeln('2.Geometrie');
  38.  writeln('3.Vektory');
  39.  writeln('4.Parametricka rovnice primky');
  40.  writeln('5.Obecne rovnice primky');
  41.  writeln('________________________________________');
  42.  readln(menu);
  43.  end;
  44. procedure Ope;
  45.  begin
  46.  if menu = 1 then
  47.      begin
  48.      writeln('Vyberte operaci');
  49.      writeln('________________________________________');
  50.      writeln('1-scitani');
  51.      writeln('2-odcitani');
  52.      writeln('3-nasobeni');
  53.      writeln('4-deleni');
  54.      writeln('5-druha mocnina');
  55.      writeln('6-druha odmocnina');
  56.      writeln('________________________________________');
  57.      readln(NumOperace);
  58.      end;
  59.      if menu = 2 then
  60.      begin
  61.      writeln('Vyberte operaci');
  62.      writeln('________________________________________');
  63.      writeln('1-obvod ctverce');
  64.      writeln('2-obsah ctverce');
  65.      writeln('3-obvod obdelnika');
  66.      writeln('4-obsah obdelnika');
  67.      writeln('5-obvod trojuhelniku');
  68.      writeln('6-obsah trojuhelniku');
  69.      writeln('7-obvod kruhu');
  70.      writeln('8-obsah kruhu');
  71.      writeln('________________________________________');
  72.      readln(GeoOperace);
  73.      end;
  74.      if menu = 3 then
  75.      begin
  76.      writeln('Vyberte operaci');
  77.      writeln('________________________________________');
  78.      writeln('1-velikost usecky v rovine');
  79.      writeln('2-velikost usecky v prostoru');
  80.      writeln('3-stred usecky v rovine');
  81.      writeln('4-stred usecky v prostoru');
  82.      writeln('5-Scitani dvou vektoru v rovine');
  83.      writeln('6-Skalarni soucin dvou vektoru');
  84.      writeln('7-Vektorovy soucin');
  85.      writeln('________________________________________');
  86.      readln(VekOperace)
  87.      end;
  88.      if menu = 4 then
  89.      begin
  90.      writeln('Mame zadano:');
  91.      writeln('________________________________________');
  92.      writeln('1-Bod a smerovy vektor');
  93.      writeln('2-Dva body');
  94.      writeln('3-Bod a normalovy vektor');
  95.      writeln('________________________________________');
  96.      readln(ParOperace);
  97.      end;
  98.      if menu = 5 then
  99.      begin
  100.      writeln('Mame zadano:');
  101.      writeln('________________________________________');
  102.      writeln('1-Dva body');
  103.      writeln('2-Bod a smerovy vektor');
  104.      writeln('3-Bod a normalovy vektor');
  105.      writeln('________________________________________');
  106.      readln(ObeOperace);
  107.      end;
  108.  end;
  109. procedure Vyp;
  110.  begin
  111.  if NumOperace=1 then
  112.  begin
  113.    repeat
  114.    write('zadejte 1. cislo');
  115.    readln(Cislo1);
  116.    write('zadejte 2. cislo');
  117.    readln(Cislo2);
  118.    vysledek := Cislo1 + Cislo2;
  119.    writeln(Cislo1,' + ',Cislo2,' = ',Vysledek);
  120.    writeln;
  121.    writeln('________________________________________');
  122.    writeln('Dalsi vypocek ? (1/0)');
  123.    readln(Dalsi);
  124.    until (dalsi = 0);
  125.  end;
  126.  
  127.  if NumOperace=2 then
  128.  begin
  129.    repeat
  130.    write('zadejte 1. cislo');
  131.    readln(Cislo1);
  132.    write('zadejte 2. cislo');
  133.    readln(Cislo2);
  134.    vysledek := Cislo1 - Cislo2;
  135.    writeln(Cislo1,' - ',Cislo2,' = ',Vysledek);
  136.    writeln;
  137.    writeln('________________________________________');
  138.    writeln('Dalsi vypocek ? (1/0)');
  139.    readln(Dalsi);
  140.    until (dalsi = 0);
  141.  end;
  142.  
  143.  if NumOperace=3 then
  144.  begin
  145.    repeat
  146.    write('zadejte 1. cislo');
  147.    readln(Cislo1);
  148.    write('zadejte 2. cislo');
  149.    readln(Cislo2);
  150.    vysledek := Cislo1 * Cislo2;
  151.    writeln(Cislo1,' * ',Cislo2,' = ',Vysledek);
  152.    writeln;
  153.    writeln('________________________________________');
  154.    writeln('Dalsi vypocek ? (1/0)');
  155.    readln(Dalsi);
  156.    until (dalsi = 0);
  157.  end;
  158.  
  159.  if NumOperace=4 then
  160.  begin
  161.    repeat
  162.     if cislo2<>0 then writeln('Nelze dělit 0');
  163.     begin
  164.       write('zadejte 1. cislo');
  165.       readln(Cislo1);
  166.       write('zadejte 2. cislo');
  167.       readln(Cislo2);
  168.       vysledek := Cislo1 div Cislo2;
  169.       zbytek:= Cislo1 mod Cislo2;
  170.       writeln(Cislo1,' / ',Cislo2,' = ',Vysledek, ' a zbytek ',zbytek);
  171.     end;
  172.         writeln;
  173.         writeln('________________________________________');
  174.         writeln('Dalsi vypocek ? (1/0)');
  175.         readln(Dalsi);
  176.      until (dalsi = 0);
  177.  end;
  178.  
  179.  if NumOperace = 5 then
  180. begin
  181.      repeat
  182.     write('Zadejte cislo ');
  183.     readln(Cislo1);
  184.     Vysledek := Cislo1 * Cislo1;
  185.     writeln(Cislo1,' ^ ',' 2 ',' = ',Vysledek);
  186.         writeln;
  187.         writeln('________________________________________');
  188.         writeln('Dalsi vypocek ? (1/0)');
  189.         readln(Dalsi);
  190.       until (dalsi = 0);
  191. end;
  192.  
  193.  if NumOperace = 6 then
  194.  begin
  195.     repeat
  196.     write('Zadejte cislo ');
  197.     readln(Cislo5);
  198.     VysledekB := Sqrt(Cislo5);
  199.     writeln('Sqrt(',Round(Cislo5),')',' = ',Round(VysledekB));
  200.         writeln;
  201.         writeln('________________________________________');
  202.         writeln('Dalsi vypocek ? (1/0)');
  203.         readln(Dalsi);
  204.      until (dalsi = 0);
  205.  end;
  206.  
  207.  if GeoOperace = 1 then
  208. begin
  209.    repeat
  210.     write('Zadejte delku strany ctverce ');
  211.     readln(Cislo1);
  212.     Vysledek := Cislo1 * 4;
  213.     writeln(' O ',' = ',Vysledek,'( j)');
  214.         writeln;
  215.         writeln('________________________________________');
  216.         writeln('Dalsi vypocek ? (1/0)');
  217.         readln(Dalsi);
  218.         until (dalsi = 0);
  219. end;
  220.  
  221.  if GeoOperace = 2 then
  222. begin
  223.     Repeat
  224.     write('Zadejte delku strany ctverce ');
  225.     readln(Cislo1);
  226.     Vysledek := Cislo1 * Cislo1;
  227.     writeln(' S ',' = ',Vysledek,'( j^2)');
  228.         writeln;
  229.         writeln('________________________________________');
  230.         writeln('Dalsi vypocek ? (1/0)');
  231.         readln(Dalsi);
  232.     until (dalsi = 0);
  233. end;
  234.  
  235.  if GeoOperace = 3 then
  236.  begin
  237.    repeat
  238.     write('Zadejte delku strany a ');
  239.     readln(Cislo1);
  240.         write('Zadejte delku strany b ');
  241.     readln(Cislo2);
  242.     Vysledek := 2*(Cislo1 + Cislo2);
  243.     writeln(' O ',' = ',Vysledek,'( j)');
  244.         writeln;
  245.         writeln('________________________________________');
  246.         writeln('Dalsi vypocek ? (1/0)');
  247.         readln(Dalsi);
  248.    until (dalsi = 0);
  249.  end;
  250.  
  251.  if GeoOperace = 4 then
  252.  begin
  253.     repeat
  254.     write('Zadejte delku strany a ');
  255.     readln(Cislo1);
  256.         write('Zadejte delku strany b ');
  257.     readln(Cislo2);
  258.     Vysledek := Cislo1 * Cislo2;
  259.     writeln(' S ',' = ',Vysledek,'( j^2)');
  260.         writeln;
  261.         writeln('________________________________________');
  262.         writeln('Dalsi vypocek ? (1/0)');
  263.         readln(Dalsi);
  264.     until (dalsi = 0);
  265.  end;
  266.  
  267.  if GeoOperace = 5 then
  268.  begin
  269.    repeat
  270.     write('Zadejte delku strany a ');
  271.     readln(Cislo1);
  272.         write('Zadejte delku strany b ');
  273.     readln(Cislo2);
  274.         write('Zadejte delku strany c ');
  275.     readln(Cislo3);
  276.     Vysledek := Cislo1 + Cislo2 + Cislo3;
  277.     writeln(' O ',' = ',Vysledek,'( j)');
  278.         writeln;
  279.         writeln('________________________________________');
  280.         writeln('Dalsi vypocek ? (1/0)');
  281.         readln(Dalsi);
  282.     until (dalsi = 0);
  283.  end;
  284.  
  285.  if GeoOperace = 6 then
  286.  begin
  287.    repeat
  288.     write('Zadejte delku visky ');
  289.     readln(Cislo1);
  290.         write('Zadejte delku strany k dane visce ');
  291.     readln(Cislo2);
  292.     Vysledek := (Cislo2 * Cislo1) div 2;
  293.     writeln(' S ',' = ',Vysledek,'( j^2)');
  294.         writeln;
  295.         writeln('________________________________________');
  296.         writeln('Dalsi vypocek ? (1/0)');
  297.         readln(Dalsi);
  298.    until (dalsi = 0);
  299.  end;
  300.  
  301.  if GeoOperace = 7 then
  302.  begin
  303.    repeat
  304.     write('Zadejte prumer kruhu ');
  305.     readln(Cislo1);
  306.         Cislo5 := Pi * Cislo1;
  307.     writeln(' O ',' = ',Cislo5,'( j)');
  308.         writeln;
  309.         writeln('________________________________________');
  310.         writeln('Dalsi vypocek ? (1/0)');
  311.         readln(Dalsi);
  312.    until (dalsi = 0);
  313.  end;
  314.  
  315.  if GeoOperace = 8 then
  316.  begin
  317.    repeat
  318.     write('Zadejte prumer kruhu ');
  319.     readln(Cislo1);
  320.         Cislo5 := Pi * ((Cislo1 * cislo1) div 4);
  321.     writeln(' S ',' = ',Cislo5,'( j^2)');
  322.         writeln;
  323.         writeln('________________________________________');
  324.         writeln('Dalsi vypocek ? (1/0)');
  325.         readln(Dalsi);
  326.    until (dalsi = 0);
  327.  end;
  328.  
  329.  if VekOperace = 1 then
  330.  begin //vypsat do radku ale vypisuje pod sebe
  331.    repeat
  332.     write('Souradnice prvniho bodu A['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  333.         write('Souradnice druheho bodu B['); readln(CisloB1);write(';');readln(cisloB2);writeln(']');
  334.         Cislo5 := (Sqr(cisloB1-cisloA1)+Sqr(cisloB2-cisloA2));
  335.         VysledekB := Sqrt(cislo5);
  336.     writeln('|AB|',' = ',Round(VysledekB));
  337.         writeln;
  338.         writeln('________________________________________');
  339.         writeln('Dalsi vypocek ? (1/0)');
  340.         readln(Dalsi);
  341.    until (dalsi = 0);
  342.  end;
  343.  
  344.  if VekOperace = 2 then
  345.  begin //vypsat do radku ale vypisuje pod sebe
  346.     repeat
  347.     write('Souradnice prvniho bodu A['); readln(CisloA1);write(';');readln(cisloA2);write(';');readln(cisloA3);writeln(']');
  348.         write('Souradnice druheho bodu B['); readln(CisloB1);write(';');readln(cisloB2);write(';');readln(cisloB3);writeln(']');
  349.         Cislo5 := (Sqr(cisloB1-cisloA1)+Sqr(cisloB2-cisloA2)+Sqr(cisloB3-cisloA3));
  350.         VysledekB := Sqrt(cislo5);
  351.     writeln('|AB|',' = ',Round(VysledekB));
  352.         writeln;
  353.         writeln('________________________________________');
  354.         writeln('Dalsi vypocek ? (1/0)');
  355.         readln(Dalsi);
  356.    until (dalsi = 0);
  357.  end;
  358.  
  359.  if VekOperace = 3 then
  360.  begin //vypsat do radku ale vypisuje pod sebe
  361.     repeat
  362.     write('Souradnice prvniho bodu A['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  363.         write('Souradnice druheho bodu B['); readln(CisloB1);write(';');readln(cisloB2);writeln(']');
  364.         CisloS1 := (cisloA1+cisloB1)/2;
  365.         CisloS2 := (cisloA2+cisloB2)/2;
  366.         writeln('S','[',Round(cisloS1),';',Round(cisloS2),']');
  367.         writeln;
  368.         writeln('________________________________________');
  369.         writeln('Dalsi vypocek ? (1/0)');
  370.         readln(Dalsi);
  371.    until (dalsi = 0);
  372.  end;
  373.  
  374.  if VekOperace = 4 then
  375.  begin //vypsat do radku ale vypisuje pod sebe
  376.     repeat
  377.     write('Souradnice prvniho bodu A['); readln(CisloA1);write(';');readln(cisloA2);write(';');readln(cisloA3);writeln(']');
  378.         write('Souradnice druheho bodu B['); readln(CisloB1);write(';');readln(cisloB2);write(';');readln(cisloB3);writeln(']');
  379.         CisloS1 := (cisloA1+cisloB1)/2;
  380.         CisloS2 := (cisloA2+cisloB2)/2;
  381.         CisloS3 := (cisloA3+cisloB3)/2;
  382.         writeln('S','[',Round(cisloS1),';',Round(cisloS2),';',Round(cisloS3),']');
  383.         writeln;
  384.         writeln('________________________________________');
  385.         writeln('Dalsi vypocek ? (1/0)');
  386.         readln(Dalsi);
  387.    until (dalsi = 0);
  388.  end;
  389.  
  390.  if VekOperace = 5 then
  391.  begin
  392.    repeat
  393.         write('Souradnice 1.vektor u=('); readln(CisloA1);write(';');readln(cisloA2);writeln(')');
  394.         write('Souradnice 2.vektor v=('); readln(CisloB1);write(';');readln(cisloB2);writeln(')');
  395.         CisloS1 := (cisloA1+cisloB1);
  396.         CisloS2 := (cisloA2+cisloB2);
  397.         writeln('u+v','=(',Round(cisloS1),';',Round(cisloS2),')');
  398.         writeln;
  399.         writeln('________________________________________');
  400.         writeln('Dalsi vypocek ? (1/0)');
  401.         readln(Dalsi);
  402.    until (dalsi = 0);
  403.  end;
  404.  
  405.  if VekOperace = 6 then
  406.  begin
  407.    repeat
  408.         write('Souradnice 1.vektor u=('); readln(CisloA1);write(';');readln(cisloA2);writeln(')');
  409.         write('Souradnice 2.vektor v=('); readln(CisloB1);write(';');readln(cisloB2);writeln(')');
  410.         vysledekB := (cisloA1*cisloB1) + (cisloA2*cisloB2);
  411.         writeln('u.v = ',Round(vysledekB));
  412.         writeln;
  413.         writeln('________________________________________');
  414.         writeln('Dalsi vypocek ? (1/0)');
  415.         readln(Dalsi);
  416.    until (dalsi = 0);
  417.  end;
  418.  
  419.  if VekOperace = 7 then
  420.  begin
  421.    repeat
  422.         write('Souradnice 1.vektor u=('); readln(CisloA1);write(';');readln(cisloA2);write(';');readln(cisloA3);writeln(')');
  423.         write('Souradnice 2.vektor v=('); readln(CisloB1);write(';');readln(cisloB2);write(';');readln(cisloB3);writeln(')');
  424.         cisloS1 := (cisloA2*cisloB3)-(CisloA3*cisloB2);
  425.         cisloS2 := (CisloA3*cisloB1)-(cisloA1*cisloB1);
  426.         cisloS3 := (CisloA1*cisloB2)-(cisloA2*CisloB1);
  427.         writeln('uxv = (',round(cisloS1),';',round(cisloS2),';',round(cisloS3),')');
  428.         writeln;
  429.         writeln('________________________________________');
  430.         writeln('Dalsi vypocek ? (1/0)');
  431.         readln(Dalsi);
  432.    until (dalsi = 0);
  433.  end;
  434.  
  435.  if ParOperace = 1 then
  436.  begin
  437.    repeat
  438.         write('Souradnice bodu ['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  439.         write('Souradnice smeroveho vektoru s=('); readln(CisloB1);write(';');readln(cisloB2);writeln(')');
  440.         writeln('x = ',round(cisloA1),'+ t *',round(cisloB1));
  441.         writeln('y = ',round(cisloA2),'+ t *',round(cisloB2),' ;t nalezi R');
  442.         writeln;
  443.         writeln('________________________________________');
  444.         writeln('Dalsi vypocek ? (1/0)');
  445.         readln(Dalsi);
  446.    until (dalsi = 0);
  447.  end;
  448.  
  449.  if ParOperace = 2 then
  450.  begin
  451.    repeat
  452.         write('Souradnice 1.bodu ['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  453.         write('Souradnice 2.bodu ['); readln(CisloB1);write(';');readln(cisloB2);writeln(']');
  454.         CisloS1 := cisloB1-cisloA1;
  455.         cisloS2 := cisloB2-cisloA2;
  456.         writeln('x = ',round(cisloA1),'+ t *',round(cisloS1));
  457.         writeln('y = ',round(cisloA2),'+ t *',round(cisloS2),' ;t nalezi R');
  458.         writeln;
  459.         writeln('________________________________________');
  460.         writeln('Dalsi vypocek ? (1/0)');
  461.         readln(Dalsi);
  462.    until (dalsi = 0);
  463.  end;
  464.  
  465.  if ParOperace = 3 then
  466.  begin
  467.    repeat
  468.         write('Souradnice 1.bodu ['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  469.         write('Souradnice normaloveho vektoru n=('); readln(CisloB1);write(';');readln(cisloB2);writeln(')');
  470.         writeln('x = ',round(cisloA1),'+ t *',round(cisloB2*(-1)));
  471.         writeln('y = ',round(cisloA2),'+ t *',round(cisloB1),' ;t nalezi R');
  472.         writeln;
  473.         writeln('________________________________________');
  474.         writeln('Dalsi vypocek ? (1/0)');
  475.         readln(Dalsi);
  476.    until (dalsi = 0);
  477.  end;
  478.  
  479.  if ObeOperace = 1 then
  480.  begin
  481.    repeat
  482.         write('Souradnice 1.bodu ['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  483.         write('Souradnice 2.bodu ['); readln(CisloS1);write(';');readln(cisloS2);writeln(']');
  484.         CisloB1 := cisloS1-cisloA1;
  485.         cisloB2 := cisloS2-cisloA2;
  486.         Cislo5 := ((cisloB2)*cisloA1)-(cisloB1*cisloA2);
  487.         writeln(Round(-CisloB2),'x','+',round(cisloB1),'y','+',round(cislo5),'=0');
  488.         writeln;
  489.         writeln('________________________________________');
  490.         writeln('Dalsi vypocek ? (1/0)');
  491.         readln(Dalsi);
  492.    until (dalsi = 0);
  493.  end;
  494.  
  495.  if ObeOperace = 2 then
  496.  begin
  497.    repeat
  498.         write('Souradnice 1.bodu ['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  499.         write('Souradnice smeroveho vetoru ('); readln(CisloB1);write(';');readln(cisloB2);writeln(')');
  500.         Cislo5 := ((cisloB2)*cisloA1)-(cisloB1*cisloA2);
  501.         writeln(Round(-CisloB2),'x','+',round(cisloB1),'y','+',round(cislo5),'=0');
  502.         writeln;
  503.         writeln('________________________________________');
  504.         writeln('Dalsi vypocek ? (1/0)');
  505.         readln(Dalsi);
  506.    until (dalsi = 0);
  507.  end;
  508.  
  509.  if ObeOperace = 3 then
  510.  begin
  511.    repeat
  512.         write('Souradnice 1.bodu ['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  513.         write('Souradnice smeroveho vetoru ('); readln(CisloB1);write(';');readln(cisloB2);writeln(')');
  514.         Cislo5 := ((-cisloB1)*cisloA1)-(cisloB2*cisloA2);
  515.         writeln(Round(CisloB1),'x','+',round(cisloB2),'y','+',round(cislo5),'=0');
  516.         writeln;
  517.         writeln('________________________________________');
  518.         writeln('Dalsi vypocek ? (1/0)');
  519.         readln(Dalsi);
  520.    until (dalsi = 0);
  521.  end;
  522.  end;
  523.  
  524.  
  525. begin
  526.  TextColor(2);
  527.  writeln;
  528.  writeln('------Calkulator v0.1------');
  529.  writeln;
  530.  writeln('Calkulator v0.1 umoznuje scitani, odcitani, nasobeni a deleni dvou celich cisel, druhou mocninu, obvod a obsah ctverce, obelniku a trojuhelniku.');
  531.  writeln;
  532.  writeln('________________________________________');
  533.  writeln('________________________________________');
  534.  writeln;
  535.  Men;
  536.  begin
  537.   Ope;
  538.  end;
  539.  writeln('________________________________________');
  540.  
  541.  if NumOperace=1 then
  542.  begin
  543.    repeat
  544.    write('zadejte 1. cislo');
  545.    readln(Cislo1);
  546.    write('zadejte 2. cislo');
  547.    readln(Cislo2);
  548.    vysledek := Cislo1 + Cislo2;
  549.    writeln(Cislo1,' + ',Cislo2,' = ',Vysledek);
  550.    writeln;
  551.    writeln('________________________________________');
  552.    writeln('Dalsi vypocek ? (1/0)');
  553.    readln(Dalsi);
  554.    until (dalsi = 0);
  555.  end;
  556.  
  557.  if NumOperace=2 then
  558.  begin
  559.    repeat
  560.    write('zadejte 1. cislo');
  561.    readln(Cislo1);
  562.    write('zadejte 2. cislo');
  563.    readln(Cislo2);
  564.    vysledek := Cislo1 - Cislo2;
  565.    writeln(Cislo1,' - ',Cislo2,' = ',Vysledek);
  566.    writeln;
  567.    writeln('________________________________________');
  568.    writeln('Dalsi vypocek ? (1/0)');
  569.    readln(Dalsi);
  570.    until (dalsi = 0);
  571.  end;
  572.  
  573.  if NumOperace=3 then
  574.  begin
  575.    repeat
  576.    write('zadejte 1. cislo');
  577.    readln(Cislo1);
  578.    write('zadejte 2. cislo');
  579.    readln(Cislo2);
  580.    vysledek := Cislo1 * Cislo2;
  581.    writeln(Cislo1,' * ',Cislo2,' = ',Vysledek);
  582.    writeln;
  583.    writeln('________________________________________');
  584.    writeln('Dalsi vypocek ? (1/0)');
  585.    readln(Dalsi);
  586.    until (dalsi = 0);
  587.  end;
  588.  
  589.  if NumOperace=4 then
  590.  begin
  591.    repeat
  592.     if cislo2<>0 then writeln('Nelze dělit 0');
  593.     begin
  594.       write('zadejte 1. cislo');
  595.       readln(Cislo1);
  596.       write('zadejte 2. cislo');
  597.       readln(Cislo2);
  598.       vysledek := Cislo1 div Cislo2;
  599.       zbytek:= Cislo1 mod Cislo2;
  600.       writeln(Cislo1,' / ',Cislo2,' = ',Vysledek, ' a zbytek ',zbytek);
  601.     end;
  602.         writeln;
  603.         writeln('________________________________________');
  604.         writeln('Dalsi vypocek ? (1/0)');
  605.         readln(Dalsi);
  606.      until (dalsi = 0);
  607.  end;
  608.  
  609.  if NumOperace = 5 then
  610. begin
  611.      repeat
  612.     write('Zadejte cislo ');
  613.     readln(Cislo1);
  614.     Vysledek := Cislo1 * Cislo1;
  615.     writeln(Cislo1,' ^ ',' 2 ',' = ',Vysledek);
  616.         writeln;
  617.         writeln('________________________________________');
  618.         writeln('Dalsi vypocek ? (1/0)');
  619.         readln(Dalsi);
  620.       until (dalsi = 0);
  621. end;
  622.  
  623.  if NumOperace = 6 then
  624.  begin
  625.     repeat
  626.     write('Zadejte cislo ');
  627.     readln(Cislo5);
  628.     VysledekB := Sqrt(Cislo5);
  629.     writeln('Sqrt(',Round(Cislo5),')',' = ',Round(VysledekB));
  630.         writeln;
  631.         writeln('________________________________________');
  632.         writeln('Dalsi vypocek ? (1/0)');
  633.         readln(Dalsi);
  634.      until (dalsi = 0);
  635.  end;
  636.  
  637.  if GeoOperace = 1 then
  638. begin
  639.    repeat
  640.     write('Zadejte delku strany ctverce ');
  641.     readln(Cislo1);
  642.     Vysledek := Cislo1 * 4;
  643.     writeln(' O ',' = ',Vysledek,'( j)');
  644.         writeln;
  645.         writeln('________________________________________');
  646.         writeln('Dalsi vypocek ? (1/0)');
  647.         readln(Dalsi);
  648.         until (dalsi = 0);
  649. end;
  650.  
  651.  if GeoOperace = 2 then
  652. begin
  653.     Repeat
  654.     write('Zadejte delku strany ctverce ');
  655.     readln(Cislo1);
  656.     Vysledek := Cislo1 * Cislo1;
  657.     writeln(' S ',' = ',Vysledek,'( j^2)');
  658.         writeln;
  659.         writeln('________________________________________');
  660.         writeln('Dalsi vypocek ? (1/0)');
  661.         readln(Dalsi);
  662.     until (dalsi = 0);
  663. end;
  664.  
  665.  if GeoOperace = 3 then
  666.  begin
  667.    repeat
  668.     write('Zadejte delku strany a ');
  669.     readln(Cislo1);
  670.         write('Zadejte delku strany b ');
  671.     readln(Cislo2);
  672.     Vysledek := 2*(Cislo1 + Cislo2);
  673.     writeln(' O ',' = ',Vysledek,'( j)');
  674.         writeln;
  675.         writeln('________________________________________');
  676.         writeln('Dalsi vypocek ? (1/0)');
  677.         readln(Dalsi);
  678.    until (dalsi = 0);
  679.  end;
  680.  
  681.  if GeoOperace = 4 then
  682.  begin
  683.     repeat
  684.     write('Zadejte delku strany a ');
  685.     readln(Cislo1);
  686.         write('Zadejte delku strany b ');
  687.     readln(Cislo2);
  688.     Vysledek := Cislo1 * Cislo2;
  689.     writeln(' S ',' = ',Vysledek,'( j^2)');
  690.         writeln;
  691.         writeln('________________________________________');
  692.         writeln('Dalsi vypocek ? (1/0)');
  693.         readln(Dalsi);
  694.     until (dalsi = 0);
  695.  end;
  696.  
  697.  if GeoOperace = 5 then
  698.  begin
  699.    repeat
  700.     write('Zadejte delku strany a ');
  701.     readln(Cislo1);
  702.         write('Zadejte delku strany b ');
  703.     readln(Cislo2);
  704.         write('Zadejte delku strany c ');
  705.     readln(Cislo3);
  706.     Vysledek := Cislo1 + Cislo2 + Cislo3;
  707.     writeln(' O ',' = ',Vysledek,'( j)');
  708.         writeln;
  709.         writeln('________________________________________');
  710.         writeln('Dalsi vypocek ? (1/0)');
  711.         readln(Dalsi);
  712.     until (dalsi = 0);
  713.  end;
  714.  
  715.  if GeoOperace = 6 then
  716.  begin
  717.    repeat
  718.     write('Zadejte delku visky ');
  719.     readln(Cislo1);
  720.         write('Zadejte delku strany k dane visce ');
  721.     readln(Cislo2);
  722.     Vysledek := (Cislo2 * Cislo1) div 2;
  723.     writeln(' S ',' = ',Vysledek,'( j^2)');
  724.         writeln;
  725.         writeln('________________________________________');
  726.         writeln('Dalsi vypocek ? (1/0)');
  727.         readln(Dalsi);
  728.    until (dalsi = 0);
  729.  end;
  730.  
  731.  if GeoOperace = 7 then
  732.  begin
  733.    repeat
  734.     write('Zadejte prumer kruhu ');
  735.     readln(Cislo1);
  736.         Cislo5 := Pi * Cislo1;
  737.     writeln(' O ',' = ',Cislo5,'( j)');
  738.         writeln;
  739.         writeln('________________________________________');
  740.         writeln('Dalsi vypocek ? (1/0)');
  741.         readln(Dalsi);
  742.    until (dalsi = 0);
  743.  end;
  744.  
  745.  if GeoOperace = 8 then
  746.  begin
  747.    repeat
  748.     write('Zadejte prumer kruhu ');
  749.     readln(Cislo1);
  750.         Cislo5 := Pi * ((Cislo1 * cislo1) div 4);
  751.     writeln(' S ',' = ',Cislo5,'( j^2)');
  752.         writeln;
  753.         writeln('________________________________________');
  754.         writeln('Dalsi vypocek ? (1/0)');
  755.         readln(Dalsi);
  756.    until (dalsi = 0);
  757.  end;
  758.  
  759.  if VekOperace = 1 then
  760.  begin //vypsat do radku ale vypisuje pod sebe
  761.    repeat
  762.     write('Souradnice prvniho bodu A['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  763.         write('Souradnice druheho bodu B['); readln(CisloB1);write(';');readln(cisloB2);writeln(']');
  764.         Cislo5 := (Sqr(cisloB1-cisloA1)+Sqr(cisloB2-cisloA2));
  765.         VysledekB := Sqrt(cislo5);
  766.     writeln('|AB|',' = ',Round(VysledekB));
  767.         writeln;
  768.         writeln('________________________________________');
  769.         writeln('Dalsi vypocek ? (1/0)');
  770.         readln(Dalsi);
  771.    until (dalsi = 0);
  772.  end;
  773.  
  774.  if VekOperace = 2 then
  775.  begin //vypsat do radku ale vypisuje pod sebe
  776.     repeat
  777.     write('Souradnice prvniho bodu A['); readln(CisloA1);write(';');readln(cisloA2);write(';');readln(cisloA3);writeln(']');
  778.         write('Souradnice druheho bodu B['); readln(CisloB1);write(';');readln(cisloB2);write(';');readln(cisloB3);writeln(']');
  779.         Cislo5 := (Sqr(cisloB1-cisloA1)+Sqr(cisloB2-cisloA2)+Sqr(cisloB3-cisloA3));
  780.         VysledekB := Sqrt(cislo5);
  781.     writeln('|AB|',' = ',Round(VysledekB));
  782.         writeln;
  783.         writeln('________________________________________');
  784.         writeln('Dalsi vypocek ? (1/0)');
  785.         readln(Dalsi);
  786.    until (dalsi = 0);
  787.  end;
  788.  
  789.  if VekOperace = 3 then
  790.  begin //vypsat do radku ale vypisuje pod sebe
  791.     repeat
  792.     write('Souradnice prvniho bodu A['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  793.         write('Souradnice druheho bodu B['); readln(CisloB1);write(';');readln(cisloB2);writeln(']');
  794.         CisloS1 := (cisloA1+cisloB1)/2;
  795.         CisloS2 := (cisloA2+cisloB2)/2;
  796.         writeln('S','[',Round(cisloS1),';',Round(cisloS2),']');
  797.         writeln;
  798.         writeln('________________________________________');
  799.         writeln('Dalsi vypocek ? (1/0)');
  800.         readln(Dalsi);
  801.    until (dalsi = 0);
  802.  end;
  803.  
  804.  if VekOperace = 4 then
  805.  begin //vypsat do radku ale vypisuje pod sebe
  806.     repeat
  807.     write('Souradnice prvniho bodu A['); readln(CisloA1);write(';');readln(cisloA2);write(';');readln(cisloA3);writeln(']');
  808.         write('Souradnice druheho bodu B['); readln(CisloB1);write(';');readln(cisloB2);write(';');readln(cisloB3);writeln(']');
  809.         CisloS1 := (cisloA1+cisloB1)/2;
  810.         CisloS2 := (cisloA2+cisloB2)/2;
  811.         CisloS3 := (cisloA3+cisloB3)/2;
  812.         writeln('S','[',Round(cisloS1),';',Round(cisloS2),';',Round(cisloS3),']');
  813.         writeln;
  814.         writeln('________________________________________');
  815.         writeln('Dalsi vypocek ? (1/0)');
  816.         readln(Dalsi);
  817.    until (dalsi = 0);
  818.  end;
  819.  
  820.  if VekOperace = 5 then
  821.  begin
  822.    repeat
  823.         write('Souradnice 1.vektor u=('); readln(CisloA1);write(';');readln(cisloA2);writeln(')');
  824.         write('Souradnice 2.vektor v=('); readln(CisloB1);write(';');readln(cisloB2);writeln(')');
  825.         CisloS1 := (cisloA1+cisloB1);
  826.         CisloS2 := (cisloA2+cisloB2);
  827.         writeln('u+v','=(',Round(cisloS1),';',Round(cisloS2),')');
  828.         writeln;
  829.         writeln('________________________________________');
  830.         writeln('Dalsi vypocek ? (1/0)');
  831.         readln(Dalsi);
  832.    until (dalsi = 0);
  833.  end;
  834.  
  835.  if VekOperace = 6 then
  836.  begin
  837.    repeat
  838.         write('Souradnice 1.vektor u=('); readln(CisloA1);write(';');readln(cisloA2);writeln(')');
  839.         write('Souradnice 2.vektor v=('); readln(CisloB1);write(';');readln(cisloB2);writeln(')');
  840.         vysledekB := (cisloA1*cisloB1) + (cisloA2*cisloB2);
  841.         writeln('u.v = ',Round(vysledekB));
  842.         writeln;
  843.         writeln('________________________________________');
  844.         writeln('Dalsi vypocek ? (1/0)');
  845.         readln(Dalsi);
  846.    until (dalsi = 0);
  847.  end;
  848.  
  849.  if VekOperace = 7 then
  850.  begin
  851.    repeat
  852.         write('Souradnice 1.vektor u=('); readln(CisloA1);write(';');readln(cisloA2);write(';');readln(cisloA3);writeln(')');
  853.         write('Souradnice 2.vektor v=('); readln(CisloB1);write(';');readln(cisloB2);write(';');readln(cisloB3);writeln(')');
  854.         cisloS1 := (cisloA2*cisloB3)-(CisloA3*cisloB2);
  855.         cisloS2 := (CisloA3*cisloB1)-(cisloA1*cisloB1);
  856.         cisloS3 := (CisloA1*cisloB2)-(cisloA2*CisloB1);
  857.         writeln('uxv = (',round(cisloS1),';',round(cisloS2),';',round(cisloS3),')');
  858.         writeln;
  859.         writeln('________________________________________');
  860.         writeln('Dalsi vypocek ? (1/0)');
  861.         readln(Dalsi);
  862.    until (dalsi = 0);
  863.  end;
  864.  
  865.  if ParOperace = 1 then
  866.  begin
  867.    repeat
  868.         write('Souradnice bodu ['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  869.         write('Souradnice smeroveho vektoru s=('); readln(CisloB1);write(';');readln(cisloB2);writeln(')');
  870.         writeln('x = ',round(cisloA1),'+ t *',round(cisloB1));
  871.         writeln('y = ',round(cisloA2),'+ t *',round(cisloB2),' ;t nalezi R');
  872.         writeln;
  873.         writeln('________________________________________');
  874.         writeln('Dalsi vypocek ? (1/0)');
  875.         readln(Dalsi);
  876.    until (dalsi = 0);
  877.  end;
  878.  
  879.  if ParOperace = 2 then
  880.  begin
  881.    repeat
  882.         write('Souradnice 1.bodu ['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  883.         write('Souradnice 2.bodu ['); readln(CisloB1);write(';');readln(cisloB2);writeln(']');
  884.         CisloS1 := cisloB1-cisloA1;
  885.         cisloS2 := cisloB2-cisloA2;
  886.         writeln('x = ',round(cisloA1),'+ t *',round(cisloS1));
  887.         writeln('y = ',round(cisloA2),'+ t *',round(cisloS2),' ;t nalezi R');
  888.         writeln;
  889.         writeln('________________________________________');
  890.         writeln('Dalsi vypocek ? (1/0)');
  891.         readln(Dalsi);
  892.    until (dalsi = 0);
  893.  end;
  894.  
  895.  if ParOperace = 3 then
  896.  begin
  897.    repeat
  898.         write('Souradnice 1.bodu ['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  899.         write('Souradnice normaloveho vektoru n=('); readln(CisloB1);write(';');readln(cisloB2);writeln(')');
  900.         writeln('x = ',round(cisloA1),'+ t *',round(cisloB2*(-1)));
  901.         writeln('y = ',round(cisloA2),'+ t *',round(cisloB1),' ;t nalezi R');
  902.         writeln;
  903.         writeln('________________________________________');
  904.         writeln('Dalsi vypocek ? (1/0)');
  905.         readln(Dalsi);
  906.    until (dalsi = 0);
  907.  end;
  908.  
  909.  if ObeOperace = 1 then
  910.  begin
  911.    repeat
  912.         write('Souradnice 1.bodu ['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  913.         write('Souradnice 2.bodu ['); readln(CisloS1);write(';');readln(cisloS2);writeln(']');
  914.         CisloB1 := cisloS1-cisloA1;
  915.         cisloB2 := cisloS2-cisloA2;
  916.         Cislo5 := ((cisloB2)*cisloA1)-(cisloB1*cisloA2);
  917.         writeln(Round(-CisloB2),'x','+',round(cisloB1),'y','+',round(cislo5),'=0');
  918.         writeln;
  919.         writeln('________________________________________');
  920.         writeln('Dalsi vypocek ? (1/0)');
  921.         readln(Dalsi);
  922.    until (dalsi = 0);
  923.  end;
  924.  
  925.  if ObeOperace = 2 then
  926.  begin
  927.    repeat
  928.         write('Souradnice 1.bodu ['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  929.         write('Souradnice smeroveho vetoru ('); readln(CisloB1);write(';');readln(cisloB2);writeln(')');
  930.         Cislo5 := ((cisloB2)*cisloA1)-(cisloB1*cisloA2);
  931.         writeln(Round(-CisloB2),'x','+',round(cisloB1),'y','+',round(cislo5),'=0');
  932.         writeln;
  933.         writeln('________________________________________');
  934.         writeln('Dalsi vypocek ? (1/0)');
  935.         readln(Dalsi);
  936.    until (dalsi = 0);
  937.  end;
  938.  
  939.  if ObeOperace = 3 then
  940.  begin
  941.    repeat
  942.         write('Souradnice 1.bodu ['); readln(CisloA1);write(';');readln(cisloA2);writeln(']');
  943.         write('Souradnice smeroveho vetoru ('); readln(CisloB1);write(';');readln(cisloB2);writeln(')');
  944.         Cislo5 := ((-cisloB1)*cisloA1)-(cisloB2*cisloA2);
  945.         writeln(Round(CisloB1),'x','+',round(cisloB2),'y','+',round(cislo5),'=0');
  946.         writeln;
  947.         writeln('________________________________________');
  948.         writeln('Dalsi vypocek ? (1/0)');
  949.         readln(Dalsi);
  950.    until (dalsi = 0);
  951.  end;
  952.  begin
  953.    repeat
  954.    begin
  955.   if Dalsi = 0 then
  956.   begin
  957.    writeln;
  958.    writeln('________________________________________');
  959.    writeln('Vybrat jinou operaci ? (1/0)');
  960.    readln(Voper);
  961.   end;
  962.   end;
  963.     if voper = 1 then
  964.     begin
  965.       ope;
  966.       vyp;
  967.     end;
  968.     until(voper=0) ;
  969.  end;
  970.  
  971.   begin
  972.    repeat
  973.    begin
  974.   if voper = 0 then
  975.   begin
  976.    writeln;
  977.    writeln('________________________________________');
  978.    writeln('Zpet do menu ? (1/0)');
  979.    readln(hmenu);
  980.   end;
  981.   end;
  982.     if hmenu = 1 then
  983.     begin
  984.       men;
  985.       ope;
  986.       vyp;
  987.     end;
  988.     until(hmenu=0) ;
  989.  end;
  990.  
  991.  
  992.  writeln('________________________________________');
  993.  writeln('________________________________________');
  994.  
  995.  writeln('Pro ukonceni stisknete enter');
  996.  
  997.  readln;
  998. end.
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!