Решение задач на Паскале, Попогите решить.

[alex_fcsm]

Сообщение от capta1n

все замечательно, но врятли в турбо такой код заработает - библиотеки sysutils в нем нет

Просто удалить uses Sysutils

[capta1n]

да я уж поспать успел )))

[capta1n]

Просто удалить uses Sysutils

И получи ошибку о неопределенной функции inttoster
и вообще я не для себя замечание сделал, а чтобы знали, что в турбо не пройдет такая штука

[alex_fcsm]

Сообщение от capta1n

И получи ошибку о неопределенной функции inttoster

Сорри я не заметил inttostr(int->string)

[capta1n]

4 задание - разложение тейлора для функции sin(x) при x стремящемся к какому-то значению - лучше вот так было написать задание ну и формулу

[Darangel]

А что вам написать еще написать для решения?

[capta1n]

ничего - сейчас быстро напишу я эти формулы уже наизусть знаю - матанализ уже запарил

[capta1n]

{$I+}
program teylor;
const
 e = 1e-4; {точность - в данном случае 0.0001}
 pi = 3.1415; {Число пи}
 e1 = 4; {Точность вывода}
var
 x,x1,x2,xn : real; {x - задаваемая точка (после преобразуется, откидывая полные обороты) ; x1,x2 - два соседних члена; xn - первоначальное значение точки }
 z : real; {Сумма ряда}
 n : integer; {Порядок разложения}
 i,k : byte; {Cчетчики}

 function fact( m : integer) : comp; {функция вычисления факториала}
 begin
   if m>0 then
    if m<=1 then fact:=1
    else fact:=fact(m-1)*m;
 end;

begin

  write ('x= '); readln(x);
  xn:=x;
  if abs(x)>2*pi then x:=x-2*pi*trunc(x/(2*pi)); {Если угол больше чем 2pi, то отбрасываем полные обороты}
  z:=0;
  x2:=0;
  n:=-1;
  i:=0;
  repeat
    inc(i);
    inc(n,2);
    x1:=x2;
    x2:=1;
    for k:=1 to n do x2:=x2*x;
    x2:=x2/fact(n);
    if odd(i) then z:=z+x2
             else z:=z-x2;
  until abs(x2-x1) <= e;

  write ('sin(x)= ',z:0:e1,' v to4ke x= ',xn:0:2);
  write (' ; razlojenie ',n,' por9dka'); writeln; writeln;
  writeln (i,' iteraciy');

  readln;
end.

[Alemhzan]

1)Определить среднее арифметическое всех элементов массива.
2)Дан массив чисел.Ко всем отрицательным элементам прибавить элемент с номером т1, к остальным элементам с номером т2.
3)Найти среднее арифметические положительных и отрицательных элементов массива.
4)Дан массив целых чисел.Определить количество элементов, отличных от последнего элемента.
5)известны данные о количестве осадков, выпавших за каждый день феврале.Верно ли, что по чётным числам выпадало больше осадков, чем по нечётным?
6)Дан массив.Определить количество элементов, больших суммы всех элементов массива, и напечатать их номера.
7)В массиве записана информация о стоимости 30 видов товара.Определить стоимость двух самых дорогих видов товара.
8)Дан массив.Скопировать все его элементы в другой массив такого же размера в том же порядке расположения элементов.
9)Известны данные о численности населения (в млн. жителей) и площади (в тыс. кв.км.) 28 государств.Определить общую численность населения в "маленьких" государствах (чья площадь не превышает р тыс. кв.км.).
10)Даны два массива одного размера.Получить третий массив, каждый элемент которого равен произведению элементов с одинаковыми номерами в заданных массивах.

P/S. Плийз помогите, очень нужно.буду очень признателен !!!хотя бы 70%!!

[stervochka66ru]

1,3,5,6,10 элементарные проги- в инете заведи поиск- ответ получишь готовые программы