Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 9 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

8
Последний оператор вывода отличается от всех предыдущих. В данном
случае стандартная процедура вывода
writeln содержит два параметра, пере-
численных через запятую. Первый параметр – это текстовая строка (
’Y= ’), ко-
торую надо вывести на экран. Второй параметр – переменная Y, значение кото-
рой требуется вывести в определенном формате, о чем говорят два числа, напи-
санные через двоеточие. Первое число – количество позиций, отводимых
под вывод всего числа (включая знак, целую часть числа, точку и дробную
часть числа), а второе – число разрядов после
запятой. В нашем случае под вы-
вод всего числа запланировано 7 позиций, из них 3 позиции – под дробную
часть, одна позиция – под точку, остается 3 позиции под целую часть и знак.
Следует заметить, что если программист указал недостаточное количество по-
зиций под вывод всего числа, то это число будет автоматически увеличено до
требуемого для
вывода значения.
Для того, чтобы результаты работы программы оставались на экране после
выполнения программы, используем оператор ввода без параметров
readln.
В этом случае программа выполнит все необходимые действия и будет ожидать
от пользователя нажатия клавиши Enter.
Итак, программа написана, ниже приведен ее полный текст.
Program Lab1_variant100;
Var x,y: real;
Begin
writeln;
writeln(’ Автор – Иванов И.П., студент гр. ИСЭд-11’);
writeln(’ Вариант № 100’);
writeln(’Программа вводит значение аргумента X и вычисляет зна-
чение функции Y’);
writeln(’ |2*x x>2.5’);
writeln(’Y= |x^3-x 0<=x<=2.5’);
writeln(’ |x*(sin(x))) x<0’);
writeln;
writeln(’введите x= ’);
readln(x);
If x>2.5 then
Y:=2*x
Else
If x>=0 then
y:=x*x*x-x
Else
Y:=x*sin(x);
writeln(’Y= ’, y:7:3);
readln
end.

Страницы