levimoosky

szamalap

Nov 19th, 2014
156
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.13 KB | None | 0 0
  1. update-help
  2. powergui script editor
  3.  
  4. get-date | get-member
  5.  
  6. Clear-Host
  7. # megjegyzés
  8.  
  9. [int]$szam=Read-Host "Kérem adja meg a számot!"
  10. $kob=$szam*$szam*$szam
  11.  
  12. Write-Host "A $szam köbe:" $kob
  13.  
  14.  
  15. Clear-Host
  16.  
  17. [int]$sor=Read-Host "Kérem a sorok számát!"
  18. [int]$oszlop=Read-Host "Kérem az oszlopok számát!"
  19.  
  20. for ($j=0; $j -lt $sor; $j++)
  21. {
  22. for ($i=0;$i -lt $oszlop; $i++)
  23. {
  24. Write-Host -NoNewline "#"
  25. }
  26. Write-Host
  27. }
  28.  
  29. [int]$kerulet=($sor+$oszlop)*2
  30. [int]$terulet=$sor*$oszlop
  31.  
  32. if($sor -eq $oszlop)
  33. {
  34. Write-Host "A négyzet kerülete: $kerulet"
  35. Write-Host "A négyzet területe: $terulet"
  36. }
  37. else
  38. {
  39. Write-Host "A téglalap kerülete: $kerulet"
  40. Write-Host "A téglalap területe: $terulet"
  41. }
  42.  
  43.  
  44. Clear-Host
  45.  
  46. [int]$szam=Read-Host "Kérem adja meg a számot!"
  47.  
  48. $faktor=1
  49. for($i=1; $i -le $szam; $i++)
  50. {
  51. $faktor=$faktor*$i
  52. Write-Host -NoNewline $i
  53.  
  54. if($i -lt $szam)
  55. {Write-Host -NoNewline "*"}
  56. else {Write-Host -NoNewline "="}
  57. }
  58.  
  59. Write-Host $faktor
  60.  
  61. Clear-Host
  62.  
  63. $szöveg=Read-Host "Kérem a szöveget"
  64. $i=0
  65. while ($i -lt $szöveg.length)
  66. {
  67. Write-Host $szöveg[$i]
  68. $i++
  69. }
Advertisement
Add Comment
Please, Sign In to add comment