Задание к работе
Вычислить значения переменных, указанных в табл.1, по указанным расчетным формулам и наборам исходных данных. На печать вывести значения вводимых исходных данных и результаты вычислений, сопровождая вывод наименованиями выводимых переменных.
Модифицировать программу, а затем и выполнить ее таким образом, чтобы вывод вычисленных значений переменных осуществлялся в соответствии со следующей разметкой строк:
*******************************
* Результаты вычислений *
*******************************
<пропуск 1-ой строки>
<имя> .........
*************************
<имя>= ..........
*************
Таблица 1
Вариант задания |
Расчетные формулы |
Значения исходных данных |
1 |
|
x=1,426 y=-1,2200 z=3,5 |
2 |
|
x=1,825 y=18,225 z=-3,298 |
3 |
|
x=0,335 y=0,025 |
4 |
|
a=-0,5 b=1,7 t=0,44 |
5 |
|
a=1,5 b=15,5 x=-2,9 |
6 |
|
a=16,5 b=3,4 x=0,61 |
7 |
|
a=0,7 b=0,05 x=0,5 |
8 |
|
a=1,1 b=0,004 x=0,2 |
9 |
|
m=2 c=-1 t=1,2 b=0,7 |
10 |
|
a=3,2 b=17,5 x=-4,8 |
11 |
|
a=10,2 b=9,2 x=2,2 c=0,5 |
12 |
|
a=0,3 b=0,9 x=0,61 |
13 |
|
a=0,5 b=3,1 x=1,4 |
14 |
|
a=0,5 b=2,9 x=0,3 |
15 |
|
m=0,5 c=2,1 x=1,7 a=0,5 b=1,08 |
Пример выполнения работы Задание 1
Условие:
Вычислить значения y и p, используя
расчетные формулы:
;
.
Программа:
{Лабораторная работа №1. Задание №1}
{Программирование алгоритмов линейной структуры }
{Выполнена Ф.И.О.}
{Группа }
program lab1_1;
uses crt;
var a,x,z,y,p,c:real;
begin
clrscr;
write('Введите значение переменной a = ');
readln(a);
write('Введите значение переменной x = ');
readln(x);
write('Введите значение переменной z = ');
readln(z); c:=sqr(sin(sqr(x))/cos(sqr(x)))*sin(sqr(x))/cos(sqr(x));
y:=a*c+sqrt(sqr(z)/(sqr(a)+sqr(x)));
p:=ln(a+sqr(x))+sqr(sin(z/a));
writeln;
writeln('y =',y:8:3,'':2,'p =',p:8:3);
end.
Результат выполнения программы:
Введите значение переменой a = 1
Введите значение переменной x = 0.5
Введите значение переменной z = 1
Y = 0.911 p = 0.931
Задание 2
Программа:
{Лабораторная работа №1. Задание №2}
{Программирование алгоритмов линейной структуры }
{Выполнена Ф.И.О.}
{Группа }
program lab1_2;
uses crt;
var a,x,z,y,p,c:real;
begin
clrscr;
write('Введите значение переменной a = ');
readln(a);
write('Введите значение переменной x = ');
readln(x);
write('Введите значение переменной z = ');
readln(z); c:=sqr(sin(sqr(x))/cos(sqr(x)))*sin(sqr(x))/cos(sqr(x));
y:=a*c+sqrt(sqr(z)/(sqr(a)+sqr(x)));
p:=ln(a+sqr(x))+sqr(sin(z/a));
writeln(’*****************************’);
writeln(’* РЕЗУЛЬТАТЫ ВЫЧИСЛЕНИЙ *’);
writeln(’*****************************’);
writeln;
writeln('y =',y:8:3);
writeln(’’:5,’*********’);
writeln(’’:10,’p=’,p:8:3);
writeln(’’:15,’*********’);
end.
Результат выполнения программы:
Введите значение переменой a = 1
Введите значение переменной x = 0.5
Введите значение переменной z = 1
**************************
* РЕЗУЛЬТАТЫ ВЫЧИСЛЕНИЙ *
**************************
Y = 0.911
**************
p = 0.931
**************