Ввод и вывод Операторы ReadLn и WriteLn

Программа по вычислению произведения двух чисел, вводимых пользователем Program Proizv2; Uses Crt;{Подключаем модуль Crt} Var number1, {переменная, в которой будет содержаться первое число} number2, {переменная, в которой будет содержаться второе число} rezult {переменная, в которой будет содержаться результат} : integer; Begin ClrScr;{Используем процедуру очистки экрана из модуля Crt} Write ('Введите первое число '); {Выводим на экран символы, записанные между апострофами} Readln (number1); {Введенное пользователем число считываем в переменную number1}

Write ('Введите второе число '); {Выводим на экран символы, записанные между апострофами} Readln (number2); {Введенное пользователем число считываем в переменную number2} rezult := number1 * number2; {Находим произведение введенных чисел и присваиваем переменной rezult} Write ('Произведение чисел ', number1, ' и ', number2, ' равно ', rezult); {Выводим на экран строчку, содержащую ответ задачи} Readln;{Процедура задержки экрана} End. Программа по вычислению произведения двух чисел, вводимых пользователем

Операторы Write и WriteLn Write WriteLn Ln Write (англ. писать) - оператор, который используется для вывода информации на экран. Оператор WriteLn выполняет то же самое действие, но так как у него есть еще окончание Ln (line - англ. линия, строка), то после вывода на экран нужного сообщения, он дополнительно переводит курсор на следующую строчку. Например, при выполнении процедуры WriteLn(Найденное число,а), WriteLn(Найденное число,а), будет напечатана строчка, заключенная в апострофы, а затем выведено значение переменной а.

Операторы Read и ReadLn Read (x 1,x 2,…,x n ) При выполнении процедуры Read (x 1,x 2,…,x n ) ожидается ввод перечисленных в скобках значений. Вводимые данные нужно отделить друг от друга пробелами. Присваивание значений идет по очереди. ReadReadLn ReadLn Особых различий при чтении и записи в использовании операторов Read и ReadLn нет. Часто процедуру ReadLn без параметров применяют в конце программы для задержки.

Найти среднее значение трех чисел Program Srednee; Uses Crt; Var First, Second, Third : integer; Sum : real; Begin ClrScr; Write (Введите первое число ); ReadLn(First); Write (Введите второе и третье числа через пробел ); ReadLn(Second, Third); Sum := First + Second + Third; Sum := Sum/3; Write (Среднее значение, First,,,Second, и, Third, равно, Sum:5:2); ReadLn; End.