Лекция: по математике №1
Лабораторная работа
Принял Выполнил Саньков Денис Василий Морару Группа IA-112
Кишинев 2011
Лабораторная работа №1
Тема: Определение параметров машинной арифметики.
Цель: Вычислить основание системы исчисления, количество чисел в мантиссе (t), машинный эпсилон для ЭВМ.
Ход работы:
1. Вычисляем основание системы исчисления ЭВМ.
Для того что бы вычислить систему исчисления ЭВМ воспользуемся программой написанной на языке Pascal.
Текст программы на языке Pascal:
Program P1;
Uses crt;
Var a,b: extended;
beta: integer;
Begin
Clrscr;
a:=1;
Repeat
a:=2*a;
Until ((a+1)-a<>1);
b:=1;
Repeat
b:=2*b;
Until ((a+b)<>a);
beta:=Trunc((a+b)-a);
Writeln('Эта программа для вычесления значения beta');
Writeln(‘Для моего компьютера бета=’, beta,’.’);
Readln;
End.
Результат работы программы:
Вывод: В результате работы программы мы узнали, что заданная ЭВМ работает в двоичной системе счисления
2. Вычисляем точность ЭВМ (количество чисел в мантиссе).
Program P2;
Uses crt;
Var a,b: extended;
t,beta: integer;
Begin
Clrscr;
t=0;
beta=2;
a:=1;
Repeat
t:=t+1;
a:=a*beta;
Until ((a+1)-a<>1);
Writeln(‘Эта программа вычисляет кол-во чисел t’);
Writeln(‘Кол-во чисел в мантиссе моего компьютера=’, t);
Readln;
End.
Результат работы программы:
Вывод: В результате работы программы мы узнали, что точность ЭВМ равна 64, что соответствует архитектуре моего процессора.
3.Вычисляем машинный эпсилон для ЭВМ
Program P3;
Uses crt;
Var r1,rp1,eps: extended;
beta: integer;
Begin
Clrscr;
r1:=1;
beta=2;
Repeat
eps:=r1;
r1:=r1/beta;
rp1:=1+t1;
Until (rp1<=1);
Writeln(‘Программа для вычесленния eps’);
Writeln(‘Машинный эпсилон моего компьютера равен’, eps);
Readln;
End.
Результат работы программы:
Вывод: В результате работы программы мы узнали, что эпсилон ЭВМ равен 1,084
Вывод:Вычислили основание системы исчисления, количество чисел в мантиссе (t) и машинный эпсилон для ЭВМ при помощи программ на языке PASCAL.