Зайцев М. Г. / Отчет по практике Зайцев 2 семестр

Отчет по практике

Задача№1 Обменять переменные x,y значениями, используя промежуточную переменную.

program PLineDP;

{$APPTYPE CONSOLE}

uses

SysUtils;

Var x,y,t: real;

begin

write('x = '); readln(x);

write('y = '); readln(y);

t:= x;

x:= y;

y:= t;

writeln('x = ',x:6:2);

writeln('y = ',y:6:2);

readln;

end.

Тестовые значения

Номер теста	Исходные данные	Ожидаемый результат	Примечание
1	х=1; y=2	у=1; x=2
2	х=5; y=7	у=5; x=7

Задача№2 Обменять переменные x,y значениями не используя промежуточную переменную.

program Z2;

{$APPTYPE CONSOLE}

uses

SysUtils;

Var

x,y: real;

begin

write('x = '); readln(x);

write('y = '); readln(y);

x:= x + y;

y:= x - y; x:= x - y writeln('x = ',x:6:2);

writeln('y = ',y:6:2);

readln;

end.

Трассировочная таблица для верификации линейных ПОД.

	код	x	y
1	x:= x+y	x1 = x0+ y0	y1 = y0
2	y:= x -y	x2 = x1	y2 = x1+ y1
3	x:= x -y	x3 = x2+ y2	y3 = y2

x3 = x2+ y2

x1 – x1+ y1

y0

y3 = y2

x1 - y1

x0 + y0 - y0

x0

Задача№3 Вычислить значение логарифма по основанию два, используя стандартную

функцию вычисления натурального логарифма (ln).

program z3;

{$APPTYPE CONSOLE}

uses

SysUtils;

var x,y:real;

begin

write('x= ');

readln(x);

y:=ln(x)/ln(2);

writeln('ln(',x:6:2,')=',y);

readln;

end.