Методичка по информатике
.pdfиспользуется без параметров, то она просто производит пропуск строки и переход к началу следующей строки.
Оператор вывода позволяет задать ширину поля вывода для каждого элемента списка вывода. В этом случае элемент списка вывода имеет вид А:К, где А – выражение или строка, К – выражение либо константа целого типа. Если выводимое значение занимает в поле вывода меньше позиций, чем К, то перед этим значением располагаются пробелы. Если выводимое значение не помещается в ширину поля К, то для этого значения будет отведено необходимое количество позиций.
Для величин действительного типа элемент списка вывода может иметь вид А:К:М, где А – переменная или выражение действительного типа, К – ширина поля вывода, М – число цифр дробной части выводимого значения. К и М – выражения или константы целого типа. В этом случае действительные значения выводятся в форме десятичного числа с фиксированной точкой.
Для ввода исходных данных чаще всего используется процедура Read и ReadLn.
Общий вид: Read(A1,A2,...AK); ReadLn(A1,A2,...AK);
Процедуры производят чтение К значений исходных данных и присваивают эти значения переменным А1, А2, ..., АК.
Значения исходных данных могут отделяться друг от друга пробелами и нажатием клавиш табуляции и Enter. Не допускается разделение вводимых чисел запятыми.
Часто процедуру ReadLn без параметров применяют в конце программы для задержки: до нажатия на клавишу <Enter> результат выполнения программы остается на экране.
3.9. Примеры программы на языке Pascal
Пример 1. Составить программу, позволяющую пользователю вводить возраст. В результате работы программы на экран должен выводиться его возраст в прошлом году в соответствии с правилами русского языка. После вывода программа ожидает нажатия клавиши для завершения работы.
50
Решение uses wincrt;
var x: integer; begin
{ввод данных}
write('Введите возраст (до 21 года): '); readln(x);
{вычисления} x := x – 1;
{использование оператора ветвления для вывода на экран в корректном падеже}
case x of
{1 год}
1: writeln('В_прошлом_году_вам_был_1_год');
{2 года, 3 года, 4 года}
2, 3, 4: writeln('В_прошлом_году_вам_было_', x, '_года');
{все остальные} else begin
{проверка корректности ввода} if (x <= 20)and(x >= 5) then
writeln('В_прошлом_году_вам_было_', x, '_лет') else writeln('Введенные_данные_некорректны');
end;
end;
{вывод сообщения}
write('Нажмите любую клавишу...'); end.
Пример 2. Определить значение выражения (величины параметров z, x, b задаются пользователем)
Решение
Прежде всего, необходимо осуществить проверку корректности введенных пользователем данных. Некорректное значение y в нашем примере может быть получено при делении на ноль (то есть когда знаменатель 1 – b2 = 0) и при извлечении квадратного корня из
51
отрицательного числа (то есть когда x – 5 < 0). Программа должна адекватно реагировать на появление таких значений.
Program CheсkValue; var
z, x, b: integer; y: real;
begin
{Ввод значений параметров с клавиатуры}
writeln ('Введите значения параметров z, x, b через пробел');
readln (z, x, b);
{Проверка корректности ввода данных} if (x-5<0) or (1-sqr(b)=0) then
writeln ('Введены некорректные значения параметров!') else
begin
{Вычисление значения выражения} y:=(2*z-sqrt(x-5))/(1-sqr(b));
{Вывод результата} writeln ('y = ',y:4:3); end;
readln;
end.
4. Описание оборудования и используемых программных комплексов
При выполнении лабораторной работы необходим специализированный компьютерный класс с минимальными системными требованиями компьютеров:
Процессор – Intel Pentium III; ОЗУ – 256 Mb;
видеокарта – 32 Mb.
Требуемое программное обеспечение: Операционная система Microsoft Windows;
Borland Pascal 7.0 for DOS / Borland Pascal 7.0 for Windows.
52
5. Краткое руководство по эксплуатации оборудования
При использовании оборудования необходимо:
соблюдать общие правила нахождения в учебных лабораториях, работы с компьютером и использования программных средств;
осмотреть рабочее место, убрать все мешающие работе предметы;
визуально проверить правильность подключения ПЭВМ к электросети.
6. Задания
Вариант 1
1. Вычислить значение выражения
.
2.Вычислить значение выражения:
3.Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 2
1. Вычислить значение выражения
. 2. Вычислить значение выражения:
53
3. Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 3
1. Вычислить значение выражения
.
2.Вычислить значение выражения:
3.Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 4
1.Вычислить значение выражения:
2.Вычислить значение выражения:
3.Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
54
Вариант 5
1. Вычислить значение выражения
.
2.Вычислить значение выражения:
3.Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 6
1.Вычислить значение выражения:
2.Вычислить значение выражения:
3.Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 7
1. Вычислить значение выражения:
55
2.Вычислить значение выражения:
3.Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 8
1.Вычислить значение выражения:
2.Вычислить значение выражения:
3.Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 9
1. Вычислить значение выражения
.
56
2.Вычислить значение выражения:
3.Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 10
1.Вычислить значение выражения:
2.Вычислить значение выражения:
3.Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 11
1.Вычислить значение выражения:
2.Вычислить значение выражения:
57
3. Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 12
1.Вычислить значение выражения:
2.Вычислить значение выражения:
3.Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 13
1. Вычислить значение выражения
. 2. Вычислить значение выражения:
58
3. Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 14
1.Вычислить значение выражения:
2.Вычислить значение выражения:
3.Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение; 
если данные корректны, найти значение выражения:
Вариант 15
1.Вычислить значение выражения:
2.Вычислить значение выражения:
3.Вычислить значение выражения:
провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее
сообщение;
59