Ввод и вывод данных.PascalABC

ПАСКАЛЬ

Pascal ABC

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

Для того, чтобы при каждом запуске можно было вводить разные начальные значения с клавиатуры (не используя оператор присваивания), пользуются оператором READ или READLN

program z55 ;

uses crt ;

var N : integer ;

begin

write (‘Введите число с клавиатуры: ') ;

readln (N) ; {Здесь программа остановится и будет ожидать ввода с клавиатуры. После ввода надо нажать Enter}

end .

USES CRT – библиотечный модуль

program z55 ;

var N : integer ;

begin

write (‘Введите число с клавиатуры: ') ;

readln (N) ;

end .

Program z56 ; {расчёт скорости тел при падении с башни}

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 z56 ; {расчёт скорости тел при падении с башни}

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);

ReadLn (x);

Раздел описания констант (перед Var)

Const

Инициализация датчика случайных чисел

Randomize;

Датчик случайных чисел, Х – max возможное число

Random (Х);

Очистка экрана

ClrScr

Установка цвета экрана

TextBackGround

ЗАДАНИЕ:

Z56) Набрать задачу Z56 на расчёт скорости тел при падении с башни с учётом постоянной ускорения свободного падения

Z57) Набрать задачу Z57. Указать в задаче максимальную границу датчика = 10000

Z58) Вычислите длину окружности и площадь круга. Радиус должен вводиться с клавиатуры.

Z59) Даны длины рёбер a, b, c прямоугольного параллелепипеда. Найти его объём V = a*b*c и площадь поверхности S = 2*(a*b + b*c + a*c). Размеры вводить с клавиатуры.

Z60) Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов. Числа вводятся случайно.

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 Z63) Найти расстояние между двумя точками с заданными координатами Х 1 и Х 2 , на числовой оси: |Х 2 -Х 1 |. Числа вводить с клавиатуры. Z64) Даны три точки: А, В, С на числовой оси. Найти длины отрезков АС и ВС и их сумму. Числа вводятся случайно. Z65) Даны три точки: А, В, С на числовой оси. Точка С расположена между точками А и В. Найти произведение длин отрезков АС и ВС. Числа вводить с клавиатуры. " width="640"

ЗАДАНИЕ:

Z61) Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей. Числа вводить с клавиатуры.

Z62) Даны два круга с общим центром и радиусами 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

Z63) Найти расстояние между двумя точками с заданными координатами Х 1 и Х 2 , на числовой оси: |Х 2 -Х 1 |. Числа вводить с клавиатуры.

Z64) Даны три точки: А, В, С на числовой оси. Найти длины отрезков АС и ВС и их сумму. Числа вводятся случайно.

Z65) Даны три точки: А, В, С на числовой оси. Точка С расположена между точками А и В. Найти произведение длин отрезков АС и ВС. Числа вводить с клавиатуры.