Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Уфимский Государственный Авиационный Технический Университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Лабораторный практикум по информатике

.pdf

Скачиваний:

253

Добавлен:

18.03.2015

Размер:

8.86 Mб

Скачать

☆

<<< < Предыдущая 1 2 3 4 56 / 376 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 > Следующая >>>

3.9. Примеры программы на языке Pascal

Пример 1. Составить программу, позволяющую пользователю вводить возраст. В результате работы программы на экран должен выводиться его возраст в прошлом году в соответствии с правилами русского языка. После вывода программа ожидает нажатия клавиши для завершения работы.

Решение

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;

{вывод сообщения}

write('Нажмите любую клавишу...'); end.

Пример 2. Определить значение выражения (величины параметров z, x, b задаются пользователем)

Решение

Прежде всего, необходимо осуществить проверку корректности введенных пользователем данных. Некорректное значение y в нашем примере может быть получено при делении на ноль (то есть когда знаменатель 1 – b2 = 0) и при извлечении квадратного корня из отрицательного числа (то есть когда 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.

5. Краткое руководство по эксплуатации оборудования

При использовании оборудования необходимо:

соблюдать общие правила нахождения в учебных лабораториях, работы с компьютером и использования программных средств;

осмотреть рабочее место, убрать все мешающие работе предметы; визуально проверить правильность подключения ПЭВМ к электросети.

6. Задания Вариант 1

1. Вычислить значение выражения

2.Вычислить значение выражения:

3.Вычислить значение выражения:

провести проверку корректности введенных данных; в случае если данные некорректны, вывести соответствующее сообщение; если данные корректны, найти значение выражения: