Документ без названия
Ввод-вывод информации и основные операторы языка Ввод или вывод на языке Паскаль означает, что он должен сообщать результат своей работы пользователю-человеку или другой программе (например, программе управления принтером). Для того чтобы получить данные, вводимые пользователем вручную, применяются следующие команды: КомандаОписаниеПример Read ( ) Команда считывает все предложенные ей данные, оставляя курсор в конце последней строки ввода. Список ввода - это последовательность имен переменных, разделенных запятыми. Read(A,B) Readln ( ) Команда считывает все предложенные данные и сразу после окончания ввода переводит курсор на начало следующей Readln(k, x, c, s); {k:byte; x:real; c:char; s:string} Вводимые значения необходимо разделять пробелами, а завершать ввод - нажатием клавиши Enter. Ввод данных заканчивается в тот момент, когда последняя переменная из списка ввода получила свое значение. Для того чтобы вывести на экран какое-либо сообщение необходимо воспользоваться следующими командами: КомандаОписаниеПример Write( ) Команда напечатает на экране все, о чем ее просили, оставит курсор в конце выведенной строки Write(A,B) Writeln( ) Команда напечатает на экране все, о чем ее просили, переведет курсор в начало следующей строчки. Writeln('Площадь круга радиусом ',R,' равна ',S) Пример 1. Программа вычисления суммы двух чисел. А сейчас поговорим о условных операторах! Условный оператор - определённый набор команд, который выполняется при условии, что некоторое логическое выражение (условие) принимает значение «истина» Условные операторы: условный оператор перехода оператор выбора Условный оператор переходаОператор выбора Общий вид If then оператор1 case выражение of значение1 : оператор; ... значение N : оператор; end Пример программы Нахождение максимального числа: uses crt; var a,b,maxab:real; begin clrscr; write('Введите два числа через пробел '); readln(a,b); if a>=b then maxab:=a else maxab:=b; writeln(' a= ',a:8:2,' b= ',b:8:2,' maxab= ',maxab:8:2); readkey; end. Выполнение дествия в зависимости от введенного числа: uses crt; var a, b, n: integer; S: real; begin write ('Введите а'); readln (a); write ('Введите b'); readln (b); write ('Введите n'); readln (n); case n of 2: s:=a; 4: s:= a+b; 6: s:= sqr (abs(a)); 8: s:= sqrt(sin(b)) else write ('Не верное значение n'); End; end. Пример составление блок-схемы