Название: организация ввода/вывода,вычисление выражений,использование стандартных функций

ЦЕЛЬ РАБОТЫ:

1. Получение навыков в организации ввода/вывода значений стандартных типов данных.

2. Изучение порядка действий при вычислении выражений.

3. Приобретение навыков в записи выражений на языке ПАСКАЛЬ и использование стандартных функций.

ПОСТАНОВКА ЗАДАЧИ:

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

2. Распечатать диапазон значений целочисленных переменных и констант.

3. Найти значения функции Y(X) при заданном X. Используя стандартные функции, вычислить Y11, равную целой части Y, и Y22, равную округлению Y до ближайшего целого.

СОДЕРЖАНИЕ ОТЧЕТА:

1. Задание на лабораторную работу.

2. Текст программы.

3. Результаты работы программы.

МЕТОДИЧЕСКИЕ УКАЗАНИЯ:

1. При работе в диалоговом режиме следует перед процедурой ввода использовать процедуру вывода на экран приглашения-подсказки о том, что наступило время ввода информации и какой именно информации.

Например: WRITELN('ВВЕДИТЕ ЦЕЛЫЕ ЧИСЛА K,L,M').

2. Выводить данные следует двумя способами: в стандартной форме и с указанием ширины поля вывода, при этом выводимую информацию необходимо снабдить заголовками. Для символьных переменных вывести порядковые номера символов.

3. Функции, отсутствующие в списке стандартных функций языка ПАСКАЛЬ, следует выразить через имеющиеся.

4. Ниже приведена программа и результаты работы программы для следующего задания:

1. а) Ввести и распечатать следующие исходные данные:

VV=-771, P=-597, VPY=4.4, L=-1.565, LQ='.', P22='=', SG='e'

б) Распечатать диапазон целочисленных переменных и констант

2. Y(X)=X*COS(X)+SIN³(X) при X=32.872

program lab4;

var vv,p,y11,y22: integer;

vpy,l,x,y:real;

lq,p22,sg:char; a:boolean;

f:text;

begin

assign(f,'lab4.dat'); rewrite(f);

writeln('Введите целые значения vv и p'); read(vv,p);

writeln(f,' целые числа ');

writeln(f,'стандартная форма заданная ширина поля');

writeln(f,' vv=',vv,' p=',p,' vv=',vv:8,' p=',p:8);

writeln(' целые числа ');

writeln('стандартная форма заданная ширина поля');

writeln(' vv=',vv,' p=',p,' vv=',vv:8,' p=',p:8);

writeln('Введите вещественные значения vpy,l');

readln(vpy,l);

writeln(f,'вещественные значения vpy и l');

writeln(f,'стандартная форма заданная ширина поля');

writeln(f,'vpy=',vpy,' l=',l,' vpy=',vpy:6:3,' l=',l:6:3);

writeln('вещественные значения vpy и l');

writeln('стандартная форма заданная ширина поля');

writeln('vpy=',vpy,' l=',l,' vpy=',vpy:6:3,' l=',l:6:3);

writeln('Введите символьные значения lq,p22,sg');

readln(lq,p22,sg);

writeln(f,'символьные переменные lq=''',lq,''' p22=''',p22,''' sg=''',sg,'''');

writeln(f,'печать символьных переменных с шириной поля 4:', lq:4,p22:4,sg:4);

writeln(f,'порядковые номера символов');

writeln(f,'''',lq,'''-',ord(lq):3);

writeln(f,'''',p22,'''-',ord(p22):3);

writeln(f,'''',sg,'''-',ord(sg):3);

writeln(f,' диапазон целочисленных переменных ',-maxint,'..',maxint);

writeln('символьные переменные lq=''',lq,''' p22=''',p22,''' sg=''',sg,'''');

writeln('печать символьных переменных с шириной поля 4:',lq:4,p22:4,sg:4);

writeln('порядковые номера символов');

writeln('''',lq,'''-',ord(lq):3);

writeln('''',p22,'''-',ord(p22):3);

writeln('''',sg,'''-',ord(sg):3);

writeln(' диапазон целочисленных переменных ',-maxint,'..',maxint);

writeln(' Введите значение x'); read(x);

y:=x*cos(x)+sqr(sin(x))*sin(x);

writeln(f,'при х=',x:6:3,' y=',y:8:4); writeln('при х=',x:6:3,' y=',y:8:4);

y11:=trunc(y);y22:=round(y);

writeln(f,'y11=',y11:5,' y22=',y22:5); writeln('y11=',y11:5,' y22=',y22:5);

writeln(f,'Программу составил Иванов И.И.');

writeln('Программу составил Иванов И.И.');

close(f);readln

end.

РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ:

целые числа

стандартная форма заданная ширина поля

vv=-771 p=-597 vv= -771 p= -597

вещественные значения vpy и l

стандартная форма заданная ширина поля

vpy= 4.4000000000E+00 l=-1.5650000000E+00 vpy= 4.400 l=-1.565

символьные переменные lq='.' p22='=' sg='e'

печать символьных переменных с шириной поля 4:. = e

порядковые номера символов

'.'- 46

'='- 61

'e'-101

диапазон целочисленных переменных -32767..32767

при х=32.872 y= 4.7433

y11= 4 y22= 5

Программу составил Иванов И.И.

Контрольные вопросы:

1. Из каких разделов может состоять программа на языке Паскаль? Какие разделы могут отсутствовать?

2. Что такое лексемы? Сколько их, перечислите их?

3. Какие процедуры используются в Паскале для ввода и вывода данных?

ЛАБОРАТОРНАЯ РАБОТА № 4