Advertisement
Guest User

lysy pedal

a guest
Nov 15th, 2019
135
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.09 KB | None | 0 0
  1. @echo off
  2. :main
  3. cls
  4. title Obliczanie pola
  5. echo "Obliczanie pola"
  6. echo "1. Trojkat"
  7. echo "2. Prostokat"
  8. set /p menua= Wybierz funkcje
  9. if %menua%==1 goto trojkat
  10. if %menua%==2 goto prostokat
  11. cls
  12. echo "Brak opcji %menua%"
  13. goto main
  14.  
  15. :trojkat
  16. cls
  17. echo "Obliczanie pola trojkata"
  18. set /p bok=Podaj bok
  19. set /p wys=Podaj wysokosc
  20. set /a pole= %bok% * %wys% / 2
  21. echo "Bok: %bok%"
  22. echo "Wysokosc: %wys%"
  23. echo "Pole: %pole%"
  24. set /p nazw=Podaj nazwe pliku do zapisania
  25. echo Bok: %bok% >> %nazw%.txt
  26. echo Wysokosc: %wys% >> %nazw%.txt
  27. echo Pole: %pole% >> %nazw%.txt
  28. set /p koniec=Zamknac? (tak/nie)
  29. if %koniec%==tak exit
  30. if %koniec%==nie goto main
  31.  
  32. :prostokat
  33. cls
  34. echo "Obliczanie pola prostokatu"
  35. set /p boka=Podaj bok a
  36. set /p bokb=Podaj bok b
  37. set /a polep= %boka% * %bokb%
  38. echo "Bok A: %boka%"
  39. echo "Bok B: %bokb%"
  40. echo "Pole: %polep%"
  41. set /p nazwp=Podaj nazwe pliku do zapisania
  42. echo Bok A: %boka% >> %nazwp%.txt
  43. echo Bok B: %bokb% >> %nazwp%.txt
  44. echo Pole: %polep% >> %nazwp%.txt
  45. set /p koniecc=Zamknac? (tak/nie)
  46. if %koniecc%==tak exit
  47. if %koniecc%==nie goto main
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement