Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Тексты программ на Паскале
Программа решения задачи с использованием оператора арифметического цикла.
Program Work_2a;
{Работа №2, вариант 101, Балина А.Р., ПО-00-01}
{Решение задачи с использованием оператора
арифметического цикла}
Var i,n: Integer;
an,ak,da,a,x,y:Real;
Begin
Writeln('Введите значения an,ak,da => ');
Readln(an,ak,da);
n:=TRUNC(((ak-an)/da)+1.0);
Writeln(' Результаты табулирования функции');
Writeln('*************************************');
Writeln('* i * a * x * y *');
Writeln('*************************************');
For i:=1 TO N DO
Begin
a:=an+da*(i-1);
x:=ln(PI/(0.5*a))/ln(10);
y:=sqrt(3*exp(1.1*ln(x))+sqr(cos(a)));
Writeln('*',i:3,' *',a:6:2,' *',x:7:4,
' *',y:9:5,' *');
end;
Writeln('*************************************');
End.
Результаты расчёта по программе Work_2a.pas
| Результаты табулирования функции ************************************* * i * a * x * y * ************************************* * 1 * 0.50 * 1.0992 * 2.02463 * * 2 * 1.00 * 0.7982 * 1.62268 * * 3 * 1.50 * 0.6221 * 1.33595 * * 4 * 2.00 * 0.4971 * 1.25058 * * 5 * 2.50 * 0.4002 * 1.31814 * ************************************* |
Программа решения задачи с использованием оператора цикла “ ПОКА ”. Текст программы можно получить из предыдущего варианта путём внесения необходимых изменений: исключения переменных i и n из раздела описаний, не требуется расчёт n, нужно заменить оператор цикла, убрать в таблице колонку номера строки.
Program Work_2b;
{Работа №2, вариант 101, Балина А.Р., ПО-00-01}
{Решение задачи с использованием оператора цикла ПОКА}
Var an,ak,da,a,x,y:Real;
Begin
Writeln('Введите значения an,ak,da => ');
Readln(an,ak,da);
Writeln(' Результаты табулирования функции');
Writeln(' ********************************');
Writeln(' * a * x * y *');
Writeln(' ********************************');
a:=an;
While a<=ak do
Begin
x:=ln(PI/(0.5*a))/ln(10);
y:=sqrt(3*exp(1.1*ln(x))+sqr(cos(a)));
Writeln(' *',a:7:2,' *',x:7:4,' *',y:9:5,' *');
a:=a+da;
end;
Writeln(' ********************************');
End.
Результаты расчёта по программе Work_2b.pas
| Результаты табулирования функции ******************************** * a * x * y * ******************************** * 0.50 * 1.0992 * 2.02463 * * 1.00 * 0.7982 * 1.62268 * * 1.50 * 0.6221 * 1.33595 * * 2.00 * 0.4971 * 1.25058 * * 2.50 * 0.4002 * 1.31814 * ******************************** |
Программа решения задачи с использованием оператора цикла “ ДО ”. Для получения текста программы нужно в предыдущий вариант внести незначительные изменения.
Program Work_2c;
{Работа №2, вариант 101, Балина А.Р., ПО-00-01}
{Решение задачи с использованием оператора цикла ДО}
Var an,ak,da,a,x,y:Real;
Begin
Writeln('Введите значения an,ak,da => ');
Readln(an,ak,da);
Writeln(' Результаты табулирования функции');
Writeln(' ********************************');
Writeln(' * a * x * y *');
Writeln(,' ********************************');
a:=an;
Repeat
x:=ln(PI/(0.5*a))/ln(10);
y:=sqrt(3*exp(1.1*ln(x))+sqr(cos(a)));
Writeln(' *',a:7:2,' *',x:7:4,' *',y:9:5,' *');
a:=a+da;
Until a>ak;
Writeln(' ********************************');
End.
Результаты расчёта по программе Work_2c.pas
| Результаты табулирования функции ******************************** * a * x * y * ******************************** * 0.50 * 1.0992 * 2.02463 * * 1.00 * 0.7982 * 1.62268 * * 1.50 * 0.6221 * 1.33595 * * 2.00 * 0.4971 * 1.25058 * * 2.50 * 0.4002 * 1.31814 * ******************************** |
Результаты табулирования функции по трём вариантам решения задачи полностью совпадают.
Date: 2015-09-05; view: 460; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |