Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите с контрольной работой по Pascal!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
A.S.
Пожалуйста. Помогите решить некоторые задания из контрольной работы. Книгу по Паскалю выдали 3 дня назад, а сдавать задание надо через два дня. Так что прошу, помогите чем сможете. Заранее благодарен.
1)Даны x, y, z. Вычислить a, b, если
S = ( x^(3) ) * ( tg^(2) ) * ( (x+b)^(2) ) + ( a/sqrt (x+b))
Q = (b*(x^(2)) – a) / (e^(ax)) -1

2) Вычислить значение суммы членов бесконечного ряда с заданной точностью ε. На печать вывести значение суммы и число членов ряда, вошедших в сумму.
s=((x^(3)) /3 ) - ((x^(5)) /15)+…+((-1)^(n+1)) * ((x^(2n+1)) /4n^(2)-1 ) при x=0,30, ε= 10^(-5)
3) Вычислить значение интеграла , z = определённый интеграл от (a ) до (b) f(x)dx приведенного в вариантах на заданном отрезке интегрирования [a,b] . Считать заданным число разбиений отрезка интегрирования n. Включить в программу вычисление точного значения интервала. На печать вывести приближенное, точное значение интеграла и относительную погрешность вычисления в процентах. z=1/sqrt(9+sqr(x)) n=100,[0;2] , ε= 10^(-5)
4) Одномерные массивы.
Найти среднее геометрическое элементов массива A(N), если , ai >0 N <=50
5) Двумерные массивы.
В матрице T(N,M) найти строку с наибольшей и наименьшей суммой элементов. Вывести на печать найденные строки и сумму их элементов. N<=20 , M<=15
6) Даны натуральное число n, действительные числа x1, y1, x2, y2, …, xn, yn. Найти площадь n-угольника, вершины которого при некотором последовательном обходе имеют координаты (x1, y1), (x2, y2),…, (xn, yn). (Определить функцию вычисления площади треугольника по координатам его вершин.)
7) Перечислить все представления положительного целого числа n в виде суммы последовательности невозрастающих целых положительных слагаемых.
Артемий
Многие задачи решались - поиск.. Или покажи что делал. Могу быстро дать 4 задачу:
function kor(y:real;z:integer):real;
var z1,x:integer;
begin
z1:=z div 2;
for z1:=1 to z1 do begin
y:=sqrt(y);end;
kor:=y;
end;

var
A: array [1..50] of Real;
n,i,j: Integer;
col: real;
begin
col:=0;
writeln('N=');
readln(n);
for i:=1 to n do readln(a[i]);
col:=a[1];
for j:=2 to n do begin
col:=col*a[j];
end;
writeln(kor(col,n):6:2);
A.S.
Большое спасибо!!!! Поиском пользовался, но ничего не нашёл. Если где то что то найдёте то прошу сообщить. Ещё раз огромное спасибо!!!!
Человек_Без_Имени
вот вторая


program zadacha2;
uses crt;
var x,s,Sum,e,chislit:real;
k,znak:integer;
begin
clrscr;
readln(x);
k:=1;
znak:=1;
chislit:=x*x*x;
Sum:=x*x*x/3;
e:=0.00001;
while abs(s)>e do
begin
k:=k+1;
znak:=znak*(-1);
chislit:=chislit*sqr(x);
s:=znak*chislit/((2*k-1)*(2*k+1));
Sum:=Sum+s;
end;
write ('Sum(x)=',Sum:0:5);
readln;
end.

Алена
Пользовавлся поиском, говоришь? "Не верю!" (С)

Что, в FAQ не разобран принцип решения второй задачи?
Общие вопросы по математике.

или недостаточно информации по численному интегрированию: Численное интегрирование
?

Седьмая задача решалась слово в слово...

Таким образом получаем что? Лень тебя замучала!

P.S. Что, темы с таким названием уже разрешены? dry.gif Или никому ни до чего нет дела?
A.S.
Огромное спасибо всем за помощь!!! Все остальные задачи я уже решил. Ещё раз всем спасибо!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.