Зайцев М. Г. / Отчет по практике Зайцев 2 семестр
.docxОтчет по практике
Задача№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.