Pascal ABC Ввод и вывод данных Для

Зарегистрируйтесь, чтобы просмотреть полный документ!

Pascal ABC Ввод и вывод данных

Для того, чтобы при каждом запуске можно было вводить разные начальные значения с клавиатуры (не используя оператор присваивания), пользуются оператором READ или READLN program z 55 ; uses crt ; USES CRT – var N : integer ; библиотечный модуль begin write (‘Введите число с клавиатуры: ') ; readln (N) ; {Здесь программа остановится и будет ожидать ввода с клавиатуры. После ввода надо нажать Enter} end.

program z 55 ; var N : integer ; begin write (‘Введите число с клавиатуры: ') ; readln (N) ; end.

Program z 56 ; {расчёт скорости тел при падении с башни} Var G, V, H : real ; Begin G : = 9. 8 ; {‘эта переменная является постоянной} Write ('Введите высоту башни: ') ; Readln (H) ; V : = Sqrt (2*G*H) ; Writeln ('Скорость падения: ‘ : 20 , V: 7: 3) ; {на вводимый текст выделяется 20 позиций} End. G – ускорение свободного падения V – скорость падения Н – высота

Program z 56 ; {расчёт скорости тел при падении с башни} Const G = 9. 8 ; {тип CONST определяется автоматически. В данном случае это REAL} Var V, H : real ; Begin Write ('Введите высоту башни: ') ; Readln (H) ; V : = Sqrt (2*G*H) ; Writeln ('Скорость падения: ' , V : 6 : 3) ; End. G – ускорение свободного падения V – скорость падения Н – высота

Для того, чтобы при каждом запуске вводились разные двузначные начальные значения автоматически (не используя оператор присваивания), пользуются датчиком случайных чисел в диапазоне Х: RANDOM (Х). Для подключения этого датчика вводится оператор RANDOMIZE ДАТЧИК СЛУЧАЙНЫХ ЧИСЕЛ

Основные операторы системы: Имя программы program Начало и Конец Begin и End. Переменные VAR Целое число Integer; Вещественное число Real; Вывод на экран Write (‘x = ‘, x); Вывод на экран с новой строки Writeln (‘x = ‘, x); Модуль числа Abs (х); Возведение в квадрат Sqr (х); Квадратный корень числа Sqrt (x); Синус числа Sin (x); Косинус числа Cos (x); Арктангенс числа Arctan (x); Логарифм числа Ln (x); Возведение числа Е в степень Х Exp (x); Вычисление числа Пи Pi; Отбрасывает дробную часть числа Trunc (x); Округление дробного числа до ближайшего целого Round (x);

Основные операторы системы: Вызов библиотечного модуля (после имени программы) USES CRT ; Ввод с клавиатуры Read (x); Ввод с клавиатуры с новой строки Read. Ln (x); Раздел описания констант (перед Var) Const Инициализация датчика случайных чисел Randomize; Датчик случайных чисел, Х – max возможное число Random (Х); Очистка экрана Clr. Scr Установка цвета экрана Text. Back. Ground

ЗАДАНИЕ: Р 8) Вычислите длину окружности и площадь круга. Радиус должен вводиться с клавиатуры. Р 9) Даны длины рёбер a, b, c прямоугольного параллелепипеда. Найти его объём V = a*b*c и площадь поверхности S = 2*(a*b + b*c + a*c). Размеры вводить с клавиатуры. Р 10) Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов. Числа вводятся случайно.

ЗАДАНИЕ: Р 11) Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей. Числа вводить с клавиатуры. Р 12*) Даны два круга с общим центром и радиусами R 1 и R 2 (R 1>R 2). Найти площадь этих кругов S 1 и S 2, а также площадь S 3 кольца, внешний радиус которого равен R 1, а внутренний радиус равен R 2. Радиусы вводятся случайно. S 1=π*(R 1)2, S 2=π*(R 2)2, S 3=S 1 -S 2 Р 13*) Найти расстояние между двумя точками с заданными координатами Х 1 и Х 2, на числовой оси: |Х 2 -Х 1|. Числа вводить с клавиатуры.

Скачать презентацию Pascal ABC Ввод и вывод данных Для

Pascal ABC__Ввод и вывод данных.pptx

Количество слайдов: 10