Версия для печати темы

Автор: A.S. 22.03.2007 15:52

Пожалуйста. Помогите решить некоторые задания из контрольной работы. Книгу по Паскалю выдали 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 в виде суммы последовательности невозрастающих целых положительных слагаемых.

Автор: Артемий2 22.03.2007 17:54

Многие задачи решались - поиск.. Или покажи что делал. Могу быстро дать 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. 22.03.2007 18:04

Большое спасибо!!!! Поиском пользовался, но ничего не нашёл. Если где то что то найдёте то прошу сообщить. Ещё раз огромное спасибо!!!!

Автор: Человек_Без_Имени 22.03.2007 21:25

вот вторая

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.

Автор: Алена 22.03.2007 21:41

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

Что, в FAQ не разобран принцип решения второй задачи?
http://forum.pascal.net.ru/index.php?s=&showtopic=4535&view=findpost&p=44175

или недостаточно информации по численному интегрированию: http://forum.pascal.net.ru/index.php?showtopic=4389
?

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

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

P.S. Что, темы с таким названием уже разрешены? Или никому ни до чего нет дела?

Автор: A.S. 24.03.2007 14:49

Огромное спасибо всем за помощь!!! Все остальные задачи я уже решил. Ещё раз всем спасибо!