Помогите с контрольными по программированию на Паскале
Вложений: 3
Здравствуйте, помогите сделать контрольные на паскале, если можно с пояснениями. Нужно для допуска к зачету.
|
Цитата:
Первое задание. Программа содержит обе подпрограммы (функцию и процедуру) Код:
Var |
Второе задание. Тоже обе программы объединены:
Код:
Const |
Третье задание:
Код:
Const |
Спасибо огромное!!!
С первым понял, вроде. Во втором как я понял в одномерном массиве число символов постоянно и равно 10? Сделал для задаваемых M и N. остальное тоже вроде пока понятно. |
Цитата:
Цитата:
|
Также нужна программа для вычисления ряда Тейлора для ln(1+x). Мы на парах делали для вычисления sin(x). Но для логарифма у меня так и не получается. Могу скинуть синус в виде примера, чтоб вы поняли, что мне нужно для логарифма.
|
Цитата:
|
Цитата:
Но попробую. Нужно разложить ln(1+x) в ряд Тейлора и найти сумму(вот это я сделал программа считает ее нормально), затем сравнить ее с табличным значением, если все нормально, то делать дальше. Дальше нужно, при задаваемом отрезке(его начального и конечного значений) и шаге по этому отрезку построить таблицу значений данной функции и записать эти значения в блокнот. Далее уже собственноручно скопировать эти значения из блокнота и вставить их в эксель и построить график по этим точкам, должен получиться логарифм. Цитата:
|
Не знаю как текст программы вставлять, отправляю так свои начала по логарифму.
var n:integer; a,x,s,lnmy:real; begin writeln ('x?'); readln(x); if not ((x<=1) and (x>-1)) then writeln('Введенный х не попадает в область значений') else begin a:=x; s:=x; n:=1; repeat a:=-(a*x*n)/(n+1); s:=s+a; n:=n+1; until abs(a)<1e-7; lnmy:=s; writeln ('ln(1+x)=', lnmy,' ',ln(1+x)); end; end. |
Часовой пояс GMT +4, время: 01:55. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.