Главная

Контакты

Случайная статья

• Автоматизация
• Антропология
• Археология
• Архитектура
• Биология
• Ботаника
• Бухгалтерия
• Военная наука
• Генетика
• География
• Геология
• Демография
• Деревообработка
• Журналистика
• Зоология
• Изобретательство
• Информатика
• Искусство
• История
• Кинематография
• Компьютеризация
• Косметика
• Кулинария
• Культура
• Лексикология
• Лингвистика
• Литература
• Логика
• Маркетинг
• Математика
• Материаловедение
• Медицина
• Менеджмент
• Металлургия
• Метрология
• Механика
• Музыка
• Науковедение
• Образование
• Охрана Труда
• Педагогика
• Полиграфия
• Политология
• Право
• Предпринимательство
• Приборостроение
• Программирование
• Производство
• Промышленность
• Психология
• Радиосвязь
• Религия
• Риторика
• Социология
• Спорт
• Стандартизация
• Статистика
• Строительство
• Технологии
• Торговля
• Транспорт
• Фармакология
• Физика
• Физиология
• Философия
• Финансы
• Химия
• Хозяйство
• Черчение
• Экология
• Экономика
• Электроника
• Электротехника
• Энергетика

Тексты программ на Паскале. Fori:=1 TON DO. whilex<=xk do

7. Тексты программ на Паскале

Программа решения задачи с использованием оператора арифметического цикла.

ProgramWork_2a;

{Работа №2, вариант 8, Селезенева Е. А., гр.БГРи-19-01}

  {Решение задачи с использованием оператора

             арифметического цикла}

Vari,n : Integer;

xn,xk,dx,x,y,b:Real;

Begin

Writeln('Введите значение x начальное => ');

Readln(xn);

Writeln('Введите значение x конечное => ');

Readln(xk);

Writeln('Введите значение Δx => ');

Readln(dx);

n:=TRUNC(((xk-xn)/dx)+1.0);

Writeln(' Результаты табулирования функции');

Writeln('⌈----------------------------⌉');

Writeln('| x | y | β |');

Writeln('⌊----------------------------⌋');

Fori:=1 TON DO

Begin

x:=xn+dx*(i-1);

y:=arctan(x);

β:= sqr(x) -arctan(x)+2.5-1/(exp(ln(5)*x));

Writeln('|',x:6:2,' | ',y:7:4,' |', β:9:5,' |');

end;

Результаты расчёта по программе Work_2a.pas

Результаты табулирования функции

⌈--------------------------------- ⌉

| i | x | y |  β |

⌊----------------------------------⌋

| 1| -2.00 | -1.1071 |-17.39285 |

| 2| -1.50 | -0.9828 | -5.44755 |

| 3| -1.00 | -0.7854 | -0.71460 |

| 4| -0.50 | -0.4636 | 0.97758 |

| 5| 0.00 | 0.0000 | 1.50000 |

| 6| 0.50 | 0.4636 | 1.83914 |

| 7| 1.00 | 0.7854 | 2.51460 |

| 8| 1.50 | 0.9828 | 3.67776 |

| 9| 2.00 | 1.1071 | 5.35285 |

Программа решения задачи с использованием оператора цикла “ПОКА”. Текст программы можно получить из предыдущего варианта путём внесения необходимых изменений: исключения переменных i и n из раздела описаний, не требуется расчёт n, нужно заменить оператор цикла, убрать в таблице колонку номера строки.

ProgramWork_2b;

{Работа №2, вариант 8, Селезенева Е.А., гр.БГРи-19-01}

  {Решение задачи с использованием оператора

             арифметического цикла}

Varxn,xk,dx,x,y,β:Real;

Begin

Writeln('Введите значение x начальное => ');

Readln(xn);

Writeln('Введите значение x конечное => ');

Readln(xk);

Writeln('Введите значение Δx => ');

Readln(dx);

Writeln(' Результаты табулирования функции');
Writeln('⌈----------------------------⌉');

Writeln('| x | y | β    |');

Writeln('⌊----------------------------⌋');

x:=xn;

whilex<=xk do

Begin

y:= arctan(x);

β:= sqr(x) -arctan(x)+2.5-1/(exp(ln(5)*x));

Writeln('|',x:6:2,' | ',y:7:4,' |', β:9:5,' |');

x:=x+dx;

end;

Writeln('⌊----------------------------⌋');

End.

Результаты расчёта по программе Work_2b.pas

| x | y | β |

⌊----------------------------⌋

| -2.00 | -1.1071 |-17.39285 |

| -1.50 | -0.9828 | -5.44755 |

| -1.00 | -0.7854 | -0.71460 |

| -0.50 | -0.4636 | 0.97758 |

| 0.00 | 0.0000 | 1.50000 |

| 0.50 | 0.4636 | 1.83914 |

| 1.00 | 0.7854 | 2.51460 |

| 1.50 | 0.9828 | 3.67776 |

| 2.00 | 1.1071 | 5.35285 |

⌊----------------------------⌋

Программа решения задачи с использованием оператора цикла “ДО”. Для получения текста программы нужно в предыдущий вариант внести незначительные изменения.

ProgramWork_2c;

{Работа №2, вариант 8, Селезенева Е.А., гр.БГРи-19-01}

  {Решение задачи с использованием оператора

             арифметического цикла}

Varxn,xk,xt,x,y,β:Real;

Begin

Writeln('Введите значение x начальное => ');

Readln(xn);

Writeln('Введите значение x конечное => ');

Readln(xk);

Writeln('Введите значение Δx => ');

Readln(dx);

Writeln(' Результаты табулирования функции');
Writeln('⌈----------------------------⌉');

Writeln('| x | y | β |');
Writeln('⌊----------------------------⌋');

x:=xn;

repeat

y:= arctan(x);

β:= sqr(x) -arctan(x)+2.5-1/(exp(ln(5)*x));

Writeln('|',x:6:2,' | ',y:7:4,' |', β:9:5,' |');

x:=x+dx;

untilx>xk;

Writeln('⌊----------------------------⌋');

End.

Результаты расчёта по программе Work_2c.pas.

Результаты табулирования функции

⌈----------------------------⌉

| x | y | β |

⌊----------------------------⌋

| -2.00 | -1.1071 |-17.39285 |

| -1.50 | -0.9828 | -5.44755 |

| -1.00 | -0.7854 | -0.71460 |

| -0.50 | -0.4636 | 0.97758 |

| 0.00 | 0.0000 | 1.50000 |

| 0.50 | 0.4636 | 1.83914 |

| 1.00 | 0.7854 | 2.51460 |

| 1.50 | 0.9828 | 3.67776 |

| 2.00 | 1.1071 | 5.35285 |

⌊----------------------------⌋

Выводы:

· Значения x и y в таблице при x = 2 совпали с точностью до четырех  знаков со значениями ручного тестового расчёта, следовательно, расчётные формулы записаны правильно.

• Результаты табулирования функции по трём вариантам решения задачи полностью совпадают.