Тема урока: Знакомство с языком Паскаль.

1. 2. Program Privet; 3. uses crt; 4. begin 5. Writeln ('Ассаляму алейкум, это моя  первая программа'); 6. Writeln ('Ассаляму алейкум, это моя  первая программа'); 7. Writeln ('Ассаляму алейкум, это моя  первая программа'); 8. end. 9. Наберите на программе Паскаль 10. 11. 12. 13. 14. Program primer; var b,a:real; begin Writeln('Введите сторону  прямоугольника а='); 15. 16. 17. 18. 19. readln(a); Writeln('Введите сторону  прямоугольника b='); readln(b); Writeln('Площадь прямоугольника =', (a*b)); Writeln('Площадь периметр =', (2*(a+b))); end. 20. 21. 22.Напишите программу вычисления y Решение Var х, у: integer; 24. 25.Program zadacha2; 26. 27.Вegin 28. Write(‘Введите целое число ’); 29. Read(x); 30. y:=sqr(1-sqr(x)+5*sqr(sqr(x))); 31. Write(‘Значение у равно ’,y); 32. Read(y); 33.End. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 23.y = ( 1- x2 + 5x4 )2, где x - данное по формуле: целое число. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 1. Program Privet; uses crt; begin Writeln ('Ассаляму алейкум, это моя первая программа'); Writeln ('Ассаляму алейкум, это моя первая программа'); Writeln ('Ассаляму алейкум, это моя первая программа'); 56. 57. Паскаль 58. 59. 60. 61. 62. end. 2.Наберите на программе  Program primer; var b,a:real; begin Writeln('Введите сторону  63. 64. 65. 66. 67. прямоугольника а='); readln(a); Writeln('Введите сторону  прямоугольника b='); readln(b); Writeln('Площадь прямоугольника =', (a*b)); Writeln('Площадь периметр =', (2*(a+b))); end. 3.Напишите программу 68. 69. 70. вычисления y по формуле: 71.y = ( 1- x2 + 5x4 )2, где x - данное целое число. Решение Var х, у: integer; 72. 73.Program zadacha2; 74. 75.Вegin 76. Write(‘Введите целое число ’); 77. Read(x); 78. y:=sqr(1-sqr(x)+5*sqr(sqr(x))); 79. Write(‘Значение у равно ’,y); 80. Read(y); 81.End. 82. 83.